1fe9d0f8d8ebff66f68e556bb51a64fb3756f73b
[dbsrgits/DBM-Deep.git] / t / 09_deeparray.t
1 ##
2 # DBM::Deep Test
3 ##
4 use strict;
5 use Test::More;
6
7 plan skip_all => "You must set \$ENV{LONG_TESTS} to run the long tests"
8     unless $ENV{LONG_TESTS};
9
10 plan tests => 3;
11 use t::common qw( new_fh );
12
13 diag "This test can take up to a minute to run. Please be patient.";
14
15 use_ok( 'DBM::Deep' );
16
17 my ($fh, $filename) = new_fh();
18
19 my $max_levels = 1000;
20
21 {
22     my $db = DBM::Deep->new(
23         file => $filename,
24         fh => $fh,
25         type => DBM::Deep->TYPE_ARRAY,
26     );
27
28     $db->[0] = [];
29     my $temp_db = $db->[0];
30     for my $k ( 0 .. $max_levels ) {
31         $temp_db->[$k] = [];
32         $temp_db = $temp_db->[$k];
33     }
34     $temp_db->[0] = "deepvalue";
35 }
36
37 {
38     open $fh, '+<', $filename;
39     my $db = DBM::Deep->new(
40         file => $filename,
41         fh => $fh,
42         type => DBM::Deep->TYPE_ARRAY,
43     );
44
45     my $cur_level = -1;
46     my $temp_db = $db->[0];
47     for my $k ( 0 .. $max_levels ) {
48         $cur_level = $k;
49         $temp_db = $temp_db->[$k];
50         eval { $temp_db->isa( 'DBM::Deep' ) } or last;
51     }
52     is( $cur_level, $max_levels, "We read all the way down to level $cur_level" );
53     is( $temp_db->[0], "deepvalue", "And we retrieved the value at the bottom of the ocean" );
54 }