module HAppS.Util.Tests (allTests) where
import HAppS.Util.Common (split)
import HAppS.Util.Testing (qctest)
import Test.HUnit as HU (Test(..),(~:))
allTests :: Test
allTests =
"happstack-util tests" ~: [ splitTest ]
splitTest :: Test
splitTest = "splitTest" ~: qctest splitTest_prop
splitTest_prop :: Bool -> [Bool] -> Bool
splitTest_prop elem list =
let (left1, right1) = split (elem ==) list
(left2, right2) = break (elem ==) list
right2' =
case right2 of
(r:rs) | r == elem -> rs
_ -> right2
in
(left1 == left2) && (right1 == right2')