Fix --quiet not stopping all output

Fixes #272

Author: SeanTAllen

corral/cmd/_test_cmd_update.pony

@@ -91,7 +91,7 @@ primitive _OpsRecorderTestRunner
     let log = StringLogger(Error, h.env.err, SimpleLogFormatter)
     let fp: FilePath = _TestData.file_path_from(h, dep_path)?
     let repo_cache = _TestRepoCache(auth)
-    let ctx = Context(h.env, log, log, false, repo_cache)
+    let ctx = Context(h.env, log, log, false, false, repo_cache)
     let project = Project(auth, log, fp)
     let bundle = Bundle.load(fp, log)?
     let vcs_builder: VCSBuilder = _TestCmdUpdateVCSBuilder(recorder)

corral/cmd/cmd_run.pony

@@ -66,8 +66,10 @@ class CmdRun is CmdType
       end
     let a = Action(prog, recover args.slice(1) end, vars)
     if not ctx.nothing then
-      Runner.run(a, {(result: ActionResult) =>
-        result.print_to(ctx.env.out)
+      Runner.run(a, {(result: ActionResult)(quiet = ctx.quiet) =>
+        if not quiet then
+          result.print_to(ctx.env.out)
+        end
         if not result.successful() then
           ctx.env.exitcode(result.exit_code())
         end

corral/cmd/context.pony

@@ -9,17 +9,20 @@ class val Context
   let log: Logger[String]
   let uout: Logger[String]
   let nothing: Bool
+  let quiet: Bool
   let repo_cache: FilePath
 
   new val create(
     env': Env,
     log': Logger[String],
     uout': Logger[String],
     nothing': Bool,
+    quiet': Bool,
     repo_cache': FilePath)
   =>
     env = env'
     log = log'
     uout = uout'
     nothing = nothing'
+    quiet = quiet'
     repo_cache = repo_cache'

corral/cmd/executor.pony

@@ -16,6 +16,7 @@ primitive Executor
     log: Logger[String],
     uout: Logger[String],
     nothing: Bool,
+    quiet: Bool,
     bundle_dir_arg: String)
     // TODO: add when we have the cli flag: repo_cache_str: String
   =>
@@ -89,7 +90,7 @@ primitive Executor
         return
       end
 
-    let context = Context(env, log, uout, nothing, repo_cache)
+    let context = Context(env, log, uout, nothing, quiet, repo_cache)
     let project = Project(auth, log, bundle_dir)
     let vcs_builder = CorralVCSBuilder(env)
     command(context, project, vcs_builder, NoOpResultReceiver)

corral/main.pony

@@ -53,7 +53,7 @@ actor Main
     // Hand off to Executor to resolve required dirs and execute the command
     Executor.execute(
       command._1, env, log, command._2,
-      cmd.option("nothing").bool(), cmd.option("bundle_dir").string())
+      cmd.option("nothing").bool(), quiet, cmd.option("bundle_dir").string())
 
   fun @runtime_override_defaults(rto: RuntimeOptions) =>
     rto.ponynoblock = true

corral/test/_test.pony

@@ -30,6 +30,7 @@ actor \nodoc\ Main is TestList
     test(integration.TestRunBinaryNotFound)
     test(integration.TestRunBinaryNotFoundAbsolute)
     test(integration.TestRunBinaryInParentFolder)
+    test(integration.TestRunQuiet)
     test(integration.TestClean)
 
     test(integration.TestUpdateScripts)

corral/test/integration/test_run.pony

@@ -88,6 +88,26 @@ class \nodoc\ TestRunBinaryNotFoundAbsolute is UnitTest
         h.complete(ar.exit_code() != 0)
       })
 
+class \nodoc\ TestRunQuiet is UnitTest
+  fun name(): String => "integration/run/quiet"
+  fun apply(h: TestHelper) ? =>
+    h.long_test(30_000_000_000)
+    Execute(h,
+      recover [
+        "--quiet"
+        "run"
+        "--bundle_dir"; Data(h, "empty-deps")?.path
+        "--"
+        "ponyc"; "-version"
+      ] end,
+      {(h: TestHelper, ar: ActionResult) =>
+        h.assert_eq[I32](0, ar.exit_code())
+        h.assert_false(ar.stdout.contains("exit:"))
+        h.assert_false(ar.stdout.contains("out:"))
+        h.assert_false(ar.stdout.contains("err:"))
+        h.complete(ar.exit_code() == 0)
+      })
+
 class \nodoc\ TestRunBinaryInParentFolder is UnitTest
   fun name(): String => "integration/run/binary-in-parent-folder"
   fun apply(h: TestHelper) ? =>