hashirama/reanimate
Watch
1
0
Fork
You've already forked reanimate
 0
mirror of https://github.com/reanimate/reanimate.git synced 2026-09-11 16:12:20 +00:00
Code Issues Projects Releases Wiki Activity

Disable prop tests.

Browse source
This commit is contained in:
David Himmelstrup 2022-06-02 18:15:07 +02:00
commit 5298519da6
No known key found for this signature in database
GPG key ID: 43737FEB222785D0
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
test/Properties.hs
View file

@ -4,6 +4,8 @@
{-# LANGUAGE TemplateHaskell #-} {-# LANGUAGE TemplateHaskell #-}
module Properties where module Properties where
#if !defined(NO_HGEOMETRY)
import qualified Data.Vector as V import qualified Data.Vector as V
import Linear.V2 import Linear.V2
import Linear.Vector import Linear.Vector
@ -19,7 +21,7 @@ import Helpers
import Debug.Trace import Debug.Trace
#if !defined(NO_HGEOMETRY)
prop_pGenerate (PolyParam a) (PolyParam b) (PolyParam c) (PolyParam d) = prop_pGenerate (PolyParam a) (PolyParam b) (PolyParam c) (PolyParam d) =
pIsSimple $ pGenerate [a,b,c,d] pIsSimple $ pGenerate [a,b,c,d]
@ -86,8 +88,8 @@ prop_dualCycle p = forAll (choose (0,pSize p-1)) $ \n ->
let p1 = pSetOffset p n let p1 = pSetOffset p n
p2 = pCopy p1 p2 = pCopy p1
in and [ pParent p1 0 i == pParent p2 0 i | i <- [0.. pSize p-1] ] in and [ pParent p1 0 i == pParent p2 0 i | i <- [0.. pSize p-1] ]
#endif
return [] return []
all_props :: TestTree all_props :: TestTree
all_props = testProperties "properties" $allProperties all_props = testProperties "properties" $allProperties
#endif