From fa0bde837292f18a9f1bd61473ff4798008f4304 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Fri, 29 Aug 2014 23:44:55 -0400 Subject: Add first unit tests. * tests/guix-web/util.scm: New file. --- tests/guix-web/util.scm | 48 ++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 48 insertions(+) create mode 100644 tests/guix-web/util.scm (limited to 'tests') diff --git a/tests/guix-web/util.scm b/tests/guix-web/util.scm new file mode 100644 index 0000000..a796f78 --- /dev/null +++ b/tests/guix-web/util.scm @@ -0,0 +1,48 @@ +;;; guix-web - Web interface for GNU Guix +;;; Copyright © 2014 David Thompson +;;; +;;; This program is free software: you can redistribute it and/or +;;; modify it under the terms of the GNU Affero General Public License +;;; as published by the Free Software Foundation, either version 3 of +;;; the License, or (at your option) any later version. +;;; +;;; This program is distributed in the hope that it will be useful, +;;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;;; Affero General Public License for more details. +;;; +;;; You should have received a copy of the GNU Affero General Public +;;; License along with this program. If not, see +;;; . + +(define-module (test guix-web util) + #:use-module (srfi srfi-64) + #:use-module (web request) + #:use-module (web uri) + #:use-module (guix-web util)) + +(test-begin "util") + +(test-equal "parse-query-string" + '(("foo" . "1") ("bar" . "hello world")) + (parse-query-string "foo=1&bar=hello%20world")) + +(test-equal "request-path-components" + '("foo" "bar" "baz.html") + (request-path-components + (build-request (string->uri "http://127.0.0.1/foo/bar/baz.html")))) + +(test-equal "file-extension" + "js" + (file-extension "foo.js")) + +(test-group "directory?" + (test-assert "when file is a directory" + (not (directory? "."))) + + (test-assert "when file is not a directory" + (not (directory? (current-filename))))) + +(test-end) + +(exit (= (test-runner-fail-count (test-runner-current)) 0)) -- cgit v1.2.3