Sulkta-OSS/agora
3
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

Added failing test

Browse source
This commit is contained in:
Jack Hodgkinson 2022-02-14 12:11:34 +00:00
parent 9a0d55b326
commit d90d57045f
3 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

1
agora.cabal
View file

@ -86,6 +86,7 @@ common test-deps
, quickcheck-instances , quickcheck-instances
, tagged , tagged
, tasty , tasty
, tasty-hunit
, utf8-string , utf8-string
-------------------------------------------------------------------------------- --------------------------------------------------------------------------------

2
hie.yaml
View file

@ -2,3 +2,5 @@ cradle:
cabal: cabal:
- path: "./src" - path: "./src"
component: "lib:agora" component: "lib:agora"
- path: "./test"
component: "test:agora-test"

8
test/Spec.hs
View file

@ -5,8 +5,14 @@ import Prelude
-------------------------------------------------------------------------------- --------------------------------------------------------------------------------
import Test.Tasty (defaultMain, testGroup) import Test.Tasty (defaultMain, testGroup)
import Test.Tasty.HUnit (assertBool, testCase)
-------------------------------------------------------------------------------- --------------------------------------------------------------------------------
main :: IO () main :: IO ()
main = defaultMain $ testGroup "Suites" [] main =
defaultMain $
testGroup
"Suites"
[ testCase "will fail" $ assertBool "false" False
]