Lines 20-26
Link Here
|
20 |
use Modern::Perl; |
20 |
use Modern::Perl; |
21 |
|
21 |
|
22 |
use File::Temp qw/tempfile/; |
22 |
use File::Temp qw/tempfile/; |
23 |
use Test::More tests => 32; |
23 |
use Test::More tests => 33; |
24 |
use Test::Warn; |
24 |
use Test::Warn; |
25 |
|
25 |
|
26 |
use Koha::XSLT::Base; |
26 |
use Koha::XSLT::Base; |
Lines 70-76
$output = $engine->transform({ xml => undef, code => $xsl_1 });
Link Here
|
70 |
is( $engine->err, Koha::XSLT::Base::XSLTH_ERR_7, 'Engine returns error on undefined text' ); |
70 |
is( $engine->err, Koha::XSLT::Base::XSLTH_ERR_7, 'Engine returns error on undefined text' ); |
71 |
|
71 |
|
72 |
# Empty string tests |
72 |
# Empty string tests |
73 |
$output = $engine->transform({ xml => '', code => $xsl_1 }); |
73 |
warning_like {$output = $engine->transform({ xml => '', code => $xsl_1 }) } |
|
|
74 |
qr/XSLT::Base: Empty String/, |
75 |
'Empty string warning detected'; |
74 |
is( $engine->err, Koha::XSLT::Base::XSLTH_ERR_5, 'Engine returns error on empty string' ); |
76 |
is( $engine->err, Koha::XSLT::Base::XSLTH_ERR_5, 'Engine returns error on empty string' ); |
75 |
|
77 |
|
76 |
# Non-XML tests |
78 |
# Non-XML tests |
77 |
- |
|
|