t/09_deeparray.t

   1 ##
   2 # DBM::Deep Test
   3 ##
   4 $|++;
   5 use strict;
   6 use Test::More;
   7
   8 my $max_levels = 1000;
   9
  10 plan tests => 3;
  11
  12 use_ok( 'DBM::Deep' );
  13
  14 unlink "t/test.db";
  15 my $db = DBM::Deep->new(
  16         file => "t/test.db",
  17         type => DBM::Deep->TYPE_ARRAY,
  18 );
  19 if ($db->error()) {
  20         die "ERROR: " . $db->error();
  21 }
  22
  23 $db->[0] = [];
  24 my $temp_db = $db->[0];
  25 for my $k ( 0 .. $max_levels ) {
  26         $temp_db->[$k] = [];
  27         $temp_db = $temp_db->[$k];
  28 }
  29 $temp_db->[0] = "deepvalue";
  30 undef $temp_db;
  31
  32 undef $db;
  33 $db = DBM::Deep->new(
  34         file => "t/test.db",
  35         type => DBM::Deep->TYPE_ARRAY,
  36 );
  37
  38 my $cur_level = -1;
  39 $temp_db = $db->[0];
  40 for my $k ( 0 .. $max_levels ) {
  41     $cur_level = $k;
  42     $temp_db = $temp_db->[$k];
  43     eval { $temp_db->isa( 'DBM::Deep' ) } or last;
  44 }
  45 is( $cur_level, $max_levels, "We read all the way down to level $cur_level" );
  46 is( $temp_db->[0], "deepvalue", "And we retrieved the value at the bottom of the ocean" );