to_hash now accept parametars
[Biblio-Isis] / t / 2_isis.t
index de74585..a7b9405 100755 (executable)
@@ -3,7 +3,7 @@
 use strict;
 use blib;
 
-use Test::More tests => 128;
+use Test::More tests => 130;
 use File::Spec;
 
 BEGIN {
@@ -238,3 +238,5 @@ cmp_ok($ascii, 'eq', <<'__END_OF_ASCII__', 'to_ascii output');
 __END_OF_ASCII__
 
 
+ok(my $hash2 = $isis->to_hash({ mfn => $isis->mfn }), 'to_hash(mfn)');
+is_deeply( $hash2, $hash, 'same hash' );