Idris2/tests/idris2/perror004/PError.idr

mirror of https://github.com/idris-lang/Idris2.git synced 2024-12-17 08:11:45 +03:00
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
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 20:25:18 +03:00			`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`