--- trunk/t/3-normalize.t 2006/10/05 12:57:51 736 +++ trunk/t/3-normalize.t 2006/12/10 12:56:05 787 @@ -2,7 +2,7 @@ use strict; -use Test::More tests => 309; +use Test::More tests => 311; use Test::Exception; use Cwd qw/abs_path/; use blib; @@ -725,6 +725,10 @@ [ '901', ' ', ' ', 'b', 'bar', 'c', 'baz' ], ], ); + + test_s(qq{ marc_remove('*'); }); + ok(! WebPAC::Normalize::_get_marc_fields(), 'marc_remove(*)'); + test_rec_rules( 'marc_duplicate', { '200' => [{ a => 42, b => 'bar', c => 'baz', d => 'bing', e => 'bong' }] },