yogsototh/holy-project
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

terser version

Browse source
This commit is contained in:
Yann Esposito (Yogsototh) 2013-12-02 21:48:55 +01:00
parent 76f797700d
commit 2af4f54b08
1 changed files with 11 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
test/HolyProject/StringUtils/Test.hs
View file

@ -7,16 +7,16 @@ import HolyProject.StringUtils
stringUtilsSuite :: TestTree
stringUtilsSuite = testGroup "StringUtils"
[ testCase "projectNameFromString space"
(testProjectNameFromString "Holy Project" "holy-project")
, testCase "projectNameFromString dash"
(testProjectNameFromString "Holy-Project" "holy-project")
, testCase "projectNameFromString caps"
(testProjectNameFromString "Holy PROJECT" "holy-project")
, testCase "projectNameFromString underscore"
(testProjectNameFromString "Holy_PROJECT" "holy_project")
[ testGroup "projectNameFromString HUnit"
$ map (testEq projectNameFromString)
[ ("space","Holy Project","holy-project")
, ("empty","","")
, ("number","12345","12345")
]
]
testProjectNameFromString :: String -> String -> Assertion
testProjectNameFromString input expectedoutput =
expectedoutput @=? projectNameFromString input
testEq :: (Eq a, Show a) =>
(t -> a) -- ^ Function to test
-> (String,t,a) -- ^ (name,input,expected output)
-> TestTree
testEq f (name,input,expected) = testCase name (f input @?= expected)