Commits

Anonymous committed 255a90d

Added the 01generate.t script.

Comments (0)

Files changed (2)

 lib/XML/CompareML/HTML.pm
 lib/XML/CompareML/DTD/Generate.pm
 t/00-load.t
+t/01generate.t
 t/pod.t
 t/files/scm-comparison.xml
+#!/usr/bin/perl -w
+
+use Test::More tests => 1;
+
+use strict;
+
+use XML::CompareML::HTML;
+use IO::Scalar;
+
+my $buffer = "";
+my $file = IO::Scalar->new(\$buffer);
+my $converter = 
+    XML::CompareML::HTML->new(
+        'input_filename' => "t/files/scm-comparison.xml",
+        'output_handle' => $file,
+    );
+
+$converter->process();
+
+# TEST
+ok(length($buffer) > 0, "\$buffer was filled in");
+