Had to turn off caching, but I've merged everything from SPROUT's fixes

[dbsrgits/DBM-Deep.git] / t / 41_transaction_multilevel.t

diff --git a/t/41_transaction_multilevel.t b/t/41_transaction_multilevel.t
index 790fa36..ef4b3e9 100644 (file)
--- a/t/41_transaction_multilevel.t
+++ b/t/41_transaction_multilevel.t
@@ -19,6 +19,15 @@ while ( my $dbm_maker = $dbm_factory->() ) {
     is( $db1->{x}{xy}{foo}, 'y', "Before transaction, DB1's X is Y" );
     is( $db2->{x}{xy}{foo}, 'y', "Before transaction, DB2's X is Y" );
 
+    cmp_bag( [ keys %$db1 ], [qw( x )], "DB1 keys correct" );
+    cmp_bag( [ keys %$db2 ], [qw( x )], "DB2 keys correct" );
+
+    cmp_bag( [ keys %{$db1->{x}} ], [qw( xy )], "DB1->X keys correct" );
+    cmp_bag( [ keys %{$db2->{x}} ], [qw( xy )], "DB2->X keys correct" );
+
+    cmp_bag( [ keys %{$db1->{x}{xy}} ], [qw( foo )], "DB1->X->XY keys correct" );
+    cmp_bag( [ keys %{$db2->{x}{xy}} ], [qw( foo )], "DB2->X->XY keys correct" );
+
     $db1->begin_work;
 
         cmp_bag( [ keys %$db1 ], [qw( x )], "DB1 keys correct" );