From e4829d620dd9c5261880cee92f49da43f2a8ed20 Mon Sep 17 00:00:00 2001 From: Brad Richardson Date: Mon, 13 Apr 2020 18:57:17 -0500 Subject: Move test code out of src folder --- test/Spec.hs | 20 +++++++++++++++++--- 1 file changed, 17 insertions(+), 3 deletions(-) (limited to 'test/Spec.hs') diff --git a/test/Spec.hs b/test/Spec.hs index 1c9fc48..c9ec08c 100644 --- a/test/Spec.hs +++ b/test/Spec.hs @@ -1,6 +1,20 @@ -import Lib (someFunc, someFunc2) +import Development.Shake.FilePath ( () ) +import System.Process ( callCommand ) main :: IO () main = do - someFunc - someFunc2 + someFunc + someFunc2 + +someFunc :: IO () +someFunc = do + putStrLn "someFunc" + a <- callCommand "gfortran test/test1.f90 -o test1" + a <- callCommand $ "." "test1" + return () + +someFunc2 :: IO () +someFunc2 = do + putStrLn "example" + a <- callCommand "cd example_project && stack run -- build" + return () -- cgit v1.2.3