Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
24 lines (15 sloc) 591 Bytes
#! perl
=head1 NAME - Create a t/ file from test output.
perl tools/ <test_output >t/
This almost doesn't deserve to be a script. It simply reads standard
input looking for things of the form "t/spec/*/*.(t|rakudo)", then
prints those to the standard output. Typically I simply run the
script, then copy-and-paste the summary results of a test run into
the window and capture the results to t/ .
while (<>) {
m!t/spec/(.*?)\.(t|rakudo)! && print "$1.t\n";
Something went wrong with that request. Please try again.