Parent Directory | Revision Log | Patch
revision 539 by dpavlin, Thu Jun 29 15:29:19 2006 UTC | revision 540 by dpavlin, Thu Jun 29 15:29:41 2006 UTC | |
---|---|---|
# | Line 2 | Line 2 |
2 | ||
3 | use strict; | use strict; |
4 | ||
5 | use Test::More tests => 67; | use Test::More tests => 69; |
6 | use Test::Exception; | use Test::Exception; |
7 | use Cwd qw/abs_path/; | use Cwd qw/abs_path/; |
8 | use blib; | use blib; |
# | Line 341 sub test_s { | Line 341 sub test_s { |
341 | } | } |
342 | }, 'correct get_ds'); | }, 'correct get_ds'); |
343 | ||
344 | # MARC | |
345 | test_s(qq{ marc21('900','a', rec('200') ) }); | |
346 | my @marc; | |
347 | ok(@marc = WebPAC::Normalize::_get_marc21_fields(), "_get_marc21_fields"); | |
348 | diag Dumper(\@marc); | |
349 | } | } |
350 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |