projects
/
webpac2
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r1661@llin: dpavlin | 2007-11-21 11:09:52 +0100
[webpac2]
/
t
/
3-normalize-marc.t
diff --git
a/t/3-normalize-marc.t
b/t/3-normalize-marc.t
index
1ed57dc
..
0a29c27
100755
(executable)
--- a/
t/3-normalize-marc.t
+++ b/
t/3-normalize-marc.t
@@
-3,7
+3,7
@@
use strict;
use blib;
use strict;
use blib;
-use Test::More tests =>
262
;
+use Test::More tests =>
325
;
BEGIN {
use_ok( 'WebPAC::Test' );
BEGIN {
use_ok( 'WebPAC::Test' );
@@
-49,6
+49,8
@@
my $rec = {
'v' => 'v-8-1',
},{
'v' => 'v-9-1',
'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", "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');
];
is_deeply( test_marc_template($rec), $marc_out , 'is_deeply');