diff options
| author | Brad Richardson <everythingfunctional@protonmail.com> | 2020-10-22 16:43:58 -0500 |
|---|---|---|
| committer | Brad Richardson <everythingfunctional@protonmail.com> | 2020-10-22 16:43:58 -0500 |
| commit | 03c9efc756568ce9c74fdb9dc9df216975e5cd69 (patch) | |
| tree | e549595bde6fae88b1cd79e6a005ff8e3ca2126f /bootstrap/test/Spec.hs | |
| parent | f196336df68d0431876d558352149d009935a05a (diff) | |
| download | fpm-03c9efc756568ce9c74fdb9dc9df216975e5cd69.tar.gz fpm-03c9efc756568ce9c74fdb9dc9df216975e5cd69.zip | |
Add test with submodule example project and fix .smod naming convention
Diffstat (limited to 'bootstrap/test/Spec.hs')
| -rw-r--r-- | bootstrap/test/Spec.hs | 38 |
1 files changed, 32 insertions, 6 deletions
diff --git a/bootstrap/test/Spec.hs b/bootstrap/test/Spec.hs index 6fb4006..4e660e7 100644 --- a/bootstrap/test/Spec.hs +++ b/bootstrap/test/Spec.hs @@ -15,27 +15,53 @@ main = do testCircular testWithMakefile testMakefileComplex + testSubmodule testHelloWorld :: IO () testHelloWorld = - withCurrentDirectory (example_path </> "hello_world") $ start $ Arguments (Run "") False "" + withCurrentDirectory (example_path </> "hello_world") $ start $ Arguments + (Run "") + False + "" testHelloComplex :: IO () testHelloComplex = - withCurrentDirectory (example_path </> "hello_complex") $ start $ Arguments (Test "") False "" + withCurrentDirectory (example_path </> "hello_complex") $ start $ Arguments + (Test "") + False + "" testHelloFpm :: IO () testHelloFpm = - withCurrentDirectory (example_path </> "hello_fpm") $ start $ Arguments (Run "") False "" + withCurrentDirectory (example_path </> "hello_fpm") $ start $ Arguments + (Run "") + False + "" testCircular :: IO () testCircular = - withCurrentDirectory (example_path </> "circular_example") $ start $ Arguments (Test "") False "" + withCurrentDirectory (example_path </> "circular_example") $ start $ Arguments + (Test "") + False + "" testWithMakefile :: IO () testWithMakefile = - withCurrentDirectory (example_path </> "with_makefile") $ start $ Arguments (Build) False "" + withCurrentDirectory (example_path </> "with_makefile") $ start $ Arguments + (Build) + False + "" testMakefileComplex :: IO () testMakefileComplex = - withCurrentDirectory (example_path </> "makefile_complex") $ start $ Arguments (Run "") False "" + withCurrentDirectory (example_path </> "makefile_complex") $ start $ Arguments + (Run "") + False + "" + +testSubmodule :: IO () +testSubmodule = + withCurrentDirectory (example_path </> "submodules") $ start $ Arguments + (Build) + False + "" |