blob: a2b3ea9d24a965181623a8f65058a7cd887923ce (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
;;; Commentary:
;; Tests parse-endpoint-string, used for defining server routes.
;;; Code:
(((web http make-routes) parse-endpoint-string)
((hnh util) 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))
|