aboutsummaryrefslogblamecommitdiff
path: root/haddock-library/test/Documentation/Haddock/Utf8Spec.hs
blob: 47e127042ce558ec82747975703e025b05819fbb (plain) (tree)
1
2
3
4
5
                                                        
 

                                 







                                                                  
module Documentation.Haddock.Utf8Spec (main, spec) where

import Test.Hspec
import Test.QuickCheck
import Documentation.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