From f58e8d92cc061c118b27b782178a3b7f98ffeb06 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Fri, 27 May 2005 14:14:01 +0000 Subject: [PATCH] Add specialized integer vector and string tests --- ansi-tests/aref.lsp | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) diff --git a/ansi-tests/aref.lsp b/ansi-tests/aref.lsp index 7565b19e..e5597d35 100644 --- a/ansi-tests/aref.lsp +++ b/ansi-tests/aref.lsp @@ -135,6 +135,29 @@ ;;; To add: aref on displaced arrays, arrays with fill pointers, etc. +(deftest aref.special-integer.1 + (do-special-integer-vectors + (v #(1 1 0 1 0 1) nil) + (assert (= (aref v 0) 1)) + (assert (= (aref v 1) 1)) + (assert (= (aref v 2) 0)) + (assert (= (aref v 3) 1)) + (assert (= (aref v 4) 0)) + (assert (= (aref v 5) 1))) + nil) + +(deftest aref.special-strings.1 + (do-special-strings + (s "ABCDE" nil) + (assert (eql (aref s 0) #\A)) + (assert (eql (aref s 1) #\B)) + (assert (eql (aref s 2) #\C)) + (assert (eql (aref s 3) #\D)) + (assert (eql (aref s 4) #\E))) + nil) + +;;; Error tests + (deftest aref.error.1 (signals-error (aref) program-error) t) -- GitLab