diff options
| author | Brad Richardson <everythingfunctional@protonmail.com> | 2020-10-14 09:24:55 -0500 |
|---|---|---|
| committer | Brad Richardson <everythingfunctional@protonmail.com> | 2020-10-14 09:24:55 -0500 |
| commit | b5b16cf826d468e79b4087500192a4a9e07c140f (patch) | |
| tree | 1f615ee9ed6500bb1f6964ef2af0478b2fe51e4e /bootstrap/test | |
| parent | d3a65e36b28808c2c51ae41fc107f1179e27a08c (diff) | |
| download | fpm-b5b16cf826d468e79b4087500192a4a9e07c140f.tar.gz fpm-b5b16cf826d468e79b4087500192a4a9e07c140f.zip | |
Better organize example packages and bootstrap tests
Diffstat (limited to 'bootstrap/test')
| 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 |