Posted to tcl by emiliano at Mon Feb 04 23:34:12 GMT 2008view raw

  1. LD_LIBRARY_PATH=`pwd`:${LD_LIBRARY_PATH}; export LD_LIBRARY_PATH; TCL_LIBRARY="/home/emiliano/tcl8.5.1/library"; export TCL_LIBRARY; ./tcltest /home/emiliano/tcl8.5.1/unix/../tests/all.tcl
  2. Tests running in interp: /home/emiliano/tcl8.5.1/unix/tcltest
  3. Tests located in: /home/emiliano/tcl8.5.1/tests
  4. Tests running in: /home/emiliano/tcl8.5.1/unix
  5. Temporary files stored in /home/emiliano/tcl8.5.1/unix
  6. Test files run in separate interpreters
  7. Running tests that match: *
  8. Skipping test files that match: l.*.test
  9. Only running test files that match: *.test
  10. Tests began at Mon Feb 04 18:00:44 ART 2008
  11. append.test
  12. appendComp.test
  13. apply.test
  14. assocd.test
  15. async.test
  16. autoMkindex.test
  17. basic.test
  18. binary.test
  19. case.test
  20. chan.test
  21. chanio.test
  22. clock.test
  23.  
  24.  
  25. ==== clock-33.8a clock test, microsecond timing test FAILED
  26. ==== Contents of test case:
  27.  
  28. set start [clock microseconds]
  29. after 10
  30. set end [clock microseconds]
  31. expr {($end > $start) && (($end - $start) <= 60000)}
  32.  
  33. ---- Result was:
  34. 0
  35. ---- Result should have been (exact matching):
  36. 1
  37. ==== clock-33.8a FAILED
  38.  
  39. cmdAH.test
  40. cmdIL.test
  41. cmdInfo.test
  42. cmdMZ.test
  43. compExpr-old.test
  44. compExpr.test
  45. compile.test
  46. concat.test
  47. config.test
  48. dcall.test
  49. dict.test
  50. dstring.test
  51. encoding.test
  52. env.test
  53. error.test
  54. eval.test
  55. event.test
  56.  
  57.  
  58. ==== event-7.4 tkerror is nothing special anymore to tcl FAILED
  59. ==== Contents of test case:
  60.  
  61. set errRes {}
  62. # we don't just rename bgerror to empty because it could then
  63. # be autoloaded...
  64. proc bgerror {err} {
  65. global errRes;
  66. lappend errRes "bg:$err";
  67. }
  68. proc tkerror {err} {
  69. global errRes;
  70. lappend errRes "tk:$err";
  71. }
  72. after 0 {error err1}
  73. update
  74. rename tkerror {}
  75. set errRes
  76.  
  77. ---- Result was:
  78.  
  79. ---- Result should have been (exact matching):
  80. bg:err1
  81. ==== event-7.4 FAILED
  82.  
  83.  
  84.  
  85. ==== event-7.7 safe hidden bgerror fallback FAILED
  86. ==== Contents of test case:
  87.  
  88. variable result {}
  89. interp create -safe safe
  90. safe alias puts puts
  91. safe alias result ::append [namespace which -variable result]
  92. safe eval {proc bgerror m {result $m\n$::errorCode\n$::errorInfo\n}}
  93. safe hide bgerror
  94. safe eval {proc bgerror m {error bar soom baz}}
  95. safe eval after 0 error foo
  96. update
  97. interp delete safe
  98. set result
  99.  
  100. ---- Result was:
  101.  
  102. ---- Result should have been (exact matching):
  103. foo
  104. NONE
  105. foo
  106. while executing
  107. "error foo"
  108. ("after" script)
  109.  
  110. ==== event-7.7 FAILED
  111.  
  112.  
  113.  
  114. ==== event-12.4 Tcl_UpdateCmd procedure FAILED
  115. ==== Contents of test case:
  116.  
  117. foreach i [after info] {
  118. after cancel $i
  119. }
  120. after 10; update; # On Mac make sure update won't take long
  121. after 200 {set x x-done}
  122. after 600 {set y y-done}
  123. after idle {set z z-done}
  124. set x before
  125. set y before
  126. set z before
  127. after 300
  128. update
  129. list $x $y $z
  130.  
  131. ---- Result was:
  132. x-done y-done z-done
  133. ---- Result should have been (exact matching):
  134. x-done before z-done
  135. ==== event-12.4 FAILED
  136.  
  137. exec.test
  138. execute.test
  139. expr-old.test
  140. expr.test
  141. fCmd.test
  142. fileName.test
  143. fileSystem.test
  144. for-old.test
  145. for.test
  146. foreach.test
  147. format.test
  148. get.test
  149. history.test
  150. http.test
  151. httpold.test
  152. if-old.test
  153. if.test
  154. incr-old.test
  155. incr.test
  156. indexObj.test
  157. info.test
  158. init.test
  159. : Total 25 Passed 25 Skipped 0 Failed 0
  160. interp.test
  161. io.test
  162. ioCmd.test
  163. ioUtil.test
  164. iogt.test
  165. join.test
  166. lindex.test
  167. link.test
  168. linsert.test
  169. list.test
  170. listObj.test
  171. llength.test
  172. load.test
  173. lrange.test
  174. lrepeat.test
  175. lreplace.test
  176. lsearch.test
  177. lset.test
  178. lsetComp.test
  179. macOSXFCmd.test
  180. macOSXLoad.test
  181. main.test
  182. mathop.test
  183. misc.test
  184. msgcat.test
  185. namespace-old.test
  186. namespace.test
  187. notify.test
  188. obj.test
  189. opt.test
  190. package.test
  191. parse.test
  192. parseExpr.test
  193. parseOld.test
  194. pid.test
  195. pkg.test
  196. : Total 384 Passed 384 Skipped 0 Failed 0
  197. pkgMkIndex.test
  198. platform.test
  199. proc-old.test
  200. proc.test
  201. pwd.test
  202. reg.test
  203. regexp.test
  204. regexpComp.test
  205. registry.test
  206. rename.test
  207. result.test
  208. safe.test
  209. scan.test
  210. security.test
  211. set-old.test
  212. set.test
  213. socket.test
  214.  
  215.  
  216. ==== socket-11.11 testing spurious events FAILED
  217. ==== Contents of test case:
  218.  
  219. sendCommand {
  220. set socket10_13_test_server [socket -server accept 2836]
  221. proc accept {s a p} {
  222. fconfigure $s -translation "auto lf"
  223. after 100 writesome $s
  224. }
  225. proc writesome {s} {
  226. for {set i 0} {$i < 100} {incr i} {
  227. puts $s "line $i from remote server"
  228. }
  229. close $s
  230. }
  231. }
  232. set len 0
  233. set spurious 0
  234. set done 0
  235. proc readlittle {s} {
  236. global spurious done len
  237. set l [read $s 1]
  238. if {[string length $l] == 0} {
  239. if {![eof $s]} {
  240. incr spurious
  241. } else {
  242. close $s
  243. set done 1
  244. }
  245. } else {
  246. incr len [string length $l]
  247. }
  248. }
  249. set c [socket $remoteServerIP 2836]
  250. fileevent $c readable "readlittle $c"
  251. set timer [after 40000 "set done timed_out"]
  252. vwait done
  253. after cancel $timer
  254. sendCommand {close $socket10_13_test_server}
  255. list $spurious $len $done
  256.  
  257. ---- Result was:
  258. 0 357 timed_out
  259. ---- Result should have been (exact matching):
  260. 0 2690 1
  261. ==== socket-11.11 FAILED
  262.  
  263. source.test
  264. split.test
  265. stack.test
  266. Test file error: WARNING: the default application stacksize of 2048 may cause Tcl to
  267. crash due to stack overflow before the recursion limit is reached.
  268. A minimum stacksize of 2400 kbytes is recommended.
  269. Skipping infinite recursion test.
  270. string.test
  271. stringComp.test
  272. stringObj.test
  273. subst.test
  274. switch.test
  275. tcltest.test
  276. thread.test
  277. timer.test
  278.  
  279.  
  280. ==== timer-1.1 Tcl_CreateTimerHandler procedure FAILED
  281. ==== Contents of test case:
  282.  
  283. foreach i [after info] {
  284. after cancel $i
  285. }
  286. set x ""
  287. foreach i {100 200 1000 50 150} {
  288. after $i lappend x $i
  289. }
  290. after 200 set done 1
  291. vwait done
  292. set x
  293.  
  294. ---- Result was:
  295. 50 150 200
  296. ---- Result should have been (exact matching):
  297. 50 100 150 200
  298. ==== timer-1.1 FAILED
  299.  
  300.  
  301.  
  302. ==== timer-3.1 TimerHandlerEventProc procedure: event masks FAILED
  303. ==== Contents of test case:
  304.  
  305. set x start
  306. after 100 { set x fired }
  307. update idletasks
  308. set result $x
  309. after 200
  310. update
  311. lappend result $x
  312.  
  313. ---- Result was:
  314. start {fired 1000}
  315. ---- Result should have been (exact matching):
  316. start fired
  317. ==== timer-3.1 FAILED
  318.  
  319.  
  320.  
  321. ==== timer-6.4 Tcl_AfterCmd procedure, ms argument FAILED
  322. ==== Contents of test case:
  323.  
  324. set x before
  325. after 400 {set x after}
  326. after 200
  327. update
  328. set y $x
  329. after 400
  330. update
  331. list $y $x
  332.  
  333. ---- Result was:
  334. after after
  335. ---- Result should have been (exact matching):
  336. before after
  337. ==== timer-6.4 FAILED
  338.  
  339. tm.test
  340. trace.test
  341. unixFCmd.test
  342. unixFile.test
  343. unixInit.test
  344. unixNotfy.test
  345. unknown.test
  346. unload.test
  347. uplevel.test
  348. upvar.test
  349. utf.test
  350. util.test
  351. var.test
  352. while-old.test
  353. while.test
  354. winConsole.test
  355. winDde.test
  356. winFCmd.test
  357. winFile.test
  358. winNotify.test
  359. winPipe.test
  360. winTime.test
  361.  
  362. Tests ended at Mon Feb 04 18:30:01 ART 2008
  363. all.tcl: Total 24180 Passed 23073 Skipped 1099 Failed 8
  364. Sourced 137 Test Files.
  365. Files with failing tests: clock.test event.test socket.test timer.test
  366. Number of tests skipped for each constraint:
  367. 9 !ieeeFloatingPoint
  368. 2 95or98
  369. 3 asyncPipeChan
  370. 76 bigEndian
  371. 4 dontCopyLinks
  372. 59 emptyTest
  373. 2 hasIsoLocale
  374. 29 knownBug
  375. 2 knownBug !singleTestInterp
  376. 2 largefileSupport
  377. 100 localeRegexp
  378. 12 longIs64bit
  379. 14 macosxFileAttr
  380. 15 memory
  381. 2 minStack2400
  382. 41 nonPortable
  383. 5 notNetworkFilesystem
  384. 8 nt
  385. 1 testWinCPUID
  386. 7 testaccessproc
  387. 1 testexprparser && !ieeeFloatingPoint
  388. 8 testopenfilechannelproc
  389. 7 teststatproc
  390. 122 testthread
  391. 1 testwinclock
  392. 21 testwordend
  393. 3 threaded
  394. 3 unknownFailure
  395. 524 win
  396. 5 xdev
  397.  
  398. Test files exiting with errors:
  399.  
  400. stack.test
  401.  
  402.