开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 通讯编程 > 查看源码
lsetComp.test
资源名称：ns-allinone-2.33.tar.gz　[点击查看]
上传用户：rrhhcc
上传日期：2015-12-11
资源大小：54129k
文件大小：16k
源码类别：

通讯编程

开发平台：

Visual C++

lsetComp.test：源码内容
  1. # This file is a -*- tcl -*- test script
  3. # Commands covered: lset
  4. #
  5. # This file contains a collection of tests for one or more of the Tcl
  6. # built-in commands.  Sourcing this file into Tcl runs the tests and
  7. # generates output for errors.  No output means no errors were found.
  8. #
  9. # Copyright (c) 2001 by Kevin B. Kenny.  All rights reserved.
  10. #
  11. # See the file "license.terms" for information on usage and redistribution
  12. # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  13. #
  14. # RCS: @(#) $Id$
  16. if {[lsearch [namespace children] ::tcltest] == -1} {
  17.     package require tcltest
  18.     namespace import -force ::tcltest::*
  19. }
  21. # Procedure to evaluate a script within a proc, to test compilation
  22. # functionality
  24. proc evalInProc { script } {
  25.     proc testProc {} $script
  26.     set status [catch {
  27. testProc 
  28.     } result]
  29.     rename testProc {}
  30.     return [list $status $result]
  31. }
  33. # Tests for the bytecode compilation of the 'lset' command
  35. test lsetComp-1.1 {lset, compiled, wrong # args} {
  36.     evalInProc {
  37. lset
  38.     }
  39. } "1 {wrong # args: should be "lset listVar index ?index...? value"}"
  41. test lsetComp-2.1 {lset, compiled, list of args, not a simple var name} {
  42.     evalInProc {
  43. set y x
  44. set x {{1 2} {3 4}}
  45. lset $y {1 1} 5
  46.     }
  47. } "0 {{1 2} {3 5}}"
  49. test lsetComp-2.2 {lset, compiled, list of args, scalar on stack} {
  50.     evalInProc {
  51. set ::x {{1 2} {3 4}}
  52. lset ::x {1 1} 5
  53.     }
  54. } "0 {{1 2} {3 5}}"
  56. test lsetComp-2.3 {lset, compiled, list of args, scalar, one-byte offset} {
  57.     evalInProc {
  58. set x {{1 2} {3 4}}
  59. lset x {1 1} 5
  60.     }
  61. } "0 {{1 2} {3 5}}"
  63. test lsetComp-2.4 {lset, compiled, list of args, scalar, four-byte offset} {
  64.     evalInProc {
  65. set x0 0; set x1 0; set x2 0; set x3 0; 
  66. set x4 0; set x5 0; set x6 0; set x7 0; 
  67. set x8 0; set x9 0; set x10 0; set x11 0; 
  68. set x12 0; set x13 0; set x14 0; set x15 0; 
  69. set x16 0; set x17 0; set x18 0; set x19 0; 
  70. set x20 0; set x21 0; set x22 0; set x23 0; 
  71. set x24 0; set x25 0; set x26 0; set x27 0; 
  72. set x28 0; set x29 0; set x30 0; set x31 0; 
  73. set x32 0; set x33 0; set x34 0; set x35 0; 
  74. set x36 0; set x37 0; set x38 0; set x39 0; 
  75. set x40 0; set x41 0; set x42 0; set x43 0; 
  76. set x44 0; set x45 0; set x46 0; set x47 0; 
  77. set x48 0; set x49 0; set x50 0; set x51 0; 
  78. set x52 0; set x53 0; set x54 0; set x55 0; 
  79. set x56 0; set x57 0; set x58 0; set x59 0; 
  80. set x60 0; set x61 0; set x62 0; set x63 0; 
  81. set x64 0; set x65 0; set x66 0; set x67 0; 
  82. set x68 0; set x69 0; set x70 0; set x71 0; 
  83. set x72 0; set x73 0; set x74 0; set x75 0; 
  84. set x76 0; set x77 0; set x78 0; set x79 0; 
  85. set x80 0; set x81 0; set x82 0; set x83 0; 
  86. set x84 0; set x85 0; set x86 0; set x87 0; 
  87. set x88 0; set x89 0; set x90 0; set x91 0; 
  88. set x92 0; set x93 0; set x94 0; set x95 0; 
  89. set x96 0; set x97 0; set x98 0; set x99 0; 
  90. set x100 0; set x101 0; set x102 0; set x103 0; 
  91. set x104 0; set x105 0; set x106 0; set x107 0; 
  92. set x108 0; set x109 0; set x110 0; set x111 0; 
  93. set x112 0; set x113 0; set x114 0; set x115 0; 
  94. set x116 0; set x117 0; set x118 0; set x119 0; 
  95. set x120 0; set x121 0; set x122 0; set x123 0; 
  96. set x124 0; set x125 0; set x126 0; set x127 0; 
  97. set x128 0; set x129 0; set x130 0; set x131 0; 
  98. set x132 0; set x133 0; set x134 0; set x135 0; 
  99. set x136 0; set x137 0; set x138 0; set x139 0; 
  100. set x140 0; set x141 0; set x142 0; set x143 0; 
  101. set x144 0; set x145 0; set x146 0; set x147 0; 
  102. set x148 0; set x149 0; set x150 0; set x151 0; 
  103. set x152 0; set x153 0; set x154 0; set x155 0; 
  104. set x156 0; set x157 0; set x158 0; set x159 0; 
  105. set x160 0; set x161 0; set x162 0; set x163 0; 
  106. set x164 0; set x165 0; set x166 0; set x167 0; 
  107. set x168 0; set x169 0; set x170 0; set x171 0; 
  108. set x172 0; set x173 0; set x174 0; set x175 0; 
  109. set x176 0; set x177 0; set x178 0; set x179 0; 
  110. set x180 0; set x181 0; set x182 0; set x183 0; 
  111. set x184 0; set x185 0; set x186 0; set x187 0; 
  112. set x188 0; set x189 0; set x190 0; set x191 0; 
  113. set x192 0; set x193 0; set x194 0; set x195 0; 
  114. set x196 0; set x197 0; set x198 0; set x199 0; 
  115. set x200 0; set x201 0; set x202 0; set x203 0; 
  116. set x204 0; set x205 0; set x206 0; set x207 0; 
  117. set x208 0; set x209 0; set x210 0; set x211 0; 
  118. set x212 0; set x213 0; set x214 0; set x215 0; 
  119. set x216 0; set x217 0; set x218 0; set x219 0; 
  120. set x220 0; set x221 0; set x222 0; set x223 0; 
  121. set x224 0; set x225 0; set x226 0; set x227 0; 
  122. set x228 0; set x229 0; set x230 0; set x231 0; 
  123. set x232 0; set x233 0; set x234 0; set x235 0; 
  124. set x236 0; set x237 0; set x238 0; set x239 0; 
  125. set x240 0; set x241 0; set x242 0; set x243 0; 
  126. set x244 0; set x245 0; set x246 0; set x247 0; 
  127. set x248 0; set x249 0; set x250 0; set x251 0; 
  128. set x252 0; set x253 0; set x254 0; set x255 0;
  129. set x {{1 2} {3 4}}
  130. lset x {1 1} 5
  131.     }
  132. } "0 {{1 2} {3 5}}"
  134. test lsetComp-2.5 {lset, compiled, list of args, array on stack} {
  135.     evalInProc {
  136. set ::y(0) {{1 2} {3 4}}
  137. lset ::y(0) {1 1} 5
  138.     }
  139. } "0 {{1 2} {3 5}}"
  141. test lsetComp-2.6 {lset, compiled, list of args, array, one-byte offset} {
  142.     evalInProc {
  143. set y(0) {{1 2} {3 4}}
  144. lset y(0) {1 1} 5
  145.     }
  146. } "0 {{1 2} {3 5}}"
  148. test lsetComp-2.7 {lset, compiled, list of args, array, four-byte offset} {
  149.     evalInProc {
  150. set x0 0; set x1 0; set x2 0; set x3 0; 
  151. set x4 0; set x5 0; set x6 0; set x7 0; 
  152. set x8 0; set x9 0; set x10 0; set x11 0; 
  153. set x12 0; set x13 0; set x14 0; set x15 0; 
  154. set x16 0; set x17 0; set x18 0; set x19 0; 
  155. set x20 0; set x21 0; set x22 0; set x23 0; 
  156. set x24 0; set x25 0; set x26 0; set x27 0; 
  157. set x28 0; set x29 0; set x30 0; set x31 0; 
  158. set x32 0; set x33 0; set x34 0; set x35 0; 
  159. set x36 0; set x37 0; set x38 0; set x39 0; 
  160. set x40 0; set x41 0; set x42 0; set x43 0; 
  161. set x44 0; set x45 0; set x46 0; set x47 0; 
  162. set x48 0; set x49 0; set x50 0; set x51 0; 
  163. set x52 0; set x53 0; set x54 0; set x55 0; 
  164. set x56 0; set x57 0; set x58 0; set x59 0; 
  165. set x60 0; set x61 0; set x62 0; set x63 0; 
  166. set x64 0; set x65 0; set x66 0; set x67 0; 
  167. set x68 0; set x69 0; set x70 0; set x71 0; 
  168. set x72 0; set x73 0; set x74 0; set x75 0; 
  169. set x76 0; set x77 0; set x78 0; set x79 0; 
  170. set x80 0; set x81 0; set x82 0; set x83 0; 
  171. set x84 0; set x85 0; set x86 0; set x87 0; 
  172. set x88 0; set x89 0; set x90 0; set x91 0; 
  173. set x92 0; set x93 0; set x94 0; set x95 0; 
  174. set x96 0; set x97 0; set x98 0; set x99 0; 
  175. set x100 0; set x101 0; set x102 0; set x103 0; 
  176. set x104 0; set x105 0; set x106 0; set x107 0; 
  177. set x108 0; set x109 0; set x110 0; set x111 0; 
  178. set x112 0; set x113 0; set x114 0; set x115 0; 
  179. set x116 0; set x117 0; set x118 0; set x119 0; 
  180. set x120 0; set x121 0; set x122 0; set x123 0; 
  181. set x124 0; set x125 0; set x126 0; set x127 0; 
  182. set x128 0; set x129 0; set x130 0; set x131 0; 
  183. set x132 0; set x133 0; set x134 0; set x135 0; 
  184. set x136 0; set x137 0; set x138 0; set x139 0; 
  185. set x140 0; set x141 0; set x142 0; set x143 0; 
  186. set x144 0; set x145 0; set x146 0; set x147 0; 
  187. set x148 0; set x149 0; set x150 0; set x151 0; 
  188. set x152 0; set x153 0; set x154 0; set x155 0; 
  189. set x156 0; set x157 0; set x158 0; set x159 0; 
  190. set x160 0; set x161 0; set x162 0; set x163 0; 
  191. set x164 0; set x165 0; set x166 0; set x167 0; 
  192. set x168 0; set x169 0; set x170 0; set x171 0; 
  193. set x172 0; set x173 0; set x174 0; set x175 0; 
  194. set x176 0; set x177 0; set x178 0; set x179 0; 
  195. set x180 0; set x181 0; set x182 0; set x183 0; 
  196. set x184 0; set x185 0; set x186 0; set x187 0; 
  197. set x188 0; set x189 0; set x190 0; set x191 0; 
  198. set x192 0; set x193 0; set x194 0; set x195 0; 
  199. set x196 0; set x197 0; set x198 0; set x199 0; 
  200. set x200 0; set x201 0; set x202 0; set x203 0; 
  201. set x204 0; set x205 0; set x206 0; set x207 0; 
  202. set x208 0; set x209 0; set x210 0; set x211 0; 
  203. set x212 0; set x213 0; set x214 0; set x215 0; 
  204. set x216 0; set x217 0; set x218 0; set x219 0; 
  205. set x220 0; set x221 0; set x222 0; set x223 0; 
  206. set x224 0; set x225 0; set x226 0; set x227 0; 
  207. set x228 0; set x229 0; set x230 0; set x231 0; 
  208. set x232 0; set x233 0; set x234 0; set x235 0; 
  209. set x236 0; set x237 0; set x238 0; set x239 0; 
  210. set x240 0; set x241 0; set x242 0; set x243 0; 
  211. set x244 0; set x245 0; set x246 0; set x247 0; 
  212. set x248 0; set x249 0; set x250 0; set x251 0; 
  213. set x252 0; set x253 0; set x254 0; set x255 0;
  214. set y(0) {{1 2} {3 4}}
  215. lset y(0) {1 1} 5
  216.     }
  217. } "0 {{1 2} {3 5}}"
  219. test lsetComp-2.8 {lset, compiled, list of args, error } {
  220.     evalInProc {
  221. set x { {1 2} {3 4} }
  222. lset x {1 5} 5
  223.     }
  224. } "1 {list index out of range}"
  226. test lsetComp-2.9 {lset, compiled, list of args, error - is string preserved} {
  227.     set ::x { { 1 2 } { 3 4 } }
  228.     evalInProc {
  229. lset ::x { 1 5 } 5
  230.     }
  231.     list $::x [lindex $::x 1]
  232. } "{ { 1 2 } { 3 4 } } { 3 4 }"
  234. test lsetComp-3.1 {lset, compiled, flat args, not a simple var name} {
  235.     evalInProc {
  236. set y x
  237. set x {{1 2} {3 4}}
  238. lset $y 1 1 5
  239.     }
  240. } "0 {{1 2} {3 5}}"
  242. test lsetComp-3.2 {lset, compiled, flat args, scalar on stack} {
  243.     evalInProc {
  244. set ::x {{1 2} {3 4}}
  245. lset ::x 1 1 5
  246.     }
  247. } "0 {{1 2} {3 5}}"
  249. test lsetComp-3.3 {lset, compiled, flat args, scalar, one-byte offset} {
  250.     evalInProc {
  251. set x {{1 2} {3 4}}
  252. lset x 1 1 5
  253.     }
  254. } "0 {{1 2} {3 5}}"
  256. test lsetComp-3.4 {lset, compiled, scalar, four-byte offset} {
  257.     evalInProc {
  258. set x0 0; set x1 0; set x2 0; set x3 0; 
  259. set x4 0; set x5 0; set x6 0; set x7 0; 
  260. set x8 0; set x9 0; set x10 0; set x11 0; 
  261. set x12 0; set x13 0; set x14 0; set x15 0; 
  262. set x16 0; set x17 0; set x18 0; set x19 0; 
  263. set x20 0; set x21 0; set x22 0; set x23 0; 
  264. set x24 0; set x25 0; set x26 0; set x27 0; 
  265. set x28 0; set x29 0; set x30 0; set x31 0; 
  266. set x32 0; set x33 0; set x34 0; set x35 0; 
  267. set x36 0; set x37 0; set x38 0; set x39 0; 
  268. set x40 0; set x41 0; set x42 0; set x43 0; 
  269. set x44 0; set x45 0; set x46 0; set x47 0; 
  270. set x48 0; set x49 0; set x50 0; set x51 0; 
  271. set x52 0; set x53 0; set x54 0; set x55 0; 
  272. set x56 0; set x57 0; set x58 0; set x59 0; 
  273. set x60 0; set x61 0; set x62 0; set x63 0; 
  274. set x64 0; set x65 0; set x66 0; set x67 0; 
  275. set x68 0; set x69 0; set x70 0; set x71 0; 
  276. set x72 0; set x73 0; set x74 0; set x75 0; 
  277. set x76 0; set x77 0; set x78 0; set x79 0; 
  278. set x80 0; set x81 0; set x82 0; set x83 0; 
  279. set x84 0; set x85 0; set x86 0; set x87 0; 
  280. set x88 0; set x89 0; set x90 0; set x91 0; 
  281. set x92 0; set x93 0; set x94 0; set x95 0; 
  282. set x96 0; set x97 0; set x98 0; set x99 0; 
  283. set x100 0; set x101 0; set x102 0; set x103 0; 
  284. set x104 0; set x105 0; set x106 0; set x107 0; 
  285. set x108 0; set x109 0; set x110 0; set x111 0; 
  286. set x112 0; set x113 0; set x114 0; set x115 0; 
  287. set x116 0; set x117 0; set x118 0; set x119 0; 
  288. set x120 0; set x121 0; set x122 0; set x123 0; 
  289. set x124 0; set x125 0; set x126 0; set x127 0; 
  290. set x128 0; set x129 0; set x130 0; set x131 0; 
  291. set x132 0; set x133 0; set x134 0; set x135 0; 
  292. set x136 0; set x137 0; set x138 0; set x139 0; 
  293. set x140 0; set x141 0; set x142 0; set x143 0; 
  294. set x144 0; set x145 0; set x146 0; set x147 0; 
  295. set x148 0; set x149 0; set x150 0; set x151 0; 
  296. set x152 0; set x153 0; set x154 0; set x155 0; 
  297. set x156 0; set x157 0; set x158 0; set x159 0; 
  298. set x160 0; set x161 0; set x162 0; set x163 0; 
  299. set x164 0; set x165 0; set x166 0; set x167 0; 
  300. set x168 0; set x169 0; set x170 0; set x171 0; 
  301. set x172 0; set x173 0; set x174 0; set x175 0; 
  302. set x176 0; set x177 0; set x178 0; set x179 0; 
  303. set x180 0; set x181 0; set x182 0; set x183 0; 
  304. set x184 0; set x185 0; set x186 0; set x187 0; 
  305. set x188 0; set x189 0; set x190 0; set x191 0; 
  306. set x192 0; set x193 0; set x194 0; set x195 0; 
  307. set x196 0; set x197 0; set x198 0; set x199 0; 
  308. set x200 0; set x201 0; set x202 0; set x203 0; 
  309. set x204 0; set x205 0; set x206 0; set x207 0; 
  310. set x208 0; set x209 0; set x210 0; set x211 0; 
  311. set x212 0; set x213 0; set x214 0; set x215 0; 
  312. set x216 0; set x217 0; set x218 0; set x219 0; 
  313. set x220 0; set x221 0; set x222 0; set x223 0; 
  314. set x224 0; set x225 0; set x226 0; set x227 0; 
  315. set x228 0; set x229 0; set x230 0; set x231 0; 
  316. set x232 0; set x233 0; set x234 0; set x235 0; 
  317. set x236 0; set x237 0; set x238 0; set x239 0; 
  318. set x240 0; set x241 0; set x242 0; set x243 0; 
  319. set x244 0; set x245 0; set x246 0; set x247 0; 
  320. set x248 0; set x249 0; set x250 0; set x251 0; 
  321. set x252 0; set x253 0; set x254 0; set x255 0;
  322. set x {{1 2} {3 4}}
  323. lset x 1 1 5
  324.     }
  325. } "0 {{1 2} {3 5}}"
  327. test lsetComp-3.5 {lset, compiled, flat args, array on stack} {
  328.     evalInProc {
  329. set ::y(0) {{1 2} {3 4}}
  330. lset ::y(0) 1 1 5
  331.     }
  332. } "0 {{1 2} {3 5}}"
  334. test lsetComp-3.6 {lset, compiled, flat args, array, one-byte offset} {
  335.     evalInProc {
  336. set y(0) {{1 2} {3 4}}
  337. lset y(0) 1 1 5
  338.     }
  339. } "0 {{1 2} {3 5}}"
  341. test lsetComp-3.7 {lset, compiled, flat args, array, four-byte offset} {
  342.     evalInProc {
  343. set x0 0; set x1 0; set x2 0; set x3 0; 
  344. set x4 0; set x5 0; set x6 0; set x7 0; 
  345. set x8 0; set x9 0; set x10 0; set x11 0; 
  346. set x12 0; set x13 0; set x14 0; set x15 0; 
  347. set x16 0; set x17 0; set x18 0; set x19 0; 
  348. set x20 0; set x21 0; set x22 0; set x23 0; 
  349. set x24 0; set x25 0; set x26 0; set x27 0; 
  350. set x28 0; set x29 0; set x30 0; set x31 0; 
  351. set x32 0; set x33 0; set x34 0; set x35 0; 
  352. set x36 0; set x37 0; set x38 0; set x39 0; 
  353. set x40 0; set x41 0; set x42 0; set x43 0; 
  354. set x44 0; set x45 0; set x46 0; set x47 0; 
  355. set x48 0; set x49 0; set x50 0; set x51 0; 
  356. set x52 0; set x53 0; set x54 0; set x55 0; 
  357. set x56 0; set x57 0; set x58 0; set x59 0; 
  358. set x60 0; set x61 0; set x62 0; set x63 0; 
  359. set x64 0; set x65 0; set x66 0; set x67 0; 
  360. set x68 0; set x69 0; set x70 0; set x71 0; 
  361. set x72 0; set x73 0; set x74 0; set x75 0; 
  362. set x76 0; set x77 0; set x78 0; set x79 0; 
  363. set x80 0; set x81 0; set x82 0; set x83 0; 
  364. set x84 0; set x85 0; set x86 0; set x87 0; 
  365. set x88 0; set x89 0; set x90 0; set x91 0; 
  366. set x92 0; set x93 0; set x94 0; set x95 0; 
  367. set x96 0; set x97 0; set x98 0; set x99 0; 
  368. set x100 0; set x101 0; set x102 0; set x103 0; 
  369. set x104 0; set x105 0; set x106 0; set x107 0; 
  370. set x108 0; set x109 0; set x110 0; set x111 0; 
  371. set x112 0; set x113 0; set x114 0; set x115 0; 
  372. set x116 0; set x117 0; set x118 0; set x119 0; 
  373. set x120 0; set x121 0; set x122 0; set x123 0; 
  374. set x124 0; set x125 0; set x126 0; set x127 0; 
  375. set x128 0; set x129 0; set x130 0; set x131 0; 
  376. set x132 0; set x133 0; set x134 0; set x135 0; 
  377. set x136 0; set x137 0; set x138 0; set x139 0; 
  378. set x140 0; set x141 0; set x142 0; set x143 0; 
  379. set x144 0; set x145 0; set x146 0; set x147 0; 
  380. set x148 0; set x149 0; set x150 0; set x151 0; 
  381. set x152 0; set x153 0; set x154 0; set x155 0; 
  382. set x156 0; set x157 0; set x158 0; set x159 0; 
  383. set x160 0; set x161 0; set x162 0; set x163 0; 
  384. set x164 0; set x165 0; set x166 0; set x167 0; 
  385. set x168 0; set x169 0; set x170 0; set x171 0; 
  386. set x172 0; set x173 0; set x174 0; set x175 0; 
  387. set x176 0; set x177 0; set x178 0; set x179 0; 
  388. set x180 0; set x181 0; set x182 0; set x183 0; 
  389. set x184 0; set x185 0; set x186 0; set x187 0; 
  390. set x188 0; set x189 0; set x190 0; set x191 0; 
  391. set x192 0; set x193 0; set x194 0; set x195 0; 
  392. set x196 0; set x197 0; set x198 0; set x199 0; 
  393. set x200 0; set x201 0; set x202 0; set x203 0; 
  394. set x204 0; set x205 0; set x206 0; set x207 0; 
  395. set x208 0; set x209 0; set x210 0; set x211 0; 
  396. set x212 0; set x213 0; set x214 0; set x215 0; 
  397. set x216 0; set x217 0; set x218 0; set x219 0; 
  398. set x220 0; set x221 0; set x222 0; set x223 0; 
  399. set x224 0; set x225 0; set x226 0; set x227 0; 
  400. set x228 0; set x229 0; set x230 0; set x231 0; 
  401. set x232 0; set x233 0; set x234 0; set x235 0; 
  402. set x236 0; set x237 0; set x238 0; set x239 0; 
  403. set x240 0; set x241 0; set x242 0; set x243 0; 
  404. set x244 0; set x245 0; set x246 0; set x247 0; 
  405. set x248 0; set x249 0; set x250 0; set x251 0; 
  406. set x252 0; set x253 0; set x254 0; set x255 0;
  407. set y(0) {{1 2} {3 4}}
  408. lset y(0) 1 1 5
  409.     }
  410. } "0 {{1 2} {3 5}}"
  412. test lsetComp-3.8 {lset, compiled, flat args, error } {
  413.     evalInProc {
  414. set x { {1 2} {3 4} }
  415. lset x 1 5 5
  416.     }
  417. } "1 {list index out of range}"
  419. test lsetComp-3.9 {lset, compiled, flat args, error - is string preserved} {
  420.     set ::x { { 1 2 } { 3 4 } }
  421.     evalInProc {
  422. lset ::x 1 5 5
  423.     }
  424.     list $::x [lindex $::x 1]
  425. } "{ { 1 2 } { 3 4 } } { 3 4 }"
  427. catch { rename evalInProc {} }
  428. catch { unset ::x }
  429. catch { unset ::y }
  431. # cleanup
  432. ::tcltest::cleanupTests
  433. return