Idris/iutils-raku
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Slightly colorized output

Browse source
This commit is contained in:
Nathan McCarty 2024-12-31 19:32:50 +00:00
parent 9bd0cc323f
commit 013f8500df
2 changed files with 16 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
META6.json
View file

@ -7,7 +7,8 @@
"Nathan McCarty <thatonelutenist@stranger.systems>"
],
"depends": [
"paths"
"paths",
"Terminal::ANSIColor"
],
"provides": {
"IUtils": "lib/IUtils.rakumod",

18
bin/iutils
View file

@ -1,5 +1,8 @@
#!/usr/bin/env raku
use v6.d;
use Terminal::ANSIColor;
use IUtils;
use IUtils::Regexes;
use IUtils::Compiler;
@ -24,25 +27,32 @@ multi MAIN(
# CD to the local directory to make sure idris can exec the expressions
indir $runable.ipkg.parent, {
next unless $runable.tests.elems > 0;
say "** Testing {$runable.ipkg.relative: $basedir}";
my $test-module-name =
colored($runable.ipkg.relative($basedir), 'magenta bold');
say "{colored '*', 'yellow bold'} Testing $test-module-name";
for $runable.tests.keys -> $module-name {
my $module = $runable.tests{$module-name};
next unless $module.tests.elems > 0;
say "-- Testing $module-name".indent(2);
my $colored-module = colored $module-name, 'cyan bold';
say "{colored '**', 'magenta bold'} Testing $colored-module"
.indent(2);
for $module.tests -> $test {
try {
idris-exec $test, $module.source.relative;
}
my $testf = colored $test, 'underline';
if $! {
my $stdout = $1.err.lines.map(*.indent(8)).join("\n");
say "+ $test: FAIL".indent(4);
say "{colored '+', 'red'} $testf: {colored 'FAIL', 'red bold'}"
.indent(4);
say "stdout:".indent(6);
$!.err.lines.map(*.indent(8)).join("\n");
say "stderr:".indent(6);
$!.err.lines.map(*.indent(8)).join("\n");
say "exit code: {$!.exit-code}"
} else {
say "+ $test: Pass".indent(4);
say "{colored '+', 'green'} $testf: {colored 'pass', 'green'}"
.indent(4);
}
}
}