Commit eef7efc2 authored by pfdietz's avatar pfdietz
Browse files

Modified tests that failed in Allegro CL.

parent 7c1bace0
......@@ -8,8 +8,9 @@
(deftest make-string.1
(let ((s (make-string 10)))
(and (stringp s)
(eql (length s) 10)
(string-all-the-same s)))
;; (string-all-the-same s)
(eqlt (length s) 10)
))
t)
(deftest make-string.2
......@@ -50,22 +51,25 @@
(deftest make-string.7
(let ((s (make-string 10 :element-type 'character)))
(and (stringp s)
(eql (length s) 10)
(string-all-the-same s)))
(eqlt (length s) 10)
#| (string-all-the-same s) |#
))
t)
(deftest make-string.8
(let ((s (make-string 10 :element-type 'standard-char)))
(and (stringp s)
(eql (length s) 10)
(string-all-the-same s)))
(eqlt (length s) 10)
#| (string-all-the-same s) |#
))
t)
(deftest make-string.9
(let ((s (make-string 10 :element-type 'base-char)))
(and (stringp s)
(eql (length s) 10)
(string-all-the-same s)))
(eqlt (length s) 10)
#| (string-all-the-same s) |#
))
t)
......
Supports Markdown
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