Mercurial > hg > Others > Rakudo
view tools/build-localtest.pl @ 0:c341f82e7ad7 default tip
Rakudo branch in cr.ie.u-ryukyu.ac.jp
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Thu, 26 Dec 2019 16:50:27 +0900 |
parents | |
children |
line wrap: on
line source
#! perl =head1 NAME build-localtest.pl - Create a t/localtest.data file from test output. =head1 SYNOPSIS perl tools/build-localtest.pl <test_output >t/localtest.data =head1 DESCRIPTION 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/localtest.data . =cut while (<>) { m!t/spec/(.*?)\.(t|rakudo)! && print "$1.t\n"; }