--- trunk/t/3-normalize.t	2006/07/02 20:14:21	564
+++ trunk/t/3-normalize.t	2006/07/02 21:17:54	566
@@ -2,7 +2,7 @@
 
 use strict;
 
-use Test::More tests => 103;
+use Test::More tests => 107;
 use Test::Exception;
 use Cwd qw/abs_path/;
 use blib;
@@ -504,6 +504,18 @@
 		qq{ split_rec_on('200','a', qr/\\s*;\\s*/, 2) },
 		'bar',
 	);
+	test_rule(
+		'split_rec_on no part',
+		{ '200' => [{ a => 'foo ; bar', b => 42, c => 'baz' }] },
+		q! split_rec_on('200','a', qr/\\s*;\\s*/) !,
+		[ 'foo', 'bar' ],
+	);
+	test_rule(
+		'split_rec_on no record',
+		{},
+		qq{ split_rec_on('200','a', qr/\\s*;\\s*/) },
+		'',
+	);
 
 	test_rec_rules(
 		'marc_compose+split_rec_on',