Test example_project

2 files changed, 12 insertions, 3 deletions

diff --git a/src/Lib.hs b/src/Lib.hs
index cab1ccc..3d4aede 100644
--- a/src/Lib.hs
+++ b/src/Lib.hs
@@ -1,5 +1,6 @@
 module Lib
-    ( someFunc
+    ( someFunc,
+      someFunc2
     ) where
 
 import Development.Shake.FilePath ((</>))
@@ -12,3 +13,9 @@ someFunc = do
     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 ()
diff --git a/test/Spec.hs b/test/Spec.hs
index a1a07c6..1c9fc48 100644
--- a/test/Spec.hs
+++ b/test/Spec.hs
@@ -1,4 +1,6 @@
-import Lib (someFunc)
+import Lib (someFunc, someFunc2)
 
 main :: IO ()
-main = someFunc
+main = do
+    someFunc
+    someFunc2