506 |
;;; Tests on nil arrays |
;;; Tests on nil arrays |
507 |
|
|
508 |
(deftest string=.nil-array.1 |
(deftest string=.nil-array.1 |
509 |
|
:notes (:nil-vectors-are-strings) |
510 |
(let ((s1 (make-array '(0) :element-type nil))) |
(let ((s1 (make-array '(0) :element-type nil))) |
511 |
(values |
(values |
512 |
(notnot (string= s1 s1)) |
(notnot (string= s1 s1)) |
519 |
t t t t t nil nil) |
t t t t t nil nil) |
520 |
|
|
521 |
(deftest string/=.nil-array.1 |
(deftest string/=.nil-array.1 |
522 |
|
:notes (:nil-vectors-are-strings) |
523 |
(let ((s1 (make-array '(0) :element-type nil))) |
(let ((s1 (make-array '(0) :element-type nil))) |
524 |
(values |
(values |
525 |
(string/= s1 s1) |
(string/= s1 s1) |
532 |
nil nil nil nil nil 0 0) |
nil nil nil nil nil 0 0) |
533 |
|
|
534 |
(deftest string<.nil-array.1 |
(deftest string<.nil-array.1 |
535 |
|
:notes (:nil-vectors-are-strings) |
536 |
(let ((s1 (make-array '(0) :element-type nil))) |
(let ((s1 (make-array '(0) :element-type nil))) |
537 |
(values |
(values |
538 |
(string< s1 s1) |
(string< s1 s1) |
545 |
nil nil nil nil nil 0 nil) |
nil nil nil nil nil 0 nil) |
546 |
|
|
547 |
(deftest string<=.nil-array.1 |
(deftest string<=.nil-array.1 |
548 |
|
:notes (:nil-vectors-are-strings) |
549 |
(let ((s1 (make-array '(0) :element-type nil))) |
(let ((s1 (make-array '(0) :element-type nil))) |
550 |
(values |
(values |
551 |
(string<= s1 s1) |
(string<= s1 s1) |
558 |
0 0 0 0 0 0 nil) |
0 0 0 0 0 0 nil) |
559 |
|
|
560 |
(deftest string>.nil-array.1 |
(deftest string>.nil-array.1 |
561 |
|
:notes (:nil-vectors-are-strings) |
562 |
(let ((s1 (make-array '(0) :element-type nil))) |
(let ((s1 (make-array '(0) :element-type nil))) |
563 |
(values |
(values |
564 |
(string> s1 s1) |
(string> s1 s1) |
571 |
nil nil nil nil nil nil 0) |
nil nil nil nil nil nil 0) |
572 |
|
|
573 |
(deftest string>=.nil-array.1 |
(deftest string>=.nil-array.1 |
574 |
|
:notes (:nil-vectors-are-strings) |
575 |
(let ((s1 (make-array '(0) :element-type nil))) |
(let ((s1 (make-array '(0) :element-type nil))) |
576 |
(values |
(values |
577 |
(string>= s1 s1) |
(string>= s1 s1) |
584 |
0 0 0 0 0 nil 0) |
0 0 0 0 0 nil 0) |
585 |
|
|
586 |
(deftest string-equal.nil-array.1 |
(deftest string-equal.nil-array.1 |
587 |
|
:notes (:nil-vectors-are-strings) |
588 |
(let ((s1 (make-array '(0) :element-type nil))) |
(let ((s1 (make-array '(0) :element-type nil))) |
589 |
(values |
(values |
590 |
(notnot (string-equal s1 s1)) |
(notnot (string-equal s1 s1)) |
597 |
t t t t t nil nil) |
t t t t t nil nil) |
598 |
|
|
599 |
(deftest string-not-equal.nil-array.1 |
(deftest string-not-equal.nil-array.1 |
600 |
|
:notes (:nil-vectors-are-strings) |
601 |
(let ((s1 (make-array '(0) :element-type nil))) |
(let ((s1 (make-array '(0) :element-type nil))) |
602 |
(values |
(values |
603 |
(string-not-equal s1 s1) |
(string-not-equal s1 s1) |
610 |
nil nil nil nil nil 0 0) |
nil nil nil nil nil 0 0) |
611 |
|
|
612 |
(deftest string-lessp.nil-array.1 |
(deftest string-lessp.nil-array.1 |
613 |
|
:notes (:nil-vectors-are-strings) |
614 |
(let ((s1 (make-array '(0) :element-type nil))) |
(let ((s1 (make-array '(0) :element-type nil))) |
615 |
(values |
(values |
616 |
(string-lessp s1 s1) |
(string-lessp s1 s1) |
623 |
nil nil nil nil nil 0 nil) |
nil nil nil nil nil 0 nil) |
624 |
|
|
625 |
(deftest string-not-greaterp.nil-array.1 |
(deftest string-not-greaterp.nil-array.1 |
626 |
|
:notes (:nil-vectors-are-strings) |
627 |
(let ((s1 (make-array '(0) :element-type nil))) |
(let ((s1 (make-array '(0) :element-type nil))) |
628 |
(values |
(values |
629 |
(string-not-greaterp s1 s1) |
(string-not-greaterp s1 s1) |
636 |
0 0 0 0 0 0 nil) |
0 0 0 0 0 0 nil) |
637 |
|
|
638 |
(deftest string-greaterp.nil-array.1 |
(deftest string-greaterp.nil-array.1 |
639 |
|
:notes (:nil-vectors-are-strings) |
640 |
(let ((s1 (make-array '(0) :element-type nil))) |
(let ((s1 (make-array '(0) :element-type nil))) |
641 |
(values |
(values |
642 |
(string-greaterp s1 s1) |
(string-greaterp s1 s1) |
649 |
nil nil nil nil nil nil 0) |
nil nil nil nil nil nil 0) |
650 |
|
|
651 |
(deftest string-not-lessp.nil-array.1 |
(deftest string-not-lessp.nil-array.1 |
652 |
|
:notes (:nil-vectors-are-strings) |
653 |
(let ((s1 (make-array '(0) :element-type nil))) |
(let ((s1 (make-array '(0) :element-type nil))) |
654 |
(values |
(values |
655 |
(string-not-lessp s1 s1) |
(string-not-lessp s1 s1) |
660 |
(string-not-lessp s1 "a") |
(string-not-lessp s1 "a") |
661 |
(string-not-lessp "a" s1))) |
(string-not-lessp "a" s1))) |
662 |
0 0 0 0 0 nil 0) |
0 0 0 0 0 nil 0) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|