--- trunk/t/2-input.t	2006/12/06 23:42:20	783
+++ trunk/t/2-input.t	2006/12/06 23:43:45	784
@@ -125,6 +125,8 @@
 ok($input->open( path => "$abs_path/modify_isis/LIBRI", ), "open modify_isis (plain)");
 ok(my $rec_p = $input->fetch, 'fetch');
 
+# modify_records
+
 ok($input->open(
 	path => "$abs_path/modify_isis/LIBRI",
 	modify_records => {
@@ -138,3 +140,19 @@
 
 cmp_ok($rec_p->{200}->[0]->{f} . '. ' . $rec_p->{200}->[0]->{c}, 'eq' ,$rec->{200}->[0]->{f}, 'modify_records working');
 
+diag dump($input);
+
+# break encapsulation, bad! bad!
+$input->{ll_db}->{record} = {
+	900 => 'foo ; bar ; baz',
+};
+
+$input->{modify_record} = {
+	900 => {
+		'*' => {
+			' ; ' => 'a',
+		}
+	}
+};
+
+diag "hacked: ",dump($input, $input->fetch);