From 9228daab4b52c1e9691140c9a1bbac9625ded646 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Fri, 12 Sep 2014 21:08:30 -0400
Subject: test: Fix directory? test.

* tests/guix-web/util.scm ("directory?"): Use getcwd instead of ".".
---
 tests/guix-web/util.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'tests')

diff --git a/tests/guix-web/util.scm b/tests/guix-web/util.scm
index a796f78..e2b97fb 100644
--- a/tests/guix-web/util.scm
+++ b/tests/guix-web/util.scm
@@ -15,7 +15,7 @@
 ;;; License along with this program.  If not, see
 ;;; <http://www.gnu.org/licenses/>.
 
-(define-module (test guix-web util)
+(define-module (tests guix-web util)
   #:use-module (srfi srfi-64)
   #:use-module (web request)
   #:use-module (web uri)
@@ -38,7 +38,7 @@
 
 (test-group "directory?"
   (test-assert "when file is a directory"
-    (not (directory? ".")))
+    (not (directory? (getcwd))))
 
   (test-assert "when file is not a directory"
     (not (directory? (current-filename)))))
-- 
cgit v1.2.3