Write patches out to disk when deploying locally in Wizard

Author: staticfloat

src/wizard/deploy.jl

@@ -5,7 +5,7 @@ function print_build_tarballs(io::IO, state::WizardState)
         url_string = repr(x[1])
         if endswith(x[1], ".git")
             "GitSource($(url_string), $(repr(x[2].hash)))"
-        elseif any(endswith(x[1], ext) for ext in archive_extensions)
+        elseif any(endswith(x[1], ext) for ext in BinaryBuilderBase.archive_extensions)
             "ArchiveSource($(url_string), $(repr(x[2].hash)))"
         else
             "FileSource($(url_string), $(repr(x[2].hash)))"
@@ -236,14 +236,21 @@ function _deploy(state::WizardState)
     elseif deploy_select == 2
         directory = nonempty_line_prompt(
             "filename",
-            "Enter directory where to write build_tarballs.jl to:";
+            "Enter directory to write build_tarballs.jl to:";
             ins=state.ins,
             outs=state.outs,
         )
         mkpath(directory)
         open(joinpath(directory, "build_tarballs.jl"), "w") do io
             print_build_tarballs(io, state)
         end
+        if !isempty(state.patches)
+            mkpath(joinpath(directory, "bundled", "patches"))
+            for patch in state.patches
+                patch_path = joinpath(directory, "bundled", "patches", patch.name)
+                open(f->write(f, patch.patch), patch_path, "w")
+            end
+        end
     else
         println(state.outs, "Your generated build_tarballs.jl:")
         println(state.outs, "\n```")

test/wizard.jl

@@ -379,6 +379,41 @@ end
     @test isempty(state.platforms)
 end
 
+function step7_state()
+    state = step5_state("""
+    cd libfoo
+    make install
+    exit 1
+    """)
+    state.patches = [PatchSource("foo.patch", "this is a patch")]
+    return state
+end
+
+@testset "Wizard - Deployment" begin
+    state = step7_state()
+    # First, test local deployment
+    mktempdir() do out_dir
+        with_wizard_output(state, state->Wizard._deploy(state)) do ins, outs
+            call_response(ins, outs, "How should we deploy this build recipe?", "\e[B\r")
+            call_response(ins, outs, "Enter directory to write build_tarballs.jl to:", "$(out_dir)\r")
+        end
+        @test isfile(joinpath(out_dir, "build_tarballs.jl"))
+        @test isfile(joinpath(out_dir, "bundled", "patches", "foo.patch"))
+    end
+
+    # Next, test writing out to stdout
+    state = step7_state()
+    with_wizard_output(state, state->Wizard._deploy(state)) do ins, outs
+        call_response(ins, outs, "How should we deploy this build recipe?", "\e[B\e[B\r")
+        @test readuntil_sift(outs, "Your generated build_tarballs.jl:")
+        @test readuntil_sift(outs, "name = \"libfoo\"")
+        @test readuntil_sift(outs, "make install")
+        @test readuntil_sift(outs, "LibraryProduct(\"libfoo\", :libfoo)")
+        @test readuntil_sift(outs, "ExecutableProduct(\"fooifier\", :fooifier)")
+        @test readuntil_sift(outs, "dependencies = Dependency[")
+    end
+end
+
 @testset "GitHub - authentication" begin
     withenv("GITHUB_TOKEN" => "") do
         @test Wizard.github_auth(allow_anonymous=true) isa GitHub.AnonymousAuth