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