r1001@llin: dpavlin | 2006-09-25 15:21:57 +0200

 and test it

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

diff --git a/t/2-parse.t b/t/2-parse.t
index bbd8f04..70b65f9 100755 (executable)
--- a/t/2-parse.t
+++ b/t/2-parse.t
@@ -61,7 +61,7 @@ diag "depends = ",dump($d);
 my $expected_depend = {
    foo => {
             "foo-input1" => {
-                              bar => { "bar-input" => { "200-a-200-e" => 1 } },
+                              bar => { "bar-input" => { "210-a-210-e" => 1, "220-a-220-e" => 1, "230-a-230-e" => 1 } },
                               baz => { "baz-input" => { "200-a" => 1 } },
                               foo => { "foo-input1" => { 11 => 1 }, "foo-input2" => { 11 => 1 } },
                             },

diff --git a/t/conf/normalize/foo.pl b/t/conf/normalize/foo.pl
index 3036bcb..2cced90 100644 (file)
--- a/t/conf/normalize/foo.pl
+++ b/t/conf/normalize/foo.pl
@@ -10,9 +10,19 @@ marc('777','v',
                sub { rec('11') }
        ) ||
        lookup(
-               sub { '2nd:' . rec('000') },
+               sub { '2nd-1:' . rec('000') },
                'bar','bar-input',
-               sub { rec(200,'a') . rec('200','e') },
+               sub { rec(210,'a') . rec('210','e') },
+       ) ||
+       lookup(
+               sub { '2nd-2:' . rec('000') },
+               'bar','bar-input',
+               sub { rec(220,'a') . rec('220','e') },
+       ) ||
+       lookup(
+               sub { '2nd-3:' . rec('000') },
+               'bar','bar-input',
+               sub { rec(230,'a') . rec('230','e') },
        ) ||
        lookup(
                sub { "3rd:" . rec('000') },