diff options
| author | Yann Herklotz Grave <git@yannherklotzgrave.com> | 2019-02-21 19:33:16 +0000 |
|---|---|---|
| committer | Yann Herklotz Grave <git@yannherklotzgrave.com> | 2019-02-21 19:33:16 +0000 |
| commit | ec56fed98f691fe32de29e0cdbaa354cf9c3e79a (patch) | |
| tree | 3e060cab235a650529ab34615e7e3bc8e104b135 /test | |
| parent | 711deffd693615530ec9a12f7c3e58682633e032 (diff) | |
| download | pfm-ec56fed98f691fe32de29e0cdbaa354cf9c3e79a.tar.gz pfm-ec56fed98f691fe32de29e0cdbaa354cf9c3e79a.zip | |
Diffstat (limited to 'test')
| -rw-r--r-- | test/Test.hs | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/test/Test.hs b/test/Test.hs index 63b846c..0152960 100644 --- a/test/Test.hs +++ b/test/Test.hs @@ -1,10 +1,10 @@ module Main where -import qualified Data.ByteString.Lazy as BL +import qualified Data.ByteString.Lazy as BL import PFM import Test.Tasty -import Test.Tasty.QuickCheck ((===)) -import qualified Test.Tasty.QuickCheck as QC +import Test.Tasty.QuickCheck ( (===) ) +import qualified Test.Tasty.QuickCheck as QC newtype TestPFMImage = TestPFMImage { getPFMImage :: PFMImage } deriving (Show) @@ -34,10 +34,10 @@ instance QC.Arbitrary TestPPMColour where parserIdempotent' :: TestPFMImage -> QC.Property parserIdempotent' (TestPFMImage v) = p i === (p . p) i - where - encStrict = BL.toStrict . encode - i = encStrict v - p = encStrict . parse + where + encStrict = BL.toStrict . encode + i = encStrict v + p = encStrict . parse parserIdempotent :: TestTree parserIdempotent = QC.testProperty "parser idempotent" parserIdempotent' |