wtf, var wtf, pmap?

thread-local-bindings.clj

(ns parallel-clojure.core-test
  (:use clojure.test
        parallel-clojure.core))

(def ^:dynamic set-me 1)

(deftest varset-test
  (testing "value does not go into new thread"
    (binding [set-me 99]
      (let [thread (Thread. (fn [] (is (= set-me 1))))]
        (is (= set-me 99))
        (.start thread)
        (.join thread))))

  (testing "WTF PMAP??"
    (binding [set-me 99]
      (pmap (fn [_] (is (= set-me 1))) [1 2 3 4 5 6]))))