blob: 47e127042ce558ec82747975703e025b05819fbb (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
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
|
