1
1
mirror of https://github.com/kanaka/mal.git synced 2024-10-26 14:22:25 +03:00

Remove soft around nested equality tests

Related to issue #123
This commit is contained in:
Joel Martin 2016-02-01 15:10:12 -06:00
parent d66cf2d58f
commit 35ea7a9ec7
2 changed files with 22 additions and 31 deletions

View File

@ -446,12 +446,6 @@ nil
( (fn* [f x] (f x)) (fn* [a] (+ 1 a)) 7)
;=>8
;;
;; -------- Soft tests --------
;; (when most implementations will implement these tests correctly this section
;; will be modified to hard failures)
;>>> soft=True
;; Nested vector/list equality
(= [(list)] (list []))
;=>true

View File

@ -268,6 +268,28 @@
(dissoc {:cde nil :fgh 456} :cde)
;=>{:fgh 456}
;; Testing equality of hash-maps
(= {} {})
;=>true
(= {:a 11 :b 22} (hash-map :b 22 :a 11))
;=>true
(= {:a 11 :b [22 33]} (hash-map :b [22 33] :a 11))
;=>true
(= {:a 11 :b {:c 33}} (hash-map :b {:c 33} :a 11))
;=>true
(= {:a 11 :b 22} (hash-map :b 23 :a 11))
;=>false
(= {:a 11 :b 22} (hash-map :a 11))
;=>false
(= {:a [11 22]} {:a (list 11 22)})
;=>true
(= {:a 11 :b 22} (list :a 11 :b 22))
;=>false
(= {} [])
;=>false
(= [] {})
;=>false
;;
;; Additional str and pr-str tests
@ -300,28 +322,3 @@
(apply (fn* (a & more) (list? more)) [1])
;=>true
;; ------- Optional Functionality --------------
;; ------- (Not needed for self-hosting) -------
;>>> soft=True
;; Testing equality of hash-maps
(= {} {})
;=>true
(= {:a 11 :b 22} (hash-map :b 22 :a 11))
;=>true
(= {:a 11 :b [22 33]} (hash-map :b [22 33] :a 11))
;=>true
(= {:a 11 :b {:c 33}} (hash-map :b {:c 33} :a 11))
;=>true
(= {:a 11 :b 22} (hash-map :b 23 :a 11))
;=>false
(= {:a 11 :b 22} (hash-map :a 11))
;=>false
(= {:a [11 22]} {:a (list 11 22)})
;=>true
(= {:a 11 :b 22} (list :a 11 :b 22))
;=>false
(= {} [])
;=>false
(= [] {})
;=>false