blob: 17b1f3b8e80c670e99df1031497d8bf48e957921 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
;; Copyright (c) Frantisek Sodomka. 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-clojure.other-functions
(:use clojure.contrib.test-is))
; http://clojure.org/other_functions
; [= not= (tests in data_structures.clj and elsewhere)]
(deftest test-identity
; exactly 1 argument needed
(is (thrown? IllegalArgumentException (identity)))
(is (thrown? IllegalArgumentException (identity 1 2)))
(are [x] (= (identity x) x)
nil
false true
0 42
0.0 3.14
2/3
0M 1M
\c
"" "abc"
'sym
:kw
() '(1 2)
[] [1 2]
{} {:a 1 :b 2}
#{} #{1 2} )
; evaluation
(are [x y] (= (identity x) y)
(+ 1 2) 3
(> 5 0) true ))
; time assert comment doc
; partial
; comp
; complement
; constantly
; Printing
; pr prn print println newline
; pr-str prn-str print-str println-str [with-out-str (vars.clj)]
; Regex Support
; re-matcher re-find re-matches re-groups re-seq
|
