The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
 / 
RayApp-2.004
River stage zero No dependents
++
/ core-tests/t/3_load_dsd.t

my $dtd = $dsd->get_dtd; is($dtd, '<!ELEMENT application ((name?, result?))> <!ELEMENT name (#PCDATA)*> <!ELEMENT result (#PCDATA)*> ', 'Checking the DTD'); my $parsed_dtd = XML::LibXML::Dtd->parse_string($dtd);

my $parser = XML::LibXML->new(); ok($parser, 'Loading XML::LibXML parser');

my $doc = $parser->parse_string($txt); ok($doc, 'Parse the serialized XML back');

is($doc->is_valid($parsed_dtd), 1, 'Check against the DTD');

TODO: { local $TODO = 'rayapp_cgi_wrapper not ready for prime time yet';

$ENV{RAYAPP_DIRECTORY} = Cwd::getcwd(); if (${^TAINT}) { $^X =~ /^(.+)$/ and $^X = $1; delete @ENV{'PATH', 'ENV'}; } my $extout = `$^X ../../bin/rayapp_cgi_wrapper script2.xml`; is($extout, 'Pragma: no-cache Cache-control: no-cache Status: 200 Content-Type: text/xml; charset=UTF-8

<?xml version="1.0" encoding="UTF-8" standalone="yes"?> <list> <students> <student> <lastname>Peter</lastname> <firstname>Wolf</firstname> </student> <student> <lastname>Brian</lastname> <firstname>Fox</firstname> </student> <student> <lastname>Leslie</lastname> <firstname>Child</firstname> </student> <student> <lastname>Barbara</lastname> <firstname>Bailey</firstname> </student> <student> <lastname>Russell</lastname> <firstname>King</firstname> </student> <student> <lastname>Michael</lastname> <firstname>Johnson</firstname> </student> <student> <lastname>Michael</lastname> <firstname>Shell</firstname> </student> <student> <lastname>Tim</lastname> <firstname>Jasmine</firstname> </student> </students>

        <program>
                <id>1523</id>
                <code>8234B</code>
                <name>Šílené laně</name>
        </program>
</list>
', 'Running rayapp_cgi_wrapper');

$extout = `../../bin/rayapp_cgi_wrapper script2.xml`; is($extout, 'Pragma: no-cache Cache-control: no-cache Status: 200 Content-Type: text/xml

<?xml version="1.0" standalone="yes"?> <list> <students> <student> <lastname>Peter</lastname> <firstname>Wolf</firstname> </student> <student> <lastname>Brian</lastname> <firstname>Fox</firstname> </student> <student> <lastname>Leslie</lastname> <firstname>Child</firstname> </student> <student> <lastname>Barbara</lastname> <firstname>Bailey</firstname> </student> <student> <lastname>Russell</lastname> <firstname>King</firstname> </student> <student> <lastname>Michael</lastname> <firstname>Johnson</firstname> </student> <student> <lastname>Michael</lastname> <firstname>Shell</firstname> </student> <student> <lastname>Tim</lastname> <firstname>Jasmine</firstname> </student> </students>

        <program>
                <id>1523</id>
                <code>8234B</code>
                <name>&#x160;&#xED;len&#xE9; lan&#x11B;</name>
        </program>
</list>
', 'Running RayApp::CGI without stylesheets');

$ENV{RAYAPP_HTML_STYLESHEETS} = 'script1.xsl'; $extout = `../../bin/rayapp_cgi_wrapper script1.html`; utf8::encode($extout); is($extout, 'Pragma: no-cache Cache-control: no-cache Status: 200 Content-Type: text/html; charset=UTF-8

<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=UTF-8"> <title></title> </head> <body> <h1>A list of students</h1> <p> Study program: <b>Šílené laně</b> (<tt>8234/tt) </p> <ul> <li>Wolf Peter</li> <li>Fox Brian</li> <li>Child Leslie</li> <li>Bailey Barbara</li> <li>King Russell</li> <li>Johnson Michael</li> <li>Shell Michael</li> <li>Jasmine Tim</li> </ul> </body> </html> ', 'Running RayApp::CGI with implicit stylesheet');

$extout = `../../bin/rayapp_cgi_wrapper script2.html`; is($extout, 'Pragma: no-cache Cache-control: no-cache Status: 200 Content-Type: text/html; charset=UTF-8

<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=UTF-8"> <title></title> </head> <body> <h1>A list of students</h1> <p> Study program: <b>Šílené laně</b> (<tt>8234/tt) </p> <ul> <li>Wolf Peter</li> <li>Fox Brian</li> <li>Child Leslie</li> <li>Bailey Barbara</li> <li>King Russell</li> <li>Johnson Michael</li> <li>Shell Michael</li> <li>Jasmine Tim</li> </ul> </body> </html> ', 'Running RayApp::CGI with a stylesheet');

}

3 POD Errors

The following errors were encountered while parsing the POD:

Around line 69:

Unknown directive: =comment

Around line 2056:

Unknown directive: =comment

Around line 2112:

Non-ASCII character seen before =encoding in '<name>Šílené'. Assuming UTF-8