1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
{-# LANGUAGE CPP #-}
module Main where
import System.EasyFile
import Test.Tasty
import Test.Tasty.HUnit
main :: IO ()
main = defaultMain $
testCase "easy-file tests" $ do
assertEqual "Test that '/' is path separator"
("foo" </> "bar")
"foo/bar"
isRelative "foo" @?= True
isRelative "/foo" @?= isWindows
isRelative "c:foo" @?= True
isRelative "c:/foo" @?= not isWindows
isWindows :: Bool
isWindows =
#if defined(mingw32_HOST_OS) || defined(__MINGW32__)
True
#else
False
#endif
|
