public function testaa_havainnon_poisto()
 {
     $this->lisaa_testikommentti("<h4>Havainnon poistotesti alkaa</h4>", false);
     $this->lisaa_testikommentti("<p>Luodaan poistoa varten uusi havainto.</p>", false);
     $henkilo_id = 1;
     $lajiluokka_id = $this->lajiluokka_id2;
     $vuosi = 2003;
     $kk = 6;
     $paiva = 12;
     $paikka = "Koulun piha";
     $kommentti = Havaintotestaus::$havainto_kommentti;
     $maa = Maat::$suomi;
     $varmuus = Varmuus::$melkoisen_varma;
     $this->havainto3 = $this->luo_ja_tallenna_havainto($henkilo_id, $lajiluokka_id, $vuosi, $kk, $paiva, $paikka, $kommentti, $maa, $varmuus);
     if ($this->havainto3 !== Havainto::$VIRHE) {
         $this->lisaa_testikommentti("Poistettavan luonti onnistui.", false);
         // Otetaan id talteen:
         $id_poistettava = $this->havainto3->get_id();
         $poistettava = $this->havainto3;
         $palaute = $poistettava->poista();
         if ($palaute === Havainto::$OPERAATIO_ONNISTUI) {
             $this->lisaa_testikommentti("Poisto onnistui!", false);
             $this->lisaa_testikommentti("Tehdaan viela tarkistus tietokannasta:", false);
             // TArkistetaan vielä tietokanta:
             $hakutulos = $this->tietokantaolio->tee_WHEREhaku_1(Tietokannan_taulunimet::$bhavainnot, Havainto::$SARAKENIMI_ID, $id_poistettava);
             $lkm = $this->tietokantaolio->hae_osumarivien_lkm($hakutulos);
             if ($lkm == 0) {
                 $this->lisaa_testikommentti("OK! Tietokannasta ei\n                        loytynyt poistettua havaintoa", false);
             } else {
                 $this->lisaa_testikommentti("Virhe! Tietokannasta\n                        loytyi poistetun id:lla " . $lkm . " havaintoa", true);
             }
         } else {
             $this->lisaa_testikommentti("Poisto epaonnistui! " . $palaute, true);
         }
     } else {
         $this->lisaa_testikommentti("Poistettavan luonti ep&auml;onnistui!", true);
     }
     $this->lisaa_testikommentti("Kokeillaan sitten poistaa olematon\n            havainto:", false);
     $falskihavainto = new Havainto($this->tietokantaolio, 12345);
     $palaute = $falskihavainto->poista();
     if ($palaute == Havainto::$OPERAATIO_ONNISTUI) {
         $this->lisaa_testikommentti("Virhe: olemattoman poisto onnistui! ", true);
     } else {
         $this->lisaa_testikommentti("Oikein: olemattoman poistoa ei edes\n                yriteta! ", false);
     }
     $this->lisaa_testikommentti("<h4>Havainnon poistotesti loppui</h4>", false);
 }