directory-1.2.2.0: tests/canonicalizePath001.hs

module Main (main) where
import System.Directory
import System.IO.Error (catchIOError)

main = do
  dot <- canonicalizePath "."
  nul <- canonicalizePath "" `catchIOError` \ _ -> return ""
  print (dot == nul)