--- trunk/t/1-lookup.t	2005/07/16 16:00:19	7
+++ trunk/t/1-lookup.t	2005/07/24 14:20:59	30
@@ -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' ],
@@ -30,7 +33,7 @@
 
 ok($lookup->add( $rec ), "add");
 
-ok($lookup->{'lookup'}, "have lookup hash");
+ok($lookup->{'_lookup_data'}, "have lookup hash");
 
 my $lookup_res = { 
 	'800:foo' => [ 'bar' ],
@@ -38,7 +41,7 @@
 	'900:bar' => [ 'FOO', 'foo' ]
 };
 
-is_deeply($lookup_res, $lookup->{'lookup'}, "lookup data");
+is_deeply($lookup_res, $lookup->{'_lookup_data'}, "lookup data");
 
 foreach my $k (keys %{ $lookup_res }) {
 	ok(my @l = $lookup->lookup("lookup{$k}"), "lookup{$k}");