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 |
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) |