Commits

Shlomi Fish  committed 7e0e7eb

Convert to-tei to Test::XML::Ordered.

  • Participants
  • Parent commits f439b71

Comments (0)

Files changed (1)

File perl/modules/XML-Grammar-Fiction/t/screenplay/to-tei.t

 
 use Test::More tests => 17;
 
-use Test::XML;
+use lib './t/lib';
+use XmlGrammarTestXML qw(my_is_xml);
 
 use File::Spec;
 
     );
 
     # TEST*$num_texts
-    is_xml ($tei_text, load_xml("t/screenplay/data/tei/$fn.tei.xml"),
+    my_is_xml (
+        [ string => $tei_text, ],
+        [ string => load_xml("t/screenplay/data/tei/$fn.tei.xml"), ],
         "Output of the TEI \"$fn\"",
     );
 }