|
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 => 38; |
28 |
plan tests => 47; |
| 29 |
} else { |
29 |
} else { |
| 30 |
plan skip_all => "Need Test::DBIx::Class" |
30 |
plan skip_all => "Need Test::DBIx::Class" |
| 31 |
} |
31 |
} |
|
Lines 155-158
ok($@ eq '', 'NormalizeISSN does not throw exception when parsing invalid ISSN')
Link Here
|
| 155 |
is($issns[0], 'abc', 'Original ISSN passed through even if invalid'); |
155 |
is($issns[0], 'abc', 'Original ISSN passed through even if invalid'); |
| 156 |
is(scalar(@issns), 1, 'zero additional variations returned of invalid ISSN'); |
156 |
is(scalar(@issns), 1, 'zero additional variations returned of invalid ISSN'); |
| 157 |
|
157 |
|
|
|
158 |
ok( C4::Koha::compareNumbers(1,1,2),'1 matches 1 as expected'); |
| 159 |
ok( C4::Koha::compareNumbers(1.25,1.251,2),'1.25 matches 1.251 with 2 decimal accuracy'); |
| 160 |
|
| 161 |
ok(!C4::Koha::compareNumbers(1,2,2),'1 does not match 2 as expected'); |
| 162 |
ok(!C4::Koha::compareNumbers(undef,1 ,2),'undef does not match 1 as expected'); |
| 163 |
ok(!C4::Koha::compareNumbers(1,undef,2),'1 does not match undef as expected'); |
| 164 |
|
| 165 |
ok(C4::Koha::compareNumbers( 5.600000 , 5.6 ),'number-number test'); |
| 166 |
ok(C4::Koha::compareNumbers( 5.600000 ,'5.6'),'number-string test'); |
| 167 |
ok(C4::Koha::compareNumbers('5.600000', 5.6 ),'string-number test'); |
| 168 |
ok(C4::Koha::compareNumbers('5.600000','5.6'),'string-string test'); |
| 169 |
|
| 158 |
1; |
170 |
1; |
| 159 |
- |
|
|