Better organize example packages and bootstrap tests

1 files changed, 41 insertions, 0 deletions

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 ""