--- trunk/t/3-normalize-set.t	2006/05/13 12:07:46	472
+++ trunk/t/3-normalize-set.t	2006/05/13 12:37:35	476
@@ -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 @@
 	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' );