26 lines
504 B
Haskell
26 lines
504 B
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
module Main where
|
|
|
|
import Control.Applicative
|
|
import System.Posix.Directory.Traversals
|
|
|
|
import Test.DocTest
|
|
import Test.HUnit
|
|
|
|
main = do
|
|
doctest
|
|
[ "-isrc"
|
|
, "-XOverloadedStrings"
|
|
, "System.Posix.FilePath"
|
|
]
|
|
runTestTT unitTests
|
|
|
|
|
|
unitTests :: Test
|
|
unitTests = test
|
|
[ TestCase $ do
|
|
r <- (==) <$> allDirectoryContents "." <*> allDirectoryContents' "."
|
|
assertBool "allDirectoryContents == allDirectoryContents'" r
|
|
]
|