X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=t%2FSlob.t;h=70bc6e2a3399162f1a2de504ffc4ebb9dfdd45a0;hb=1ca60f5557ed528aa1cdd7c50737c5d51b94682a;hp=395c59eba88286f79a890d2bf50c614efdccf8bd;hpb=0e15b49616308e77f3f6ede65711ea70a876af47;p=slob.git diff --git a/t/Slob.t b/t/Slob.t index 395c59e..70bc6e2 100644 --- a/t/Slob.t +++ b/t/Slob.t @@ -2,30 +2,33 @@ use strict; use warnings; -use Test::More tests => 7; +use Test::More tests => 25; BEGIN { use_ok('Slob') }; -my $slob = Slob->new('t/freedict-01.slob'); +for my $path () { + note "Now using $path"; + my $slob = Slob->new($path); -my $nr_of_entries = $slob->ref_count; + my $nr_of_entries = $slob->ref_count; -my $second_ref = $slob->seek_and_read_ref(4); -my $bin = $slob->seek_and_read_storage_bin($second_ref->{bin_index}); + my $second_ref = $slob->seek_and_read_ref(4); + my $bin = $slob->seek_and_read_storage_bin($second_ref->{bin_index}); -is $second_ref->{key}, 'abacus'; -is $second_ref->{bin_index}, 0; -is $second_ref->{item_index}, 161; -my $count = scalar @{$bin->{positions}}; -is $count, 637; + is $second_ref->{key}, 'abacus'; + is $second_ref->{bin_index}, 0; + is $second_ref->{item_index}, 161; + my $count = scalar @{$bin->{positions}}; + is $count, 637; -my $expected = <<'EOF'; + my $expected = <<'EOF';
abacus
æbəkəs
      1. Rechenbrett
      m
EOF -chomp $expected; -is $slob->get_entry_of_storage_bin($bin, $second_ref->{item_index}), $expected; + chomp $expected; + is $slob->get_entry_of_storage_bin($bin, $second_ref->{item_index}), $expected; -is $slob->seek_and_read_ref_and_data(4)->{data}, $expected; + is $slob->seek_and_read_ref_and_data(4)->{data}, $expected; +}