aboutsummaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
authorBrad Richardson <brichardson@structint.com>2020-04-13 19:31:08 -0500
committerBrad Richardson <brichardson@structint.com>2020-04-29 19:08:05 -0700
commitb07a5fcc4d9ea577e0918f683ba2fc1d82e55cd9 (patch)
treefc5dd9905f38d37807d8e1f2e7436f7a2501b0da /test
parenteafba7a95131c34821c7bb725f1e26552c01271b (diff)
downloadfpm-b07a5fcc4d9ea577e0918f683ba2fc1d82e55cd9.tar.gz
fpm-b07a5fcc4d9ea577e0918f683ba2fc1d82e55cd9.zip
Enable running the tests without external calls
Diffstat (limited to 'test')
-rw-r--r--test/Spec.hs9
1 files changed, 6 insertions, 3 deletions
diff --git a/test/Spec.hs b/test/Spec.hs
index 2fd2364..ccb3b24 100644
--- a/test/Spec.hs
+++ b/test/Spec.hs
@@ -1,6 +1,9 @@
import Development.Shake.FilePath ( (</>) )
+import Fpm ( Arguments(..)
+ , Command(..)
+ , start
+ )
import System.Directory ( withCurrentDirectory )
-import System.Process ( callCommand )
main :: IO ()
main = do
@@ -8,8 +11,8 @@ main = do
testExampleProject :: IO ()
testExampleProject =
- withCurrentDirectory "example_project" $ callCommand "stack run -- build"
+ withCurrentDirectory "example_project" $ start $ Arguments Build False
testHelloWorld :: IO ()
testHelloWorld =
- withCurrentDirectory "hello_world" $ callCommand "stack run -- run"
+ withCurrentDirectory "hello_world" $ start $ Arguments Run False