Skip to content
Snippets Groups Projects
Commit 39fa1931 authored by pfdietz's avatar pfdietz
Browse files

More sequence tests, on fill, sort, subseq, count, length, reverse, nreverse. ...

More sequence tests, on fill, sort, subseq, count, length, reverse, nreverse.  There may be a problem with the destructive tests in that it's not allowed to modify literal objects in code, and the objects may appear in EQL type specifiers.
parent 94785046
No related branches found
No related tags found
No related merge requests found
......@@ -11,3 +11,166 @@
#'(lambda (x) (let ((len (length x)))
(and (> len 0) `(integer 0 (,len))))))
2)
(defmacro rfill (x y &rest other-args)
`(fill ,y ,x ,@other-args))
(def-type-prop-test fill.1 'rfill
(list t #'make-random-sequence-type-containing)
2 :replicate '(nil t))
(def-type-prop-test fill.2 'rfill
(list 'integer #'make-random-sequence-type-containing)
2 :replicate '(nil t))
(def-type-prop-test fill.3 'rfill
(list 'character #'make-random-sequence-type-containing)
2 :replicate '(nil t))
(def-type-prop-test fill.4 'rfill
(list t #'make-random-sequence-type-containing
'(eql :start)
#'(lambda (v s k1) (declare (ignore v k1))
(let ((len (length s)))
`(integer 0 ,len))))
4 :replicate '(nil t nil nil))
(def-type-prop-test fill.5 'rfill
(list t #'make-random-sequence-type-containing
'(eql :end)
#'(lambda (v s k1) (declare (ignore v k1))
(let ((len (length s)))
`(integer 0 ,len))))
4 :replicate '(nil t nil nil))
(def-type-prop-test fill.6 'rfill
(list t #'make-random-sequence-type-containing
'(eql :start)
#'(lambda (v s k1) (declare (ignore v k1))
(let ((len (length s)))
`(integer 0 ,len)))
'(eql :end)
#'(lambda (v s k1 start k2)
(declare (ignore v k1 k2))
(let ((len (length s)))
`(integer ,start ,len))))
6 :replicate '(nil t nil nil nil nil))
;;; make-sequence tests here
(def-type-prop-test subseq.1 'subseq
(list 'sequence #'(lambda (s) `(integer 0 ,(length s))))
2)
(def-type-prop-test subseq.2 'subseq
(list 'sequence #'(lambda (s) `(integer 0 ,(length s)))
#'(lambda (s start) `(integer ,start ,(length s))))
3)
;;; map tests here
;;; map-into tests here
;;; reduce tests here
(def-type-prop-test count.1 'count '(t sequence) 2)
(def-type-prop-test count.2 'count
(list t #'make-random-sequence-type-containing)
2)
(def-type-prop-test count.3 'count
(list t #'make-random-sequence-type-containing
'(eql :start)
#'(lambda (x s k1) (declare (ignore x k1))
`(integer 0 ,(length s))))
4)
(def-type-prop-test count.4 'count
(list t #'make-random-sequence-type-containing
'(eql :end)
#'(lambda (x s k1) (declare (ignore x k1))
`(integer 0 ,(length s))))
4)
(def-type-prop-test count.5 'count
(list t #'make-random-sequence-type-containing
'(eql :start)
#'(lambda (x s k1) (declare (ignore x k1))
`(integer 0 ,(length s)))
'(eql :end)
#'(lambda (x s k1 start k2) (declare (ignore x k1 k2))
`(integer ,start ,(length s))))
6)
;;; count-if, count-if-not tests here
(def-type-prop-test length.1 'length '(sequence) 1)
(def-type-prop-test reverse.1 'reverse '(sequence) 1)
(def-type-prop-test nreverse.1 'nreverse '(sequence) 1 :replicate '(t))
(def-type-prop-test sort.1 'sort
`((vector bit) (member < <= > >= ,#'< ,#'<= ,#'> ,#'>=)) 2
:replicate '(t nil))
(def-type-prop-test sort.2 'sort
`((or (vector (unsigned-byte 2))
(vector (unsigned-byte 3))
(vector (unsigned-byte 4))
(vector (unsigned-byte 5))
(vector (unsigned-byte 6))
(vector (unsigned-byte 7))
(vector (unsigned-byte 8)))
(member < <= > >= ,#'< ,#'<= ,#'> ,#'>=))
2 :replicate '(t nil))
(def-type-prop-test sort.3 'sort
`((or (vector (unsigned-byte 10))
(vector (unsigned-byte 13))
(vector (unsigned-byte 15))
(vector (unsigned-byte 16)))
(member < <= > >= ,#'< ,#'<= ,#'> ,#'>=))
2 :replicate '(t nil))
(def-type-prop-test sort.4 'sort
`((or (vector (unsigned-byte 20))
(vector (unsigned-byte 24))
(vector (unsigned-byte 28))
(vector (unsigned-byte 31))
(vector (unsigned-byte 32)))
(member < <= > >= ,#'< ,#'<= ,#'> ,#'>=))
2 :replicate '(t nil))
(def-type-prop-test sort.5 'sort
`((or (vector (signed-byte 2))
(vector (signed-byte 3))
(vector (signed-byte 4))
(vector (signed-byte 5))
(vector (signed-byte 6))
(vector (signed-byte 7))
(vector (signed-byte 8)))
(member < <= > >= ,#'< ,#'<= ,#'> ,#'>=))
2 :replicate '(t nil))
(def-type-prop-test sort.6 'sort
`((or (vector (signed-byte 10))
(vector (signed-byte 13))
(vector (signed-byte 15))
(vector (signed-byte 16)))
(member < <= > >= ,#'< ,#'<= ,#'> ,#'>=))
2 :replicate '(t nil))
(def-type-prop-test sort.7 'sort
`((or (vector (signed-byte 20))
(vector (signed-byte 24))
(vector (signed-byte 28))
(vector (signed-byte 31))
(vector (signed-byte 32)))
(member < <= > >= ,#'< ,#'<= ,#'> ,#'>=))
2 :replicate '(t nil))
(def-type-prop-test sort.8 'sort
`((or (vector short-float)
(vector single-float)
(vector double-float)
(vector long-float))
(member < <= > >= ,#'< ,#'<= ,#'> ,#'>=))
2 :replicate '(t nil))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment