+diag "input = ",dump($input->{data}) if ($debug);
+
+# break encapsulation, bad! bad!
+$input->{ll_db}->{_isis_db}->{record} = {
+ 900 => 'foo ; bar ; baz',
+};
+
+$input->{modify_record} = {
+ 900 => {
+ '*' => [
+ { ' ; ' => 'a' },
+ { ' ; ' => 'b' },
+ { ' ; ' => 'c' },
+ ],
+ }
+};
+
+diag "hacked: ",dump($input, $input->fetch) if ($debug);
+
+# seek
+throws_ok { $input->seek } qw/without/, 'seek without position';
+cmp_ok($input->seek(0), '==', -1, 'seek');
+
+ok(my $rec = $input->fetch, 'fetch');
+diag "fetched rec = ", dump($rec) if ($debug);