blob: 6fb40065b7a0b552d07a37d78d8e4d1a841f5477 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
import Development.Shake.FilePath ( (</>) )
import Fpm ( Arguments(..)
, Command(..)
, start
)
import System.Directory ( withCurrentDirectory )
example_path = "test" </> "example_packages"
main :: IO ()
main = do
testHelloWorld
testHelloComplex
testHelloFpm
testCircular
testWithMakefile
testMakefileComplex
testHelloWorld :: IO ()
testHelloWorld =
withCurrentDirectory (example_path </> "hello_world") $ start $ Arguments (Run "") False ""
testHelloComplex :: IO ()
testHelloComplex =
withCurrentDirectory (example_path </> "hello_complex") $ start $ Arguments (Test "") False ""
testHelloFpm :: IO ()
testHelloFpm =
withCurrentDirectory (example_path </> "hello_fpm") $ start $ Arguments (Run "") False ""
testCircular :: IO ()
testCircular =
withCurrentDirectory (example_path </> "circular_example") $ start $ Arguments (Test "") False ""
testWithMakefile :: IO ()
testWithMakefile =
withCurrentDirectory (example_path </> "with_makefile") $ start $ Arguments (Build) False ""
testMakefileComplex :: IO ()
testMakefileComplex =
withCurrentDirectory (example_path </> "makefile_complex") $ start $ Arguments (Run "") False ""
|
