Process raw TAP output from STDIN

bin/prove

@@ -103,6 +103,16 @@ file, you can add them to your tests by using a '-':
 
 See the C<README> in the C<examples> directory of this distribution.
 
+If you have raw TAP output (matching C<qr/\d\.\.\d/>) in a file, you
+can likewise add them to your tests by using a '-':
+
+ prove - < my_raw_tap_output.txt
+
+Or from a command:
+
+ ruby test.rb | prove -
+
+
 =head2 Default Test Directory
 
 If no files or directories are supplied, C<prove> looks for all files

lib/App/Prove/State.pm

@@ -388,8 +388,32 @@ sub _get_raw_tests {
 
     for my $arg (@argv) {
         if ( '-' eq $arg ) {
-            push @argv => <STDIN>;
-            chomp(@argv);
+            local $/;
+            my $in = <STDIN>;
+            if ($in =~ /
+                \A                   # Beginning of first line
+                TAP\s+version\s+\d+  # TAP version line
+                |
+                ^                    # Beginning of any line
+                \s*                  # Indented subtests
+                (?:
+                    [#]              # A comment
+                    |
+                    (?:
+                        1\.\.\d |    # A plan line
+                        ok |         # A test line - pass
+                        not\s+ok     # A test line - fail
+                    )
+                    \b               # End of word or number
+                    (?!\S)           # Space if anything else on line
+                )
+            /xm) {
+                # Raw TAP output.
+                push @tests => [$in, '*STDIN'];
+            } else {
+                # List of tests.
+                push @argv => split /\n/, $in;
+            }
             next;
         }
 

t/prove.t

@@ -1458,6 +1458,98 @@ BEGIN {    # START PLAN
         #     ],
         # },
 
+
+        # STDIN
+        {   name => 'STDIN (file names)',
+            stdin => "uno\ndos\ntres\n",
+            args => {
+                argv => ['-'],
+            },
+            expect => {
+                argv => ['-'],
+            },
+            runlog => [
+                [   '_runtests',
+                    { verbosity => 0, show_count => 1 },
+                    'uno', 'dos', 'tres'
+                ]
+            ],
+        },
+        (map +{
+            name => "STDIN (file - $_)",
+            stdin => "$_\ndos\ntres\n",
+            args => {
+                argv => ['-'],
+            },
+            expect => {
+                argv => ['-'],
+            },
+            runlog => [
+                [   '_runtests',
+                    { verbosity => 0, show_count => 1 },
+                    $_, 'dos', 'tres',
+                ]
+            ],
+        } => split /\n/, <<'FILES'
+1..2.t
+1..2a
+ok.t
+okay
+OK
+not ok.t
+not oklahoma
+NOT OK
+FILES
+        ),
+        (map +{
+            name => "STDIN (TAP - $_)",
+            stdin => "\n$_\n",
+            args => {
+                argv => ['-'],
+            },
+            expect => {
+                argv => ['-'],
+            },
+            runlog => [
+                [   '_runtests',
+                    { verbosity => 0, show_count => 1 },
+                    ["\n$_\n", '*STDIN'],
+                ]
+            ],
+        } => split /\n/, <<'TAP'
+1..4
+1..4 # Skipped: Win32 not supported
+ok
+ok 2
+not ok
+not ok 3
+# comment
+    1..4
+    1..4 # Skipped: Win32 not supported
+    ok
+    ok 2
+    not ok
+    not ok 3
+    # comment
+TAP
+        ),
+        {
+            name => "STDIN (TAP - TAP version 13)",
+            stdin => "TAP version 13\n",
+            args => {
+                argv => ['-'],
+            },
+            expect => {
+                argv => ['-'],
+            },
+            runlog => [
+                [   '_runtests',
+                    { verbosity => 0, show_count => 1 },
+                    ["TAP version 13\n", '*STDIN'],
+                ]
+            ],
+        },
+
     );
 
     # END SCHEDULE
@@ -1536,6 +1628,9 @@ for my $test (@SCHEDULE) {
         }
 
         if ( my $runlog = $test->{runlog} ) {
+            local *STDIN;
+            open STDIN, '<', \$test->{stdin} or die "No open STDIN: $!"
+                if $test->{stdin};
             eval { $app->run };
             if ( my $err_pattern = $test->{run_error} ) {
                 like $@, $err_pattern, "$name: expected error OK";