1 files changed, 27 insertions, 0 deletions
diff --git a/t/fmt-xml-dia.t b/t/fmt-xml-dia.t
new file mode 100644
index 0000000..a91507c
--- /dev/null
+++ b/t/fmt-xml-dia.t
@@ -0,0 +1,27 @@
+#! /usr/bin/perl
+# DIA module tester.
+
+#########################
+
+use strict;
+use warnings;
+
+use lib q(t);
+use Testhelper;
+
+my @tests;
+
+push @tests,
+  {
+    'doc'    => "Extract only the strings that we should",
+    'format' => 'dia',
+    'input'  => 'fmt/xml-dia/basic.dia',
+  },
+  {
+    'doc'    => "test translations with extraneous newlines",
+    'format' => 'dia',
+    'input'  => 'fmt/xml-dia/transl.dia',
+  };
+
+run_all_tests(@tests);
+0;