--- trunk/t/1-lookup.t	2005/07/16 20:54:28	11
+++ trunk/t/1-lookup.t	2005/07/16 22:57:26	12
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 
 use strict;
-use Test::More tests => 15;
+use Test::More tests => 16;
 use Test::Exception;
 use blib;
 
@@ -20,6 +20,9 @@
 	},
 ), "new");
 
+ok(my $regex = $lookup->regex, "regex");
+diag "regex: $regex";
+
 my $rec = {
 	'000' => [ '001' ],
 	'800' => [ 'foo' ],