ok 106
ok 107
ok 108
$VAR1 = bless( [], 'DBM::Deep::Array' );
-rw------- 1 steph Ninguno 1825 Oct  8 11:51 /tmp/dResAx20UF/tmpl6Ml
$VAR1 = bless( [
                 bless( [
                          '1',
                          '2',
                          '3'
                        ], 'DBM::Deep::Array' ),
                 bless( {
                          'a' => 'foo'
                        }, 'DBM::Deep::Hash' )
               ], 'DBM::Deep::Array' );
-rw------- 1 steph Ninguno 2599 Oct  8 11:51 /tmp/dResAx20UF/tmpl6Ml
ok 109 - Reuse of same space with array successful
$VAR1 = bless( [
                 bless( [
                          '1',
                          '2',
                          '3'
                        ], 'DBM::Deep::Array' ),
                 bless( {
                          'a' => 'foo'
                        }, 'DBM::Deep::Hash' )
               ], 'DBM::Deep::Array' );
-rw------- 1 steph Ninguno 2599 Oct  8 11:51 /tmp/dResAx20UF/tmpl6Ml
ok 110 - Reuse of same space with hash successful
$VAR1 = bless( [
                 bless( [
                          '1',
                          '2',
                          '3'
                        ], 'DBM::Deep::Array' ),
                 bless( {
                          'a' => 'foo'
                        }, 'DBM::Deep::Hash' )
               ], 'DBM::Deep::Array' );
-rw------- 1 steph Ninguno 2599 Oct  8 11:51 /tmp/dResAx20UF/tmpl6Ml
ok 111
ok 112
ok 113 - FETCH fails on an illegal key
# Looks like you planned 128 tests but only ran 113.
Can't remove directory /tmp/dResAx20UF: Directory not empty at /usr/lib/perl5/5.8/File/Temp.pm line 893