Mercurial > hg > Others > Rakudo

view t/09-moar/General_Category__extracted-DerivedGeneralCategory.t @ 0:c341f82e7ad7 default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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

use Test;
use lib 't/09-moar';
use UnipropCheck;
# Please edit UnipropCheck.pm6 to change todo settings!
sub MAIN (Str $folder?, Bool:D :$debug = False) {
    my $*DEBUG = $debug;
    my $name = $*PROGRAM.basename.subst(/".t"$/, "").trans("-" => "/");
    my ($property, $filename, $answer-column) = $name.split('__');
    $filename ~= ".txt";
    my $folder-io = $folder ?? $folder.IO !! IO::Path;
    test-file $folder-io, $filename, $property, :answer-column($answer-column);
    done-testing;
}