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

(-)a/t/db_dependent/Koha/XSLT/Security.t (-2 / +2 lines)
Lines 18-23 Link Here
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use Data::Dumper qw/Dumper/;
21
use File::Temp qw/tempfile/;
22
use File::Temp qw/tempfile/;
22
use Test::More tests => 8;
23
use Test::More tests => 8;
23
use Test::Warn;
24
use Test::Warn;
Lines 117-123 $engine->print_warns(1); Link Here
117
    my @warn;
118
    my @warn;
118
    local $SIG{__WARN__} = sub { push @warn, $_[0]; };
119
    local $SIG{__WARN__} = sub { push @warn, $_[0]; };
119
    $output= $engine->transform({ xml => "<ignored/>", code => $xslt });
120
    $output= $engine->transform({ xml => "<ignored/>", code => $xslt });
120
    is( ( grep { /failed to load external/ } @warn ), 1, 'Expected import error' );
121
    is( ( grep { /failed to load external/ } @warn ), 1, 'Expected import error. Additional info: '.Dumper(@warn) );
121
    is( ( grep { /read_net/ } @warn ), 0, 'No read_net warn for remote import' );
122
    is( ( grep { /read_net/ } @warn ), 0, 'No read_net warn for remote import' );
122
}
123
}
123
124
124
- 

Return to bug 24756