mirror of
https://github.com/metosin/reitit.git
synced 2026-01-28 17:00:34 +00:00
12 lines
438 B
Clojure
12 lines
438 B
Clojure
(ns reitit.impl-test
|
|
(:require [clojure.test :refer [deftest testing is are]]
|
|
[reitit.impl :as impl]))
|
|
|
|
(deftest segments-test
|
|
(is (= ["" "api" "ipa" "beer" "craft" "bisse"]
|
|
(into [] (impl/segments "/api/ipa/beer/craft/bisse"))))
|
|
(is (= ["" "a" "" "b" "" "c" ""]
|
|
(into [] (impl/segments "/a//b//c/")))))
|
|
|
|
(deftest strip-nils-test
|
|
(is (= {:a 1, :c false} (impl/strip-nils {:a 1, :b nil, :c false}))))
|