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