--- trunk/t/01-lookup.t	2005/07/16 12:37:18	4
+++ trunk/t/01-lookup.t	2005/07/16 12:40:28	5
@@ -13,7 +13,12 @@
 
 throws_ok { new WebPAC::Lookup() } qr/lookup_file/, "new without lookup_file";
 
-ok(my $lookup = new WebPAC::Lookup( lookup_file => 'conf/lookup/example.pm' ), "new");
+ok(my $lookup = new WebPAC::Lookup(
+	lookup_file => 'conf/lookup/example.pm',
+	filter => {
+		'upper' => sub { return uc(shift); },
+	},
+), "new");
 
 my $rec = {
 	'000' => [ '001' ],
@@ -30,7 +35,7 @@
 my $lookup_res = { 
 	'800:foo' => [ 'bar' ],
 	'000:001' => [ '001' ],
-	'900:bar' => [ 'foo', 'foo' ]
+	'900:bar' => [ 'FOO', 'foo' ]
 };
 
 is_deeply($lookup_res, $lookup->{'lookup'}, "lookup data");