diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-02 19:26:40 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-02 19:28:44 +0200 |
commit | 712654d4c023a2ab13190c6905d313e0ba897965 (patch) | |
tree | b8505b420d6621022fa6a46271340071d8881322 /tests/unit/web-util | |
parent | Made displayln into a library export. (diff) | |
download | calp-712654d4c023a2ab13190c6905d313e0ba897965.tar.gz calp-712654d4c023a2ab13190c6905d313e0ba897965.tar.xz |
Rewrite test running system.
Diffstat (limited to '')
-rw-r--r-- | tests/unit/web-util/server.scm (renamed from tests/test/server.scm) | 3 | ||||
-rw-r--r-- | tests/unit/web-util/web-query.scm (renamed from tests/test/web-query.scm) | 3 |
2 files changed, 6 insertions, 0 deletions
diff --git a/tests/test/server.scm b/tests/unit/web-util/server.scm index a6200cb8..c81abba3 100644 --- a/tests/test/server.scm +++ b/tests/unit/web-util/server.scm @@ -26,3 +26,6 @@ (let ((path args (parse-endpoint-string "/static/:filename{.*}.:ext"))) (test-equal "Path" "/static/(.*)\\.([^/.]+)" path) (test-equal "Parameters" '(filename ext) args))) + + +'((web http make-routes)) diff --git a/tests/test/web-query.scm b/tests/unit/web-util/web-query.scm index 0555258b..ec20b0c1 100644 --- a/tests/test/web-query.scm +++ b/tests/unit/web-util/web-query.scm @@ -32,3 +32,6 @@ ;; I don't know if HTTP allows this, but my code works like this (test-equal "Value with equal in it" '(key: "=") (parse-query "key==")) + + +'((web query)) |