X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=t%2FSlob.t;h=70bc6e2a3399162f1a2de504ffc4ebb9dfdd45a0;hb=1ca60f5557ed528aa1cdd7c50737c5d51b94682a;hp=b0ab28f8921c9a35d591948e041f5b5e302fb957;hpb=d3779104ff18ac718524de579f1d5247c30cc48a;p=slob.git diff --git a/t/Slob.t b/t/Slob.t index b0ab28f..70bc6e2 100644 --- a/t/Slob.t +++ b/t/Slob.t @@ -2,28 +2,33 @@ use strict; use warnings; -use Test::More tests => 6; +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; +}