1 files changed, 24 insertions, 0 deletions
diff --git a/t/fmt-txt-fortunes.t b/t/fmt-txt-fortunes.t
new file mode 100644
index 0000000..c669420
--- /dev/null
+++ b/t/fmt-txt-fortunes.t
@@ -0,0 +1,24 @@
+#! /usr/bin/perl
+# Text module tester for fortunes files.
+
+#########################
+
+use strict;
+use warnings;
+
+use lib q(t);
+use Testhelper;
+
+my @tests;
+
+foreach my $t (qw(SingleFortune SeveralFortunes MultipleLines)) {
+    push @tests,
+      {
+        'format'  => 'text',
+        'options' => '-o fortunes',
+        'input'   => "fmt/txt-fortunes/$t.txt"
+      };
+}
+
+run_all_tests(@tests);
+0;