test marc_remove('*')

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@787 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/t/3-normalize.t b/t/3-normalize.t
index db0dd54..7a0826a 100755 (executable)
--- a/t/3-normalize.t
+++ b/t/3-normalize.t
@@ -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 @@ sub test_s {
                        [ '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' }] },