diff options
Diffstat (limited to 'bootstrap')
| l--------- | bootstrap/test | 1 | ||||
| -rw-r--r-- | bootstrap/test/Spec.hs | 41 | ||||
| l--------- | bootstrap/test/example_packages | 1 |
3 files changed, 42 insertions, 1 deletions
diff --git a/bootstrap/test b/bootstrap/test deleted file mode 120000 index 419df4f..0000000 --- a/bootstrap/test +++ /dev/null @@ -1 +0,0 @@ -../test
\ No newline at end of file diff --git a/bootstrap/test/Spec.hs b/bootstrap/test/Spec.hs new file mode 100644 index 0000000..6fb4006 --- /dev/null +++ b/bootstrap/test/Spec.hs @@ -0,0 +1,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 "" diff --git a/bootstrap/test/example_packages b/bootstrap/test/example_packages new file mode 120000 index 0000000..b7c12dc --- /dev/null +++ b/bootstrap/test/example_packages @@ -0,0 +1 @@ +../../example_packages
\ No newline at end of file |