suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added some more tests for dynamically sized arrays

Browse Source
This commit is contained in:
Neil Brown 2008-03-06 01:49:33 +00:00
parent 70a207fe6c
commit 264149ef3f
1 changed files with 21 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
backends/BackendPassesTest.hs
View File

@ -172,6 +172,23 @@ instance Arbitrary StaticTypeList where
] ]
return $ StaticTypeList tl return $ StaticTypeList tl
newtype DynTypeList = DynTypeList [A.Type] deriving (Show)
instance Arbitrary DynTypeList where
arbitrary = do len <- choose (1,10)
tl <- replicateM len $ frequency
[ (10, return A.Int)
, (10, return A.Byte)
, (20, do len <- choose (1,5)
ds <- replicateM len $ oneof
[choose (1,1000) >>* A.Dimension
,return A.UnknownDimension]
t <- oneof [return A.Int, return A.Byte]
return $ A.Array ds t)
]
return $ DynTypeList tl
qcTestDeclareSizes :: [LabelledQuickCheckTest] qcTestDeclareSizes :: [LabelledQuickCheckTest]
qcTestDeclareSizes = qcTestDeclareSizes =
[ [
@ -270,8 +287,10 @@ checkName n spec am cs
qcTestSizeParameters :: [LabelledQuickCheckTest] qcTestSizeParameters :: [LabelledQuickCheckTest]
qcTestSizeParameters = qcTestSizeParameters =
[ [
("Test Adding _sizes parameters to PROC formals", scaleQC (20, 100, 500, 1000) (runQCTest . testFormal . \(StaticTypeList ts) -> ts)) ("Test Adding _sizes parameters to PROC formals (static)", scaleQC (20, 100, 500, 1000) (runQCTest . testFormal . \(StaticTypeList ts) -> ts))
,("Test Adding _sizes parameters to PROC actuals", scaleQC (20, 100, 500, 1000) (runQCTest . testActual . \(StaticTypeList ts) -> ts)) ,("Test Adding _sizes parameters to PROC actuals (static)", scaleQC (20, 100, 500, 1000) (runQCTest . testActual . \(StaticTypeList ts) -> ts))
,("Test Adding _sizes parameters to PROC formals (dynamic)", scaleQC (20, 100, 500, 1000) (runQCTest . testFormal . \(DynTypeList ts) -> ts))
,("Test Adding _sizes parameters to PROC actuals (dynamic)", scaleQC (20, 100, 500, 1000) (runQCTest . testActual . \(DynTypeList ts) -> ts))
] ]
where where
-- TODO need to test both with dynamically sized arrays -- TODO need to test both with dynamically sized arrays