| Subject: | Test failures under perl 5.14.2 |
Message body is not shown because it is too large.
| Subject: | rt53375.t |
use Test::More tests => 4;
use XML::Parser::Lite;
my $comment = '';
my $parser = new XML::Parser::Lite(
Handlers => {
Comment => sub { $comment .= $_[1]; },
}
);
my $xml = <<'EOT_1';
<?xml version="1.0" encoding="UTF-8"?>
<!-- seed-viewer -->
<test>
</test>
EOT_1
{
my $failed = 0;
local $@ = undef;
eval {
$parser->parse($xml);
1;
}
or do {
my $err = $@ || 'Zombie Error';
$failed = 1;
diag("eval error, round 1: $err");
};
ok(! $failed, 'eval did not fail, round 1');
my $expected = ' seed-viewer ';
is($comment, ' seed-viewer ', "comment is <<$expected>>, round 1");
};
$comment = '';
$xml = <<'EOT_2';
<?xml version="1.0" encoding="UTF-8"?>
<!-- seed_viewer -->
<test>
</test>
EOT_2
{
my $failed = 0;
local $@ = undef;
eval {
$parser->parse($xml);
1;
}
or do {
my $err = $@ || 'Zombie Error';
$failed = 1;
diag("eval error, round 2: $err");
};
ok(! $failed, 'eval did not fail, round 2');
my $expected = ' seed_viewer ';
is($comment, ' seed_viewer ', "comment is <<$expected>>, round 2");
};
__END__
| Subject: | rt74308.t |
use strict;
use warnings;
use Test::More tests => 4;
use SOAP::Lite;
ok(defined $0, '$0 is defined');
my $filename = "$0.wsdl";
ok(-e $filename, "$filename exists");
ok(-f $filename, "$filename is a file");
{
my $failed = 0;
local $@ = undef;
eval {
my $soap = SOAP::Lite->service("file:$filename");
1;
}
or do {
my $err = $@ || 'Zombie Error';
$failed = 1;
diag("eval error: $err");
};
ok(! $failed, 'eval did not fail');
};
__END__