Posted to tcl by hypnotoad at Tue Nov 07 16:42:39 GMT 2017view raw

  1. TCL_LIBRARY="/odie/irm-faceset/tcl/library"; export TCL_LIBRARY; \
  2. ./tclsh87.exe "./../tests/all.tcl" \
  3. -load "package ifneeded Tcltest 8.7a2 [list load [file normalize tcltest87.dll] Tcltest]; \
  4. package ifneeded dde 1.4.0 [list load [file normalize tcldde14.dll] dde]; \
  5. package ifneeded registry 1.3.2 [list load [file normalize tclreg13.dll] registry]" | ./cat32.exe
  6. Tests running in interp: o:/odie/irm-faceset/tcl/win/tclsh87.exe
  7. Tests located in: O:/odie/irm-faceset/tcl/tests
  8. Tests running in: O:/odie/irm-faceset/tcl/win
  9. Temporary files stored in O:/odie/irm-faceset/tcl/win
  10. Test files run in separate interpreters
  11. Running tests that match: *
  12. Skipping test files that match: l.*.test
  13. Only running test files that match: *.test
  14. Tests began at Tue Nov 07 11:31:18 -0500 2017
  15. aaa_exit.test
  16. append.test
  17. appendComp.test
  18. apply.test
  19. assemble.test
  20. assocd.test
  21. async.test
  22. autoMkindex.test
  23. basic.test
  24. binary.test
  25. case.test
  26. chan.test
  27. chanio.test
  28.  
  29.  
  30. ==== chan-io-60.1 writing illegal utf sequences FAILED
  31. ==== Contents of test case:
  32.  
  33. # This test will hang in older revisions of the core.
  34. set out [open $path(script) w]
  35. chan puts $out {
  36. chan puts [testbytestring \xe2]
  37. exit 1
  38. }
  39. proc readit {pipe} {
  40. variable x
  41. variable result
  42. if {[chan eof $pipe]} {
  43. set x [catch {chan close $pipe} line]
  44. lappend result catch $line
  45. } else {
  46. chan gets $pipe line
  47. lappend result gets $line
  48. }
  49. }
  50. chan close $out
  51. set pipe [openpipe r $path(script)]
  52. chan event $pipe readable [namespace code [list readit $pipe]]
  53. variable x ""
  54. set result ""
  55. vwait [namespace which -variable x]
  56. # cut of the remainder of the error stack, especially the filename
  57. set result [lreplace $result 3 3 [lindex [split [lindex $result 3] \n] 0]]
  58. list $x $result
  59.  
  60. ---- Result was:
  61. 1 {gets {} catch {invalid command name "testbytestring"}}
  62. ---- Result should have been (exact matching):
  63. 1 {gets {} catch {error writing "stdout": invalid argument}}
  64. ==== chan-io-60.1 FAILED
  65.  
  66. clock.test
  67. cmdAH.test
  68.  
  69.  
  70. ==== cmdAH-20.7.1 Tcl_FileObjCmd: atime (built-in Windows names with dir path and extension) FAILED
  71. ==== Contents of test case:
  72.  
  73. file atime [file join [temporaryDirectory] CON.txt]
  74.  
  75. ---- Result was:
  76. could not read "O:/odie/irm-faceset/tcl/win/CON.txt": no such file or directory
  77. ---- Result should have been (exact matching):
  78. could not get access time for file "O:/odie/irm-faceset/tcl/win/CON.txt"
  79. ==== cmdAH-20.7.1 FAILED
  80.  
  81.  
  82.  
  83. ==== cmdAH-24.14.1 Tcl_FileObjCmd: mtime (built-in Windows names with dir path and extension) FAILED
  84. ==== Contents of test case:
  85.  
  86. file mtime [file join [temporaryDirectory] CON.txt]
  87.  
  88. ---- Result was:
  89. could not read "O:/odie/irm-faceset/tcl/win/CON.txt": no such file or directory
  90. ---- Result should have been (exact matching):
  91. could not get modification time for file "O:/odie/irm-faceset/tcl/win/CON.txt"
  92. ==== cmdAH-24.14.1 FAILED
  93.  
  94.  
  95.  
  96. ==== cmdAH-27.4.1 Tcl_FileObjCmd: size (built-in Windows names with dir path and extension) FAILED
  97. ==== Contents of test case:
  98.  
  99. file size [file join [temporaryDirectory] con.txt]
  100.  
  101. ---- Test generated error; Return code was: 1
  102. ---- Return code should have been one of: 0 2
  103. ---- errorInfo: could not read "O:/odie/irm-faceset/tcl/win/con.txt": no such file or directory
  104. while executing
  105. "file size [file join [temporaryDirectory] con.txt]"
  106. ("uplevel" body line 2)
  107. invoked from within
  108. "uplevel 1 $script"
  109. ---- errorCode: POSIX ENOENT {no such file or directory}
  110. ==== cmdAH-27.4.1 FAILED
  111.  
  112.  
  113.  
  114. ==== cmdAH-28.13.1 Tcl_FileObjCmd: stat (built-in Windows names) FAILED
  115. ==== Contents of test case:
  116.  
  117. file stat [file join [temporaryDirectory] CON.txt] stat
  118. lmap elem {atime ctime dev gid ino mode mtime nlink size type uid} {set stat($elem)}
  119.  
  120. ---- Test generated error; Return code was: 1
  121. ---- Return code should have been one of: 0 2
  122. ---- errorInfo: could not read "O:/odie/irm-faceset/tcl/win/CON.txt": no such file or directory
  123. while executing
  124. "file stat [file join [temporaryDirectory] CON.txt] stat"
  125. ("uplevel" body line 2)
  126. invoked from within
  127. "uplevel 1 $script"
  128. ---- errorCode: POSIX ENOENT {no such file or directory}
  129. ==== cmdAH-28.13.1 FAILED
  130.  
  131.  
  132.  
  133. ==== cmdAH-29.6.1 Tcl_FileObjCmd: type (built-in Windows names, with dir path and extension) FAILED
  134. ==== Contents of test case:
  135.  
  136. file type [file join [temporaryDirectory] CON.txt]
  137.  
  138. ---- Test generated error; Return code was: 1
  139. ---- Return code should have been one of: 0 2
  140. ---- errorInfo: could not read "O:/odie/irm-faceset/tcl/win/CON.txt": no such file or directory
  141. while executing
  142. "file type [file join [temporaryDirectory] CON.txt]"
  143. ("uplevel" body line 2)
  144. invoked from within
  145. "uplevel 1 $script"
  146. ---- errorCode: POSIX ENOENT {no such file or directory}
  147. ==== cmdAH-29.6.1 FAILED
  148.  
  149. cmdIL.test
  150. cmdInfo.test
  151. cmdMZ.test
  152. compExpr-old.test
  153. compExpr.test
  154. compile.test
  155. concat.test
  156. config.test
  157. coroutine.test
  158. dcall.test
  159. dict.test
  160. dstring.test
  161. encoding.test
  162. env.test
  163. error.test
  164. eval.test
  165. event.test
  166. exec.test
  167. execute.test
  168. expr-old.test
  169. expr.test
  170. fCmd.test
  171.  
  172.  
  173. ==== fCmd-9.4.a file rename: comprehensive: dir to new name FAILED
  174. ==== Contents of test case:
  175.  
  176. file mkdir td1 td2
  177. testchmod 0o555 td2
  178. file rename td1 td3
  179. file rename td2 td4
  180. list [lsort [glob td*]] [file writable td3] [file writable td4]
  181.  
  182. ---- Test generated error; Return code was: 1
  183. ---- Return code should have been one of: 0 2
  184. ---- errorInfo: error renaming "td2" to "td4": permission denied
  185. while executing
  186. "file rename td2 td4"
  187. ("uplevel" body line 5)
  188. invoked from within
  189. "uplevel 1 $script"
  190. ---- errorCode: POSIX EACCES {permission denied}
  191. ==== fCmd-9.4.a FAILED
  192.  
  193. fileName.test
  194. fileSystem.test
  195. for-old.test
  196. for.test
  197. foreach.test
  198. format.test
  199. get.test
  200. history.test
  201. http.test
  202. http11.test
  203. httpold.test
  204. if-old.test
  205. if.test
  206. incr-old.test
  207. incr.test
  208. indexObj.test
  209. info.test
  210. init.test
  211. interp.test
  212. io.test
  213.  
  214.  
  215. ==== io-60.1 writing illegal utf sequences FAILED
  216. ==== Contents of test case:
  217.  
  218. # This test will hang in older revisions of the core.
  219.  
  220. set out [open $path(script) w]
  221. puts $out {
  222. puts [testbytestring \xe2]
  223. exit 1
  224. }
  225. proc readit {pipe} {
  226. variable x
  227. variable result
  228. if {[eof $pipe]} {
  229. set x [catch {close $pipe} line]
  230. lappend result catch $line
  231. } else {
  232. gets $pipe line
  233. lappend result gets $line
  234. }
  235. }
  236. close $out
  237. set pipe [open "|[list [interpreter] $path(script)]" r]
  238. fileevent $pipe readable [namespace code [list readit $pipe]]
  239. variable x ""
  240. set result ""
  241. vwait [namespace which -variable x]
  242.  
  243. # cut of the remainder of the error stack, especially the filename
  244. set result [lreplace $result 3 3 [lindex [split [lindex $result 3] \n] 0]]
  245. list $x $result
  246.  
  247. ---- Result was:
  248. 1 {gets {} catch {invalid command name "testbytestring"}}
  249. ---- Result should have been (exact matching):
  250. 1 {gets {} catch {error writing "stdout": invalid argument}}
  251. ==== io-60.1 FAILED
  252.  
  253. ioCmd.test
  254. ioTrans.test
  255.  
  256.  
  257. ==== iortrans-11.1 origin interpreter of moved transform destroyed during access FAILED
  258. ==== Contents of test case:
  259.  
  260. # Set up channel in thread
  261. set chan [interp eval $ida $helperscript]
  262. interp eval $ida [list ::variable tempchan [tempchan]]
  263. interp transfer {} $::tempchan $ida
  264. set chan [interp eval $ida {
  265. proc foo {args} {
  266. handle.initialize clear drain flush limit? read write
  267. handle.finalize
  268. lappend ::res $args
  269. # Destroy interpreter during channel access.
  270. suicide
  271. }
  272. set chan [chan push $tempchan foo]
  273. fconfigure $chan -buffering none
  274. set chan
  275. }]
  276. interp alias $ida suicide {} interp delete $ida
  277. # Move channel to 2nd thread, transform goes with it.
  278. interp eval $ida [list testchannel cut $chan]
  279. interp eval $idb [list testchannel splice $chan]
  280. # Run access from interpreter B, this will give us a synchronous response.
  281. interp eval $idb [list set chan $chan]
  282. interp eval $idb [list set mid $tcltest::mainThread]
  283. set res [interp eval $idb {
  284. # Wait a bit, give the main thread the time to start its event loop to
  285. # wait for the response from B
  286. after 50
  287. catch { puts $chan shoo } res
  288. set res
  289. }]
  290.  
  291. ---- Test cleanup failed:
  292. error deleting "O:/odie/irm-faceset/tcl/win/tempchanfile": permission denied
  293. ---- errorInfo(cleanup): error deleting "O:/odie/irm-faceset/tcl/win/tempchanfile": permission denied
  294. while executing
  295. "file delete -- $fullName"
  296. (procedure "removeFile" line 21)
  297. invoked from within
  298. "removeFile tempchanfile"
  299. (procedure "tempdone" line 4)
  300. invoked from within
  301. "tempdone"
  302. ("uplevel" body line 2)
  303. invoked from within
  304. "uplevel 1 $cleanup"
  305. ---- errorCode(cleanup): POSIX EACCES {permission denied}
  306. ==== iortrans-11.1 FAILED
  307.  
  308.  
  309.  
  310. ==== iortrans-11.2 delete interp of reflected transform FAILED
  311. ==== Contents of test case:
  312.  
  313. # Get base channel into the slave
  314. set c [tempchan]
  315. testchannel cut $c
  316. interp eval slave [list testchannel splice $c]
  317. interp eval slave [list set c $c]
  318. slave eval {
  319. proc no-op args {}
  320. proc driver {c sub args} {
  321. return {initialize finalize read write}
  322. }
  323. set t [chan push $c [list driver $c]]
  324. chan event $c readable no-op
  325. }
  326. interp delete slave
  327.  
  328. ---- Test cleanup failed:
  329. error deleting "O:/odie/irm-faceset/tcl/win/tempchanfile": permission denied
  330. ---- errorInfo(cleanup): error deleting "O:/odie/irm-faceset/tcl/win/tempchanfile": permission denied
  331. while executing
  332. "file delete -- $fullName"
  333. (procedure "removeFile" line 21)
  334. invoked from within
  335. "removeFile tempchanfile"
  336. (procedure "tempdone" line 4)
  337. invoked from within
  338. "tempdone"
  339. ("uplevel" body line 2)
  340. invoked from within
  341. "uplevel 1 $cleanup"
  342. ---- errorCode(cleanup): POSIX EACCES {permission denied}
  343. ==== iortrans-11.2 FAILED
  344.  
  345. iogt.test
  346. join.test
  347. lindex.test
  348. link.test
  349. linsert.test
  350. list.test
  351. listObj.test
  352. llength.test
  353. lmap.test
  354. load.test
  355. lrange.test
  356. lrepeat.test
  357. lreplace.test
  358. lsearch.test
  359. lset.test
  360. lsetComp.test
  361. macOSXFCmd.test
  362. macOSXLoad.test
  363. main.test
  364. mathop.test
  365. misc.test
  366. msgcat.test
  367. namespace-old.test
  368. namespace.test
  369. notify.test
  370. nre.test
  371. obj.test
  372. oo.test
  373. ooNext2.test
  374. opt.test
  375. package.test
  376. parse.test
  377. parseExpr.test
  378. parseOld.test
  379. pid.test
  380. pkgMkIndex.test
  381. platform.test
  382. proc-old.test
  383. proc.test
  384. pwd.test
  385. reg.test
  386. regexp.test
  387. regexpComp.test
  388. registry.test
  389. rename.test
  390. resolver.test
  391. result.test
  392. safe.test
  393. scan.test
  394. security.test
  395. set-old.test
  396. set.test
  397. socket.test
  398. source.test
  399. split.test
  400. stack.test
  401. string.test
  402. stringComp.test
  403. stringObj.test
  404. subst.test
  405. switch.test
  406. tailcall.test
  407. tcltest.test
  408.  
  409.  
  410. ==== tcltest-8.4 tcltest a.tcl -tmpdir notWriteableDir FAILED
  411. ==== Contents of test case:
  412. slave msg $a -tmpdir $notWriteableDir
  413. return $msg
  414. ---- Result was:
  415. testdir: O:/odie/irm-faceset/tcl/win
  416. ---- Result should have been (glob matching):
  417. *not writeable*
  418. ==== tcltest-8.4 FAILED
  419.  
  420. thread.test
  421. timer.test
  422. tm.test
  423. trace.test
  424. unixFCmd.test
  425. unixFile.test
  426. unixForkEvent.test
  427. unixInit.test
  428. unixNotfy.test
  429. unknown.test
  430. unload.test
  431. uplevel.test
  432. upvar.test
  433. utf.test
  434. util.test
  435. var.test
  436. while-old.test
  437. while.test
  438. winConsole.test
  439. winDde.test
  440. winFCmd.test
  441. winFile.test
  442. winNotify.test
  443. winPipe.test
  444. You should see this
  445. Warning: files left behind:
  446. winPipe.test: TCLB5B5.tmp
  447. winTime.test
  448. zlib.test
  449.  
  450. Tests ended at Tue Nov 07 11:36:32 -0500 2017
  451. all.tcl: Total 31403 Passed 30355 Skipped 1037 Failed 11
  452. Sourced 148 Test Files.
  453. Files with failing tests: chanio.test cmdAH.test fCmd.test io.test ioTrans.test tcltest.test
  454. Number of tests skipped for each constraint:
  455. 9 !ieeeFloatingPoint
  456. 2 RealConsole
  457. 36 Tcltest
  458. 6 TcltestPackage
  459. 3 asyncPipeChan
  460. 76 bigEndian
  461. 5 bug-3057639
  462. 3 debug
  463. 1 dontCopyLinks
  464. 19 eformat
  465. 66 emptyTest
  466. 14 english
  467. 2 exdev
  468. 5 fullutf
  469. 2 hasIsoLocale
  470. 1 interactive
  471. 1 knownBadTest
  472. 38 knownBug
  473. 100 localeRegexp
  474. 12 longIs64bit
  475. 14 macosxFileAttr
  476. 78 memory
  477. 24 nonPortable
  478. 5 notNetworkFilesystem
  479. 1 obsolete
  480. 19 pkga.dllRequired
  481. 20 pkgua.dllRequired
  482. 2 pointerIs64bit
  483. 8 procbodytest
  484. 1 reg
  485. 2 sharedCdrive
  486. 3 singleTestInterp
  487. 1 symbolicLinkFile
  488. 3 tempNotWin
  489. 1 testexprparser && !ieeeFloatingPoint
  490. 22 testfilehandler
  491. 2 testfilewait
  492. 7 testfindexecutable
  493. 1 testfork
  494. 1 testgetencpath
  495. 7 testpreferstable
  496. 21 testwordend
  497. 187 thread
  498. 184 unix
  499. 5 winXP
  500. 6 xdev
  501.