Verified Commit 9ca03a01 authored by Camil Staps's avatar Camil Staps 🙂

Only disable failing tests in gentest

parent df224d7a
Pipeline #8609 passed with stage
in 1 minute and 33 seconds
......@@ -130,7 +130,7 @@ testParsePrint =
, test Green
, test Blue
, test {rec_fst=1, rec_snd='a', rec_thd=1.2}
//, test {rec_fst=1, rec_snd='a', rec_thd=1.2}
, test (Bin 'a' (Tip 1) (Bin 'b' (Tip 2) (Bin 'c' (Tip 3) (Tip 4))))
, test (Rose 1 [Rose 2 [], Rose 3 [], Rose 4 [Rose 5 []]])
......@@ -148,11 +148,11 @@ testParsePrint =
, test [I 1 :+: I 2 :+: I 3, I 4 :->: I 5 :->: I 6]
, test (arr [I 1 :+: I 2 :+: I 3, I 4 :->: I 5 :->: I 6])
, test
{ rec_fst = I 1 :+: I 2 :+: I 3
, rec_snd = I 4 :->: I 5 :->: I 6
, rec_thd = I 7 :*: I 8 :+: I 9
}
//, test
// { rec_fst = I 1 :+: I 2 :+: I 3
// , rec_snd = I 4 :->: I 5 :->: I 6
// , rec_thd = I 7 :*: I 8 :+: I 9
// }
]
where
test x = case parseString (printToString x) of
......@@ -231,7 +231,7 @@ where
, testMapLM
, testReduceRSt
, testReduceLSt
//, testParsePrint
, testParsePrint
, testCompress
, testFMap
]
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment