Idris2/tests/idris2/coverage003/Cover.idr

%default partial

foo : (Nat, Nat) -> Nat
foo (Z, Z) = Z

bar : {a : _} -> a -> Nat
bar Z = Z
bar (S _) = S Z

cty : (a : Type) -> a -> Nat
cty Nat Z = Z
cty Nat (S _) = S Z
cty _ x = S (S Z)

badBar : a -> Nat
badBar Z = Z
badBar (S _) = S Z
All functions now need to be covering by default This has caught a couple of things in the Idris 2 code base itself. Some tests needed partial annotations too. 2020-05-24 21:58:20 +03:00			`%default partial`

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) -> Nat`
			`foo (Z, Z) = Z`

			`bar : {a : _} -> a -> Nat`
			`bar Z = Z`
			`bar (S _) = S Z`

			`cty : (a : Type) -> a -> Nat`
			`cty Nat Z = Z`
			`cty Nat (S _) = S Z`
			`cty _ x = S (S Z)`

			`badBar : a -> Nat`
			`badBar Z = Z`
			`badBar (S _) = S Z`