1 files changed, 67 insertions, 0 deletions
diff --git a/bootstrap/test/Spec.hs b/bootstrap/test/Spec.hs
new file mode 100644
index 0000000..4e660e7
--- /dev/null
+++ b/bootstrap/test/Spec.hs
@@ -0,0 +1,67 @@
+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
+  testSubmodule
+
+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
+    ""
+
+testSubmodule :: IO ()
+testSubmodule =
+  withCurrentDirectory (example_path </> "submodules") $ start $ Arguments
+    (Build)
+    False
+    ""