The first ever end-to-end test

subdir/.bash_aliases

@@ -0,0 +1 @@
+/home/syd/super-user-spark/test_sandbox/bash/bash_aliases

subdir/.bash_profile

@@ -0,0 +1 @@
+/home/syd/super-user-spark/test_sandbox/bash/bash_profile

subdir/.bashrc

@@ -0,0 +1 @@
+/home/syd/super-user-spark/test_sandbox/bash/bashrc

super-user-spark.cabal

@@ -82,9 +82,12 @@ test-suite spark-tests
   type:             exitcode-stdio-1.0
   main-is:          MainTest.hs
   hs-source-dirs:   src, test
-  other-modules:    ParserSpec
+  other-modules:    CheckSpec
+                  , ParserSpec
                   , CompilerSpec
+                  , DeployerSpec
                   , SeedSpec
+                  , EndToEndSpec
   build-depends:    base                  >= 4.6   && < 4.9
                   , super-user-spark
                   , hspec                 >= 2.2   && < 2.3

test/EndToEndSpec.hs

@@ -0,0 +1,62 @@
+module EndToEndSpec (spec) where
+
+import           Spark
+import           System.Directory      hiding (createDirectoryIfMissing)
+import           System.Environment    (withArgs)
+import           System.FilePath.Posix ((</>))
+import           System.Posix.Files
+import           Test.Hspec
+import           Test.QuickCheck
+import           Utils
+
+spec :: Spec
+spec = do
+    let sandbox = "test_sandbox"
+    let setup = createDirectoryIfMissing sandbox
+    let teardown = removeDirectoryRecursive sandbox
+
+    let rsc = "test_resources" </> "end-to-end"
+
+    beforeAll_ setup $ afterAll_ teardown $ do
+        describe "standard bash card test" $ do
+            let bashrsc = rsc </> "bash.sus"
+            let bashrscres = rsc </> "bash.sus.res"
+            let cardfile = sandbox </> "bash.sus"
+
+            let up = do
+                    copyFile bashrsc cardfile
+                    withCurrentDirectory sandbox $ do
+                        createDirectoryIfMissing "bash"
+                        withCurrentDirectory "bash" $ do
+                            writeFile "bash_aliases" "bash_aliases"
+                            writeFile "bashrc" "bashrc"
+                            writeFile "bash_profile" "bash_profile"
+
+            let down = do
+                    removeFile cardfile
+                    withCurrentDirectory sandbox $ do
+                        removeDirectoryRecursive "bash"
+
+
+            beforeAll_ up $ afterAll_ down $ do
+                it "parses correcty" $ do
+                    withArgs ["parse", cardfile] spark `shouldReturn` ()
+
+                it "compiles correctly" $ do
+                    let outfile = sandbox </> "bash.sus.res"
+
+                    withArgs ["compile", cardfile, "--output", outfile] spark `shouldReturn` ()
+
+                    actual <- readFile outfile
+                    expected <- readFile bashrscres
+                    actual `shouldBe` expected
+
+                it "checks without exceptions" $ do
+                    withArgs ["check", cardfile] spark `shouldReturn` ()
+
+                it "deploys correctly" $ do
+                    withArgs ["deploy", cardfile] spark `shouldReturn` ()
+
+                    readFile ("subdir" </> ".bashrc") `shouldReturn` "bashrc"
+                    readFile ("subdir" </> ".bash_aliases") `shouldReturn` "bash_aliases"
+                    readFile ("subdir" </> ".bash_profile") `shouldReturn` "bash_profile"

test_resources/end-to-end/bash.sus

@@ -0,0 +1,8 @@
+card bash {
+  into  subdir
+  outof bash
+
+  .bashrc
+  .bash_aliases
+  .bash_profile
+}

test_resources/end-to-end/bash.sus.res

@@ -0,0 +1,26 @@
+[
+    {
+        "destination": "subdir/.bashrc",
+        "sources": [
+            "bash/.bashrc",
+            "bash/bashrc"
+        ],
+        "deployment kind": "link"
+    },
+    {
+        "destination": "subdir/.bash_aliases",
+        "sources": [
+            "bash/.bash_aliases",
+            "bash/bash_aliases"
+        ],
+        "deployment kind": "link"
+    },
+    {
+        "destination": "subdir/.bash_profile",
+        "sources": [
+            "bash/.bash_profile",
+            "bash/bash_profile"
+        ],
+        "deployment kind": "link"
+    }
+]