From 6302d203a355f9b19323d42dbf057781ab1ba556 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Mon, 29 Jun 2009 11:08:36 +0000 Subject: [PATCH] add a test for getHomeDirectory et. al. --- tests/all.T | 3 +++ tests/getHomeDirectory001.hs | 8 ++++++++ 2 files changed, 11 insertions(+) create mode 100644 tests/getHomeDirectory001.hs 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 () -- 1.7.10.4