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
MIME-Version: 1.0
X-Mailer: MIME-tools 5.504 (Entity 5.504)
X-RT-Interface: Web
Message-ID: <rt-4.0.18-4431-1429264805-1012.0-0-0 [...] rt.cpan.org>
X-RT-Original-Encoding: utf-8
Content-Type: multipart/mixed; boundary="----------=_1429264805-4431-2"
X-RT-Encrypt: 0
X-RT-Sign: 0
Content-Length: 0
Content-Disposition: inline
Content-Type: text/plain; charset="utf-8"
Content-Transfer-Encoding: binary
Content-Length: 15580
Download (untitled) / with headers
text/plain 15.2k

Message body is not shown because it is too large.

Subject: rt53375.t
MIME-Version: 1.0
Content-Type: application/octet-stream; name="rt53375.t"
X-Mailer: MIME-tools 5.504 (Entity 5.504)
Content-Disposition: inline; filename="rt53375.t"
Content-Transfer-Encoding: base64
Content-Length: 1169
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
MIME-Version: 1.0
Content-Type: application/octet-stream; name="rt74308.t"
X-Mailer: MIME-tools 5.504 (Entity 5.504)
Content-Disposition: inline; filename="rt74308.t"
Content-Transfer-Encoding: base64
Content-Length: 509
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__
MIME-Version: 1.0
In-Reply-To: <rt-4.0.18-4431-1429264805-1012.0-0-0 [...] rt.cpan.org>
X-Mailer: MIME-tools 5.504 (Entity 5.504)
Content-Disposition: inline
X-RT-Interface: Web
References: <rt-4.0.18-4431-1429264805-1012.0-0-0 [...] rt.cpan.org>
Content-Type: text/plain; charset="utf-8"
Message-ID: <rt-4.0.18-16774-1440401825-1844.103781-0-0 [...] rt.cpan.org>
Content-Transfer-Encoding: binary
X-RT-Original-Encoding: utf-8
X-RT-Encrypt: 0
X-RT-Sign: 0
Content-Length: 16742
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.