|
Lines 25-31
use Module::Load::Conditional qw/check_install/;
Link Here
|
| 25 |
|
25 |
|
| 26 |
BEGIN { |
26 |
BEGIN { |
| 27 |
if ( check_install( module => 'Test::DBIx::Class' ) ) { |
27 |
if ( check_install( module => 'Test::DBIx::Class' ) ) { |
| 28 |
plan tests => 36; |
28 |
plan tests => 37; |
| 29 |
} else { |
29 |
} else { |
| 30 |
plan skip_all => "Need Test::DBIx::Class" |
30 |
plan skip_all => "Need Test::DBIx::Class" |
| 31 |
} |
31 |
} |
|
Lines 134-139
eval {
Link Here
|
| 134 |
ok($@ eq '', 'NormalizeISSN does not throw exception when parsing invalid ISSN'); |
134 |
ok($@ eq '', 'NormalizeISSN does not throw exception when parsing invalid ISSN'); |
| 135 |
|
135 |
|
| 136 |
@issns = GetVariationsOfISSNs('abc'); |
136 |
@issns = GetVariationsOfISSNs('abc'); |
| 137 |
is(scalar(@issns), 0, 'zero variations returned of invalid ISSN'); |
137 |
is($issns[0], 'abc', 'Original ISSN passed through even if invalid'); |
|
|
138 |
is(scalar(@issns), 1, 'zero additional variations returned of invalid ISSN'); |
| 138 |
|
139 |
|
| 139 |
1; |
140 |
1; |
| 140 |
- |
|
|