From: Simon Marlow <marlowsd@gmail.com>
Date: Mon, 29 Jun 2009 11:08:36 +0000 (+0000)
Subject: add a test for getHomeDirectory et. al.
X-Git-Tag: ghc-darcs-git-switchover~22
X-Git-Url: http://git.megacz.com/?p=haskell-directory.git;a=commitdiff_plain;h=6302d203a355f9b19323d42dbf057781ab1ba556

add a test for getHomeDirectory et. al.
---

diff --git a/tests/all.T b/tests/all.T
index 2677813..a25fe2e 100644
--- a/tests/all.T
+++ b/tests/all.T
@@ -19,3 +19,6 @@ test('renameFile001', extra_clean(['renameFile001.tmp1','renameFile001.tmp2']),
 test('createDirectory001',  normal, compile_and_run, [''])
 
 test('createDirectoryIfMissing001',  normal, compile_and_run, [''])
+
+# No sane way to tell whether the output is reasonable here...
+test('getHomeDirectory001',  ignore_output, compile_and_run, [''])
diff --git a/tests/getHomeDirectory001.hs b/tests/getHomeDirectory001.hs
new file mode 100644
index 0000000..ab3eae7
--- /dev/null
+++ b/tests/getHomeDirectory001.hs
@@ -0,0 +1,8 @@
+import System.Directory
+
+main = do
+  getHomeDirectory               >>= print
+  getAppUserDataDirectory "test" >>= print
+  getUserDocumentsDirectory      >>= print
+  getTemporaryDirectory          >>= print
+  return ()