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

[dbsrgits/DBM-Deep.git] / t / 34_transaction_arrays.t

diff --git a/t/34_transaction_arrays.t b/t/34_transaction_arrays.t
index 13b08f3..8513bbe 100644 (file)
--- a/t/34_transaction_arrays.t
+++ b/t/34_transaction_arrays.t
@@ -7,11 +7,6 @@ use t::common qw( new_dbm );
 
 use_ok( 'DBM::Deep' );
 
-if ( $ENV{NO_TEST_TRANSACTIONS} ) {
-    done_testing;
-    exit;
-}
-
 my $dbm_factory = new_dbm(
     locking => 1,
     autoflush => 1,
@@ -20,6 +15,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->[0] = 'y';