2 use warnings FATAL => 'all';
6 plan skip_all => "You must set \$ENV{LONG_TESTS} to run the long tests"
7 unless $ENV{LONG_TESTS};
9 use t::common qw( new_dbm );
11 diag "This test can take up to several minutes to run. Please be patient.";
13 use_ok( 'DBM::Deep' );
15 my $dbm_factory = new_dbm( type => DBM::Deep->TYPE_ARRAY );
16 while ( my $dbm_maker = $dbm_factory->() ) {
17 my $max_levels = 1000;
20 my $db = $dbm_maker->();
23 my $temp_db = $db->[0];
24 for my $k ( 0 .. $max_levels ) {
26 $temp_db = $temp_db->[$k];
28 $temp_db->[0] = "deepvalue";
32 my $db = $dbm_maker->();
35 my $temp_db = $db->[0];
36 for my $k ( 0 .. $max_levels ) {
38 $temp_db = $temp_db->[$k];
39 eval { $temp_db->isa( 'DBM::Deep' ) } or last;
41 is( $cur_level, $max_levels, "We read all the way down to level $cur_level" );
42 is( $temp_db->[0], "deepvalue", "And we retrieved the value at the bottom of the ocean" );