iritmaximus/haskell
1
0
Fork 0
mirror of https://github.com/iritmaximus/haskell.git synced 2026-10-12 19:13:39 +03:00
Code Issues Packages Projects Releases Wiki Activity

Set 4a Ex 1: one more test

Browse Source
This commit is contained in:
Joel Kaasinen
2021-08-18 19:02:10 +03:00
parent 8561b73fda
commit cb2b64988a
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
exercises/Set4aTest.hs
+6 -1
View File
@@ -15,7 +15,7 @@ import Set4a
main = score tests main = score tests
tests = [(1,"allEqual",[ex1]) tests = [(1,"allEqual",[ex1, ex1_one])
,(2,"distinct",[ex2_int, ex2_char]) ,(2,"distinct",[ex2_int, ex2_char])
,(3,"middle",[ex3_char, ex3_int]) ,(3,"middle",[ex3_char, ex3_int])
,(4,"rangeOf",[ex4_int, ex4_integer, ex4_double]) ,(4,"rangeOf",[ex4_int, ex4_integer, ex4_double])
@@ -41,6 +41,11 @@ ex1 = conjoin [m_ex1_true True
,m_ex1_true (1::Int) ,m_ex1_true (1::Int)
,m_ex1_false (1::Int)] ,m_ex1_false (1::Int)]
ex1_one = forAll_ $ \(Positive cnt,x::Int,y) ->
forAllBlind (shuffle (y:replicate cnt x)) $ \xs ->
x /= y ==>
$(testing [|allEqual xs|]) (?==False)
m_ex2 domain = forAllBlind (sublistOf domain) $ \xs -> m_ex2 domain = forAllBlind (sublistOf domain) $ \xs ->
conjoin [forAllBlind (shuffle xs) $ \xs' -> $(testing [|distinct xs'|]) (?==True) conjoin [forAllBlind (shuffle xs) $ \xs' -> $(testing [|distinct xs'|]) (?==True)
,not (null xs) ==> forAllBlind (shuffle (head xs:xs)) $ \xs' -> $(testing [|distinct xs'|]) (?==False)] ,not (null xs) ==> forAllBlind (shuffle (head xs:xs)) $ \xs' -> $(testing [|distinct xs'|]) (?==False)]