r8223@rob-kinyons-computer-2 (orig r10043): rkinyon | 2007-10-01 23:11:14 -0400

[dbsrgits/DBM-Deep.git] / t_attic / 37_delete_edge_cases.t

diff --git a/t_attic/37_delete_edge_cases.t b/t_attic/37_delete_edge_cases.t
new file mode 100644 (file)
index 0000000..d873906
--- /dev/null
+++ b/t_attic/37_delete_edge_cases.t
@@ -0,0 +1,32 @@
+##
+# DBM::Deep Test
+##
+use strict;
+use Test::More tests => 4;
+use Test::Deep;
+use Clone qw( clone );
+use t::common qw( new_fh );
+
+use_ok( 'DBM::Deep' );
+
+my ($fh, $filename) = new_fh();
+my $db = DBM::Deep->new( $filename );
+
+my $x = {
+    a => 1,
+    b => 2,
+    c => [ 1 .. 3 ],
+};
+
+my $x_save = clone( $x );
+
+$db->{foo} = $x;
+    
+ok( tied(%$x), "\$x is tied" );
+delete $db->{foo};
+
+TODO: {
+    local $TODO = "Delete isn't working right";
+    ok( !tied(%$x), "\$x is NOT tied" );
+    cmp_deeply( $x, $x_save, "When it's deleted, it's untied" );
+}