add tests for building executable

Author: SimonDanisch

.gitignore

@@ -14,3 +14,4 @@ sysimg
 *.dll
 hello
 hello.exe
+packages

src/api.jl

@@ -60,9 +60,19 @@ function build_executable(
 
         snoopfile = nothing, builddir = "build",
         verbose = false, quiet = false,
-        cpu_target = "native", optimize = nothing, debug = nothing,
+        cpu_target = nothing, optimize = nothing, debug = nothing,
         inline = nothing, check_bounds = nothing, math_mode = nothing
     )
+    if snoopfile != nothing
+        precompfile = joinpath(builddir, "precompiled.jl")
+        snoop(snoopfile, precompfile, joinpath(builddir, "snoop.csv"))
+        jlmain = joinpath(builddir, "julia_main.jl")
+        open(jlmain, "w") do io
+            println(io, "include(\"$(escape_string(precompfile))\")")
+            println(io, "include(\"$(escape_string(library))\")")
+        end
+        library = jlmain
+    end
     julia_compile(
 
         library, julia_program_basename = library_name,

test/runtests.jl

@@ -23,18 +23,42 @@ img_file = PackageCompiler.compile_package("Matcha", "UnicodeFun", force = false
     end
 end
 
+
 @testset "juliac" begin
     mktempdir() do build
         juliac = joinpath(@__DIR__, "..", "juliac.jl")
         jlfile = joinpath(@__DIR__, "..", "examples", "hello.jl")
         cfile = joinpath(@__DIR__, "..", "examples", "program.c")
-        build = mktempdir()
         julia = Base.julia_cmd()
         @test success(`$julia $juliac -vosej $jlfile $cfile $build`)
         @test isfile(joinpath(build, "hello.$(Libdl.dlext)"))
         @test isfile(joinpath(build, "hello$(executable_ext())"))
         cd(build) do
-            run(`./$("hello$(executable_ext())")`)
+            @test success(`./$("hello$(executable_ext())")`)
         end
     end
 end
+
+@testset "build_executable" begin
+    build = mktempdir()
+    jlfile = joinpath(@__DIR__, "..", "examples", "hello.jl")
+    snoopfile = open(joinpath(build, "snoop.jl"), "w") do io
+        write(io, open(read, jlfile))
+        println(io)
+        println(io, "using .Hello; Hello.julia_main(String[])")
+    end
+    build_executable(
+        jlfile,
+        snoopfile = snoopfile, builddir = build,
+        verbose = false, quiet = false,
+    )
+    @test isfile(joinpath(build, "hello.$(Libdl.dlext)"))
+    @test isfile(joinpath(build, "hello$(executable_ext())"))
+    cd(build) do
+        @test success(`./$("hello$(executable_ext())")`)
+    end
+    for i = 1:100
+        try rm(build, recursive = true) end
+        sleep(1/100)
+    end
+end