1 |
#!/usr/bin/perl -w |
#!/usr/bin/perl -w |
2 |
|
|
3 |
use Test::More tests => 116; |
use Test::More tests => 118; |
4 |
use Test::Exception; |
use Test::Exception; |
5 |
use Cwd qw/abs_path/; |
use Cwd qw/abs_path/; |
6 |
use blib; |
use blib; |
193 |
modify_records => { |
modify_records => { |
194 |
900 => { |
900 => { |
195 |
'^a' => { '^e' => ' : ^e' }, |
'^a' => { '^e' => ' : ^e' }, |
196 |
} |
}, |
197 |
|
901 => { |
198 |
|
'^a' => { 'foo' => 'baz' }, |
199 |
|
}, |
200 |
}, |
}, |
201 |
), "open (with modify_records for empty subfields)"); |
), "open (with modify_records for empty subfields)"); |
202 |
|
|
209 |
'^afoo^ebar', |
'^afoo^ebar', |
210 |
'^afoo : ^ebar', |
'^afoo : ^ebar', |
211 |
); |
); |
212 |
|
|
213 |
|
test_filter(901, |
214 |
|
'^afoo^ebar', |
215 |
|
'^abaz^ebar', |
216 |
|
); |