Posted to tcl by emiliano at Sat Jan 24 22:27:42 GMT 2009view raw

  1. Testing package 'itcl'
  2. ITCL_LIBRARY=`echo /home/emiliano/src/tcl/pkgs/itcl/library` LD_LIBRARY_PATH=".:/home/emiliano/src/tcl/unix:../..:" PATH=".:/home/emiliano/src/tcl/unix:/home/emiliano/bin:/bin:/sbin:/usr/bin:/usr/sbin:/usr/X11R7/bin:/usr/X11R6/bin:/usr/pkg/bin:/usr/pkg/sbin:/usr/games:/usr/local/bin:/usr/local/sbin" TCLLIBPATH="." ../../tcltest `echo /home/emiliano/src/tcl/pkgs/itcl/tests/all.tcl` -load "package require itcl 4.0b2"
  3. Tests running in interp: /home/emiliano/src/tcl/unix/pkgs/itcl/../../tcltest
  4. Tests located in: /home/emiliano/src/tcl/pkgs/itcl/tests
  5. Tests running in: /home/emiliano/src/tcl/unix/pkgs/itcl
  6. Temporary files stored in /home/emiliano/src/tcl/unix/pkgs/itcl
  7. Test files run in separate interpreters
  8. Running tests that match: *
  9. Skipping test files that match: l.*.test
  10. Only running test files that match: *.test
  11. Tests began at Sat Jan 24 20:25:29 ARST 2009
  12. basic.test
  13.  
  14.  
  15. ==== basic-1.19 classes can be unicode FAILED
  16. ==== Contents of test case:
  17.  
  18. itcl::class \u6210bcd { method foo args { return "bar" } }
  19. \u6210bcd #auto
  20.  
  21. ---- Result was:
  22.  
  23. ---- Result should have been (exact matching):
  24. ?bcd0
  25. ==== basic-1.19 FAILED
  26.  
  27.  
  28.  
  29. ==== basic-1.20 classes can be unicode FAILED
  30. ==== Contents of test case:
  31.  
  32. \u6210bcd0 foo
  33.  
  34. ---- Test generated error; Return code was: 1
  35. ---- Return code should have been one of: 0 2
  36. ---- errorInfo: invalid command name "?bcd0"
  37. while executing
  38. "\u6210bcd0 foo"
  39. ("uplevel" body line 2)
  40. invoked from within
  41. "uplevel 1 $script"
  42. ---- errorCode: NONE
  43. ==== basic-1.20 FAILED
  44.  
  45.  
  46.  
  47. ==== basic-2.1 create an object with an automatic name FAILED
  48. ==== Contents of test case:
  49.  
  50. Counter #auto
  51.  
  52. ---- Test generated error; Return code was: 1
  53. ---- Return code should have been one of: 0 2
  54. ---- errorInfo: can't set "num": upvar refers to variable in deleted namespace
  55. while executing
  56. "incr num"
  57. while constructing object "::counter0" in ::Counter::constructor (body line 2)
  58. invoked from within
  59. "Counter #auto"
  60. ("uplevel" body line 2)
  61. invoked from within
  62. "uplevel 1 $script"
  63. ---- errorCode: NONE
  64. ==== basic-2.1 FAILED
  65.  
  66.  
  67.  
  68. ==== basic-2.2 bury "#auto" within object name FAILED
  69. ==== Contents of test case:
  70.  
  71. Counter x#autoy
  72.  
  73. ---- Test generated error; Return code was: 1
  74. ---- Return code should have been one of: 0 2
  75. ---- errorInfo: can't set "num": upvar refers to variable in deleted namespace
  76. while executing
  77. "incr num"
  78. while constructing object "::xcounter1y" in ::Counter::constructor (body line 2)
  79. invoked from within
  80. "Counter x#autoy"
  81. ("uplevel" body line 2)
  82. invoked from within
  83. "uplevel 1 $script"
  84. ---- errorCode: NONE
  85. ==== basic-2.2 FAILED
  86.  
  87.  
  88.  
  89. ==== basic-2.3 bury "#auto" within object name FAILED
  90. ==== Contents of test case:
  91.  
  92. Counter a#aut#autob
  93.  
  94. ---- Test generated error; Return code was: 1
  95. ---- Return code should have been one of: 0 2
  96. ---- errorInfo: can't set "num": upvar refers to variable in deleted namespace
  97. while executing
  98. "incr num"
  99. while constructing object "::a#autcounter2b" in ::Counter::constructor (body line 2)
  100. invoked from within
  101. "Counter a#aut#autob"
  102. ("uplevel" body line 2)
  103. invoked from within
  104. "uplevel 1 $script"
  105. ---- errorCode: NONE
  106. ==== basic-2.3 FAILED
  107.  
  108.  
  109.  
  110. ==== basic-2.4 "#auto" is smart enough to skip names that are taken FAILED
  111. ==== Contents of test case:
  112.  
  113. Counter counter3
  114. Counter #auto
  115.  
  116. ---- Test generated error; Return code was: 1
  117. ---- Return code should have been one of: 0 2
  118. ---- errorInfo: can't set "num": upvar refers to variable in deleted namespace
  119. while executing
  120. "incr num"
  121. while constructing object "::counter3" in ::Counter::constructor (body line 2)
  122. invoked from within
  123. "Counter counter3"
  124. ("uplevel" body line 2)
  125. invoked from within
  126. "uplevel 1 $script"
  127. ---- errorCode: NONE
  128. ==== basic-2.4 FAILED
  129.  
  130.  
  131.  
  132. ==== basic-3.1 object access command works FAILED
  133. ==== Contents of test case:
  134.  
  135. Counter c
  136. list [c ++] [c ++] [c ++]
  137.  
  138. ---- Test generated error; Return code was: 1
  139. ---- Return code should have been one of: 0 2
  140. ---- errorInfo: can't set "num": upvar refers to variable in deleted namespace
  141. while executing
  142. "incr num"
  143. while constructing object "::c" in ::Counter::constructor (body line 2)
  144. invoked from within
  145. "Counter c"
  146. ("uplevel" body line 2)
  147. invoked from within
  148. "uplevel 1 $script"
  149. ---- errorCode: NONE
  150. ==== basic-3.1 FAILED
  151.  
  152.  
  153.  
  154. ==== basic-3.2 errors produce usage info FAILED
  155. ==== Contents of test case:
  156.  
  157. list [catch "c xyzzy" msg] $msg
  158.  
  159. ---- Result was:
  160. 1 {invalid command name "c"}
  161. ---- Result should have been (exact matching):
  162. 1 {bad option "xyzzy": should be one of...
  163. c ++
  164. c cget -option
  165. c configure ?-option? ?value -option value...?
  166. c isa className}
  167. ==== basic-3.2 FAILED
  168.  
  169.  
  170.  
  171. ==== basic-3.3 built-in configure can query public variables FAILED
  172. ==== Contents of test case:
  173.  
  174. c configure
  175.  
  176. ---- Test generated error; Return code was: 1
  177. ---- Return code should have been one of: 0 2
  178. ---- errorInfo: invalid command name "c"
  179. while executing
  180. "c configure"
  181. ("uplevel" body line 2)
  182. invoked from within
  183. "uplevel 1 $script"
  184. ---- errorCode: NONE
  185. ==== basic-3.3 FAILED
  186.  
  187.  
  188.  
  189. ==== basic-3.4 built-in configure can query one public variable FAILED
  190. ==== Contents of test case:
  191.  
  192. c configure -by
  193.  
  194. ---- Test generated error; Return code was: 1
  195. ---- Return code should have been one of: 0 2
  196. ---- errorInfo: invalid command name "c"
  197. while executing
  198. "c configure -by"
  199. ("uplevel" body line 2)
  200. invoked from within
  201. "uplevel 1 $script"
  202. ---- errorCode: NONE
  203. ==== basic-3.4 FAILED
  204.  
  205.  
  206.  
  207. ==== basic-3.5 built-in configure can set public variable FAILED
  208. ==== Contents of test case:
  209.  
  210. list [c configure -by 2] [c cget -by]
  211.  
  212. ---- Test generated error; Return code was: 1
  213. ---- Return code should have been one of: 0 2
  214. ---- errorInfo: invalid command name "c"
  215. while executing
  216. "c configure -by 2"
  217. ("uplevel" body line 2)
  218. invoked from within
  219. "uplevel 1 $script"
  220. ---- errorCode: NONE
  221. ==== basic-3.5 FAILED
  222.  
  223.  
  224.  
  225. ==== basic-3.6 configure actually changes public variable FAILED
  226. ==== Contents of test case:
  227.  
  228. list [c ++] [c ++]
  229.  
  230. ---- Test generated error; Return code was: 1
  231. ---- Return code should have been one of: 0 2
  232. ---- errorInfo: invalid command name "c"
  233. while executing
  234. "c ++"
  235. ("uplevel" body line 2)
  236. invoked from within
  237. "uplevel 1 $script"
  238. ---- errorCode: NONE
  239. ==== basic-3.6 FAILED
  240.  
  241.  
  242.  
  243. ==== basic-3.7 class procs can be accessed FAILED
  244. ==== Contents of test case:
  245.  
  246. Counter::num
  247.  
  248. ---- Test generated error; Return code was: 1
  249. ---- Return code should have been one of: 0 2
  250. ---- errorInfo: can't read "num": no such variable
  251. while executing
  252. "return $num"
  253. invoked from within
  254. "Counter::num"
  255. ("uplevel" body line 2)
  256. invoked from within
  257. "uplevel 1 $script"
  258. ---- errorCode: TCL READ VARNAME
  259. ==== basic-3.7 FAILED
  260.  
  261.  
  262.  
  263. ==== basic-4.1 classes can be destroyed FAILED
  264. ==== Contents of test case:
  265.  
  266. list [itcl::delete class Counter] [itcl::find classes Counter] [namespace children :: Counter] [namespace which -command Counter]
  267.  
  268. ---- Test generated error; Return code was: 1
  269. ---- Return code should have been one of: 0 2
  270. ---- errorInfo: can't set "num": upvar refers to variable in deleted namespace
  271. while executing
  272. "incr num -1"
  273. while deleting object "::-foo" in ::Counter::destructor (body line 2)
  274. (while deleting class "::Counter")
  275. invoked from within
  276. "itcl::delete class Counter"
  277. ("uplevel" body line 2)
  278. invoked from within
  279. "uplevel 1 $script"
  280. ---- errorCode: TCL WRITE VARNAME
  281. ==== basic-4.1 FAILED
  282.  
  283.  
  284.  
  285. ==== basic-4.2 classes can be redefined FAILED
  286. ==== Contents of test case:
  287.  
  288. itcl::class Counter {
  289. method ++ {} {
  290. return [incr val $by]
  291. }
  292. public variable by 1
  293. protected variable val 0
  294. }
  295.  
  296. ---- Test generated error; Return code was: 1
  297. ---- Return code should have been one of: 0 2
  298. ---- errorInfo: class "Counter" already exists
  299. while executing
  300. "itcl::class Counter {
  301. method ++ {} {
  302. return [incr val $by]
  303. }
  304. public variable by 1
  305. protected variable val 0..."
  306. ("uplevel" body line 2)
  307. invoked from within
  308. "uplevel 1 $script"
  309. ---- errorCode: NONE
  310. ==== basic-4.2 FAILED
  311.  
  312.  
  313.  
  314. ==== basic-4.3 the redefined class is actually different FAILED
  315. ==== Contents of test case:
  316.  
  317. list [catch "Counter::num" msg] $msg
  318.  
  319. ---- Result was:
  320. 1 {can't read "num": no such variable}
  321. ---- Result should have been (exact matching):
  322. 1 {invalid command name "Counter::num"}
  323. ==== basic-4.3 FAILED
  324.  
  325.  
  326.  
  327. ==== basic-4.4 objects can be created from the new class FAILED
  328. ==== Contents of test case:
  329.  
  330. list [Counter #auto] [Counter #auto]
  331.  
  332. ---- Test generated error; Return code was: 1
  333. ---- Return code should have been one of: 0 2
  334. ---- errorInfo: can't set "num": upvar refers to variable in deleted namespace
  335. while executing
  336. "incr num"
  337. while constructing object "::counter3" in ::Counter::constructor (body line 2)
  338. invoked from within
  339. "Counter #auto"
  340. ("uplevel" body line 2)
  341. invoked from within
  342. "uplevel 1 $script"
  343. ---- errorCode: NONE
  344. ==== basic-4.4 FAILED
  345.  
  346.  
  347.  
  348. ==== basic-4.5 namespaces for #auto are prepended to the command name FAILED
  349. ==== Contents of test case:
  350.  
  351. namespace eval someNS1 {}
  352. namespace eval someNS2 {}
  353. list [Counter someNS1::#auto] [Counter someNS2::#auto]
  354.  
  355. ---- Test generated error; Return code was: 1
  356. ---- Return code should have been one of: 0 2
  357. ---- errorInfo: can't set "num": upvar refers to variable in deleted namespace
  358. while executing
  359. "incr num"
  360. while constructing object "::someNS1::counter4" in ::Counter::constructor (body line 2)
  361. invoked from within
  362. "Counter someNS1::#auto"
  363. ("uplevel" body line 4)
  364. invoked from within
  365. "uplevel 1 $script"
  366. ---- errorCode: NONE
  367. ==== basic-4.5 FAILED
  368.  
  369.  
  370.  
  371. ==== basic-4.6 when a class is destroyed, its objects are deleted FAILED
  372. ==== Contents of test case:
  373.  
  374. list [lsort [itcl::find objects counter*]] [itcl::delete class Counter] [lsort [itcl::find objects counter*]]
  375.  
  376. ---- Result was:
  377. {} {} {}
  378. ---- Result should have been (exact matching):
  379. {counter0 counter1} {} {}
  380. ==== basic-4.6 FAILED
  381.  
  382. body.test
  383. chain.test
  384. delete.test
  385. eclasscomponent.test
  386. ensemble.test
  387. general1.test
  388. import.test
  389. info.test
  390. inherit.test
  391. interp.test
  392. local.test
  393. methods.test
  394. mkindex.test
  395. namespace.test
  396. protection.test
  397. scope.test
  398. typeclass.test
  399. typedelegation.test
  400. typefunction.test
  401. typeinfo.test
  402. typeoption.test
  403. typevariable.test
  404.  
  405. Tests ended at Sat Jan 24 20:25:31 ARST 2009
  406. all.tcl: Total 683 Passed 657 Skipped 7 Failed 19
  407. Sourced 23 Test Files.
  408. Files with failing tests: basic.test
  409. Number of tests skipped for each constraint:
  410. 5 needs_frq_1773103
  411. 2 only_working_in_itcl3.4
  412.