Mercurial > hg > xemacs-beta

comparison tests/automated/lisp-tests.el @ 5035:b1e48555be7d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add a new optional ESCAPE-CHAR argument to #'split-string-by-char. src/ChangeLog addition: 2010-02-07 Aidan Kehoe <kehoea@parhasard.net> * fns.c (split_string_by_ichar_1): Extend this to take UNESCAPE and ESCAPECHAR arguments. (split_external_path, split_env_path, Fsplit_string_by_char) (Fsplit_path): Pass the new arguments to split_string_by_ichar_1(); take a new optional argument, ESCAPE-CHAR, in #'split-string-by-char, allowing SEPCHAR to be escaped. tests/ChangeLog addition: 2010-02-07 Aidan Kehoe <kehoea@parhasard.net> * automated/lisp-tests.el (split-string-by-char): Test this function, and its new ESCAPE-CHAR argument.
author Aidan Kehoe <kehoea@parhasard.net>
date Sun, 07 Feb 2010 12:24:03 +0000
parents 1b96882bdf37
children 9624523604c5
comparison
equal deleted inserted replaced
5034:1b96882bdf37 5035:b1e48555be7d
1 ;; Copyright (C) 1998 Free Software Foundation, Inc. 1 ;; Copyright (C) 1998 Free Software Foundation, Inc. -*- coding: iso-8859-1 -*-
2 2
3 ;; Author: Martin Buchholz <martin@xemacs.org> 3 ;; Author: Martin Buchholz <martin@xemacs.org>
4 ;; Maintainer: Martin Buchholz <martin@xemacs.org> 4 ;; Maintainer: Martin Buchholz <martin@xemacs.org>
5 ;; Created: 1998 5 ;; Created: 1998
6 ;; Keywords: tests 6 ;; Keywords: tests
1073 '("foo" "bar")) 1073 '("foo" "bar"))
1074 (Assert-equal (split-string "foo bar " split-string-default-separators) 1074 (Assert-equal (split-string "foo bar " split-string-default-separators)
1075 '("foo" "bar" "")) 1075 '("foo" "bar" ""))
1076 (Assert-equal (split-string "foobar" split-string-default-separators) 1076 (Assert-equal (split-string "foobar" split-string-default-separators)
1077 '("foobar")) 1077 '("foobar"))
1078
1079 ;;-----------------------------------------------------
1080 ;; Test split-string-by-char
1081 ;;-----------------------------------------------------
1082
1083 (Assert
1084 (equal
1085 (split-string-by-char
1086 #r"re\:ee:this\\is\\text\\\\:oo\ps:
1087 Eine Sprache, die stagnirt, ist zu vergleichen mit einem See, dem der
1088 bisherige Quellenzufluß versiegt oder abgeleitet wird. Aus dem Wasser,
1089 worüber der Geist Gottes schwebte, wird Sumpf und Moder, worüber die
1090 unreinen\: Geister brüten.\\
1091 tocopherol
1092 Vitamin E: any or all of a group of closely related fat-soluble compounds
1093 that occur especially in plant oils and are anti-oxidants essential in the
1094 diets of many animals and probably of man. "
1095 ?: ?\\)
1096 '("re:ee" "this\\is\\text\\\\" "oops" "
1097 Eine Sprache, die stagnirt, ist zu vergleichen mit einem See, dem der
1098 bisherige Quellenzufluß versiegt oder abgeleitet wird. Aus dem Wasser,
1099 worüber der Geist Gottes schwebte, wird Sumpf und Moder, worüber die
1100 unreinen: Geister brüten.\\
1101 tocopherol
1102 Vitamin E" " any or all of a group of closely related fat-soluble compounds
1103 that occur especially in plant oils and are anti-oxidants essential in the
1104 diets of many animals and probably of man. ")))
1105 (Assert
1106 (equal
1107 (split-string-by-char
1108 #r"re\:ee:this\\is\\text\\\\:oo\ps:
1109 Eine Sprache, die stagnirt, ist zu vergleichen mit einem See, dem der
1110 bisherige Quellenzufluß versiegt oder abgeleitet wird. Aus dem Wasser,
1111 worüber der Geist Gottes schwebte, wird Sumpf und Moder, worüber die
1112 unreinen\: Geister brüten.\\
1113 tocopherol
1114 Vitamin E: any or all of a group of closely related fat-soluble compounds
1115 that occur especially in plant oils and are anti-oxidants essential in the
1116 diets of many animals and probably of man. "
1117 ?: ?\x00)
1118 '("re\\" "ee" "this\\\\is\\\\text\\\\\\\\" "oo\\ps" "
1119 Eine Sprache, die stagnirt, ist zu vergleichen mit einem See, dem der
1120 bisherige Quellenzufluß versiegt oder abgeleitet wird. Aus dem Wasser,
1121 worüber der Geist Gottes schwebte, wird Sumpf und Moder, worüber die
1122 unreinen\\" " Geister brüten.\\\\
1123 tocopherol
1124 Vitamin E" " any or all of a group of closely related fat-soluble compounds
1125 that occur especially in plant oils and are anti-oxidants essential in the
1126 diets of many animals and probably of man. ")))
1127 (Assert
1128 (equal
1129 (split-string-by-char
1130 #r"re\:ee:this\\is\\text\\\\:oo\ps:
1131 Eine Sprache, die stagnirt, ist zu vergleichen mit einem See, dem der
1132 bisherige Quellenzufluß versiegt oder abgeleitet wird. Aus dem Wasser,
1133 worüber der Geist Gottes schwebte, wird Sumpf und Moder, worüber die
1134 unreinen\: Geister brüten.\\
1135 tocopherol
1136 Vitamin E: any or all of a group of closely related fat-soluble compounds
1137 that occur especially in plant oils and are anti-oxidants essential in the
1138 diets of many animals and probably of man. " ?\\)
1139 '("re" ":ee:this" "" "is" "" "text" "" "" "" ":oo" "ps:
1140 Eine Sprache, die stagnirt, ist zu vergleichen mit einem See, dem der
1141 bisherige Quellenzufluß versiegt oder abgeleitet wird. Aus dem Wasser,
1142 worüber der Geist Gottes schwebte, wird Sumpf und Moder, worüber die
1143 unreinen" ": Geister brüten." "" "
1144 tocopherol
1145 Vitamin E: any or all of a group of closely related fat-soluble compounds
1146 that occur especially in plant oils and are anti-oxidants essential in the
1147 diets of many animals and probably of man. ")))
1078 1148
1079 ;;----------------------------------------------------- 1149 ;;-----------------------------------------------------
1080 ;; Test near-text buffer functions. 1150 ;; Test near-text buffer functions.
1081 ;;----------------------------------------------------- 1151 ;;-----------------------------------------------------
1082 (with-temp-buffer 1152 (with-temp-buffer