Commits

Anonymous committed 024ddb9

Got rid of the <!DOCTYPE declaration in the output Screenplay-XML.

Comments (0)

Files changed (2)

perl/modules/XML-Grammar-Fiction/lib/XML/Grammar/Screenplay/FromProto.pm

 package XML::Grammar::Screenplay::FromProto;
 
+use XML::Writer;
+
 use Moose;
 
 extends("XML::Grammar::FictionBase::TagsTree2XML");
     );
 
     $writer->xmlDecl("utf-8");
-    $writer->doctype("document", undef, "screenplay-xml.dtd");
     $writer->startTag([$screenplay_ns, "document"]);
     $writer->startTag([$screenplay_ns, "head"]);
     $writer->endTag();

perl/modules/XML-Grammar-Fiction/t/screenplay/proto-text-to-xml-using-custom-parser.t

 
 use Test::More;
 
-use Test::XML tests => 34;
+use Test::XML tests => 51;
 
 use XML::LibXML;
 
     );
 
     # TEST*$num_texts
+    unlike ($got_xml, qr{^<!DOCTYPE}ms, "No doctype in \"$fn\"");
+
+    # TEST*$num_texts
     is_xml ($got_xml, load_xml("t/screenplay/data/xml/$fn.xml"),
         "Output of the Proto Text \"$fn\""
     );