t/12_clone.t

   1 ##
   2 # DBM::Deep Test
   3 ##
   4 use strict;
   5 use Test::More tests => 14;
   6
   7 use_ok( 'DBM::Deep' );
   8
   9 unlink "t/test.db";
  10 my $db = DBM::Deep->new(
  11         file => "t/test.db",
  12 );
  13
  14 $db->{key1} = "value1";
  15
  16 ##
  17 # clone db handle, make sure both are usable
  18 ##
  19 my $clone = $db->clone();
  20
  21 is($clone->{key1}, "value1");
  22
  23 $clone->{key2} = "value2";
  24 $db->{key3} = "value3";
  25
  26 is($db->{key1}, "value1");
  27 is($db->{key2}, "value2");
  28 is($db->{key3}, "value3");
  29
  30 is($clone->{key1}, "value1");
  31 is($clone->{key2}, "value2");
  32 is($clone->{key3}, "value3");
  33
  34 undef $db;
  35
  36 is($clone->{key1}, "value1");
  37 is($clone->{key2}, "value2");
  38 is($clone->{key3}, "value3");
  39
  40 undef $clone;
  41
  42 $db = DBM::Deep->new(
  43         file => "t/test.db",
  44 );
  45
  46 is($db->{key1}, "value1");
  47 is($db->{key2}, "value2");
  48 is($db->{key3}, "value3");