Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

26 lines (22 sloc) 0.77 kB
{-# LANGUAGE TemplateHaskell #-}
import Test.Hspec
import Test.Hspec.HUnit
import Test.HUnit
import Data.FileEmbed
import qualified Data.ByteString as S
import Data.List (sort)
myeq x y = do
y' <- y
x @?= y'
main = hspec $ descriptions
[ describe "embedFile"
[ it "handles text files" $ $(embedFile "sample/bar") `myeq` S.readFile "sample/bar"
, it "handles binary files" $ $(embedFile "sample/binary") `myeq` S.readFile "sample/binary"
]
, describe "getDir"
[ it "takes all non-hidden files" $ ["bar", "baz", "bin", "binary"] `myeq` (fmap (sort . map fst) $ getDir "sample")
]
, describe "embedDir"
[ it "handles text and binary files" $ $(embedDir "sample") `myeq` getDir "sample"
]
]
Jump to Line
Something went wrong with that request. Please try again.