projects
/
webpac2
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r1579@llin: dpavlin | 2007-11-10 11:59:27 +0100
[webpac2]
/
t
/
3-normalize.t
diff --git
a/t/3-normalize.t
b/t/3-normalize.t
index
105c279
..
36b2704
100755
(executable)
--- a/
t/3-normalize.t
+++ b/
t/3-normalize.t
@@
-523,7
+523,7
@@
sub test_s {
}
ok(my $marc = WebPAC::Normalize::_get_marc_fields(), "_get_marc_fields");
}
ok(my $marc = WebPAC::Normalize::_get_marc_fields(), "_get_marc_fields");
- diag dump( $marc ) if
($debug)
;
+ diag dump( $marc ) if
$debug
;
diag "expects:\n", dump($struct) if ($debug > 1);
is_deeply( $marc, $struct, $msg );
}
diag "expects:\n", dump($struct) if ($debug > 1);
is_deeply( $marc, $struct, $msg );
}
@@
-918,7
+918,13
@@
sub test_s {
'i' => 'i-4-1',
'w' => 'w-4-1',
},{
'i' => 'i-4-1',
'w' => 'w-4-1',
},{
- 'a' => 'a-5-1',
+ 'a' => 'a-4-1',
+ 'v' => 'v-4-1',
+ 'i' => 'i-4-1',
+ },{
+ 'a' => 'a-4-1',
+ 'i' => 'i-4-1',
+ 'w' => 'w-4-1',
}],
},
qq{
}],
},
qq{
@@
-932,11
+938,14
@@
sub test_s {
'i' => 'p',
'w' => 'v',
],
'i' => 'p',
'w' => 'v',
],
+ isis_template => [
+ 'a ; |v. |i',
+ 'a. |i ; |w',
+ ],
marc_template => [
'a',
'a, |x ; |v. |n, |p ; |v',
'a ; |v. |p ; |v',
marc_template => [
'a',
'a, |x ; |v. |n, |p ; |v',
'a ; |v. |p ; |v',
- 'a. |p ; |v',
],
);
},
],
);
},