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
|
{-# LANGUAGE CPP #-}
module CopyFile001 where
#include "util.inl"
import System.Directory.Internal
import System.OsPath ((</>))
import qualified Data.List as List
main :: TestEnv -> IO ()
main _t = do
createDirectory dir
writeFile (so (dir </> from)) contents
T(expectEq) () [from] . List.sort =<< listDirectory dir
copyFile (dir </> from) (dir </> to)
T(expectEq) () [from, to] . List.sort =<< listDirectory dir
T(expectEq) () contents =<< readFile (so (dir </> to))
-- Regression test for https://github.com/haskell/directory/issues/177
createDirectory "issue177"
T(expectIOErrorType) () isDoesNotExistError
(copyFile "issue177/nonexistentSrc" "issue177/dst")
T(expectEq) () [] =<< listDirectory "issue177"
where
contents = "This is the data\n"
from = "source"
to = "target"
dir = "dir"
|
