add test for is_sotred_if after remove

jamadam · jamadam · commit 15a2a42e5102 · 2025-04-01T11:45:57.000+09:00
diff --git a/t/02-basic.t b/t/02-basic.t
@@ -18,7 +18,7 @@ BEGIN {
     }
 }
 
-plan tests => 67;
+plan tests => 68;
 
 use Wine;
 use Recipe;
@@ -275,9 +275,11 @@ setup_dbs({
     my $w = Wine->new(name => 'flag test', rating=> 4);
     ok !$w->object_is_stored, "this object needs to be saved!";
     $w->save;
-    ok $w->object_is_stored, "this object is no saved";
+    ok $w->object_is_stored, "this object is now saved";
     my $w2 = Wine->lookup( $w->id );
     ok $w2->object_is_stored, "an object fetched from the database is by definition NOT ephemeral";
+    $w2->remove;
+    ok !$w2->object_is_stored, "unmarked saved";
 }
 
 END {

Original file line number	Diff line number	Diff line change
`@@ -18,7 +18,7 @@ BEGIN {`
`18`	`18`	`}`
`19`	`19`	`}`
`20`	`20`
`21`		`-plan tests => 67;`
	`21`	`+plan tests => 68;`
`22`	`22`
`23`	`23`	`use Wine;`
`24`	`24`	`use Recipe;`
`@@ -275,9 +275,11 @@ setup_dbs({`
`275`	`275`	`my $w = Wine->new(name => 'flag test', rating=> 4);`
`276`	`276`	`ok !$w->object_is_stored, "this object needs to be saved!";`
`277`	`277`	`$w->save;`
`278`		`- ok $w->object_is_stored, "this object is no saved";`
	`278`	`+ ok $w->object_is_stored, "this object is now saved";`
`279`	`279`	`my $w2 = Wine->lookup( $w->id );`
`280`	`280`	`ok $w2->object_is_stored, "an object fetched from the database is by definition NOT ephemeral";`
	`281`	`+ $w2->remove;`
	`282`	`+ ok !$w2->object_is_stored, "unmarked saved";`
`281`	`283`	`}`
`282`	`284`
`283`	`285`	`END {`