module Main (main) where import qualified Util as T import qualified CanonicalizePath import qualified CopyFile001 import qualified CopyFile002 import qualified CopyFileWithMetadata import qualified CreateDirectory001 import qualified CreateDirectoryIfMissing001 import qualified CurrentDirectory001 import qualified Directory001 import qualified DoesDirectoryExist001 import qualified FileTime import qualified FindFile001 import qualified GetDirContents001 import qualified GetDirContents002 import qualified GetHomeDirectory001 import qualified GetPermissions001 import qualified IsSymbolicLink import qualified RemoveDirectoryRecursive001 import qualified RenameDirectory import qualified RenameFile001 import qualified Safe import qualified T8482 import qualified WithCurrentDirectory main :: IO () main = T.testMain $ \ _t -> do T.isolatedRun _t "CanonicalizePath" CanonicalizePath.main T.isolatedRun _t "CopyFile001" CopyFile001.main T.isolatedRun _t "CopyFile002" CopyFile002.main T.isolatedRun _t "CopyFileWithMetadata" CopyFileWithMetadata.main T.isolatedRun _t "CreateDirectory001" CreateDirectory001.main T.isolatedRun _t "CreateDirectoryIfMissing001" CreateDirectoryIfMissing001.main T.isolatedRun _t "CurrentDirectory001" CurrentDirectory001.main T.isolatedRun _t "Directory001" Directory001.main T.isolatedRun _t "DoesDirectoryExist001" DoesDirectoryExist001.main T.isolatedRun _t "FileTime" FileTime.main T.isolatedRun _t "FindFile001" FindFile001.main T.isolatedRun _t "GetDirContents001" GetDirContents001.main T.isolatedRun _t "GetDirContents002" GetDirContents002.main T.isolatedRun _t "GetHomeDirectory001" GetHomeDirectory001.main T.isolatedRun _t "GetPermissions001" GetPermissions001.main T.isolatedRun _t "IsSymbolicLink" IsSymbolicLink.main T.isolatedRun _t "RemoveDirectoryRecursive001" RemoveDirectoryRecursive001.main T.isolatedRun _t "RenameDirectory" RenameDirectory.main T.isolatedRun _t "RenameFile001" RenameFile001.main T.isolatedRun _t "Safe" Safe.main T.isolatedRun _t "T8482" T8482.main T.isolatedRun _t "WithCurrentDirectory" WithCurrentDirectory.main