diff options
Diffstat (limited to 'test/Spec.hs')
| -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 |