From: rkinyon <rkinyon@50811bd7-b8ce-0310-adc1-d9db26280581>
Date: Tue, 16 Jan 2007 15:52:49 +0000 (+0000)
Subject: Fixed test to remove SKIP for non-win32 machines
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=638e9b2b6e35b81a6bbc436db6cc0b637a822646;p=dbsrgits%2FDBM-Deep.git

Fixed test to remove SKIP for non-win32 machines
---

diff --git a/t/33_transactions.t b/t/33_transactions.t
index 1e6e779..5fb61fc 100644
--- a/t/33_transactions.t
+++ b/t/33_transactions.t
@@ -1,5 +1,5 @@
 use strict;
-use Test::More tests => 89;
+use Test::More tests => 91;
 use Test::Deep;
 use t::common qw( new_fh );
 
@@ -184,7 +184,6 @@ cmp_bag( [ keys %$db1 ], [qw( foo z )], "DB1 keys correct" );
 cmp_bag( [ keys %$db2 ], [qw( foo z )], "DB2 keys correct" );
 
 SKIP: {
-    skip "Optimize has issues right now", 5;
     skip "Optimize tests skipped on Win32", 5
         if $^O eq 'MSWin32' || $^O eq 'cygwin';
 
@@ -193,12 +192,15 @@ SKIP: {
     is( $db1->{foo}, 'bar', 'After optimize, everything is ok' );
     is( $db2->{foo}, 'bar', 'After optimize, everything is ok' );
 
-    cmp_bag( [ keys %$db1 ], [qw( foo )], "DB1 keys correct" );
-    cmp_bag( [ keys %$db2 ], [qw( foo )], "DB2 keys correct" );
+    is( $db1->{z}, 'a', 'After optimize, everything is ok' );
+    is( $db2->{z}, 'a', 'After optimize, everything is ok' );
+
+    cmp_bag( [ keys %$db1 ], [qw( foo z )], "DB1 keys correct" );
+    cmp_bag( [ keys %$db2 ], [qw( foo z )], "DB2 keys correct" );
 
     $db1->begin_work;
 
-        cmp_ok( $db1->_storage->transaction_id, '==', 1, "Transaction ID has been reset after optimize" );
+        cmp_ok( $db1->_engine->trans_id, '==', 1, "Transaction ID has been reset after optimize" );
 
     $db1->rollback;
 }