r611@llin: dpavlin | 2006-05-13 14:39:57 +0200

 test for set_lookup(undef)

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

diff --git a/t/3-normalize-set.t b/t/3-normalize-set.t
index 8b454e5..89b13fb 100755 (executable)
--- a/t/3-normalize-set.t
+++ b/t/3-normalize-set.t
@@ -2,7 +2,7 @@
 
 use strict;
 
-use Test::More tests => 42;
+use Test::More tests => 43;
 use Test::Exception;
 use Cwd qw/abs_path/;
 use blib;
@@ -144,6 +144,8 @@ sub test_s {
        no strict 'subs';
        use WebPAC::Normalize::Set;
 
+       ok(! set_lookup( undef ), "set_lookup(undef)");
+
        set_rec( $rec1 );
 
        cmp_ok( join(",", rec2('200','a') ), 'eq', '200a,200a*2', 'join rec2' );