edwinb/Idris2-boot
1
1
Fork 0
mirror of https://github.com/edwinb/Idris2-boot.git synced 2024-11-24 04:43:25 +03:00
Code Issues Projects Releases Wiki Activity

Add coverage006 test

Browse Source
This commit is contained in:
Edwin Brady 2020-03-18 14:39:59 +00:00
parent 22febdf7ff
commit fbff80545d
5 changed files with 35 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
tests/idris2/coverage006/Cover.idr Normal file
View File

@ -0,0 +1,20 @@
import Data.Fin
data NNat = NZ | NS NNat
zsym : (x : NNat) -> x = NZ -> NZ = x
zsym NZ Refl = Refl
zsym (NS _) Refl impossible
zsym' : (x : NNat) -> x = NZ -> NZ = x
zsym' NZ Refl = Refl
foo : Nat -> String
foo 0 = "zero"
foo 1 = "one"
foo x = "something else"
bar : Fin (S (S (S Z))) -> String
bar 0 = "a"
bar 1 = "b"
bar 2 = "c"

3
tests/idris2/coverage006/expected Normal file
View File

@ -0,0 +1,3 @@
1/1: Building foobar (foobar.idr)
Main> Main.foo is total
Main> Bye for now!

7
tests/idris2/coverage006/foobar.idr Normal file
View File

@ -0,0 +1,7 @@
foo : (pf : Nat -> Either (S Z = Z) (Z = S Z)) -> Z = S Z
foo pf =
let baz : Z = S Z
baz with (pf 0)
baz | (Left Refl) impossible
baz | (Right pf') = pf'
in baz

2
tests/idris2/coverage006/input Normal file
View File

@ -0,0 +1,2 @@
:total foo
:q

3
tests/idris2/coverage006/run Executable file
View File

@ -0,0 +1,3 @@
$1 --no-banner foobar.idr < input
rm -rf build