Permalink
Browse files

tests: fix build, using genTextureDefault

  • Loading branch information...
1 parent 52c3f71 commit a1f92611bef67dd2f4321213fd22e4d5d2696754 @kfish committed Nov 23, 2011
Showing with 1 addition and 1 deletion.
  1. +1 −1 tests/Properties.hs
View
@@ -12,7 +12,7 @@ import Graphics.TextureSynthesis
-- | Check that a tile of depth n is fully filled.
-- The size of tiles follows sequence A028400 (2^n + 1)^2
fillTile :: Int -> Bool
-fillTile n = length (flattenTexture (n+1) (mkTexture n)) == square (2^n +1)
+fillTile n = length (flattenTexture (n+1) (genTextureDefault n)) == square (2^n +1)
where
square x = x * x

0 comments on commit a1f9261

Please sign in to comment.