aboutsummaryrefslogtreecommitdiff
path: root/modules/def/src
diff options
context:
space:
mode:
authorStuart Sierra <mail@stuartsierra.com>2010-08-10 21:40:47 -0400
committerStuart Sierra <mail@stuartsierra.com>2010-08-10 21:40:47 -0400
commit38743f83bdd60d6687dabcea3864b04bbd554a6c (patch)
tree44b31d4900c2d5720679abe911694d64fc516d0a /modules/def/src
parenta6a92b9b3d2bfd9a56e1e5e9cfba706d1aeeaae5 (diff)
Add test sources to their respective modules
Diffstat (limited to 'modules/def/src')
-rw-r--r--modules/def/src/test/clojure/clojure/contrib/test_def.clj27
1 files changed, 27 insertions, 0 deletions
diff --git a/modules/def/src/test/clojure/clojure/contrib/test_def.clj b/modules/def/src/test/clojure/clojure/contrib/test_def.clj
new file mode 100644
index 00000000..2e8af137
--- /dev/null
+++ b/modules/def/src/test/clojure/clojure/contrib/test_def.clj
@@ -0,0 +1,27 @@
+;; Tests for def.clj
+
+;; by Stuart Halloway
+
+;; Copyright (c) Stuart Halloway, 2009. All rights reserved. The use
+;; and distribution terms for this software are covered by the Eclipse
+;; Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
+;; which can be found in the file epl-v10.html at the root of this
+;; distribution. By using this software in any fashion, you are
+;; agreeing to be bound by the terms of this license. You must not
+;; remove this notice, or any other, from this software.
+
+(ns clojure.contrib.test-def
+ (:use clojure.test)
+ (:require [clojure.contrib.def :as d]))
+
+(defn sample-fn "sample-fn docstring" [])
+(d/defalias aliased-fn sample-fn)
+(defmacro sample-macro "sample-macro-docstring" [])
+(d/defalias aliased-macro sample-macro)
+
+(deftest defalias-preserves-metadata
+ (let [preserved-meta #(-> % (meta) (select-keys [:doc :arglists :ns :file :macro]))]
+ (are [x y] (= (preserved-meta (var x)) (preserved-meta (var y)))
+ aliased-fn sample-fn
+ aliased-macro sample-macro)))
+