t/17_import.t

   1 ##
   2 # DBM::Deep Test
   3 ##
   4 use strict;
   5 use Test::More tests => 2;
   6
   7 use_ok( 'DBM::Deep' );
   8
   9 unlink "t/test.db";
  10 my $db = DBM::Deep->new( "t/test.db" );
  11
  12 ##
  13 # Create structure in memory
  14 ##
  15 my $struct = {
  16         key1 => "value1",
  17         key2 => "value2",
  18         array1 => [ "elem0", "elem1", "elem2" ],
  19         hash1 => {
  20                 subkey1 => "subvalue1",
  21                 subkey2 => "subvalue2"
  22         }
  23 };
  24
  25 ##
  26 # Import entire thing
  27 ##
  28 $db->import( $struct );
  29 undef $struct;
  30
  31 ##
  32 # Make sure everything is there
  33 ##
  34 ok(
  35         ($db->{key1} eq "value1") &&
  36         ($db->{key2} eq "value2") &&
  37         ($db->{array1} &&
  38                 ($db->{array1}->[0] eq "elem0") &&
  39                 ($db->{array1}->[1] eq "elem1") &&
  40                 ($db->{array1}->[2] eq "elem2")
  41         ) &&
  42         ($db->{hash1} &&
  43                 ($db->{hash1}->{subkey1} eq "subvalue1") &&
  44                 ($db->{hash1}->{subkey2} eq "subvalue2")
  45         )
  46 );