@@ -4,6 +4,7 @@ import Test.Tasty (TestTree, testGroup)
|
||||
import Test.Tasty.Silver.Interactive (defaultMain)
|
||||
import qualified Gyehoek.Test.Golden
|
||||
import Data.List (List)
|
||||
import qualified Gyehoek.Test.Sexp
|
||||
|
||||
|
||||
main :: IO ()
|
||||
@@ -12,5 +13,6 @@ main = defaultMain =<< root
|
||||
root :: IO TestTree
|
||||
root = testGroup "test" <$> sequenceA
|
||||
[ Gyehoek.Test.Golden.root
|
||||
, Gyehoek.Test.Sexp.root
|
||||
]
|
||||
|
||||
|
||||
Reference in New Issue
Block a user