From: rkinyon 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; }