Lines 22-28
use Modern::Perl;
Link Here
|
22 |
use FindBin; |
22 |
use FindBin; |
23 |
use File::Temp qw/tempfile/; |
23 |
use File::Temp qw/tempfile/; |
24 |
use File::Slurp; |
24 |
use File::Slurp; |
25 |
use Test::More tests => 32; |
25 |
use Test::More tests => 33; |
26 |
use Test::Warn; |
26 |
use Test::Warn; |
27 |
|
27 |
|
28 |
use Koha::XSLT::Base; |
28 |
use Koha::XSLT::Base; |
Lines 49-55
$output = $engine->transform( undef, $xsltfile_1 );
Link Here
|
49 |
is( $engine->err, Koha::XSLT::Base::XSLTH_ERR_7, 'Engine returns error on undefined text' ); |
49 |
is( $engine->err, Koha::XSLT::Base::XSLTH_ERR_7, 'Engine returns error on undefined text' ); |
50 |
|
50 |
|
51 |
# Empty string tests |
51 |
# Empty string tests |
52 |
$output = $engine->transform( '', $xsltfile_1 ); |
52 |
warning_like {$output = $engine->transform( '', $xsltfile_1 ) } |
|
|
53 |
qr/XSLT::Base: Empty String/, |
54 |
'Empty string warning detected'; |
53 |
is( $engine->err, Koha::XSLT::Base::XSLTH_ERR_5, 'Engine returns error on empty string' ); |
55 |
is( $engine->err, Koha::XSLT::Base::XSLTH_ERR_5, 'Engine returns error on empty string' ); |
54 |
|
56 |
|
55 |
# Non-XML tests |
57 |
# Non-XML tests |
56 |
- |
|
|