/[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.4 by pfdietz, Sun Jul 27 03:47:37 2003 UTC revision 1.5 by pfdietz, Sat Jun 4 17:18:41 2005 UTC
# Line 77  Line 77 
77          collect (not (string= "ab" "xyab" :start2 i :end2 nil)))          collect (not (string= "ab" "xyab" :start2 i :end2 nil)))
78    (t t nil t))    (t t nil t))
79    
80    ;;; Keyword argument processing
81    
82    (deftest string-comparison.allow-other-keys.1
83      (loop for fn in '(string= string<= string>= string/= string< string>
84                        string-equal string-not-greaterp string-not-lessp
85                        string-not-equal string-lessp string-greaterp)
86            for expected in '(nil 0 nil 0 0 nil nil 0 nil 0 0 nil)
87            for result = (funcall fn "a" "b" :allow-other-keys t :foo nil)
88            unless (eql result expected)
89            collect (list fn expected result))
90      nil)
91    
92    (deftest string-comparison.allow-other-keys.2
93      (loop for fn in '(string= string<= string>= string/= string< string>
94                        string-equal string-not-greaterp string-not-lessp
95                        string-not-equal string-lessp string-greaterp)
96            for expected in '(nil nil 0 0 nil 0 nil nil 0 0 nil 0)
97            for result = (funcall fn "c" "b" :allow-other-keys t
98                                  :allow-other-keys nil :foo 1)
99            unless (eql result expected)
100            collect (list fn expected result))
101      nil)
102    
103    (deftest string-comparison.allow-other-keys.3
104      (loop for fn in '(string= string<= string>= string/= string< string>
105                        string-equal string-not-greaterp string-not-lessp
106                        string-not-equal string-lessp string-greaterp)
107            for expected in '(nil 0 nil 0 0 nil nil 0 nil 0 0 nil)
108            for result = (funcall fn "a" "b" :allow-other-keys nil)
109            unless (eql result expected)
110            collect (list fn expected result))
111      nil)
112    
113    
114  ;;; Order of evaluation  ;;; Order of evaluation
115    
116  (deftest string=.order.1  (deftest string=.order.1
# Line 660  Line 694 
694       (string-not-lessp s1 "a")       (string-not-lessp s1 "a")
695       (string-not-lessp "a" s1)))       (string-not-lessp "a" s1)))
696    0 0 0 0 0 nil 0)    0 0 0 0 0 nil 0)
697    
698    ;;; Error cases
699    
700    (deftest string=.error.1
701      (signals-error (string=) program-error)
702      t)
703    
704    (deftest string=.error.2
705      (signals-error (string= "") program-error)
706      t)
707    
708    (deftest string=.error.3
709      (signals-error (string= "a" "b" nil nil) program-error)
710      t)
711    
712    (deftest string=.error.4
713      (signals-error (string= "a" "b" :start1) program-error)
714      t)
715    
716    (deftest string=.error.5
717      (signals-error (string= "a" "b" 1 nil) program-error)
718      t)
719    
720    (deftest string=.error.6
721      (signals-error (string= "a" "b" :allow-other-keys nil
722                              :allow-other-keys t :foo 'bar)
723                     program-error)
724      t)
725    
726    (deftest string/=.error.1
727      (signals-error (string/=) program-error)
728      t)
729    
730    (deftest string/=.error.2
731      (signals-error (string/= "") program-error)
732      t)
733    
734    (deftest string/=.error.3
735      (signals-error (string/= "a" "b" nil nil) program-error)
736      t)
737    
738    (deftest string/=.error.4
739      (signals-error (string/= "a" "b" :start1) program-error)
740      t)
741    
742    (deftest string/=.error.5
743      (signals-error (string/= "a" "b" 1 nil) program-error)
744      t)
745    
746    (deftest string/=.error.6
747      (signals-error (string/= "a" "b" :allow-other-keys nil
748                              :allow-other-keys t :foo 'bar)
749                     program-error)
750      t)
751    
752    
753    (deftest string<.error.1
754      (signals-error (string<) program-error)
755      t)
756    
757    (deftest string<.error.2
758      (signals-error (string< "") program-error)
759      t)
760    
761    (deftest string<.error.3
762      (signals-error (string< "a" "b" nil nil) program-error)
763      t)
764    
765    (deftest string<.error.4
766      (signals-error (string< "a" "b" :start1) program-error)
767      t)
768    
769    (deftest string<.error.5
770      (signals-error (string< "a" "b" 1 nil) program-error)
771      t)
772    
773    (deftest string<.error.6
774      (signals-error (string< "a" "b" :allow-other-keys nil
775                              :allow-other-keys t :foo 'bar)
776                     program-error)
777      t)
778    
779    
780    (deftest string<=.error.1
781      (signals-error (string<=) program-error)
782      t)
783    
784    (deftest string<=.error.2
785      (signals-error (string<= "") program-error)
786      t)
787    
788    (deftest string<=.error.3
789      (signals-error (string<= "a" "b" nil nil) program-error)
790      t)
791    
792    (deftest string<=.error.4
793      (signals-error (string<= "a" "b" :start1) program-error)
794      t)
795    
796    (deftest string<=.error.5
797      (signals-error (string<= "a" "b" 1 nil) program-error)
798      t)
799    
800    (deftest string<=.error.6
801      (signals-error (string<= "a" "b" :allow-other-keys nil
802                              :allow-other-keys t :foo 'bar)
803                     program-error)
804      t)
805    
806    
807    (deftest string>.error.1
808      (signals-error (string>) program-error)
809      t)
810    
811    (deftest string>.error.2
812      (signals-error (string> "") program-error)
813      t)
814    
815    (deftest string>.error.3
816      (signals-error (string> "a" "b" nil nil) program-error)
817      t)
818    
819    (deftest string>.error.4
820      (signals-error (string> "a" "b" :start1) program-error)
821      t)
822    
823    (deftest string>.error.5
824      (signals-error (string> "a" "b" 1 nil) program-error)
825      t)
826    
827    (deftest string>.error.6
828      (signals-error (string> "a" "b" :allow-other-keys nil
829                              :allow-other-keys t :foo 'bar)
830                     program-error)
831      t)
832    
833    
834    (deftest string>=.error.1
835      (signals-error (string>=) program-error)
836      t)
837    
838    (deftest string>=.error.2
839      (signals-error (string>= "") program-error)
840      t)
841    
842    (deftest string>=.error.3
843      (signals-error (string>= "a" "b" nil nil) program-error)
844      t)
845    
846    (deftest string>=.error.4
847      (signals-error (string>= "a" "b" :start1) program-error)
848      t)
849    
850    (deftest string>=.error.5
851      (signals-error (string>= "a" "b" 1 nil) program-error)
852      t)
853    
854    (deftest string>=.error.6
855      (signals-error (string>= "a" "b" :allow-other-keys nil
856                              :allow-other-keys t :foo 'bar)
857                     program-error)
858      t)
859    
860    
861    (deftest string-equal.error.1
862      (signals-error (string-equal) program-error)
863      t)
864    
865    (deftest string-equal.error.2
866      (signals-error (string-equal "") program-error)
867      t)
868    
869    (deftest string-equal.error.3
870      (signals-error (string-equal "a" "b" nil nil) program-error)
871      t)
872    
873    (deftest string-equal.error.4
874      (signals-error (string-equal "a" "b" :start1) program-error)
875      t)
876    
877    (deftest string-equal.error.5
878      (signals-error (string-equal "a" "b" 1 nil) program-error)
879      t)
880    
881    (deftest string-equal.error.6
882      (signals-error (string-equal "a" "b" :allow-other-keys nil
883                              :allow-other-keys t :foo 'bar)
884                     program-error)
885      t)
886    
887    (deftest string-not-equal.error.1
888      (signals-error (string-not-equal) program-error)
889      t)
890    
891    (deftest string-not-equal.error.2
892      (signals-error (string-not-equal "") program-error)
893      t)
894    
895    (deftest string-not-equal.error.3
896      (signals-error (string-not-equal "a" "b" nil nil) program-error)
897      t)
898    
899    (deftest string-not-equal.error.4
900      (signals-error (string-not-equal "a" "b" :start1) program-error)
901      t)
902    
903    (deftest string-not-equal.error.5
904      (signals-error (string-not-equal "a" "b" 1 nil) program-error)
905      t)
906    
907    (deftest string-not-equal.error.6
908      (signals-error (string-not-equal "a" "b" :allow-other-keys nil
909                              :allow-other-keys t :foo 'bar)
910                     program-error)
911      t)
912    
913    (deftest string-lessp.error.1
914      (signals-error (string-lessp) program-error)
915      t)
916    
917    (deftest string-lessp.error.2
918      (signals-error (string-lessp "") program-error)
919      t)
920    
921    (deftest string-lessp.error.3
922      (signals-error (string-lessp "a" "b" nil nil) program-error)
923      t)
924    
925    (deftest string-lessp.error.4
926      (signals-error (string-lessp "a" "b" :start1) program-error)
927      t)
928    
929    (deftest string-lessp.error.5
930      (signals-error (string-lessp "a" "b" 1 nil) program-error)
931      t)
932    
933    (deftest string-lessp.error.6
934      (signals-error (string-lessp "a" "b" :allow-other-keys nil
935                              :allow-other-keys t :foo 'bar)
936                     program-error)
937      t)
938    
939    (deftest string-greaterp.error.1
940      (signals-error (string-greaterp) program-error)
941      t)
942    
943    (deftest string-greaterp.error.2
944      (signals-error (string-greaterp "") program-error)
945      t)
946    
947    (deftest string-greaterp.error.3
948      (signals-error (string-greaterp "a" "b" nil nil) program-error)
949      t)
950    
951    (deftest string-greaterp.error.4
952      (signals-error (string-greaterp "a" "b" :start1) program-error)
953      t)
954    
955    (deftest string-greaterp.error.5
956      (signals-error (string-greaterp "a" "b" 1 nil) program-error)
957      t)
958    
959    (deftest string-greaterp.error.6
960      (signals-error (string-greaterp "a" "b" :allow-other-keys nil
961                              :allow-other-keys t :foo 'bar)
962                     program-error)
963      t)
964    
965    (deftest string-not-lessp.error.1
966      (signals-error (string-not-lessp) program-error)
967      t)
968    
969    (deftest string-not-lessp.error.2
970      (signals-error (string-not-lessp "") program-error)
971      t)
972    
973    (deftest string-not-lessp.error.3
974      (signals-error (string-not-lessp "a" "b" nil nil) program-error)
975      t)
976    
977    (deftest string-not-lessp.error.4
978      (signals-error (string-not-lessp "a" "b" :start1) program-error)
979      t)
980    
981    (deftest string-not-lessp.error.5
982      (signals-error (string-not-lessp "a" "b" 1 nil) program-error)
983      t)
984    
985    (deftest string-not-lessp.error.6
986      (signals-error (string-not-lessp "a" "b" :allow-other-keys nil
987                              :allow-other-keys t :foo 'bar)
988                     program-error)
989      t)
990    
991    (deftest string-not-greaterp.error.1
992      (signals-error (string-not-greaterp) program-error)
993      t)
994    
995    (deftest string-not-greaterp.error.2
996      (signals-error (string-not-greaterp "") program-error)
997      t)
998    
999    (deftest string-not-greaterp.error.3
1000      (signals-error (string-not-greaterp "a" "b" nil nil) program-error)
1001      t)
1002    
1003    (deftest string-not-greaterp.error.4
1004      (signals-error (string-not-greaterp "a" "b" :start1) program-error)
1005      t)
1006    
1007    (deftest string-not-greaterp.error.5
1008      (signals-error (string-not-greaterp "a" "b" 1 nil) program-error)
1009      t)
1010    
1011    (deftest string-not-greaterp.error.6
1012      (signals-error (string-not-greaterp "a" "b" :allow-other-keys nil
1013                              :allow-other-keys t :foo 'bar)
1014                     program-error)
1015      t)

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

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