Hi Chanwoo,
I think Meikel's approach of switching to the namespace is simpler,
but your "try 1" works for me. Is it possible that you need to reload
all the namespaces in your REPL to clear out some old code?
Try 2 cannot work because the defn* gets expanded at macro-time, and
the binding of *test* to true happens later.
Cheers,
Stuart
> I'm sorry for spamming.. In Stuart's book - 'Programming Clojure', I
> saw below paragraph:
>
> "1. Redeļ¬ne private to mean "private for production code, but public
> for serialization and unit tests".
> ...
>
> I have seen Java programs that needed all these features."
>
> So I decided to try what he referred to. I thought it will be trivial
> by using macros.. But shamefully, I couldn't do this simple job.. Here
> is my code, which does not work:
>
>
> ;;;;;;;;TRY 1;;;;;;;;;
> ;;defn_star.clj
> (ns defn-star)
>
> (def *test* (ref false))
>
> (defmacro defn*
> {:doc "If *test* is true, 'defn*' expands to 'defn', otherwise it
> expands to 'defn-'"}
> [& body]
> (if (true? @*test*)
> `(defn [EMAIL PROTECTED])
> `(defn- [EMAIL PROTECTED])))
>
> ;;temp.clj
> (ns temp
> (:use defn-star))
>
> (dosync (alter *test* #(not %)))
>
> (defn* sym->key
> {:doc "(sym->key 'abc) => :abc (sym->key nil) => nil"}
> [sym]
> (if (= "" (str sym))
> nil
> (keyword (str sym))))
>
> ;;test_temp.clj
> (ns test-temp
> (:use temp)
> (:use (clojure.contrib test-is))
>
> (deftest test-sym->key
> (is (= (sym->key 'abc) :abc)))
>
> (run-tests)
>
> ;;;;;;;;;;TRY 2;;;;;;;;;;
> ;;defn_star.clj
> (ns defn-star)
>
> (def *test* false)
>
> (defmacro defn*
> {:doc "If *test* is true, 'defn*' expands to 'defn', otherwise it
> expands to 'defn-'"}
> [& body]
> (if (true? *test*)
> `(defn [EMAIL PROTECTED])
> `(defn- [EMAIL PROTECTED])))
>
> ;;temp.clj
> (ns temp
> (:use defn-star))
>
> (binding [*test* true]
> (defn* sym->key
> {:doc "(sym->key 'abc) => :abc (sym->key nil) => nil"}
> [sym]
> (if (= "" (str sym))
> nil
> (keyword (str sym)))))
>
> ;;test_temp.clj
> (ns test-temp
> (:use temp)
> (:use (clojure.contrib test-is))
>
> (deftest test-sym->key
> (is (= (sym->key 'abc) :abc)))
>
> (run-tests)
>
> In both cases, tests can not recognize 'sym->key'. Though I (:use
> defn-
> star), it seems that *test* variable is not referred by 'temp'. Ahh..
> maybe I think that I didn't properly understand about namespaces. Is
> there any elegant way to achieve testing private functions? Any
> suggestion appreciated.
> >
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups
"Clojure" group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to [EMAIL PROTECTED]
For more options, visit this group at
http://groups.google.com/group/clojure?hl=en
-~----------~----~----~----~------~----~------~--~---
