Renamings
[dbsrgits/DBM-Deep.git] / t / 03_bighash.t
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_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
28 for ( 0 .. $max_keys ) {
29     is( $db->get( "hello $_" ), "there " . $_ * 2, "The ${_}th value is correct" );
30 }