Added supports() and rewrote the tests so that Engine::DBI doesn't run the transactio...

[dbsrgits/DBM-Deep.git] / t / 45_references.t

diff --git a/t/45_references.t b/t/45_references.t
index 6ca724b..b37f8f9 100644 (file)
--- a/t/45_references.t
+++ b/t/45_references.t
@@ -14,6 +14,7 @@ my $dbm_factory = new_dbm(
 );
 while ( my $dbm_maker = $dbm_factory->() ) {
     my $db1 = $dbm_maker->();
+    next unless $db1->supports( 'transactions' );
     my $db2 = $dbm_maker->();
 
     $db1->{foo} = 5;
@@ -65,15 +66,10 @@ while ( my $dbm_maker = $dbm_factory->() ) {
 done_testing;
 
 __END__
-warn "-2\n";
 $db2->begin_work;
 
-warn "-1\n";
   delete $db2->{bar};
 
-warn "0\n";
 $db2->commit;
 
-warn "1\n";
 ok( !exists $db1->{bar}, "After commit, bar is gone" );
-warn "2\n";