Browse files

Merge branch 'develop'

  • Loading branch information...
2 parents 82efef7 + 78b4714 commit 541346544e7313f6d4fff4ba99cac9a56915076f @ninjudd ninjudd committed Nov 16, 2012
Showing with 120 additions and 120 deletions.
  1. +1 −1 project.clj
  2. +1 −1 src/{ → flatland}/useful/bean.clj
  3. +3 −3 src/{ → flatland}/useful/cli.clj
  4. +1 −1 src/{ → flatland}/useful/compress.clj
  5. +1 −1 src/{ → flatland}/useful/config.clj
  6. +2 −2 src/{ → flatland}/useful/core.clj
  7. +4 −4 src/{ → flatland}/useful/datatypes.clj
  8. +1 −1 src/{ → flatland}/useful/debug.clj
  9. +3 −3 src/{ → flatland}/useful/deftype.clj
  10. +4 −4 src/{ → flatland}/useful/dispatch.clj
  11. +1 −1 src/{ → flatland}/useful/exception.clj
  12. +5 −5 src/{ → flatland}/useful/experimental.clj
  13. +3 −3 src/{ → flatland}/useful/experimental/delegate.clj
  14. +12 −0 src/flatland/useful/experimental/unicode.clj
  15. +1 −1 src/{ → flatland}/useful/fn.clj
  16. +2 −2 src/{ → flatland}/useful/io.clj
  17. +1 −1 src/{ → flatland}/useful/java.clj
  18. +1 −1 src/{ → flatland}/useful/macro.clj
  19. +3 −3 src/{ → flatland}/useful/map.clj
  20. +1 −1 src/{ → flatland}/useful/ns.clj
  21. +2 −2 src/{ → flatland}/useful/parallel.clj
  22. +3 −3 src/{ → flatland}/useful/seq.clj
  23. +4 −4 src/{ → flatland}/useful/state.clj
  24. +1 −1 src/{ → flatland}/useful/string.clj
  25. +1 −1 src/{ → flatland}/useful/test.clj
  26. +1 −1 src/{ → flatland}/useful/time.clj
  27. +3 −3 src/{ → flatland}/useful/utils.clj
  28. +0 −12 src/useful/experimental/unicode.clj
  29. +2 −2 test/{ → flatland}/useful/bean_test.clj
  30. +2 −2 test/{ → flatland}/useful/cli_test.clj
  31. +2 −2 test/{ → flatland}/useful/compress_test.clj
  32. +3 −3 test/{ → flatland}/useful/config_test.clj
  33. +2 −2 test/{ → flatland}/useful/datatypes_test.clj
  34. +2 −2 test/{ → flatland}/useful/debug_test.clj
  35. +2 −2 test/{ → flatland}/useful/deftype_test.clj
  36. +2 −2 test/{ → flatland}/useful/dispatch_test.clj
  37. +2 −2 test/{ → flatland}/useful/exception_test.clj
  38. +7 −7 test/{ → flatland}/useful/experimental_test.clj
  39. +2 −2 test/{ → flatland}/useful/fn_test.clj
  40. +2 −2 test/{ → flatland}/useful/io_test.clj
  41. +2 −2 test/{ → flatland}/useful/java_test.clj
  42. +2 −2 test/{ → flatland}/useful/macro_test.clj
  43. +2 −2 test/{ → flatland}/useful/map_test.clj
  44. +6 −6 test/{ → flatland}/useful/ns_test.clj
  45. +2 −2 test/{ → flatland}/useful/parallel_test.clj
  46. +2 −2 test/{ → flatland}/useful/seq_test.clj
  47. +2 −2 test/{ → flatland}/useful/state_test.clj
  48. +2 −2 test/{ → flatland}/useful/string_test.clj
  49. +2 −2 test/{ → flatland}/useful/test_test.clj
  50. +2 −2 test/{ → flatland}/useful/utils_test.clj
View
2 project.clj
@@ -1,4 +1,4 @@
-(defproject useful "0.8.8"
+(defproject org.flatland/useful "0.9.0"
:description "A collection of generally-useful Clojure utility functions"
:license {:name "Eclipse Public License - v 1.0"
:url "http://www.eclipse.org/legal/epl-v10.html"
View
2 src/useful/bean.clj → src/flatland/useful/bean.clj
@@ -1,4 +1,4 @@
-(ns useful.bean
+(ns flatland.useful.bean
"Modify bean attributes in clojure."
(:require [clojure.string :as s])
(:import (java.beans Introspector PropertyDescriptor)
View
6 src/useful/cli.clj → src/flatland/useful/cli.clj
@@ -1,6 +1,6 @@
-(ns useful.cli
- (:use [useful.experimental :only [cond-let]]
- [useful.map :only [update]]))
+(ns flatland.useful.cli
+ (:use [flatland.useful.experimental :only [cond-let]]
+ [flatland.useful.map :only [update]]))
(defn- parse-opt [default opts arg]
(let [m re-matches
View
2 src/useful/compress.clj → src/flatland/useful/compress.clj
@@ -1,4 +1,4 @@
-(ns useful.compress
+(ns flatland.useful.compress
(:import [java.util.zip DeflaterOutputStream InflaterInputStream]
[java.io ByteArrayOutputStream ByteArrayInputStream]
[sun.misc BASE64Decoder BASE64Encoder]))
View
2 src/useful/config.clj → src/flatland/useful/config.clj
@@ -1,4 +1,4 @@
-(ns useful.config
+(ns flatland.useful.config
(:require [clojure.java.io :as io]))
(defn read-config [filename & {:keys [optional]}]
View
4 src/useful/core.clj → src/flatland/useful/core.clj
@@ -1,5 +1,5 @@
-(ns useful.core
- (:use [useful.ns :only [alias-ns]]))
+(ns flatland.useful.core
+ (:use [flatland.useful.ns :only [alias-ns]]))
(doseq [module '(bean cli compress datatypes debug dispatch experimental experimental.unicode fn io java macro map parallel seq state string test utils)]
(alias-ns (symbol (str "useful." module))))
View
8 src/useful/datatypes.clj → src/flatland/useful/datatypes.clj
@@ -1,7 +1,7 @@
-(ns useful.datatypes
- (:use [useful.map :only [position into-map update]]
- [useful.utils :only [invoke]]
- [useful.fn :only [fix]])
+(ns flatland.useful.datatypes
+ (:use [flatland.useful.map :only [position into-map update]]
+ [flatland.useful.utils :only [invoke]]
+ [flatland.useful.fn :only [fix]])
(:require [clojure.string :as s])
(:import (java.lang.reflect Field)
(clojure.lang Compiler$LocalBinding)))
View
2 src/useful/debug.clj → src/flatland/useful/debug.clj
@@ -1,4 +1,4 @@
-(ns useful.debug)
+(ns flatland.useful.debug)
;; leave out of ns decl so we can load with classlojure.io/resource-forms
(require '[clojure.pprint :as p])
View
6 src/useful/deftype.clj → src/flatland/useful/deftype.clj
@@ -1,6 +1,6 @@
-(ns useful.deftype
- (:use [useful.experimental.delegate :only [parse-deftype-specs emit-deftype-specs]]
- [useful.map :only [merge-in]])
+(ns flatland.useful.deftype
+ (:use [flatland.useful.experimental.delegate :only [parse-deftype-specs emit-deftype-specs]]
+ [flatland.useful.map :only [merge-in]])
(:require [clojure.string :as s])
(:import (clojure.lang IObj MapEntry IPersistentVector
IPersistentMap APersistentMap MapEquivalence)
View
8 src/useful/dispatch.clj → src/flatland/useful/dispatch.clj
@@ -1,7 +1,7 @@
-(ns useful.dispatch
- (:use [useful.map :only [into-map]]
- [useful.fn :only [any]]
- [useful.utils :only [verify]]))
+(ns flatland.useful.dispatch
+ (:use [flatland.useful.map :only [into-map]]
+ [flatland.useful.fn :only [any]]
+ [flatland.useful.utils :only [verify]]))
(defn get-sub-type [hierarchy ns]
(let [sub-type (get hierarchy ns)]
View
2 src/useful/exception.clj → src/flatland/useful/exception.clj
@@ -1,4 +1,4 @@
-(ns useful.exception
+(ns flatland.useful.exception
(:use [clojure.stacktrace :only [print-cause-trace]]
[clojure.string :only [split-lines trim]]))
View
10 src/useful/experimental.clj → src/flatland/useful/experimental.clj
@@ -1,9 +1,9 @@
-(ns useful.experimental
- (:use [useful.utils :only [split-vec]]
- [useful.seq :only [alternates find-first]]
- [useful.map :only [keyed]]
+(ns flatland.useful.experimental
+ (:use [flatland.useful.utils :only [split-vec]]
+ [flatland.useful.seq :only [alternates find-first]]
+ [flatland.useful.map :only [keyed]]
[clojure.tools.macro :only [name-with-attributes]]
- [useful.fn :only [any as-fn knit]]))
+ [flatland.useful.fn :only [any as-fn knit]]))
(defn comp-partial
"A version of comp that \"rescues\" the first N args, passing them to every composed function
View
6 src/useful/experimental/delegate.clj → ...flatland/useful/experimental/delegate.clj
@@ -1,6 +1,6 @@
-(ns useful.experimental.delegate
- (:use useful.debug)
- (:require [useful.ns :as ns]))
+(ns flatland.useful.experimental.delegate
+ (:use flatland.useful.debug)
+ (:require [flatland.useful.ns :as ns]))
(defn canonical-name
"Resolve a symbol in the current namespace; but intead of returning its value,
View
12 src/flatland/useful/experimental/unicode.clj
@@ -0,0 +1,12 @@
+(ns ^{:dont-test "Just aliases for other functions/macros"}
+ flatland.useful.experimental.unicode
+ (:use [flatland.useful.utils :only [map-entry]]
+ [flatland.useful.macro :only [macro-do]]
+ [flatland.useful.ns :only [defalias]]))
+
+(macro-do [dest src]
+ `(defalias ~dest ~src)
+ ∮ map-entry
+ ! complement
+ ∘ comp
+ φ partial)
View
2 src/useful/fn.clj → src/flatland/useful/fn.clj
@@ -1,4 +1,4 @@
-(ns useful.fn)
+(ns flatland.useful.fn)
(def ! complement)
View
4 src/useful/io.clj → src/flatland/useful/io.clj
@@ -1,6 +1,6 @@
-(ns useful.io
+(ns flatland.useful.io
(:use [clojure.java.io :only [reader]]
- [useful.ns :only [defalias]])
+ [flatland.useful.ns :only [defalias]])
(:import (java.io Reader PushbackReader
ByteArrayInputStream ByteArrayOutputStream
DataOutputStream DataInputStream)))
View
2 src/useful/java.clj → src/flatland/useful/java.clj
@@ -1,4 +1,4 @@
-(ns useful.java
+(ns flatland.useful.java
(:import (java.lang.reflect Method)))
(defn ^{:dont-test "Can't test killing the JVM"} abort
View
2 src/useful/macro.clj → src/flatland/useful/macro.clj
@@ -1,4 +1,4 @@
-(ns useful.macro
+(ns flatland.useful.macro
(:use [clojure.tools.macro :only [macrolet]]))
(defmacro anon-macro
View
6 src/useful/map.clj → src/flatland/useful/map.clj
@@ -1,6 +1,6 @@
-(ns useful.map
- (:use [useful.utils :only [map-entry pop-if]]
- [useful.fn :only [to-fix !]]))
+(ns flatland.useful.map
+ (:use [flatland.useful.utils :only [map-entry pop-if]]
+ [flatland.useful.fn :only [to-fix !]]))
(let [transforms {:keys keyword
:strs str
View
2 src/useful/ns.clj → src/flatland/useful/ns.clj
@@ -1,4 +1,4 @@
-(ns useful.ns)
+(ns flatland.useful.ns)
(defn var-name
"Get the namespace-qualified name of a var."
View
4 src/useful/parallel.clj → src/flatland/useful/parallel.clj
@@ -1,5 +1,5 @@
-(ns useful.parallel
- (:use [useful.seq :only [slice]]))
+(ns flatland.useful.parallel
+ (:use [flatland.useful.seq :only [slice]]))
(def ^{:dynamic true} *pcollect-thread-num* (.. Runtime getRuntime availableProcessors))
View
6 src/useful/seq.clj → src/flatland/useful/seq.clj
@@ -1,6 +1,6 @@
-(ns useful.seq
- (:use [useful.fn :only [decorate]]
- [useful.utils :only [pair]])
+(ns flatland.useful.seq
+ (:use [flatland.useful.fn :only [decorate]]
+ [flatland.useful.utils :only [pair]])
(:import (java.util.concurrent LinkedBlockingQueue
BlockingQueue)))
View
8 src/useful/state.clj → src/flatland/useful/state.clj
@@ -1,6 +1,6 @@
-(ns useful.state
- (:require [useful.time :as time])
- (:use [useful.utils :only [returning]])
+(ns flatland.useful.state
+ (:require [flatland.useful.time :as time])
+ (:use [flatland.useful.utils :only [returning]])
(:import [clojure.lang IDeref IObj]
[java.util.concurrent ScheduledThreadPoolExecutor ThreadFactory]))
@@ -85,7 +85,7 @@
(doto (Thread. r)
(.setDaemon true)))))]
(defn periodic-recompute
- "Takes a thunk and a duration (from useful.time), and yields a function
+ "Takes a thunk and a duration (from flatland.useful.time), and yields a function
that attempts to pre-cache calls to that thunk. The first time you call
the returned function, it starts a background thread that re-computes the
thunk's result according to the requested duration.
View
2 src/useful/string.clj → src/flatland/useful/string.clj
@@ -1,4 +1,4 @@
-(ns useful.string
+(ns flatland.useful.string
(:require [clojure.string :as s]))
(defn camelize [string]
View
2 src/useful/test.clj → src/flatland/useful/test.clj
@@ -1,4 +1,4 @@
-(ns useful.test
+(ns flatland.useful.test
(:use [clojure.tools.macro :only [macrolet]]))
(defmacro with-test-tags [tags & body]
View
2 src/useful/time.clj → src/flatland/useful/time.clj
@@ -1,4 +1,4 @@
-(ns useful.time
+(ns flatland.useful.time
(:import [java.util.concurrent TimeUnit]))
(def ^{:doc "Convert a Clojure keyword into a java.util.concurrent.TimeUnit"
View
6 src/useful/utils.clj → src/flatland/useful/utils.clj
@@ -1,6 +1,6 @@
-(ns useful.utils
+(ns flatland.useful.utils
(:use [clojure.walk :only [walk]]
- [useful.fn :only [decorate ignoring-nils fix]]
+ [flatland.useful.fn :only [decorate ignoring-nils fix]]
[clojure.tools.macro :only [symbol-macrolet]])
(:import (clojure.lang IDeref ISeq IPersistentMap IPersistentSet IPersistentCollection)))
@@ -175,7 +175,7 @@
(defmacro map-entry
"Create a clojure.lang.MapEntry from a and b. Equivalent to a cons cell.
- useful.experimental.unicode contains a shortcut to this, named ·."
+ flatland.useful.experimental.unicode contains a shortcut to this, named ·."
[a b]
`(clojure.lang.MapEntry. ~a ~b))
View
12 src/useful/experimental/unicode.clj
@@ -1,12 +0,0 @@
-(ns ^{:dont-test "Just aliases for other functions/macros"}
- useful.experimental.unicode
- (:use [useful.utils :only [map-entry]]
- [useful.macro :only [macro-do]]
- [useful.ns :only [defalias]]))
-
-(macro-do [dest src]
- `(defalias ~dest ~src)
- ∮ map-entry
- ! complement
- ∘ comp
- φ partial)
View
4 test/useful/bean_test.clj → test/flatland/useful/bean_test.clj
@@ -1,5 +1,5 @@
-(ns useful.bean-test
- (:use clojure.test useful.bean)
+(ns flatland.useful.bean-test
+ (:use clojure.test flatland.useful.bean)
(:import (java.beans PropertyDescriptor)))
(defmethod coerce [Boolean/TYPE nil] [_ _ val] false)
View
4 test/useful/cli_test.clj → test/flatland/useful/cli_test.clj
@@ -1,5 +1,5 @@
-(ns useful.cli-test
- (:use clojure.test useful.cli))
+(ns flatland.useful.cli-test
+ (:use clojure.test flatland.useful.cli))
(deftest test-parse-opts
(is (= {:foo ["a"] :bar [""]} (parse-opts ["--foo=a" "--bar"]))))
View
4 test/useful/compress_test.clj → test/flatland/useful/compress_test.clj
@@ -1,5 +1,5 @@
-(ns useful.compress-test
- (:use clojure.test useful.compress))
+(ns flatland.useful.compress-test
+ (:use clojure.test flatland.useful.compress))
(deftest round-trip
View
6 test/useful/config_test.clj → test/flatland/useful/config_test.clj
@@ -1,5 +1,5 @@
-(ns useful.config-test
- (:use clojure.test useful.config))
+(ns flatland.useful.config-test
+ (:use clojure.test flatland.useful.config))
(deftest reading
(is (= '{size 1} (read-config "config1.clj")))
@@ -17,4 +17,4 @@
(is (thrown-with-msg? java.io.FileNotFoundException #"Cannot find config resource config3.clj"
(load-config "config3.clj")))
- (is (= nil (load-config "config3.clj" :optional true))))
+ (is (= nil (load-config "config3.clj" :optional true))))
View
4 test/useful/datatypes_test.clj → test/flatland/useful/datatypes_test.clj
@@ -1,5 +1,5 @@
-(ns useful.datatypes-test
- (:use clojure.test useful.datatypes))
+(ns flatland.useful.datatypes-test
+ (:use clojure.test flatland.useful.datatypes))
(deftest test-as-int
(are [in out] (= (as-int in) out)
View
4 test/useful/debug_test.clj → test/flatland/useful/debug_test.clj
@@ -1,5 +1,5 @@
-(ns useful.debug-test
- (use useful.debug clojure.test))
+(ns flatland.useful.debug-test
+ (use flatland.useful.debug clojure.test))
(defmacro test-? [form]
`(let [form# '~form
View
4 test/useful/deftype_test.clj → test/flatland/useful/deftype_test.clj
@@ -1,5 +1,5 @@
-(ns useful.deftype-test
- (:use clojure.test useful.deftype))
+(ns flatland.useful.deftype-test
+ (:use clojure.test flatland.useful.deftype))
(defn is-valid-map [inst]
(let [m (into (empty inst)
View
4 test/useful/dispatch_test.clj → test/flatland/useful/dispatch_test.clj
@@ -1,5 +1,5 @@
-(ns useful.dispatch-test
- (:use clojure.test useful.dispatch
+(ns flatland.useful.dispatch-test
+ (:use clojure.test flatland.useful.dispatch
[clojure.walk :only [stringify-keys]]))
(deftest test-dispatcher-fn
View
4 test/useful/exception_test.clj → test/flatland/useful/exception_test.clj
@@ -1,5 +1,5 @@
-(ns useful.exception-test
- (:use clojure.test useful.exception))
+(ns flatland.useful.exception-test
+ (:use clojure.test flatland.useful.exception))
(deftest test-rescue
(is (= nil (rescue (/ 9 0) nil)))
View
14 test/useful/experimental_test.clj → test/flatland/useful/experimental_test.clj
@@ -1,8 +1,8 @@
-(ns useful.experimental-test
- (:use clojure.test useful.map
- useful.experimental
- useful.experimental.delegate)
- (:require [useful.utils :as utils]))
+(ns flatland.useful.experimental-test
+ (:use clojure.test flatland.useful.map
+ flatland.useful.experimental
+ flatland.useful.experimental.delegate)
+ (:require [flatland.useful.utils :as utils]))
(deftest test-while-let
(let [a (atom '(1 2 3 4 5))]
@@ -95,7 +95,7 @@
(is (= 2 (with-bindings {wrappers (list (fn [f]
(fn [x]
(let [ret (f x)]
- (reset! call-log [(-> wrappers deref meta :useful.experimental/call-data :fn-name) x ret])
+ (reset! call-log [(-> wrappers deref meta :flatland.useful.experimental/call-data :fn-name) x ret])
ret))))}
(my-inc 1))))
(testing "Wrapping-related metadata bound correctly"
@@ -179,4 +179,4 @@
(deftest canonical-name-test
(is (= 'clojure.core/inc (canonical-name 'inc)))
(is (= 'java.lang.Object (canonical-name 'Object)))
- (is (= 'useful.utils/adjoin (canonical-name `utils/adjoin))))
+ (is (= 'flatland.useful.utils/adjoin (canonical-name `utils/adjoin))))
View
4 test/useful/fn_test.clj → test/flatland/useful/fn_test.clj
@@ -1,5 +1,5 @@
-(ns useful.fn-test
- (:use clojure.test useful.fn))
+(ns flatland.useful.fn-test
+ (:use clojure.test flatland.useful.fn))
(deftest test-validator
(is (= [0 2 4 6 8]
View
4 test/useful/io_test.clj → test/flatland/useful/io_test.clj
@@ -1,5 +1,5 @@
-(ns useful.io-test
- (:use useful.io clojure.test)
+(ns flatland.useful.io-test
+ (:use flatland.useful.io clojure.test)
(:import (java.io StringReader)))
(deftest test-read-seq
View
4 test/useful/java_test.clj → test/flatland/useful/java_test.clj
@@ -1,5 +1,5 @@
-(ns useful.java-test
- (:use clojure.test useful.java)
+(ns flatland.useful.java-test
+ (:use clojure.test flatland.useful.java)
(:import (java.util Collection Map)))
(deftest test-construct
View
4 test/useful/macro_test.clj → test/flatland/useful/macro_test.clj
@@ -1,5 +1,5 @@
-(ns useful.macro-test
- (:use clojure.test useful.macro))
+(ns flatland.useful.macro-test
+ (:use clojure.test flatland.useful.macro))
;; necessary because deftest does weird shit with namespaces, resolution, and
;; macroexpansion, so this can't be inside there
View
4 test/useful/map_test.clj → test/flatland/useful/map_test.clj
@@ -1,5 +1,5 @@
-(ns useful.map-test
- (:use clojure.test useful.map))
+(ns flatland.useful.map-test
+ (:use clojure.test flatland.useful.map))
(deftest test-assoc-or
(is (= {:a 1 :b 2 :c 3}
View
12 test/useful/ns_test.clj → test/flatland/useful/ns_test.clj
@@ -1,11 +1,11 @@
-(ns useful.ns-test
- (:use clojure.test useful.ns)
- (:require [useful.fn :as fn]
- [useful.macro :as macro]))
+(ns flatland.useful.ns-test
+ (:use clojure.test flatland.useful.ns)
+ (:require [flatland.useful.fn :as fn]
+ [flatland.useful.macro :as macro]))
(defalias fixit fn/fix)
(alias-var 'as-macro #'macro/anon-macro)
-(alias-ns 'useful.string)
+(alias-ns 'flatland.useful.string)
(deftest test-var-name
(is (= 'clojure.core/inc (var-name #'inc))))
@@ -17,4 +17,4 @@
(is (= 3 (as-macro [x y] `(+ ~x ~y) 1 2))))
(deftest test-alias-ns
- (is (bound? #'useful.ns-test/camelize)))
+ (is (bound? #'flatland.useful.ns-test/camelize)))
View
4 test/useful/parallel_test.clj → test/flatland/useful/parallel_test.clj
@@ -1,5 +1,5 @@
-(ns useful.parallel-test
- (:use clojure.test useful.parallel))
+(ns flatland.useful.parallel-test
+ (:use clojure.test flatland.useful.parallel))
(def ^{:dynamic true} *i* 1)
View
4 test/useful/seq_test.clj → test/flatland/useful/seq_test.clj
@@ -1,5 +1,5 @@
-(ns useful.seq-test
- (:use clojure.test useful.seq clojure.set))
+(ns flatland.useful.seq-test
+ (:use clojure.test flatland.useful.seq clojure.set))
(deftest test-zip
(is (= [[1 4 8] [2 5 9] [3 6 nil] [nil 7 nil]] (zip [1 2 3] [4 5 6 7] [8 9]))))
View
4 test/useful/state_test.clj → test/flatland/useful/state_test.clj
@@ -1,5 +1,5 @@
-(ns useful.state-test
- (:use clojure.test useful.state))
+(ns flatland.useful.state-test
+ (:use clojure.test flatland.useful.state))
(deftest test-volatile
(testing "volatile returns a mutable ref"
View
4 test/useful/string_test.clj → test/flatland/useful/string_test.clj
@@ -1,5 +1,5 @@
-(ns useful.string-test
- (:use useful.string clojure.test))
+(ns flatland.useful.string-test
+ (:use flatland.useful.string clojure.test))
(deftest to-camel
(are [in out] (= out (camelize in))
View
4 test/useful/test_test.clj → test/flatland/useful/test_test.clj
@@ -1,5 +1,5 @@
-(ns useful.test-test
- (:use useful.test clojure.test))
+(ns flatland.useful.test-test
+ (:use flatland.useful.test clojure.test))
(defmacro tags? [test expected]
`(is (= ~(set (map keyword expected))
View
4 test/useful/utils_test.clj → test/flatland/useful/utils_test.clj
@@ -1,5 +1,5 @@
-(ns useful.utils-test
- (:use clojure.test useful.utils))
+(ns flatland.useful.utils-test
+ (:use clojure.test flatland.useful.utils))
(deftest test-invoke
(is (= 1 (invoke inc 0)))

0 comments on commit 5413465

Please sign in to comment.