Skip Menu |
 

This queue is for tickets about the SOAP-Lite CPAN distribution.

Report information
The Basics
Id: 103781
Status: open
Priority: 0/
Queue: SOAP-Lite

People
Owner: Nobody in particular
Requestors: CSCHWENZ [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: 1.14
Fixed in: (no value)



Subject: Test failures under perl 5.14.2
Download (untitled) / with headers
text/plain 15.2k

Message body is not shown because it is too large.

Subject: rt53375.t
Download rt53375.t
text/x-perl 1.1k
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
Download rt74308.t
text/x-perl 509b
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__
Download (untitled) / with headers
text/plain 16.3k

Message body is not shown because it is too large.



This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.