Commit | Line | Data |
ffed8b01 |
1 | ## |
2 | # DBM::Deep Test |
3 | ## |
4 | use strict; |
5 | use Test::More; |
6 | |
7 | my $max_keys = 4000; |
8 | plan tests => 2 + $max_keys; |
9 | |
10 | use_ok( 'DBM::Deep' ); |
11 | |
12 | unlink "t/test.db"; |
13 | my $db = DBM::Deep->new( |
14 | file => "t/test.db", |
15 | type => DBM::Deep->TYPE_ARRAY |
16 | ); |
17 | if ($db->error()) { |
18 | die "ERROR: " . $db->error(); |
19 | } |
20 | |
21 | ## |
22 | # put/get many keys |
23 | ## |
24 | for ( 0 .. $max_keys ) { |
25 | $db->put( $_ => $_ * 2 ); |
26 | } |
27 | |
28 | for ( 0 .. $max_keys ) { |
29 | is( $db->get( $_ ), $_ * 2, "The ${_}th value is correct" ); |
30 | } |