GitLab

at 2023-07-24T15:35:18-07:00

Update set-diff tests

The hash table returns the results in the same order as the list
version.

   (let ((lisp::*min-list-length-for-hashtable* 2))

     (assert-equal '(2 2 1)

 		  (set-difference '(1 2 2 3) '(3 4)))

-    (assert-equal '(1 2 2)

+    (assert-equal '(2 2 1)

 		  (set-difference '(1 2 2 3) '(3 4 5 6 7 8)))

     (assert-equal '(2 2 1)

 		  (set-difference '(1 2 2 3) '(3 4)

 				  :test #'eql))

-    (assert-equal '(1 2 2)

+    (assert-equal '(2 2 1)

 		  (set-difference '(1 2 2 3) '(3 4 5 6 7 8)

 				  :test #'eql))))

   (let ((lisp::*min-list-length-for-hashtable* 2))

     (assert-equal '(b b a)

 		  (set-difference '(a b b c) '(c d e) :test 'eq))

-    (assert-equal '(a b b)

+    (assert-equal '(b b a)

 		  (set-difference '(a b b c) '(c d e f g h) :test 'eq))

     (assert-equal '(b b a)

 		  (set-difference '(a b b c) '(c d e) :test #'eq))

-    (assert-equal '(a b b)

+    (assert-equal '(b b a)

 		  (set-difference '(a b b c) '(c d e f g h) :test #'eq))))

 (define-test set-diff.hash-equal

 		  (set-difference '("a" "b" "b" "c")

 				  '("c" "d" "e")

 				  :test 'equal))

-    (assert-equal '("a" "b" "b")

+    (assert-equal '("b" "b" "a")

 		  (set-difference '("a" "b" "b" "c")

 				  '("c" "d" "e" "f" "g" "h")

 				  :test 'equal))

 		  (set-difference '("a" "b" "b" "c")

 				  '("c" "d" "e")

 				  :test #'equal))

-    (assert-equal '("a" "b" "b")

+    (assert-equal '("b" "b" "a")

 		  (set-difference '("a" "b" "b" "c")

 				  '("c" "d" "e" "f" "g" "h")

 				  :test #'equal))))

 		  (set-difference '("a" "b" "b" "c")

 				  '("C" "d" "e")

 				  :test 'equalp))

-    (assert-equal '("a" "b" "b")

+    (assert-equal '("b" "b" "a")

 		  (set-difference '("a" "b" "b" "C")

 				  '("c" "D" "e" "f" "g" "h")

 				  :test 'equalp))

 		  (set-difference '("a" "b" "b" "c")

 				  '("C" "d" "e")

 				  :test #'equalp))

-    (assert-equal '("a" "b" "b")

+    (assert-equal '("b" "b" "a")

 		  (set-difference '("a" "b" "b" "C")

 				  '("c" "D" "e" "f" "g" "h")

 				  :test #'equalp))))

Raymond Toy pushed to branch issue-240-set-diff-with-hash-table at cmucl / cmucl

Commits:

1 changed file:

Changes: