15 lines
317 B
Haskell
15 lines
317 B
Haskell
module YesodStaticTest (specs) where
|
|
|
|
import Test.Hspec
|
|
import Test.HUnit ( (@?=) )
|
|
import Test.Hspec.HUnit ( )
|
|
|
|
import Yesod.Static (getFileListPieces)
|
|
|
|
specs :: Spec
|
|
specs = do
|
|
describe "get file list" $ do
|
|
it "pieces" $ do
|
|
x <- getFileListPieces "test/fs"
|
|
x @?= [["foo"], ["bar", "baz"]]
|