r1214@llin: dpavlin | 2007-05-20 18:19:12 +0200

 more sample data

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

diff --git a/t/1-validate-delimiters.t b/t/1-validate-delimiters.t
index 9baa5ca..08c74ca 100755 (executable)
--- a/t/1-validate-delimiters.t
+++ b/t/1-validate-delimiters.t
@@ -46,7 +46,11 @@ test_v({
                { 'a' => 'a : a : a', 'c' => [ 'a : b ; c', 'a : b ; c / d' ] },
                { 'a' => 'a : b / c' },
                { 'a' => 'a : b / c' },
-       ]
+       ],
+       '901' => [
+               { 'a' => 'a : b / c', 'b' => 'foo' },
+               { 'a' => 'a : b / c', 'b' => 'foo' },
+       ],
 });
 
 diag dump($v->{_delimiters_templates});
@@ -57,5 +61,6 @@ is_deeply( $v->{_delimiters_templates}, {
                "^a :  : ^c :  ; ^c :  ;  / " => 1,
                "^a :  =  :  ; ^b ;  ;  ;  ;  :  .  . " => 1,
        },
+       901 => { "^a :  / ^b" => 2 },
 }, 'just subfields and delimiters');