Editing: 02last.t
use strict; use warnings; use FindBin; use lib "$FindBin::Bin/lib"; use Helpers; # Local helper routines used by the test suite. use Test::More tests => 44; use CDB_File; my ( $db, $db_tmp ) = get_db_file_pair(1); my $c = CDB_File->new( $db->filename, $db_tmp->filename ); isa_ok( $c, 'CDB_File::Maker' ); for ( 1 .. 10 ) { $c->insert( "Key$_" => "Val$_" ); } is( $c->finish, 1, "Finish writes out" ); my %h; tie( %h, "CDB_File", $db->filename ); isa_ok( tied(%h), 'CDB_File' ); my $count = 0; foreach my $k ( keys %h ) { $k =~ m/^Key(\d+)$/ or die; my $n = $1; ok( $n <= 10 && $n > 0, "Expected key ($n) is found" ) or diag($k); is( $h{$k}, "Val$n", "Val$n matches" ); } tie( %h, "CDB_File", $db->filename ); isa_ok( tied(%h), 'CDB_File' ); while ( my ( $k, $v ) = each(%h) ) { ok( $k, "verify k in re-tied hash ($k)" ); ok( $v, "verify v in re-tied hash ($v)" ); } exit;
Save
Back