Idris2/tests/idris2/perror004/PError.idr
Edwin Brady a972778eab Add test script
They don't all pass yet, for minor reasons. Coming shortly...
Unfortunately the startup overhead for chez is really noticeable here!
2020-05-19 18:25:18 +01:00

7 lines
166 B
Idris

foo : Nat -> Nat -> Bool
foo x y with (x == y)
foo x y | True with (y == x)
foo x y | True | False | 10 = x
foo x y | True | True = x
foo x y | False = y