Commit | Line | Data |
ffed8b01 |
1 | ## |
2 | # DBM::Deep Test |
3 | ## |
4 | use strict; |
5 | use Test::More; |
6 | |
7 | my $max_keys = 4000; |
30029562 |
8 | plan tests => 2; |
ffed8b01 |
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_HASH |
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( "hello $_" => "there " . $_ * 2 ); |
26 | } |
27 | |
30029562 |
28 | my $count = -1; |
ffed8b01 |
29 | for ( 0 .. $max_keys ) { |
30029562 |
30 | $count = $_; |
31 | unless ( $db->get( "hello $_" ) eq "there " . $_ * 2 ) { |
32 | last; |
33 | }; |
ffed8b01 |
34 | } |
30029562 |
35 | is( $count, $max_keys, "We read $count keys" ); |