add functional tests

Author: olivierverdier

git-prompt.cabal

@@ -45,10 +45,16 @@ executable gitstatus
 
   hs-source-dirs: src
 
-test-suite gitpromptstatus-tests
+test-suite tests-branch
   default-language:  Haskell2010
   type:              exitcode-stdio-1.0
   hs-source-dirs:    src
   main-is:           TestBranchParse.hs
-  build-depends:     base, parsec >=3.1 && <3.2, process>=1.1.0.2,
-                     QuickCheck
+  build-depends:     base, parsec >=3.1 && <3.2, process>=1.1.0.2, QuickCheck
+
+test-suite tests-functional
+  default-language:  Haskell2010
+  type:              exitcode-stdio-1.0
+  hs-source-dirs:    src
+  main-is:           TestFunctional.hs
+  build-depends:     base, parsec >=3.1 && <3.2, process>=1.1.0.2, HUnit, QuickCheck

src/TestFunctional.hs

@@ -0,0 +1,31 @@
+import Test.HUnit (Test(TestList), runTestTT, (~=?), Counts(errors, failures))
+import Utils (stringsFromStatus, Hash(MkHash))
+import Control.Applicative ((<$>))
+import System.Exit (exitFailure)
+import Control.Monad (when)
+
+type TestData = (String, String, [Int])
+
+tests :: [TestData]
+tests = [
+		("## master...ori/master [ahead 3]\n M", "master", [3,0,0,0,1,0])
+		,
+		("## stat\nM ", "stat", [0,0,1,0,0,0])
+		,
+		("## exp...o/exp [ahead 3, behind 2]\n", "exp", [3,2,0,0,0,0])
+		,
+		("## master\nU \nU \nM \nM \nM ", "master", [0,0,3,2,0,0])
+		,
+		("## HEAD (no branch)\n", ":hash", [0,0,0,0,0,0])
+		,
+		("## master\n M\n M\n M\n??\n", "master", [0,0,0,0,3,1])
+		]
+
+makeTest :: TestData -> Test
+makeTest (input, branch, numbers) = Just (branch : (show <$> numbers)) ~=? stringsFromStatus (Just $ MkHash "hash") input
+
+main :: IO ()
+main = do
+	testResult <- runTestTT $ TestList $ makeTest <$> tests
+	let some accessor = accessor testResult /= 0
+	when (some errors  || some failures) exitFailure