/[gcl]/gcl/ansi-tests/string-comparisons.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/string-comparisons.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by pfdietz, Wed Jun 18 11:55:24 2003 UTC revision 1.4 by pfdietz, Sun Jul 27 03:47:37 2003 UTC
# Line 506  Line 506 
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))
# Line 518  Line 519 
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)
# Line 530  Line 532 
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)
# Line 542  Line 545 
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)
# Line 554  Line 558 
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)
# Line 566  Line 571 
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)
# Line 578  Line 584 
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))
# Line 590  Line 597 
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)
# Line 602  Line 610 
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)
# Line 614  Line 623 
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)
# Line 626  Line 636 
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)
# Line 638  Line 649 
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)
# Line 648  Line 660 
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)
   
   
   
   
   
   
   
   
     
   
   
   

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26