unisonweb/unison
1
0
Fork 0
mirror of https://github.com/unisonweb/unison.git synced 2024-10-04 21:57:25 +03:00
Code Issues Projects Releases Wiki Activity

Fix broken test

Browse Source
This commit is contained in:
Chris Penner 2022-11-17 11:06:17 -06:00
parent 6b8424df41
commit b056def9fa
2 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
parser-typechecker/src/Unison/Runtime/Interface.hs
View File

@ -8,7 +8,8 @@
{-# LANGUAGE ScopedTypeVariables #-}
module Unison.Runtime.Interface
( withRuntime,
( startRuntime,
withRuntime,
standalone,
runStandalone,
StoredCache,

16
parser-typechecker/tests/Unison/Test/UnisonSources.hs
View File

@ -60,14 +60,14 @@ bad r = EasyTest.expectLeft r >> done
test :: Test ()
test = do
rt <- io (RTI.startRuntime False RTI.OneOff "")
scope "unison-src"
. tests
$ [ go rt shouldPassNow good,
go rt shouldFailNow bad,
go rt shouldPassLater (pending . bad),
go rt shouldFailLater (pending . good)
]
using (RTI.startRuntime False RTI.OneOff "") RTI.terminate \rt -> do
scope "unison-src"
. tests
$ [ go rt shouldPassNow good,
go rt shouldFailNow bad,
go rt shouldPassLater (pending . bad),
go rt shouldFailLater (pending . good)
]
shouldPassPath, shouldFailPath :: String
shouldPassPath = "unison-src/tests"