CLJS-1246: Add cljs.core/record? predicate.

clojure · May 4, 2015 · cda08f0 · cda08f0
1 parent 703561b
commit cda08f0
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 0 deletions.
diff --git a/src/cljs/cljs/core.cljs b/src/cljs/cljs/core.cljs
@@ -1783,6 +1783,11 @@ reduces them without incurring seq initialization"
     false
     (satisfies? IMap x)))
 
+(defn ^boolean record?
+  "Return true if x satisfies IRecord"
+  [x]
+  (satisfies? IRecord x))
+
 (defn ^boolean vector?
   "Return true if x satisfies IVector"
   [x] (satisfies? IVector x))

diff --git a/test/cljs/cljs/core_test.cljs b/test/cljs/cljs/core_test.cljs
@@ -1735,6 +1735,8 @@
         letters (C. "a" "b" "c")
         more-letters (assoc letters :d "d" :e "e" :f "f")]
     (testing "Testing records"
+      (is (record? fred))
+      (is (not (record? {})))
       (is (= (:firstname fred) "Fred"))
       (is (= fred fred-too))
       (is (false? (= fred nil)))