View | Details | Raw Unified | Return to bug 12973
Collapse All | Expand All

(-)a/t/db_dependent/XSLT_Handler.t (-3 / +13 lines)
Lines 20-26 Link Here
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use FindBin;
22
use FindBin;
23
use Test::More tests => 24;
23
use File::Slurp;
24
use Test::More tests => 27;
24
25
25
use Koha::XSLT_Handler;
26
use Koha::XSLT_Handler;
26
27
Lines 96-101 $output= $engine->transform( $xml_2 ); Link Here
96
    #note: second parameter (file) not passed again
97
    #note: second parameter (file) not passed again
97
is( $engine->err, undef, 'Engine returned no error for xml_2' );
98
is( $engine->err, undef, 'Engine returned no error for xml_2' );
98
is( index($output,'I saw you')>0, 1, 'Saw the expected change for xml_2' ); #Just very simple check if new datafield was added
99
is( index($output,'I saw you')>0, 1, 'Saw the expected change for xml_2' ); #Just very simple check if new datafield was added
100
#Test alternative parameter passing
101
my $output2;
102
$output2 = $engine->transform( { file => $xsltfile_1, xml => $xml_2 } );
103
is( $output, $output2, 'Try hash parameter file');
104
my $code = read_file( $xsltfile_1 );
105
$output2 = $engine->transform( { code => $code, xml => $xml_2 } );
106
is( $output, $output2, 'Try hash parameter code');
107
#Check rerun on last code
108
$output2 = $engine->transform( $xml_2 );
109
is( $output, $output2, 'Rerun on previous passed code');
99
110
100
#The second test xsl contains bad code
111
#The second test xsl contains bad code
101
my $xsltfile_2 = 'test02.xsl';
112
my $xsltfile_2 = 'test02.xsl';
Lines 114-119 exit if !-e $path.$xsltfile_3; Link Here
114
$xsltfile_3= $path.$xsltfile_3;
125
$xsltfile_3= $path.$xsltfile_3;
115
$output= $engine->transform( $xml_2, $xsltfile_3 );
126
$output= $engine->transform( $xml_2, $xsltfile_3 );
116
is( $engine->err, undef, 'Unexpected error on transform with third xsl' );
127
is( $engine->err, undef, 'Unexpected error on transform with third xsl' );
117
is( $engine->refresh, 2, 'Final test on clearing cache' );
128
is( $engine->refresh, 3, 'Final test on clearing cache' );
118
129
119
#End of tests
130
#End of tests
120
- 

Return to bug 12973