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
|
||
|
]
|