18 lines
383 B
Haskell
18 lines
383 B
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
import Yesod.Helpers.Static
|
|
|
|
import Test.Hspec
|
|
import Test.Hspec.HUnit ()
|
|
-- import Test.Hspec.QuickCheck (prop)
|
|
import Test.HUnit ((@?=))
|
|
|
|
main :: IO ()
|
|
main = hspecX specs
|
|
|
|
specs :: IO [Spec]
|
|
specs = runSpecM $ do
|
|
context "get file list" $ do
|
|
ti "pieces" $ do
|
|
x <- getFileListPieces "tests/data"
|
|
x @?= [["foo"], ["bar", "baz"]]
|