Converted to using only 2 transactions by default and added the num_txns to the header

[dbsrgits/DBM-Deep.git] / t / 36_transaction_deep.todo

use strict;
use Test::More tests => 7;
use Test::Deep;
use t::common qw( new_fh );

use_ok( 'DBM::Deep' );

my ($fh, $filename) = new_fh();
my $db = DBM::Deep->new(
    file => $filename,
    locking => 1,
    autoflush => 1,
    num_txns  => 16,
);

my $outer = { a => 'b' };
my $inner = { a => 'c' };

$db->{x} = $outer;
is( $db->{x}{a}, 'b', "BEFORE: We're looking at the right value from outer" );

$db->begin_work;

    $db->{x} = $inner;
    is( $db->{x}{a}, 'c', "WITHIN: We're looking at the right value from inner" );
TODO: {
    local $TODO = "Transactions not done yet";
    is( $outer->{a}, 'b', "WITHIN: We're looking at the right value from outer" );
}

$db->commit;

is( $db->{x}{a}, 'c', "AFTER: Commit means inner is still correct" );
TODO: {
    local $TODO = "Transactions not done yet";
is( $outer->{a}, undef, "AFTER: outer made the move" );
}
is( $inner->{a}, 'c', "AFTER: inner made the move" );