A raft of minor improvements

[dbsrgits/DBM-Deep.git] / t / 39_singletons.t

diff --git a/t/39_singletons.t b/t/39_singletons.t
index f9ff2e1..8a3573e 100644 (file)
--- a/t/39_singletons.t
+++ b/t/39_singletons.t
@@ -1,5 +1,5 @@
 use strict;
-use Test::More tests => 2;
+use Test::More tests => 5;
 use Test::Deep;
 use t::common qw( new_fh );
 
@@ -19,6 +19,11 @@ my $y = $db->{foo};
 print "$x -> $y\n";
 
 TODO: {
-    local $TODO = "Singletons aren't working yet";
-is( $x, $y, "The references are the same" );
+    local $TODO = "Singletons are unimplmeneted yet";
+    is( $x, $y, "The references are the same" );
+
+    delete $db->{foo};
+    is( $x, undef );
+    is( $y, undef );
 }
+is( $db->{foo}, undef );