Mercurial > hg > xemacs-beta

comparison tests/automated/lisp-tests.el @ 1425:74cb069b8417

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2003-04-23 15:42:44 by stephent] stale match data <87fzo99rje.fsf@tleepslib.sk.tsukuba.ac.jp> new split-string <87d6jd9qis.fsf@tleepslib.sk.tsukuba.ac.jp> support (info "(file)node") <87adeh9qa7.fsf@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Wed, 23 Apr 2003 15:42:52 +0000
parents 6728e641994e
children 9c872f33ecbe
comparison
equal deleted inserted replaced
1424:c35e2ad2f97d 1425:74cb069b8417
850 (test-emacs-buffer-local-parameter nil) 850 (test-emacs-buffer-local-parameter nil)
851 851
852 ;;----------------------------------------------------- 852 ;;-----------------------------------------------------
853 ;; Test split-string 853 ;; Test split-string
854 ;;----------------------------------------------------- 854 ;;-----------------------------------------------------
855 ;; Hrvoje didn't like these tests so I'm disabling them for now. -sb 855 ;; Keep nulls, explicit SEPARATORS
856 ;(Assert (equal (split-string "foo" "") '("" "f" "o" "o" ""))) 856 ;; Hrvoje didn't like the next 3 tests so I'm disabling them for now. -sb
857 ;(Assert (equal (split-string "foo" "^") '("" "foo"))) 857 ;; I assume Hrvoje worried about the possibility of infloops. -sjt
858 ;(Assert (equal (split-string "foo" "$") '("foo" ""))) 858 (when test-harness-risk-infloops
859 (Assert (equal (split-string "foo" "") '("" "f" "o" "o" "")))
860 (Assert (equal (split-string "foo" "^") '("" "foo")))
861 (Assert (equal (split-string "foo" "$") '("foo" ""))))
859 (Assert (equal (split-string "foo,bar" ",") '("foo" "bar"))) 862 (Assert (equal (split-string "foo,bar" ",") '("foo" "bar")))
860 (Assert (equal (split-string ",foo,bar," ",") '("" "foo" "bar" ""))) 863 (Assert (equal (split-string ",foo,bar," ",") '("" "foo" "bar" "")))
861 (Assert (equal (split-string ",foo,bar," "^,") '("" "foo,bar,"))) 864 (Assert (equal (split-string ",foo,bar," "^,") '("" "foo,bar,")))
862 (Assert (equal (split-string ",foo,bar," ",$") '(",foo,bar" ""))) 865 (Assert (equal (split-string ",foo,bar," ",$") '(",foo,bar" "")))
863 (Assert (equal (split-string ",foo,,bar," ",") '("" "foo" "" "bar" ""))) 866 (Assert (equal (split-string ",foo,,bar," ",") '("" "foo" "" "bar" "")))
864 (Assert (equal (split-string "foo,,,bar" ",") '("foo" "" "" "bar"))) 867 (Assert (equal (split-string "foo,,,bar" ",") '("foo" "" "" "bar")))
865 (Assert (equal (split-string "foo,,bar,," ",") '("foo" "" "bar" "" ""))) 868 (Assert (equal (split-string "foo,,bar,," ",") '("foo" "" "bar" "" "")))
866 (Assert (equal (split-string "foo,,bar" ",+") '("foo" "bar"))) 869 (Assert (equal (split-string "foo,,bar" ",+") '("foo" "bar")))
867 (Assert (equal (split-string ",foo,,bar," ",+") '("" "foo" "bar" ""))) 870 (Assert (equal (split-string ",foo,,bar," ",+") '("" "foo" "bar" "")))
871 ;; Omit nulls, explicit SEPARATORS
872 (when test-harness-risk-infloops
873 (Assert (equal (split-string "foo" "" t) '("f" "o" "o")))
874 (Assert (equal (split-string "foo" "^" t) '("foo")))
875 (Assert (equal (split-string "foo" "$" t) '("foo"))))
876 (Assert (equal (split-string "foo,bar" "," t) '("foo" "bar")))
877 (Assert (equal (split-string ",foo,bar," "," t) '("foo" "bar")))
878 (Assert (equal (split-string ",foo,bar," "^," t) '("foo,bar,")))
879 (Assert (equal (split-string ",foo,bar," ",$" t) '(",foo,bar")))
880 (Assert (equal (split-string ",foo,,bar," "," t) '("foo" "bar")))
881 (Assert (equal (split-string "foo,,,bar" "," t) '("foo" "bar")))
882 (Assert (equal (split-string "foo,,bar,," "," t) '("foo" "bar")))
883 (Assert (equal (split-string "foo,,bar" ",+" t) '("foo" "bar")))
884 (Assert (equal (split-string ",foo,,bar," ",+" t) '("foo" "bar")))
885 ;; "Double-default" case
886 (Assert (equal (split-string "foo bar") '("foo" "bar")))
887 (Assert (equal (split-string " foo bar ") '("foo" "bar")))
888 (Assert (equal (split-string " foo bar ") '("foo" "bar")))
889 (Assert (equal (split-string "foo bar") '("foo" "bar")))
890 (Assert (equal (split-string "foo bar ") '("foo" "bar")))
891 (Assert (equal (split-string "foobar") '("foobar")))
892 ;; Semantics are identical to "double-default" case! Fool ya?
893 (Assert (equal (split-string "foo bar" nil t) '("foo" "bar")))
894 (Assert (equal (split-string " foo bar " nil t) '("foo" "bar")))
895 (Assert (equal (split-string " foo bar " nil t) '("foo" "bar")))
896 (Assert (equal (split-string "foo bar" nil t) '("foo" "bar")))
897 (Assert (equal (split-string "foo bar " nil t) '("foo" "bar")))
898 (Assert (equal (split-string "foobar" nil t) '("foobar")))
899 ;; Perverse "anti-double-default" case
900 (Assert (equal (split-string "foo bar" split-string-default-separators)
901 '("foo" "bar")))
902 (Assert (equal (split-string " foo bar " split-string-default-separators)
903 '("" "foo" "bar" "")))
904 (Assert (equal (split-string " foo bar " split-string-default-separators)
905 '("" "foo" "bar" "")))
906 (Assert (equal (split-string "foo bar" split-string-default-separators)
907 '("foo" "bar")))
908 (Assert (equal (split-string "foo bar " split-string-default-separators)
909 '("foo" "bar" "")))
910 (Assert (equal (split-string "foobar" split-string-default-separators)
911 '("foobar")))
868 912
869 (Assert (not (string-match "\\(\\.\\=\\)" "."))) 913 (Assert (not (string-match "\\(\\.\\=\\)" ".")))
870 (Assert (string= "" (let ((str "test string")) 914 (Assert (string= "" (let ((str "test string"))
871 (if (string-match "^.*$" str) 915 (if (string-match "^.*$" str)
872 (replace-match "\\U" t nil str))))) 916 (replace-match "\\U" t nil str)))))