diff options
Diffstat (limited to 'test')
-rw-r--r-- | test/Spec.hs | 20 |
1 files changed, 17 insertions, 3 deletions
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 () |