X-Git-Url: http://git.rot13.org/?p=webpac2;a=blobdiff_plain;f=t%2F3-normalize-marc.t;h=0a29c272712c08cc3b3ca9d3e483d5deeb64354e;hp=1ed57dc41a1a4160ee7428b6f9b490ccb6bea61e;hb=d5fe5d95d47f109bb40da6e314b4674d73d8b36b;hpb=5e7646d2fc344be951099e4d03b7347cbb4075ba diff --git a/t/3-normalize-marc.t b/t/3-normalize-marc.t index 1ed57dc..0a29c27 100755 --- a/t/3-normalize-marc.t +++ b/t/3-normalize-marc.t @@ -3,7 +3,7 @@ use strict; use blib; -use Test::More tests => 262; +use Test::More tests => 325; BEGIN { use_ok( 'WebPAC::Test' ); @@ -49,6 +49,8 @@ my $rec = { 'v' => 'v-8-1', },{ 'v' => 'v-9-1', + },{ + 'v' => '0', }], }; @@ -102,6 +104,7 @@ my $marc_out = [ [440, "0", "1", "a", "a-7-1"], [440, "0", "1", "a", "a-8-1 ;", "v", "v-8-1"], [440, "0", "1", "v", "v-9-1"], + [440, 0, 1, "v", 0], ]; is_deeply( test_marc_template($rec), $marc_out , 'is_deeply');