@@ -36,13 +36,9 @@ runTests = do
3636 passingTestCases <- sort . filter (".purs" `isSuffixOf`) <$> getDirectoryContents passingDir
3737
3838 setCurrentDirectory outputDir
39− callProcess "pscpp" ["--makefile"]
4039
4140 fetchPackages
42− callProcess "git" ["clone", "--depth", "1", "https://github.com/andyarvanitis/purescript-cpp-ffi.git", "ffi"]
43−
44− callProcess "rm" ["-rf", ".psc-package/psc-0.13.0/prelude/v4.1.0"]
45− callProcess "git" ["clone", "--branch", "v4.1.1", "--depth", "1", "https://github.com/purescript/purescript-prelude.git", ".psc-package/psc-0.13.0/prelude/v4.1.0"]
41+ callProcess "git" ["clone", "--depth", "1", "https://github.com/andyarvanitis/purescript-go-ffi.git"]
4642
4743 let tests = filter (`notElem` skipped) passingTestCases
4844
@@ -65,14 +61,17 @@ runTests = do
6561 testCaseDirExists <- doesDirectoryExist testCaseDir
6662 when testCaseDirExists $ callProcess "cp" ["-R", testCaseDir, srcDir]
6763
68− callProcess "make" ["clean"]
69− callProcess "make" ["debug", "-j8"]
64+ callProcess "rm" ["-rf", "output"]
65+ callProcess "rm" ["-rf", "Main"]
66+ callProcess "spago" ["build", "--", "--codegen", "corefn"]
67+ callProcess "psgo" []
68+ callProcess "go" ["build", "Main"]
7069 --
7170 -- Run C++ files
7271 --
7372 outputFile <- openFile (tmp </> logpath </> logfile) AppendMode
7473 hPutStrLn outputFile ("\n" ++ inputFile ++ ":")
75− proc <- runProcess ("output" </> "bin" </> "main") [] Nothing Nothing Nothing (Just outputFile) Nothing
74+ proc <- runProcess ("./" </> "Main") [] Nothing Nothing Nothing (Just outputFile) Nothing
7675
7776 removeFile (srcDir </> inputFile)
7877 when testCaseDirExists $ callProcess "rm" ["-rf", srcDir </> (takeWhile (/='.') inputFile)]
@@ -116,8 +115,8 @@ packages =
116115fetchPackages :: IO ()
117116-------------------------------------------------------------------------------
118117fetchPackages = do
119− callProcess "psc-package" ["init"]
120− mapM (callProcess "psc-package" . (\p -> ["install", p])) packages
118+ callProcess "spago" ["init"]
119+ mapM (callProcess "spago" . (\p -> ["install", p])) packages
121120 return ()
122121
123122-------------------------------------------------------------------------------