unisonweb/unison
1
0
Fork 0
mirror of https://github.com/unisonweb/unison.git synced 2024-09-23 08:18:04 +03:00
Code Issues Projects Releases Wiki Activity

added an additional test

Browse Source
This commit is contained in:
Paul Chiusano 2018-06-21 17:44:55 -04:00
parent d1f653dd01
commit 5901c2f8e5
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
parser-typechecker/tests/Unison/Test/Typechecker.hs
View File

@ -179,6 +179,19 @@ test = scope "typechecker" . tests $
|
|()
|]
, checks [r|--State1a effect
|effect State se2 where
| put : ∀ se . se -> {State se} ()
| get : ∀ se . () -> {State se} se
|
|id : Int64 -> Int64
|id i = i
|
|foo : () -> {State Int64} Int64
|foo unit = id (State.get() +_Int64 State.get())
|
|()
|]
, checks [r|--State2 effect
|effect State se2 where
| put : ∀ se . se -> {State se} ()