blob: 1b5d47759167c6584904c940a19e81b7b51eed6e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
;;; Commentary:
;; Tests parse-endpoint-string, used for defining server routes.
;;; Code:
(define-module (test server)
:use-module (srfi srfi-64)
:use-module (srfi srfi-88)
:use-module ((web http make-routes)
:select (parse-endpoint-string))
:use-module ((hnh util) :select (let*)))
(test-assert "Check that parsing doesn't crash"
(parse-endpoint-string "/static/:dir/:file"))
;; Checks that parsing produces correct results
(let* ((path args (parse-endpoint-string "/static/:dir/:file")))
(test-equal "/static/([^/.]+)/([^/.]+)" path)
(test-equal '(dir file) args))
;; Checks that parsing with custom regex works
;; along with literal periods.
(let* ((path args (parse-endpoint-string "/static/:filename{.*}.:ext")))
(test-equal "/static/(.*)\\.([^/.]+)" path)
(test-equal '(filename ext) args))
|