diff options
| author | David Thompson <dthompson2@worcester.edu> | 2014-09-12 21:08:30 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2014-09-12 21:45:06 -0400 |
| commit | 9228daab4b52c1e9691140c9a1bbac9625ded646 (patch) | |
| tree | 7ca2b94a3b41f20f2e0ebf6169132440d344d804 | |
| parent | 6d1efe3c266e0990bcd114aa14935f31a00d56dd (diff) | |
test: Fix directory? test.
* tests/guix-web/util.scm ("directory?"): Use getcwd instead of ".".
| -rw-r--r-- | tests/guix-web/util.scm | 4 |
1 files changed, 2 insertions, 2 deletions
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))))) |