comparison tests/automated/lisp-tests.el @ 5036:9624523604c5

Use better types when ESCAPECHAR is specified, split_string_by_ichar_1 src/ChangeLog addition: 2010-02-19 Aidan Kehoe <kehoea@parhasard.net> * fns.c (split_string_by_ichar_1): Use better types (e.g., not an Ichar for a buffer size) in this function when dealing with ESCAPECHAR. tests/ChangeLog addition: 2010-02-19 Aidan Kehoe <kehoea@parhasard.net> * automated/lisp-tests.el: Change the #'split-string-by-char text to use US federal government information instead of a couple of sentences from the OED; the latter would probably have qualified as non-infringement, but with the former the question won't arise. (The German text in the same tests is from a very public domain 19th-century work.)
author Aidan Kehoe <kehoea@parhasard.net>
date Fri, 19 Feb 2010 23:46:53 +0000
parents b1e48555be7d
children 0f66906b6e37
comparison
equal deleted inserted replaced
5035:b1e48555be7d 5036:9624523604c5
1086 #r"re\:ee:this\\is\\text\\\\:oo\ps: 1086 #r"re\:ee:this\\is\\text\\\\:oo\ps:
1087 Eine Sprache, die stagnirt, ist zu vergleichen mit einem See, dem der 1087 Eine Sprache, die stagnirt, ist zu vergleichen mit einem See, dem der
1088 bisherige Quellenzufluß versiegt oder abgeleitet wird. Aus dem Wasser, 1088 bisherige Quellenzufluß versiegt oder abgeleitet wird. Aus dem Wasser,
1089 worüber der Geist Gottes schwebte, wird Sumpf und Moder, worüber die 1089 worüber der Geist Gottes schwebte, wird Sumpf und Moder, worüber die
1090 unreinen\: Geister brüten.\\ 1090 unreinen\: Geister brüten.\\
1091 tocopherol 1091 Serum concentrations of vitamin E: (alpha-tocopherol) depend on the liver,
1092 Vitamin E: any or all of a group of closely related fat-soluble compounds 1092 which takes up the nutrient after the various forms are absorbed from the
1093 that occur especially in plant oils and are anti-oxidants essential in the 1093 small intestine. The liver preferentially resecretes only alpha-tocopherol
1094 diets of many animals and probably of man. " 1094 via the hepatic alpha-tocopherol transfer protein"
1095 ?: ?\\) 1095 ?: ?\\)
1096 '("re:ee" "this\\is\\text\\\\" "oops" " 1096 '("re:ee" "this\\is\\text\\\\" "oops" "
1097 Eine Sprache, die stagnirt, ist zu vergleichen mit einem See, dem der 1097 Eine Sprache, die stagnirt, ist zu vergleichen mit einem See, dem der
1098 bisherige Quellenzufluß versiegt oder abgeleitet wird. Aus dem Wasser, 1098 bisherige Quellenzufluß versiegt oder abgeleitet wird. Aus dem Wasser,
1099 worüber der Geist Gottes schwebte, wird Sumpf und Moder, worüber die 1099 worüber der Geist Gottes schwebte, wird Sumpf und Moder, worüber die
1100 unreinen: Geister brüten.\\ 1100 unreinen: Geister brüten.\\
1101 tocopherol 1101 Serum concentrations of vitamin E" " (alpha-tocopherol) depend on the liver,
1102 Vitamin E" " any or all of a group of closely related fat-soluble compounds 1102 which takes up the nutrient after the various forms are absorbed from the
1103 that occur especially in plant oils and are anti-oxidants essential in the 1103 small intestine. The liver preferentially resecretes only alpha-tocopherol
1104 diets of many animals and probably of man. "))) 1104 via the hepatic alpha-tocopherol transfer protein")))
1105 (Assert 1105 (Assert
1106 (equal 1106 (equal
1107 (split-string-by-char 1107 (split-string-by-char
1108 #r"re\:ee:this\\is\\text\\\\:oo\ps: 1108 #r"re\:ee:this\\is\\text\\\\:oo\ps:
1109 Eine Sprache, die stagnirt, ist zu vergleichen mit einem See, dem der 1109 Eine Sprache, die stagnirt, ist zu vergleichen mit einem See, dem der
1110 bisherige Quellenzufluß versiegt oder abgeleitet wird. Aus dem Wasser, 1110 bisherige Quellenzufluß versiegt oder abgeleitet wird. Aus dem Wasser,
1111 worüber der Geist Gottes schwebte, wird Sumpf und Moder, worüber die 1111 worüber der Geist Gottes schwebte, wird Sumpf und Moder, worüber die
1112 unreinen\: Geister brüten.\\ 1112 unreinen\: Geister brüten.\\
1113 tocopherol 1113 Serum concentrations of vitamin E: (alpha-tocopherol) depend on the liver,
1114 Vitamin E: any or all of a group of closely related fat-soluble compounds 1114 which takes up the nutrient after the various forms are absorbed from the
1115 that occur especially in plant oils and are anti-oxidants essential in the 1115 small intestine. The liver preferentially resecretes only alpha-tocopherol
1116 diets of many animals and probably of man. " 1116 via the hepatic alpha-tocopherol transfer protein"
1117 ?: ?\x00) 1117 ?: ?\x00)
1118 '("re\\" "ee" "this\\\\is\\\\text\\\\\\\\" "oo\\ps" " 1118 '("re\\" "ee" "this\\\\is\\\\text\\\\\\\\" "oo\\ps" "
1119 Eine Sprache, die stagnirt, ist zu vergleichen mit einem See, dem der 1119 Eine Sprache, die stagnirt, ist zu vergleichen mit einem See, dem der
1120 bisherige Quellenzufluß versiegt oder abgeleitet wird. Aus dem Wasser, 1120 bisherige Quellenzufluß versiegt oder abgeleitet wird. Aus dem Wasser,
1121 worüber der Geist Gottes schwebte, wird Sumpf und Moder, worüber die 1121 worüber der Geist Gottes schwebte, wird Sumpf und Moder, worüber die
1122 unreinen\\" " Geister brüten.\\\\ 1122 unreinen\\" " Geister brüten.\\\\
1123 tocopherol 1123 Serum concentrations of vitamin E" " (alpha-tocopherol) depend on the liver,
1124 Vitamin E" " any or all of a group of closely related fat-soluble compounds 1124 which takes up the nutrient after the various forms are absorbed from the
1125 that occur especially in plant oils and are anti-oxidants essential in the 1125 small intestine. The liver preferentially resecretes only alpha-tocopherol
1126 diets of many animals and probably of man. "))) 1126 via the hepatic alpha-tocopherol transfer protein")))
1127 (Assert 1127 (Assert
1128 (equal 1128 (equal
1129 (split-string-by-char 1129 (split-string-by-char
1130 #r"re\:ee:this\\is\\text\\\\:oo\ps: 1130 #r"re\:ee:this\\is\\text\\\\:oo\ps:
1131 Eine Sprache, die stagnirt, ist zu vergleichen mit einem See, dem der 1131 Eine Sprache, die stagnirt, ist zu vergleichen mit einem See, dem der
1132 bisherige Quellenzufluß versiegt oder abgeleitet wird. Aus dem Wasser, 1132 bisherige Quellenzufluß versiegt oder abgeleitet wird. Aus dem Wasser,
1133 worüber der Geist Gottes schwebte, wird Sumpf und Moder, worüber die 1133 worüber der Geist Gottes schwebte, wird Sumpf und Moder, worüber die
1134 unreinen\: Geister brüten.\\ 1134 unreinen\: Geister brüten.\\
1135 tocopherol 1135 Serum concentrations of vitamin E: (alpha-tocopherol) depend on the liver,
1136 Vitamin E: any or all of a group of closely related fat-soluble compounds 1136 which takes up the nutrient after the various forms are absorbed from the
1137 that occur especially in plant oils and are anti-oxidants essential in the 1137 small intestine. The liver preferentially resecretes only alpha-tocopherol
1138 diets of many animals and probably of man. " ?\\) 1138 via the hepatic alpha-tocopherol transfer protein" ?\\)
1139 '("re" ":ee:this" "" "is" "" "text" "" "" "" ":oo" "ps: 1139 '("re" ":ee:this" "" "is" "" "text" "" "" "" ":oo" "ps:
1140 Eine Sprache, die stagnirt, ist zu vergleichen mit einem See, dem der 1140 Eine Sprache, die stagnirt, ist zu vergleichen mit einem See, dem der
1141 bisherige Quellenzufluß versiegt oder abgeleitet wird. Aus dem Wasser, 1141 bisherige Quellenzufluß versiegt oder abgeleitet wird. Aus dem Wasser,
1142 worüber der Geist Gottes schwebte, wird Sumpf und Moder, worüber die 1142 worüber der Geist Gottes schwebte, wird Sumpf und Moder, worüber die
1143 unreinen" ": Geister brüten." "" " 1143 unreinen" ": Geister brüten." "" "
1144 tocopherol 1144 Serum concentrations of vitamin E: (alpha-tocopherol) depend on the liver,
1145 Vitamin E: any or all of a group of closely related fat-soluble compounds 1145 which takes up the nutrient after the various forms are absorbed from the
1146 that occur especially in plant oils and are anti-oxidants essential in the 1146 small intestine. The liver preferentially resecretes only alpha-tocopherol
1147 diets of many animals and probably of man. "))) 1147 via the hepatic alpha-tocopherol transfer protein")))
1148 1148
1149 ;;----------------------------------------------------- 1149 ;;-----------------------------------------------------
1150 ;; Test near-text buffer functions. 1150 ;; Test near-text buffer functions.
1151 ;;----------------------------------------------------- 1151 ;;-----------------------------------------------------
1152 (with-temp-buffer 1152 (with-temp-buffer