--- trunk/t/1-lookup.t 2006/05/13 12:07:46 472 +++ trunk/t/1-lookup.t 2006/05/13 12:07:56 473 @@ -1,7 +1,7 @@ #!/usr/bin/perl -w use strict; -use Test::More tests => 16; +use Test::More tests => 17; use Test::Exception; use blib; @@ -33,7 +33,8 @@ ok($lookup->add( $rec ), "add"); -ok($lookup->{'_lookup_data'}, "have lookup hash"); +ok($lookup->{'_lookup_data'}, "{_lookup_data}"); +ok($lookup->lookup_hash, "lookup_hash"); my $lookup_res = { '800:foo' => [ 'bar' ],