c2ed42aa17b1fae3f8c1cc1d13e54e9d34f72fc2
[dbsrgits/DBM-Deep.git] / t / 22_internal_copy.t
1 ##
2 # DBM::Deep Test
3 ##
4 use strict;
5 use Test::More tests => 13;
6 use t::common qw( new_fh );
7
8 use_ok( 'DBM::Deep' );
9
10 my ($fh, $filename) = new_fh();
11 my $db = DBM::Deep->new( $filename );
12
13 ##
14 # Create structure in $db
15 ##
16 $db->import(
17         hash1 => {
18                 subkey1 => "subvalue1",
19                 subkey2 => "subvalue2",
20         },
21     hash2 => {
22         subkey3 => 'subvalue3',
23     },
24 );
25
26 is( $db->{hash1}{subkey1}, 'subvalue1', "Value imported correctly" );
27 is( $db->{hash1}{subkey2}, 'subvalue2', "Value imported correctly" );
28
29 $db->{copy} = $db->{hash1};
30
31 is( $db->{copy}{subkey1}, 'subvalue1', "Value copied correctly" );
32 is( $db->{copy}{subkey2}, 'subvalue2', "Value copied correctly" );
33
34 $db->{copy}{subkey1} = "another value";
35 is( $db->{copy}{subkey1}, 'another value', "New value is set correctly" );
36 is( $db->{hash1}{subkey1}, 'another value', "Old value is set to the new one" );
37
38 is( scalar(keys %{$db->{hash1}}), 2, "Start with 2 keys in the original" );
39 is( scalar(keys %{$db->{copy}}), 2, "Start with 2 keys in the copy" );
40
41 delete $db->{copy}{subkey2};
42
43 is( scalar(keys %{$db->{copy}}), 1, "Now only have 1 key in the copy" );
44 is( scalar(keys %{$db->{hash1}}), 1, "... and only 1 key in the original" );
45
46 $db->{copy} = $db->{hash2};
47 is( $db->{copy}{subkey3}, 'subvalue3', "After the second copy, we're still good" );
48
49 my $max_keys = 1000;
50
51 my ($fh2, $filename2) = new_fh();
52 {
53     my $db = DBM::Deep->new( $filename2 );
54
55     $db->{foo} = [ 1 .. 3 ];
56     for ( 0 .. $max_keys ) {
57         $db->{'foo' . $_} = $db->{foo};
58     }
59 }
60
61 {
62     my $db = DBM::Deep->new( $filename2 );
63
64     my $base_offset = $db->{foo}->_base_offset;
65     my $count = -1;
66     for ( 0 .. $max_keys ) {
67         $count = $_;
68         unless ( $base_offset == $db->{'foo'.$_}->_base_offset ) {
69             last;
70         }
71     }
72     is( $count, $max_keys, "We read $count keys" );
73 }