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

Implement support for IO Bool tests

Browse source
This commit is contained in:
Nathan McCarty 2024-12-31 18:12:35 -05:00
parent c089685a2a
commit 09ac7506ee
4 changed files with 49 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

6
bin/iutils
View file

@ -43,10 +43,10 @@ multi MAIN(
for $module.tests -> $test {
try {
# FIXME this doesn't actually capture the exit code
idris-exec $test.expr, $module.source.relative;
idris-exec $test.expr, $module.source.relative, $test.output-type;
}
my $testf = colored $test.name, 'underline';
if $! {
if $! ~~ ExpressionError {
# TODO: Don't show stdout if its empty
$module-failures += 1;
say "{colored '+', 'red'} $testf: {colored 'FAIL', 'red bold'}"
@ -55,6 +55,8 @@ multi MAIN(
say $!.err.lines.map(*.indent(8)).join("\n");
say (colored 'exit code', 'red').indent(6),
": {$!.exit-code}";
} elsif $! {
die $!;
} else {
say "{colored '+', 'green'} $testf: {colored 'pass', 'green'}"
.indent(4);