X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F42_transaction_indexsector.t;h=39274fcdffeca1204342ae2bbd66802f724a886d;hb=580e5ee2931d299ba9e667fcc0645532af9c59aa;hp=44bb375b78948c871760a06bd572933695b41327;hpb=4f034d8ffdf4d853f8f098344c5e703eb7fe32b5;p=dbsrgits%2FDBM-Deep.git

diff --git a/t/42_transaction_indexsector.t b/t/42_transaction_indexsector.t
index 44bb375..39274fc 100644
--- a/t/42_transaction_indexsector.t
+++ b/t/42_transaction_indexsector.t
@@ -14,11 +14,6 @@ use_ok( 'DBM::Deep' );
 # reindexing at 17 keys vs. attempting to hit the second-level reindex which
 # can occur as early as 18 keys and as late as 4097 (256*16+1) keys.
 
-if ( $ENV{NO_TEST_TRANSACTIONS} ) {
-    done_testing;
-    exit;
-}
-
 {
     my $dbm_factory = new_dbm(
         locking => 1,
@@ -27,6 +22,7 @@ if ( $ENV{NO_TEST_TRANSACTIONS} ) {
     );
     while ( my $dbm_maker = $dbm_factory->() ) {
         my $db1 = $dbm_maker->();
+        next unless $db1->supports( 'transactions' );
         my $db2 = $dbm_maker->();
 
         $db1->{x} = 'y';
@@ -62,6 +58,7 @@ if ( $ENV{NO_TEST_TRANSACTIONS} ) {
     );
     while ( my $dbm_maker = $dbm_factory->() ) {
         my $db1 = $dbm_maker->();
+        next unless $db1->supports( 'transactions' );
         my $db2 = $dbm_maker->();
 
         $db1->{x} = 'y';