rc-testy

#!/usr/local/bin/perl
## RC code lacking 'use Test' (unless a good excuse)
#  David H.  2016-09-12
#  2019-01-09 - probably broken with task segregation, but mostly obsolete anyway...

#file [1-Z]* | g perl6 | pf 's/:.*//'| g -v '\.[1-9]$' > perl6.txt

for my $f (@ARGV) {
    next unless $f =~ /^[1-Z].*$/;
    next if $f =~ /\.[0-9]$/;

    $text = `cat $f`;
    next unless $text =~ /MOAR: OK/ms;
    next if $text =~ /RC file:/ims;
    next if $text =~ /#t#[^\n]+(inprogress|interactive|gui|nocode|graphical|toodamnslow|skiptest|testok)/ms;
    next if $text =~ /\n\s*use Test;/ms;
    print "$f\n" 
}