add a test for getHomeDirectory et. al.

[haskell-directory.git] / tests / getHomeDirectory001.hs

diff --git a/tests/getHomeDirectory001.hs b/tests/getHomeDirectory001.hs
new file mode 100644 (file)
index 0000000..ab3eae7
--- /dev/null
+++ b/tests/getHomeDirectory001.hs
@@ -0,0 +1,8 @@
+import System.Directory\r
+\r
+main = do\r
+  getHomeDirectory               >>= print\r
+  getAppUserDataDirectory "test" >>= print\r
+  getUserDocumentsDirectory      >>= print\r
+  getTemporaryDirectory          >>= print\r
+  return ()\r