From 8dd1a7b107109406fe834129e21c2899a4d62a1e Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Sat, 14 Jun 2003 09:14:23 +0000 Subject: [PATCH] Added tests for order of arguments to :TEST, :TEST-NOT function argument to SEARCH. --- ansi-tests/search-bitvector.lsp | 14 ++++++++++++++ ansi-tests/search-list.lsp | 15 +++++++++++++++ ansi-tests/search-string.lsp | 13 +++++++++++++ ansi-tests/search-vector.lsp | 14 ++++++++++++++ 4 files changed, 56 insertions(+) diff --git a/ansi-tests/search-bitvector.lsp b/ansi-tests/search-bitvector.lsp index b435f207..617f152c 100644 --- a/ansi-tests/search-bitvector.lsp +++ b/ansi-tests/search-bitvector.lsp @@ -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) + diff --git a/ansi-tests/search-list.lsp b/ansi-tests/search-list.lsp index 5dba4fcd..69f4b205 100644 --- a/ansi-tests/search-list.lsp +++ b/ansi-tests/search-list.lsp @@ -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 diff --git a/ansi-tests/search-string.lsp b/ansi-tests/search-string.lsp index 243af8df..0ea7c593 100644 --- a/ansi-tests/search-string.lsp +++ b/ansi-tests/search-string.lsp @@ -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 diff --git a/ansi-tests/search-vector.lsp b/ansi-tests/search-vector.lsp index 22de5fcc..217bf4d4 100644 --- a/ansi-tests/search-vector.lsp +++ b/ansi-tests/search-vector.lsp @@ -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 -- GitLab