14fddbe6c3
Give `require` the same features as `import` You can now do (require foo), (require [foo [a b c]]), (require [foo [*]]), and (require [foo :as bar]). The first and last forms get you macros named foo.a, foo.b, etc. or bar.a, bar.b, etc., respectively. The second form only gets the macros in the list. Implements #1118 and perhaps partly addresses #277. N.B. The new meaning of (require foo) will cause all existing code that uses macros to break. Simply replace these forms with (require [foo [*]]) to get your code working again. There's a bit of a hack involved in the forms (require foo) or (require [foo :as bar]). When you call (foo.a ...) or (bar.a ...), Hy doesn't actually look inside modules. Instead, these (require ...) forms give the macros names that have periods in them, which happens to work fine with the way Hy finds and interprets macro calls. * Make `require` syntax stricter and add tests * Update documentation for `require` * Documentation wording improvements * Allow :as in `require` name lists
54 lines
1.9 KiB
Hy
54 lines
1.9 KiB
Hy
(require [hy.contrib.meth [route post-route put-route delete-route]])
|
|
|
|
(defclass FakeMeth []
|
|
"Mocking decorator class"
|
|
[rules {}]
|
|
(defn route [self rule &kwargs options]
|
|
(fn [f]
|
|
(assoc self.rules rule (, f options))
|
|
f)))
|
|
|
|
(defn test_route []
|
|
(let [app (FakeMeth)]
|
|
(route get-index "/" [] (str "Hy world!"))
|
|
(setv app-rules (getattr app "rules"))
|
|
(assert (in "/" app-rules))
|
|
(let [(, rule-fun rule-opt) (get app-rules "/")]
|
|
(assert (not (empty? rule-opt)))
|
|
(assert (in "GET" (get rule-opt "methods")))
|
|
(assert (= (getattr rule-fun "__name__") "get_index"))
|
|
(assert (= "Hy world!" (rule-fun))))))
|
|
|
|
(defn test_post_route []
|
|
(let [app (FakeMeth)]
|
|
(post-route get-index "/" [] (str "Hy world!"))
|
|
(setv app-rules (getattr app "rules"))
|
|
(assert (in "/" app-rules))
|
|
(let [(, rule-fun rule-opt) (get app-rules "/")]
|
|
(assert (not (empty? rule-opt)))
|
|
(assert (in "POST" (get rule-opt "methods")))
|
|
(assert (= (getattr rule-fun "__name__") "get_index"))
|
|
(assert (= "Hy world!" (rule-fun))))))
|
|
|
|
(defn test_put_route []
|
|
(let [app (FakeMeth)]
|
|
(put-route get-index "/" [] (str "Hy world!"))
|
|
(setv app-rules (getattr app "rules"))
|
|
(assert (in "/" app-rules))
|
|
(let [(, rule-fun rule-opt) (get app-rules "/")]
|
|
(assert (not (empty? rule-opt)))
|
|
(assert (in "PUT" (get rule-opt "methods")))
|
|
(assert (= (getattr rule-fun "__name__") "get_index"))
|
|
(assert (= "Hy world!" (rule-fun))))))
|
|
|
|
(defn test_delete_route []
|
|
(let [app (FakeMeth)]
|
|
(delete-route get-index "/" [] (str "Hy world!"))
|
|
(setv app-rules (getattr app "rules"))
|
|
(assert (in "/" app-rules))
|
|
(let [(, rule-fun rule-opt) (get app-rules "/")]
|
|
(assert (not (empty? rule-opt)))
|
|
(assert (in "DELETE" (get rule-opt "methods")))
|
|
(assert (= (getattr rule-fun "__name__") "get_index"))
|
|
(assert (= "Hy world!" (rule-fun))))))
|