itcl-ng failing tests, netbsd 5.0_BETA, amd64

Testing package 'itcl'
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" 
Tests running in interp:  /home/emiliano/src/tcl/unix/pkgs/itcl/../../tcltest
Tests located in:  /home/emiliano/src/tcl/pkgs/itcl/tests
Tests running in:  /home/emiliano/src/tcl/unix/pkgs/itcl
Temporary files stored in /home/emiliano/src/tcl/unix/pkgs/itcl
Test files run in separate interpreters
Running tests that match:  *
Skipping test files that match:  l.*.test
Only running test files that match:  *.test
Tests began at Sat Jan 24 20:25:29 ARST 2009
basic.test


==== basic-1.19 classes can be unicode FAILED
==== Contents of test case:

    itcl::class \u6210bcd { method foo args { return "bar" } }
    \u6210bcd #auto

---- Result was:

---- Result should have been (exact matching):
?bcd0
==== basic-1.19 FAILED


==== basic-1.20 classes can be unicode FAILED
==== Contents of test case:

    \u6210bcd0 foo

---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: invalid command name "?bcd0"
    while executing
"\u6210bcd0 foo"
    ("uplevel" body line 2)
    invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== basic-1.20 FAILED


==== basic-2.1 create an object with an automatic name FAILED
==== Contents of test case:

    Counter #auto

---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: can't set "num": upvar refers to variable in deleted namespace
    while executing
"incr num"
    while constructing object "::counter0" in ::Counter::constructor (body line 2)
    invoked from within
"Counter #auto"
    ("uplevel" body line 2)
    invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== basic-2.1 FAILED


==== basic-2.2 bury "#auto" within object name FAILED
==== Contents of test case:

    Counter x#autoy

---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: can't set "num": upvar refers to variable in deleted namespace
    while executing
"incr num"
    while constructing object "::xcounter1y" in ::Counter::constructor (body line 2)
    invoked from within
"Counter x#autoy"
    ("uplevel" body line 2)
    invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== basic-2.2 FAILED


==== basic-2.3 bury "#auto" within object name FAILED
==== Contents of test case:

    Counter a#aut#autob

---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: can't set "num": upvar refers to variable in deleted namespace
    while executing
"incr num"
    while constructing object "::a#autcounter2b" in ::Counter::constructor (body line 2)
    invoked from within
"Counter a#aut#autob"
    ("uplevel" body line 2)
    invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== basic-2.3 FAILED


==== basic-2.4 "#auto" is smart enough to skip names that are taken FAILED
==== Contents of test case:

    Counter counter3
    Counter #auto

---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: can't set "num": upvar refers to variable in deleted namespace
    while executing
"incr num"
    while constructing object "::counter3" in ::Counter::constructor (body line 2)
    invoked from within
"Counter counter3"
    ("uplevel" body line 2)
    invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== basic-2.4 FAILED


==== basic-3.1 object access command works FAILED
==== Contents of test case:

    Counter c
    list [c ++] [c ++] [c ++]

---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: can't set "num": upvar refers to variable in deleted namespace
    while executing
"incr num"
    while constructing object "::c" in ::Counter::constructor (body line 2)
    invoked from within
"Counter c"
    ("uplevel" body line 2)
    invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== basic-3.1 FAILED


==== basic-3.2 errors produce usage info FAILED
==== Contents of test case:

    list [catch "c xyzzy" msg] $msg

---- Result was:
1 {invalid command name "c"}
---- Result should have been (exact matching):
1 {bad option "xyzzy": should be one of...
  c ++
  c cget -option
  c configure ?-option? ?value -option value...?
  c isa className}
==== basic-3.2 FAILED


==== basic-3.3 built-in configure can query public variables FAILED
==== Contents of test case:

    c configure

---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: invalid command name "c"
    while executing
"c configure"
    ("uplevel" body line 2)
    invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== basic-3.3 FAILED


==== basic-3.4 built-in configure can query one public variable FAILED
==== Contents of test case:

    c configure -by

---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: invalid command name "c"
    while executing
"c configure -by"
    ("uplevel" body line 2)
    invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== basic-3.4 FAILED


==== basic-3.5 built-in configure can set public variable FAILED
==== Contents of test case:

    list [c configure -by 2] [c cget -by]

---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: invalid command name "c"
    while executing
"c configure -by 2"
    ("uplevel" body line 2)
    invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== basic-3.5 FAILED


==== basic-3.6 configure actually changes public variable FAILED
==== Contents of test case:

    list [c ++] [c ++]

---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: invalid command name "c"
    while executing
"c ++"
    ("uplevel" body line 2)
    invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== basic-3.6 FAILED


==== basic-3.7 class procs can be accessed FAILED
==== Contents of test case:

    Counter::num

---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: can't read "num": no such variable
    while executing
"return $num"
    invoked from within
"Counter::num"
    ("uplevel" body line 2)
    invoked from within
"uplevel 1 $script"
---- errorCode: TCL READ VARNAME
==== basic-3.7 FAILED


==== basic-4.1 classes can be destroyed FAILED
==== Contents of test case:

    list [itcl::delete class Counter]  [itcl::find classes Counter]  [namespace children :: Counter]  [namespace which -command Counter]

---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: can't set "num": upvar refers to variable in deleted namespace
    while executing
"incr num -1"
    while deleting object "::-foo" in ::Counter::destructor (body line 2)
    (while deleting class "::Counter")
    invoked from within
"itcl::delete class Counter"
    ("uplevel" body line 2)
    invoked from within
"uplevel 1 $script"
---- errorCode: TCL WRITE VARNAME
==== basic-4.1 FAILED


==== basic-4.2 classes can be redefined FAILED
==== Contents of test case:

    itcl::class Counter {
        method ++ {} {
            return [incr val $by]
        }
        public variable by 1
        protected variable val 0
    }

---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: class "Counter" already exists
    while executing
"itcl::class Counter {
        method ++ {} {
            return [incr val $by]
        }
        public variable by 1
        protected variable val 0..."
    ("uplevel" body line 2)
    invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== basic-4.2 FAILED


==== basic-4.3 the redefined class is actually different FAILED
==== Contents of test case:

    list [catch "Counter::num" msg] $msg

---- Result was:
1 {can't read "num": no such variable}
---- Result should have been (exact matching):
1 {invalid command name "Counter::num"}
==== basic-4.3 FAILED


==== basic-4.4 objects can be created from the new class FAILED
==== Contents of test case:

    list [Counter #auto] [Counter #auto]

---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: can't set "num": upvar refers to variable in deleted namespace
    while executing
"incr num"
    while constructing object "::counter3" in ::Counter::constructor (body line 2)
    invoked from within
"Counter #auto"
    ("uplevel" body line 2)
    invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== basic-4.4 FAILED


==== basic-4.5 namespaces for #auto are prepended to the command name FAILED
==== Contents of test case:

    namespace eval someNS1 {}
    namespace eval someNS2 {}
    list [Counter someNS1::#auto] [Counter someNS2::#auto]

---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: can't set "num": upvar refers to variable in deleted namespace
    while executing
"incr num"
    while constructing object "::someNS1::counter4" in ::Counter::constructor (body line 2)
    invoked from within
"Counter someNS1::#auto"
    ("uplevel" body line 4)
    invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== basic-4.5 FAILED


==== basic-4.6 when a class is destroyed, its objects are deleted FAILED
==== Contents of test case:

    list [lsort [itcl::find objects counter*]]  [itcl::delete class Counter]  [lsort [itcl::find objects counter*]]

---- Result was:
{} {} {}
---- Result should have been (exact matching):
{counter0 counter1} {} {}
==== basic-4.6 FAILED

body.test
chain.test
delete.test
eclasscomponent.test
ensemble.test
general1.test
import.test
info.test
inherit.test
interp.test
local.test
methods.test
mkindex.test
namespace.test
protection.test
scope.test
typeclass.test
typedelegation.test
typefunction.test
typeinfo.test
typeoption.test
typevariable.test

Tests ended at Sat Jan 24 20:25:31 ARST 2009
all.tcl:        Total   683     Passed  657     Skipped 7       Failed  19
Sourced 23 Test Files.
Files with failing tests: basic.test
Number of tests skipped for each constraint:
        5       needs_frq_1773103
        2       only_working_in_itcl3.4