1 # This test (and accompanying patch) was submitted by Father Chrysostomos (sprout@cpan.org)
4 use warnings FATAL => 'all';
8 use t::common qw( new_dbm );
10 use_ok( 'DBM::Deep' );
13 my $dbm_factory = new_dbm();
14 while ( my $dbm_maker = $dbm_factory->() ) {
15 my $db = $dbm_maker->();
18 for ( # the checksums of all these begin with ^@:
19 qw/ s340l 1970 thronos /,
20 "\320\277\320\276\320\262\320\265\320\273\320\265\320\275".
21 "\320\275\320\276\320\265", qw/ mr094 despite
22 geographically binding bed handmaiden infer lela infranarii
23 lxv evtropia recognizes maladies /
28 }, '2 indices can be created at once';
30 is_deeply [sort keys %$db], [ sort
31 qw/ s340l 1970 thronos /,
32 "\320\277\320\276\320\262\320\265\320\273\320\265\320\275".
33 "\320\275\320\276\320\265", qw/ mr094 despite
34 geographically binding bed handmaiden infer lela infranarii
35 lxv evtropia recognizes maladies /
36 ], 'and the keys were stored correctly';
41 my $dbm_factory = new_dbm();
42 while ( my $dbm_maker = $dbm_factory->() ) {
43 my $db = $dbm_maker->();
46 for ( # the checksums of all these begin with ^@^@^@:
47 qw/ dzqtz aqkdqz cxzysd czclmy ktajsi kvlybo kyxowd lvlsda
48 lyzfdi mbethb mcoqeq VMPJC ATZMZZ AXXJDX BXUUFN EIVTII
49 FMOKOI HITVDG JSSJSZ JXQPFK LCVVXW /
54 }, 'multiple nested indices can be created at once';
56 is_deeply [sort keys %$db], [ sort
57 qw/ dzqtz aqkdqz cxzysd czclmy ktajsi kvlybo kyxowd lvlsda
58 lyzfdi mbethb mcoqeq VMPJC ATZMZZ AXXJDX BXUUFN EIVTII
59 FMOKOI HITVDG JSSJSZ JXQPFK LCVVXW /
60 ], 'and the keys were stored correctly';