r612@llin: dpavlin | 2006-05-13 14:40:20 +0200

 rest of fields

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@477 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/t/data/normalize.pl b/t/data/normalize.pl
index ad5667c..5e00643 100755 (executable)
--- a/t/data/normalize.pl
+++ b/t/data/normalize.pl
@@ -304,6 +304,34 @@ tag('ID',
        rec(900)
 );
 
+display('Set',
+       lookup(
+               prefix( 'set-jzav:',
+                       rec(946,1),
+               )
+       ),
+       lookup(
+               prefix( 'set-efzg:',
+                       rec(461,1),
+               )
+       )
+);
+
+search('Set',
+       rec(946,1),
+       rec(461,1),
+);
+
+tag('Set2',
+       lookup(
+               prefix( 'set-jzav:',
+                       lookup( 'parent-id:',
+                               rec(946,1)
+                       )
+               )
+       )
+);
+
 tag('CallNo',
        rec(990)
 );