aboutsummaryrefslogtreecommitdiff
path: root/test/Spec.hs
diff options
context:
space:
mode:
Diffstat (limited to 'test/Spec.hs')
-rw-r--r--test/Spec.hs13
1 files changed, 10 insertions, 3 deletions
diff --git a/test/Spec.hs b/test/Spec.hs
index dfa70d6..604d8af 100644
--- a/test/Spec.hs
+++ b/test/Spec.hs
@@ -5,20 +5,27 @@ import Fpm ( Arguments(..)
)
import System.Directory ( withCurrentDirectory )
+example_path = "test" </> "example_packages"
+
main :: IO ()
main = do
testHelloWorld
testHelloComplex
testHelloFpm
+ testCircular
testHelloWorld :: IO ()
testHelloWorld =
- withCurrentDirectory "hello_world" $ start $ Arguments Run False
+ withCurrentDirectory (example_path </> "hello_world") $ start $ Arguments Run False
testHelloComplex :: IO ()
testHelloComplex =
- withCurrentDirectory "hello_complex" $ start $ Arguments Test False
+ withCurrentDirectory (example_path </> "hello_complex") $ start $ Arguments Test False
testHelloFpm :: IO ()
testHelloFpm =
- withCurrentDirectory "hello_fpm" $ start $ Arguments Run False
+ withCurrentDirectory (example_path </> "hello_fpm") $ start $ Arguments Run False
+
+testCircular :: IO ()
+testCircular =
+ withCurrentDirectory (example_path </> "circular_example") $ start $ Arguments Test False