mirror of
https://github.com/GaloisInc/macaw.git
synced 2024-12-18 19:41:44 +03:00
9d750c944a
It runs code discovery over a large-ish binary to test coverage. We currently fail due to unsupported instructions (expected). This test will guide priorities on implementing new semantics.
17 lines
449 B
Haskell
17 lines
449 B
Haskell
module Main ( main ) where
|
|
|
|
import System.FilePath.Glob ( namesMatching )
|
|
import qualified Test.Tasty as T
|
|
|
|
import qualified PPC64Tests as PPC64
|
|
import qualified PPC64InstructionCoverage as PPC64
|
|
|
|
main :: IO ()
|
|
main = do
|
|
testFiles <- namesMatching "tests/ppc/*.s.expected"
|
|
bins <- namesMatching "tests/ppc/bin/*"
|
|
T.defaultMain $ T.testGroup "PPCMacawTests" [
|
|
PPC64.ppcAsmTests testFiles,
|
|
PPC64.ppc64InstructionCoverageTests bins
|
|
]
|