t/36_transaction_deep.t

   1 use strict;
   2 use Test::More tests => 3;
   3 use Test::Deep;
   4 use t::common qw( new_fh );
   5
   6 use_ok( 'DBM::Deep' );
   7
   8 my ($fh, $filename) = new_fh();
   9 my $db1 = DBM::Deep->new(
  10     file => $filename,
  11     locking => 1,
  12     autoflush => 1,
  13 );
  14
  15 $db1->begin_work;
  16
  17     my $x = { a => 'b' };;
  18     $db1->{x} = $x;
  19
  20 $db1->commit;
  21
  22 is( $db1->{x}{a}, 'b', "DB1 X-A is good" );
  23 is( $x->{a}, 'b', "X's A is good" );