1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
#!perl
use strict;
use Test::More tests => 12;
use File::Basename 'dirname';
use Spreadsheet::ReadSXC;
my $d = dirname($0);
my $sxc_file = "$d/t.sxc";
sub dies_ok {
my( $code, $error_msg, $name ) = @_;
$name ||= $error_msg;
#my $old_handler = Archive::Zip::setErrorHandler(sub {});
my $died = eval {
$code->();
1
};
my $err = $@;
is $died, undef, $name;
like $err, $error_msg, $name;
#Archive::Zip::setErrorHandler($old_handler);
};
is Spreadsheet::ReadSXC::read_sxc('no-such-file.sxc'), undef, "Default silent API";
dies_ok sub { Spreadsheet::ReadSXC::read_sxc('no-such-file.sxc', { StrictErrors => 1 }) }, qr/no element found at line 1/,"Non-existent file";
is Spreadsheet::ReadSXC::read_sxc_fh(undef), undef, "undef filehandle is silent";
dies_ok sub { Spreadsheet::ReadSXC::read_sxc_fh(undef, { StrictErrors => 1 }); }, qr/Undef ODS source given/, "undef filehandle dies";
is Spreadsheet::ReadSXC::read_xml_file('no-such-file.xml'), undef, "Default silent API";
dies_ok sub { Spreadsheet::ReadSXC::read_xml_file('no-such-file.xml', { StrictErrors => 1 })},
qr/\bno-such-file\.xml\b/, "Non-existent XML file dies with an error mentioning the filename";
ok $!{ENOENT}, "The file 'no-such-file.xml' was not found";
dies_ok sub { Spreadsheet::ReadSXC::read_xml_string('<invalid_xml>', { StrictErrors => 1 })}, qr/no element found at line 1/, "Invalid XML string";
|
