diff options
author | Brad Richardson <brichardson@structint.com> | 2020-04-13 19:31:08 -0500 |
---|---|---|
committer | Brad Richardson <brichardson@structint.com> | 2020-04-29 19:08:05 -0700 |
commit | b07a5fcc4d9ea577e0918f683ba2fc1d82e55cd9 (patch) | |
tree | fc5dd9905f38d37807d8e1f2e7436f7a2501b0da /test | |
parent | eafba7a95131c34821c7bb725f1e26552c01271b (diff) | |
download | fpm-b07a5fcc4d9ea577e0918f683ba2fc1d82e55cd9.tar.gz fpm-b07a5fcc4d9ea577e0918f683ba2fc1d82e55cd9.zip |
Enable running the tests without external calls
Diffstat (limited to 'test')
-rw-r--r-- | test/Spec.hs | 9 |
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 |