optimize tests suite using parallelising

diff --git a/fortune-mod/tests/t/test-fortune-m--wetpaint.t b/fortune-mod/tests/t/test-fortune-m--wetpaint.t
new file mode 100644 (file)
index 0000000..cfdcd45
--- /dev/null
+++ b/fortune-mod/tests/t/test-fortune-m--wetpaint.t
@@ -0,0 +1,26 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use 5.014;
+
+use FindBin;
+use lib "$FindBin::Bin/lib";
+use FortTestInst ();
+use Test::More tests => 2;
+
+{
+    my $inst_dir = FortTestInst::install("fortune-m--wpaint");
+    my @cmd = ( $inst_dir->child( 'games', 'fortune' ), '-m', '"wet paint"' );
+
+    print "Running [@cmd]\n";
+    my $text = `@cmd`;
+    my $rc   = $?;
+    print "AfterRun rc=$rc [@cmd]\n";
+
+    # TEST
+    like( $text, qr/wet paint/, 'fortune -m matched' );
+
+    # TEST
+    unlike( $text, qr/wet paint.*?wet paint/ms, 'no duplicate fortunes' );
+}

diff --git a/fortune-mod/tests/t/test-fortune-m.t b/fortune-mod/tests/t/test-fortune-m.t
index d06f6fffcefcd6063ffef01cab4836426d1f8310..5df47d69aad8669baa299d30e34b3e18ec36a0b9 100644 (file)
--- a/fortune-mod/tests/t/test-fortune-m.t
+++ b/fortune-mod/tests/t/test-fortune-m.t
@@ -7,10 +7,10 @@ use 5.014;
 use FindBin;
 use lib "$FindBin::Bin/lib";
 use FortTestInst ();
-use Test::More tests => 3;
+use Test::More tests => 1;
 
 {
-    my $inst_dir = FortTestInst::install("fortune-m");
+    my $inst_dir = FortTestInst::install("fortune-m--giants");
     my @cmd      = ( $inst_dir->child( 'games', 'fortune' ), '-m', 'giants' );
 
     print "Running [@cmd]\n";
@@ -21,19 +21,3 @@ use Test::More tests => 3;
     # TEST
     like( $text, qr/Newton/, 'fortune -m matched' );
 }
-
-{
-    my $inst_dir = FortTestInst::install("fortune-m");
-    my @cmd = ( $inst_dir->child( 'games', 'fortune' ), '-m', '"wet paint"' );
-
-    print "Running [@cmd]\n";
-    my $text = `@cmd`;
-    my $rc   = $?;
-    print "AfterRun rc=$rc [@cmd]\n";
-
-    # TEST
-    like( $text, qr/wet paint/, 'fortune -m matched' );
-
-    # TEST
-    unlike( $text, qr/wet paint.*?wet paint/ms, 'no duplicate fortunes' );
-}