Commit 8dd1a7b1 authored by pfdietz's avatar pfdietz

Added tests for order of arguments to :TEST, :TEST-NOT function argument to SEARCH.

parent 576aee86
......@@ -174,3 +174,17 @@
(search pat a :from-end t)))
0 4 0 0 nil nil)
;; Order of test, test-not
(deftest search-bitvector.17
(let ((pat #*10)
(target #*000011))
(search pat target :test #'<=))
4)
(deftest search-bitvector.18
(let ((pat #*10)
(target #*000011))
(search pat target :test-not #'>))
4)
......@@ -134,6 +134,21 @@
collect pat))
nil)
;; Order of test, test-not
(deftest search-list.15
(let ((pat '(10))
(target '(1 4 6 10 15 20)))
(search pat target :test #'<))
4)
(deftest search-list.16
(let ((pat '(10))
(target '(1 4 6 10 15 20)))
(search pat target :test-not #'>=))
4)
;;; Keyword tests
(deftest search.allow-other-keys.1
......
......@@ -161,3 +161,16 @@
(search pat a :from-end t)))
0 4 0 0 nil nil)
;; Order of test, test-not
(deftest search-string.17
(let ((pat "m")
(target '"adgmnpq"))
(search pat target :test #'char<))
4)
(deftest search-string.18
(let ((pat "m")
(target '"adgmnpq"))
(search pat target :test-not #'char>=))
4)
\ No newline at end of file
......@@ -174,3 +174,17 @@
(search pat a))
(search pat a :from-end t)))
0 4 0 0 nil nil)
;; Order of test, test-not
(deftest search-vector.17
(let ((pat #(10))
(target #(1 4 6 10 15 20)))
(search pat target :test #'<))
4)
(deftest search-vector.18
(let ((pat #(10))
(target #(1 4 6 10 15 20)))
(search pat target :test-not #'>=))
4)
\ No newline at end of file
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment