From 9e1306f112fee31f0af2c9317ad63934b0fa0761 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Wed, 22 Sep 2004 13:25:24 +0000 Subject: [PATCH] More specialized string tests --- ansi-tests/mismatch.lsp | 15 +++++++++++++++ ansi-tests/search-string.lsp | 21 ++++++++++++++++++++- 2 files changed, 35 insertions(+), 1 deletion(-) diff --git a/ansi-tests/mismatch.lsp b/ansi-tests/mismatch.lsp index 1b52e606..bcfaf301 100644 --- a/ansi-tests/mismatch.lsp +++ b/ansi-tests/mismatch.lsp @@ -597,6 +597,21 @@ (mismatch m a :from-end t))) (4 4 5 nil nil 6 5 6)) +(deftest mistmatch-string.25 + (let ((s0 "12345") + (s1 "123A") + (s2 "245")) + (do-special-strings + (s s0 nil) + (assert (null (mismatch s s0))) + (assert (null (mismatch s0 s))) + (assert (null (mismatch s s0 :from-end t))) + (assert (null (mismatch s0 s :from-end t))) + (assert (eql (mismatch s s1) 3)) + (assert (eql (mismatch s1 s) 3)) + )) + nil) + ;;; test and test-not tests (defharmless mismatch.test-and-test-not.1 diff --git a/ansi-tests/search-string.lsp b/ansi-tests/search-string.lsp index 791d919f..a0fcfda6 100644 --- a/ansi-tests/search-string.lsp +++ b/ansi-tests/search-string.lsp @@ -175,4 +175,23 @@ (let ((pat "m") (target '"adgmnpq")) (search pat target :test-not #'char>=)) - 4) \ No newline at end of file + 4) + +;;; Specialized strings + +(deftest search-string.19 + (do-special-strings + (s "a" nil) + (assert (eql (search s "xyza123apqr") 3)) + (assert (eql (search s "xyza1a3apqr" :start2 4) 5)) + (assert (eql (search s "xyza123apqr" :from-end t) 7))) + nil) + +(deftest search-string.20 + (do-special-strings + (s "xababcdefabc123ababc18" nil) + (assert (eql (search "abc" s) 3)) + (assert (eql (search "abc" s :start2 4) 9)) + (assert (eql (search "abc" s :from-end t) 17))) + nil) + -- GitLab