2017-10-19 00:27:29 +03:00
|
|
|
module Main ( main ) where
|
|
|
|
|
2017-10-25 02:36:36 +03:00
|
|
|
import System.FilePath.Glob ( namesMatching )
|
2017-10-19 00:27:29 +03:00
|
|
|
import qualified Test.Tasty as T
|
|
|
|
|
2017-10-28 00:29:04 +03:00
|
|
|
import qualified PPC64Tests as PPC64
|
2017-11-10 04:18:20 +03:00
|
|
|
import qualified PPC64InstructionCoverage as PPC64
|
2017-10-19 00:27:29 +03:00
|
|
|
|
2017-10-25 02:36:36 +03:00
|
|
|
main :: IO ()
|
|
|
|
main = do
|
|
|
|
testFiles <- namesMatching "tests/ppc/*.s.expected"
|
2017-11-10 04:18:20 +03:00
|
|
|
bins <- namesMatching "tests/ppc/bin/*"
|
2017-10-25 02:36:36 +03:00
|
|
|
T.defaultMain $ T.testGroup "PPCMacawTests" [
|
2017-11-10 04:18:20 +03:00
|
|
|
PPC64.ppcAsmTests testFiles,
|
|
|
|
PPC64.ppc64InstructionCoverageTests bins
|
2017-10-25 02:36:36 +03:00
|
|
|
]
|