File: dom_documenttype.t

package info (click to toggle)
libxml-dom-perl 1.37-1
  • links: PTS
  • area: main
  • in suites: woody
  • size: 604 kB
  • ctags: 510
  • sloc: perl: 4,166; xml: 4,117; makefile: 34
file content (8 lines) | stat: -rw-r--r-- 293 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
 
BEGIN {print "1..1\n";}
END {print "not ok 1\n" unless $loaded;}
use XML::DOM;
$loaded = 1;
my $xml = new XML::DOM::Document;
$xml->setDoctype($xml->createDocumentType('Sample', 'Sample.dtd'));
print "not " unless $xml->toString eq qq{<!DOCTYPE Sample SYSTEM "Sample.dtd">\n};
print "ok 1\n";