Error handling tests (#98)

* Add simple core and integration test for new error handling code

* Bump version to 0.4.7

Project.toml

@@ -1,7 +1,7 @@
 name = "StaticCompiler"
 uuid = "81625895-6c0f-48fc-b932-11a18313743c"
 authors = ["Tom Short and contributors"]
-version = "0.4.6"
+version = "0.4.7"
 
 [deps]
 Clang_jll = "0ee61d77-7f21-5576-8119-9fcc46b10100"

test/scripts/throw_errors.jl

@@ -0,0 +1,15 @@
+using StaticCompiler
+using StaticTools
+
+function maybe_throw(argc::Int, argv::Ptr{Ptr{UInt8}})
+    printf(c"Argument count is %d:\n", argc)
+    argc > 1 || return printf(stderrp(), c"Too few command-line arguments\n")
+    n = argparse(Int64, argv, 2)            # First command-line argument
+    printf((c"Input:\n", n, c"\n"))
+    printf(c"\nAttempting to represent input as UInt64:\n")
+    x = UInt64(n)
+    printf(x)
+end
+
+# Attempt to compile
+path = compile_executable(maybe_throw, (Int64, Ptr{Ptr{UInt8}}), "./")

test/testcore.jl

@@ -291,6 +291,19 @@ end
     r = run(`$filepath Hello, world!`);
     @test isa(r, Base.Process)
     @test r.exitcode == 0
+
+    # Compile a function that definitely fails
+    @inline foo_err() = UInt64(-1)
+    filepath = compile_executable(print_args, (Int, Ptr{Ptr{UInt8}}), tempdir())
+    @test isfile(filepath)
+    status = -1
+    try
+        status = run(`filepath`)
+    catch
+        @info "foo_err: Task failed successfully!"
+    end
+    @test status === -1
+
 end
 
 @noinline square(n) = n*n

test/testintegration.jl

@@ -242,6 +242,41 @@
         @test isa(status, Base.Process) && status.exitcode == 0
     end
 
+    ## --- Test error throwing
+
+    let
+        # Compile...
+        status = -1
+        try
+            isfile("maybe_throw") && rm("maybe_throw")
+            status = run(`$jlpath --startup=no --compile=min $testpath/scripts/throw_errors.jl`)
+        catch e
+            @warn "Could not compile $testpath/scripts/throw_errors.jl"
+            println(e)
+        end
+        @test isa(status, Base.Process)
+        @test isa(status, Base.Process) && status.exitcode == 0
+
+        # Run...
+        println("Error handling:")
+        status = -1
+        try
+            status = run(`./maybe_throw 10`)
+        catch e
+            @warn "Could not run $(scratch)/maybe_throw"
+            println(e)
+        end
+        @test isa(status, Base.Process)
+        @test isa(status, Base.Process) && status.exitcode == 0
+        status = -1
+        try
+            status = run(`./maybe_throw -10`)
+        catch e
+            @info "maybe_throw: task failed sucessfully!"
+        end
+        @test status === -1
+    end
+
     ## --- Test interop
 
     @static if Sys.isbsd()