Another method

[slob.git] / t / Slob.t

diff --git a/t/Slob.t b/t/Slob.t
index b0ab28f8921c9a35d591948e041f5b5e302fb957..395c59eba88286f79a890d2bf50c614efdccf8bd 100644 (file)
--- a/t/Slob.t
+++ b/t/Slob.t
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 6;
+use Test::More tests => 7;
 BEGIN { use_ok('Slob') };
 
 my $slob = Slob->new('t/freedict-01.slob');
@@ -27,3 +27,5 @@ my $expected = <<'EOF';
 EOF
 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;