summaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
authoreltrac <hi@eltr.ac>2026-09-10 11:11:10 +0800
committereltrac <hi@eltr.ac>2026-09-10 11:11:10 +0800
commit7202a9040bc84536f53aea1aed25ecdd9ce8beb8 (patch)
treeca1fad0963574a5ce69c993ac3c377c0af478bab /test
parent72fdf4d8eaf44986c2b09f32cc0bdf7055840edd (diff)
test(utils): valid-http-url-test add non-ASCII url test cases
Diffstat (limited to 'test')
-rw-r--r--test/weepinbell/utils_test.clj6
1 files changed, 6 insertions, 0 deletions
diff --git a/test/weepinbell/utils_test.clj b/test/weepinbell/utils_test.clj
index f493440..48172a9 100644
--- a/test/weepinbell/utils_test.clj
+++ b/test/weepinbell/utils_test.clj
@@ -22,6 +22,7 @@
(deftest valid-http-url-test
(testing "Testing valid-http-url?"
+ ;; invalid cases
(is (= (utils/valid-http-url? "ssh://example.com/http/")
false))
(is (= (utils/valid-http-url? "shttp://example.com/")
@@ -34,9 +35,14 @@
false))
(is (= (utils/valid-http-url? "http://localhost/path")
false))
+ (is (= (utils/valid-http-url? "http://example.com/测试")
+ false))
+ ;; valid cases
(is (= (utils/valid-http-url? "https://www.example.com/path?query=string#anchor")
true))
(is (= (utils/valid-http-url? "http://simple.top")
+ true))
+ (is (= (utils/valid-http-url? "https://example.com/%2F%E5%8C%85%E5%90%AB%E9%9D%9EASCII%E5%AD%97%E7%AC%A6%E7%9A%84%E4%BE%8B%E5%AD%90")
true))))
(deftest format-list-test