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

Working idris2 error detection

Browse source 
Idris 2 doesn't have a failing exit code in this context when it fails
to compile an expr given at the command line, we need to check for an
error message in the output
This commit is contained in:
Nathan McCarty 2025-01-02 00:00:13 -05:00
parent a0ba82ab38
commit b28b91d5d2
2 changed files with 11 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
examples/testy/test/src/TestModule/Booleans.idr
View file

@ -1,9 +1,11 @@
module TestModule.Booleans module TestModule.Booleans
import System
-- @@test Boolean Integration passes -- @@test Boolean Integration passes
passes : IO Bool doesWork : IO Bool
passes = pure True doesWork = pure True
-- @@test Boolean Integration fails -- @@test Boolean Integration fails
fails : IO Bool dontWork : IO Bool
fails = pure False dontWork = pure False

6
lib/IUtils/Compiler.rakumod
View file

@ -51,6 +51,8 @@ class IdrisError is Exception {
qq:to/END/; qq:to/END/;
Error running idris command: $.command Error running idris command: $.command
Command exited with $.exit-code Command exited with $.exit-code
StdOut:
{$.out.lines.map(*.indent: 2).join("\n")}
END END
} }
} }
@ -75,7 +77,7 @@ sub idris-run(*@cmd) is export {
my $proc = run "idris2", @cmd, :out, :err; my $proc = run "idris2", @cmd, :out, :err;
my $out = $proc.out.slurp(:close); my $out = $proc.out.slurp(:close);
my $err = $proc.err.slurp(:close); my $err = $proc.err.slurp(:close);
unless $proc { if !$proc || $out.contains("Error:") {
IdrisError.new( IdrisError.new(
out => $out, err => $err, out => $out, err => $err,
exit-code => $proc.exitcode, command => @cmd.Str) exit-code => $proc.exitcode, command => @cmd.Str)
@ -117,5 +119,7 @@ sub idris-exec($expr, $file, $output-type? = Unit) is export {
exit-code => $proc.exitcode, expr => $expr exit-code => $proc.exitcode, expr => $expr
).throw; ).throw;
} }
# Remove the output file
'build/exec/iutils_out'.IO.unlink;
return $out; return $out;
} }