Add perl-sax/namespace{,2} tests. Pass directly.

diff --git a/perl-sax/namespace.pl b/perl-sax/namespace.pl
new file mode 100644 (file)
index 0000000..ffc4f33
--- /dev/null
+++ b/perl-sax/namespace.pl
@@ -0,0 +1,11 @@
+#! /usr/bin/perl
+use XML::TemplateSAX;
+
+my $doc = XML::TemplateSAX::process_file('../xml/namespace.xml', {
+       'title' => 'Namespace tests',
+       '#hello' => 'Hello world!',
+       '#test' => 'Replaced.',
+       'tagname' => 'foo',
+       '#moretest' => 'bar'
+});
+print $doc;

diff --git a/perl-sax/namespace2.pl b/perl-sax/namespace2.pl
new file mode 100644 (file)
index 0000000..8b97d89
--- /dev/null
+++ b/perl-sax/namespace2.pl
@@ -0,0 +1,8 @@
+#! /usr/bin/perl
+use XML::TemplateSAX;
+
+my $doc = XML::TemplateSAX::process_file('../xml/namespace2.xml', {
+       'title' => 'Namespace tests',
+       '#hello' => 'Replaced.',
+});
+print $doc;