--- trunk/t/2-input.t	2007/04/11 12:22:33	821
+++ trunk/t/2-input.t	2007/04/11 12:22:37	823
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 
-use Test::More tests => 116;
+use Test::More tests => 118;
 use Test::Exception;
 use Cwd qw/abs_path/;
 use blib;
@@ -193,7 +193,10 @@
 	modify_records => {
 		900 => {
 			'^a' => { '^e' => ' : ^e' },
-		}
+		},
+		901 => {
+			'^a' => { 'foo' => 'baz' },
+		},
 	},
 ), "open (with modify_records for empty subfields)");
 
@@ -206,3 +209,8 @@
 	'^afoo^ebar',
 	'^afoo : ^ebar',
 );
+
+test_filter(901,
+	'^afoo^ebar',
+	'^abaz^ebar',
+);