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 |
- |
|
|