test(*): reduce redundant busted wrapper macros (#117)

Author: aileot

test/commands.fnl-prefixed_spec.fnl

@@ -1,5 +1,4 @@
-(import-macros {: setup* : before-each : describe* : it*}
-               :test.helper.busted-macros)
+(import-macros {: describe* : it*} :test.helper.busted-macros)
 
 (include :test.helper.prerequisites)
 

test/dropin.cmdwin_spec.fnl

@@ -1,5 +1,4 @@
-(import-macros {: setup* : before-each : describe* : it*}
-               :test.helper.busted-macros)
+(import-macros {: describe* : it*} :test.helper.busted-macros)
 
 (include :test.helper.prerequisites)
 

test/helper/busted-macros.fnl

@@ -20,13 +20,6 @@ constructor.
       `#(do
           ,...)))
 
-(λ inject-fn [name ...]
-  "Construct busted wrapper.
-@param name string busted method name
-@param ... list a function, or any number of list to be wrapped into a function."
-  (assert (< 0 (select "#" ...)) "expected one or more args")
-  `(,name ,(->fn ...)))
-
 (λ inject-desc-fn [name desc ...]
   "Construct busted wrapper.
 @param name string busted method name
@@ -36,29 +29,9 @@ constructor.
     (assert (< 0 (select "#" ...)) "expected one or more args"))
   `(,name ,desc ,(->fn ...)))
 
-(local after_each* (partial inject-fn `after_each))
-(local before_each* (partial inject-fn `before_each))
 (local describe* (partial inject-desc-fn `describe))
 (local expose* (partial inject-desc-fn `expose))
 (local insulate* (partial inject-desc-fn `insulate))
 (local it* (partial inject-desc-fn `it))
-(local setup* (partial inject-fn `setup))
-(local teardown* (partial inject-fn `teardown))
-
-;; (fn pending* [desc ...]
-;;   ;; WIP
-;;   (if (= :string (type desc))
-;;       (inject-desc-fn `pending desc ...)
-;;       (inject-fn `pending desc ...)))
 
-{: after_each*
- : before_each*
- :after-each after_each*
- :before-each before_each*
- : describe*
- : expose*
- : insulate*
- : it*
- ;; :pending pending*
- : setup*
- : teardown*}
+{: describe* : expose* : insulate* : it*}