r14214@rob-kinyons-computer (orig r8081): rkinyon | 2006-11-17 20:51:21 -0500

[dbsrgits/DBM-Deep.git] / t / 38_transaction_add_item.todo

diff --git a/t/38_transaction_add_item.t b/t/38_transaction_add_item.todo
similarity index 61%
rename from t/38_transaction_add_item.t
rename to t/38_transaction_add_item.todo
index 3325e52..4306e1b 100644 (file)
--- a/t/38_transaction_add_item.t
+++ b/t/38_transaction_add_item.todo
@@ -10,6 +10,7 @@ my $db = DBM::Deep->new(
     file => $filename,
     locking => 1,
     autoflush => 1,
+    num_txns  => 16,
 );
 
 {
@@ -17,16 +18,16 @@ my $db = DBM::Deep->new(
         foo => 5,
     }, 'Foo';
 
-    cmp_ok( $obj->{foo}, '==', 5 );
-    ok( !exists $obj->{bar} );
+    cmp_ok( $obj->{foo}, '==', 5, "FOO is 5 in the object" );
+    ok( !exists $obj->{bar}, "BAR doesn't exist in the object" );
 
     $db->begin_work;
 
-    $db->{foo} = $obj;
-    $db->{foo}{bar} = 1;
+        $db->{foo} = $obj;
+        $db->{foo}{bar} = 1;
 
-    cmp_ok( $db->{foo}{bar}, '==', 1, "The value is visible within the transaction" );
-    cmp_ok( $obj->{bar}, '==', 1, "The value is visible within the object" );
+        cmp_ok( $db->{foo}{bar}, '==', 1, "The value is visible within the transaction" );
+        cmp_ok( $obj->{bar}, '==', 1, "The value is visible within the object" );
 
     $db->rollback;
 
@@ -55,11 +56,11 @@ __END__
 
     $db->begin_work;
 
-    $db->{foo} = $obj;
-    $db->{foo}{bar} = 1;
+        $db->{foo} = $obj;
+        $db->{foo}{bar} = 1;
 
-    cmp_ok( $db->{foo}{bar}, '==', 1, "The value is visible within the transaction" );
-    cmp_ok( $obj->{bar}, '==', 1, "The value is visible within the object" );
+        cmp_ok( $db->{foo}{bar}, '==', 1, "The value is visible within the transaction" );
+        cmp_ok( $obj->{bar}, '==', 1, "The value is visible within the object" );
 
     $db->commit;