Commits

Shlomi Fish committed 486b828

Another test.

  • Participants
  • Parent commits c220eb7

Comments (0)

Files changed (1)

XML-GrammarBase/t/xslt.t

 use strict;
 use warnings;
 
-use Test::More tests => 4;
+use Test::More tests => 5;
 
 package MyGrammar::XSLT;
 
             "'$input_fn' generated good output on source/string_ref - output/file"
         );
     }
+
+    {
+        my ($fh, $filename) = tempfile();
+
+        $xslt->perform_xslt_translation(
+            {
+                source => {string_ref => \(_utf8_slurp($input_fn)) },
+                output => {fh => $fh, },
+            }
+        );
+
+        close($fh);
+
+        my $xml_source = _utf8_slurp($output_fn);
+        my $final_source = _utf8_slurp($filename);
+
+        # TEST:$c++;
+        is_xml_ordered(
+            [ string => $final_source, ],
+            [ string => $xml_source, ],
+            "'$input_fn' generated good output on source/string_ref - output/fh"
+        );
+    }
     return;
 }