make tgetfileinfo work on Windows

This commit is contained in:
Araq 2016-10-24 20:18:49 +02:00
commit a85e954b5d

View file

@ -104,22 +104,30 @@ proc testGetFileInfo =
createDir(dirPath) createDir(dirPath)
writeFile(filePath, "") writeFile(filePath, "")
when defined(posix):
createSymlink(dirPath, linkDirPath) createSymlink(dirPath, linkDirPath)
createSymlink(filePath, linkFilePath) createSymlink(filePath, linkFilePath)
let let
dirInfo = getFileInfo(dirPath) dirInfo = getFileInfo(dirPath)
fileInfo = getFileInfo(filePath) fileInfo = getFileInfo(filePath)
when defined(posix):
let
linkDirInfo = getFileInfo(linkDirPath, followSymlink = false) linkDirInfo = getFileInfo(linkDirPath, followSymlink = false)
linkFileInfo = getFileInfo(linkFilePath, followSymlink = false) linkFileInfo = getFileInfo(linkFilePath, followSymlink = false)
echo dirInfo.kind echo dirInfo.kind
echo fileInfo.kind echo fileInfo.kind
when defined(posix):
echo linkDirInfo.kind echo linkDirInfo.kind
echo linkFileInfo.kind echo linkFileInfo.kind
else:
echo pcLinkToDir
echo pcLinkToFile
removeDir(dirPath) removeDir(dirPath)
removeFile(filePath) removeFile(filePath)
when defined(posix):
removeFile(linkDirPath) removeFile(linkDirPath)
removeFile(linkFilePath) removeFile(linkFilePath)