X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F41_transaction_multilevel.t;fp=t%2F41_transaction_multilevel.t;h=ef4b3e978ad6bdb432535a71b8a7e16c49cb29eb;hb=e73f12ce9c4e8bdc89f1bc84d8f2a101bdb21518;hp=790fa3629db54744cd600863814102f2b42cbef9;hpb=8385c429c0fb14033edd484e9daf138cd799c432;p=dbsrgits%2FDBM-Deep.git

diff --git a/t/41_transaction_multilevel.t b/t/41_transaction_multilevel.t
index 790fa36..ef4b3e9 100644
--- 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" );