From 195722440bfa242fe434333612a281f1fbd49aa4 Mon Sep 17 00:00:00 2001 From: Kristian Larsson Date: Thu, 4 Jun 2026 01:19:26 +0200 Subject: [PATCH] Speed up project and process tests --- compiler/acton/test.hs | 9 ++------- test/stdlib_auto/test_process_many.act | 2 +- 2 files changed, 3 insertions(+), 8 deletions(-) diff --git a/compiler/acton/test.hs b/compiler/acton/test.hs index 550e7d9a6..0324b5778 100644 --- a/compiler/acton/test.hs +++ b/compiler/acton/test.hs @@ -1306,14 +1306,9 @@ actonProjTests = , " env.exit(0)" ] (returnCode, cmdOut, cmdErr) <- readCreateProcessWithExitCode - (proc actonExe ["build", "--always-build", "--color", "never"]) { cwd = Just proj } "" - assertEqual ("project importing std.json should build\nstdout:\n" ++ cmdOut ++ "\nstderr:\n" ++ cmdErr) + (proc actonExe ["build", "--skip-build", "--always-build", "--color", "never"]) { cwd = Just proj } "" + assertEqual ("project importing std.json should compile\nstdout:\n" ++ cmdOut ++ "\nstderr:\n" ++ cmdErr) ExitSuccess returnCode - (runCode, runOut, runErr) <- readCreateProcessWithExitCode - (proc (proj "out/bin/main") []) "" - assertEqual ("project importing std.json should run\nstdout:\n" ++ runOut ++ "\nstderr:\n" ++ runErr) - ExitSuccess runCode - assertEqual "std.json output" "{\"answer\":42}\n" runOut , testCase "with missing src/ dir" $ do testBuild "" (ExitFailure 1) False "test/project/missing_src" diff --git a/test/stdlib_auto/test_process_many.act b/test/stdlib_auto/test_process_many.act index af1130cf4..50808dd8e 100644 --- a/test/stdlib_auto/test_process_many.act +++ b/test/stdlib_auto/test_process_many.act @@ -11,7 +11,7 @@ actor GC(env): actor main(env: Env): - var num=1000 + var num=100 if len(env.argv) > 1: num = int(env.argv[1])