make some tests runnable
This commit is contained in:
parent
108bc14d62
commit
24398989be
28
test/Main.hs
28
test/Main.hs
@ -1,7 +1,7 @@
|
|||||||
import Instructions
|
-- import HushGP.Instructions
|
||||||
import Push
|
-- import HushGP.Push
|
||||||
import PushTests
|
import HushGP.PushTests
|
||||||
import State
|
-- import HushGP.State
|
||||||
import Test.QuickCheck
|
import Test.QuickCheck
|
||||||
|
|
||||||
-- import Data.List
|
-- import Data.List
|
||||||
@ -19,3 +19,23 @@ qcw = quickCheckWith pushTestArgs
|
|||||||
|
|
||||||
vcw :: (Testable a) => a -> IO ()
|
vcw :: (Testable a) => a -> IO ()
|
||||||
vcw = verboseCheckWith pushTestArgs
|
vcw = verboseCheckWith pushTestArgs
|
||||||
|
|
||||||
|
main :: IO ()
|
||||||
|
main = do
|
||||||
|
qcw prop_IntAdd
|
||||||
|
qcw prop_IntSub
|
||||||
|
qcw prop_IntMul
|
||||||
|
qcw prop_IntDiv
|
||||||
|
qcw prop_IntMod
|
||||||
|
qcw prop_IntFromFloat
|
||||||
|
qcw prop_IntFromBool
|
||||||
|
qcw prop_IntMin
|
||||||
|
qcw prop_IntMax
|
||||||
|
qcw prop_IntInc
|
||||||
|
qcw prop_IntDec
|
||||||
|
qcw prop_IntLT
|
||||||
|
qcw prop_IntGT
|
||||||
|
qcw prop_IntLTE
|
||||||
|
qcw prop_IntGTE
|
||||||
|
qcw prop_IntDup
|
||||||
|
qcw prop_IntPop
|
||||||
|
Loading…
x
Reference in New Issue
Block a user