Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

tests: fix build, using genTextureDefault

  • Loading branch information...
commit a1f92611bef67dd2f4321213fd22e4d5d2696754 1 parent 52c3f71
@kfish authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  tests/Properties.hs
View
2  tests/Properties.hs
@@ -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
Please sign in to comment.
Something went wrong with that request. Please try again.