Sulkta-OSS/agora
2
0
Fork 0
Code Issues 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 e55168fce8
commit 4cc3a5f792
3 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
test/Spec.hs
View file

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