Merge pull request #213 from everythingfunctional/bootstrap_submodule_support

Bootstrap submodule support

3 files changed, 68 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..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
+    ""
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