bootstrap/test/Spec.hs


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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69

import           Development.Shake.FilePath     ( (</>) )
import           Fpm                            ( Arguments(..)
                                                , start
                                                )
import           System.Directory               ( withCurrentDirectory )

example_path = "test" </> "example_packages"

main :: IO ()
main = do
  testHelloWorld
  testHelloComplex
  testHelloFpm
  testCircular
  testWithMakefile
  testMakefileComplex
  testSubmodule

testHelloWorld :: IO ()
testHelloWorld =
  withCurrentDirectory (example_path </> "hello_world") $ start $ Run
    { runRelease = False
    , runTarget  = Nothing
    , runArgs    = Nothing
    }

testHelloComplex :: IO ()
testHelloComplex =
  withCurrentDirectory (example_path </> "hello_complex") $ start $ Test
    { testRelease = False
    , testTarget  = Nothing
    , testArgs    = Nothing
    }

testHelloFpm :: IO ()
testHelloFpm =
  withCurrentDirectory (example_path </> "hello_fpm") $ start $ Run
    { runRelease = False
    , runTarget  = Nothing
    , runArgs    = Nothing
    }

testCircular :: IO ()
testCircular =
  withCurrentDirectory (example_path </> "circular_example") $ start $ Test
    { testRelease = False
    , testTarget  = Nothing
    , testArgs    = Nothing
    }

testWithMakefile :: IO ()
testWithMakefile =
  withCurrentDirectory (example_path </> "with_makefile") $ start $ Build
    { buildRelease = False
    }

testMakefileComplex :: IO ()
testMakefileComplex =
  withCurrentDirectory (example_path </> "makefile_complex") $ start $ Run
    { runRelease = False
    , runTarget  = Nothing
    , runArgs    = Nothing
    }

testSubmodule :: IO ()
testSubmodule =
  withCurrentDirectory (example_path </> "submodules") $ start $ Build
    { buildRelease = False
    }