test/Haddock/Utf8Spec.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

module Haddock.Utf8Spec (main, spec) where

import           Test.Hspec
import           Test.QuickCheck

import           Haddock.Utf8

main :: IO ()
main = hspec spec

spec :: Spec
spec = do
  describe "decodeUtf8" $ do
    it "is inverse to encodeUtf8" $ do
      property $ \xs -> (decodeUtf8 . encodeUtf8) xs `shouldBe` xs