Tk Library Source Code

Artifact [ce30e96fa2]
Login

Artifact ce30e96fa22ff23aa8fc67bd4ef61e5f93d9c9b4:

Attachment "X.log" to ticket [2909962fff] added by andreas_kupries 2009-12-09 01:32:22.
============================================================

@@ Host gila.activestate.com
@@ Platform Linux-2.4.21-297-default-i686
@@ CWD /home/andreask/workbench/tcllib-head/tcllib
@@ Shell /home/andreask/workbench/tcllib-head/TE/install/tcl84/bin/tclsh8.4
@@ Tcl 8.4.19
@@ MatchTests *
@@ SkipFiles l.*.test
@@ MatchFiles *.test
@@ Start 1260296985
@@ Module json
@@ Testsuite modules/json/json.test
- tcllib::testutils 1.2
    Aborting the tests found in "json.test"
    Requiring at least Tcl 8.5, have 8.4.
@@ Testsuite modules/json/json_write.test
- tcllib::testutils 1.2
    Aborting the tests found in "json_write.test"
    Requiring at least Tcl 8.5, have 8.4.

@@ End 1260296985
all.tcl:	Total	0	Passed	0	Skipped	0	Failed	0
Sourced 0 Test Files.
============================================================

@@ Host gila.activestate.com
@@ Platform Linux-2.4.21-297-default-i686
@@ CWD /home/andreask/workbench/tcllib-head/tcllib
@@ Shell /home/andreask/workbench/tcllib-head/TE/install/tcl85/bin/tclsh8.5
@@ Tcl 8.5.8
@@ MatchTests *
@@ SkipFiles l.*.test
@@ MatchFiles *.test
@@ Start 1260296985
@@ Module json
@@ Testsuite modules/json/json.test
- tcllib::testutils 1.2
* json 1.1
---- json-1.1 start
++++ json-1.1 PASSED
---- json-1.2 start
++++ json-1.2 PASSED
---- json-1.3 start
++++ json-1.3 PASSED
---- json-1.4 start


==== json-1.4 test JSON menu FAILED
==== Contents of test case:

        set res [json::json2dict $JSON($name)]
        if {[info exists DICTSORT($name)]} {
            return [string equal [dictsort3 $DICTSORT($name) $res] [dictsort3 $DICTSORT($name) $TCL($name)]]
        } else {
            return [string equal $res $TCL($name)]
        }
    
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: unexpected token ":" at position 16; expecting ","|"}"
    while executing
"error "unexpected token \"$token\" at position $tokenCursor; expecting $expected""
    (procedure "unexpected" line 2)
    invoked from within
"unexpected $tokenCursor $token "\",\"|\"\}\"""
    ("default" arm line 2)
    invoked from within
"switch -exact $token {
            "," {
                # continue
            }
            "\}" {
                break
            }
            d..."
    (procedure "parseObjectMembers" line 11)
    invoked from within
"parseObjectMembers $tokens $nrTokens tokenCursor result"
    (procedure "parseObject" line 15)
    invoked from within
"parseObject $tokens $nrTokens tokenCursor"
    ("{" arm line 2)
    invoked from within
"switch -exact $leadingChar {
            "\{" {
                return [parseObject $tokens $nrTokens tokenCursor]
            }
            "\[" {
  ..."
    (procedure "parseValue" line 11)
    invoked from within
"parseValue $tokens $nrTokens tokenCursor"
    (procedure "parseObjectMember" line 19)
    invoked from within
"parseObjectMember $tokens $nrTokens tokenCursor objectDict"
    (procedure "parseObjectMembers" line 6)
    invoked from within
"parseObjectMembers $tokens $nrTokens tokenCursor result"
    (procedure "parseObject" line 15)
    invoked from within
"parseObject $tokens $nrTokens tokenCursor"
    ("{" arm line 2)
    invoked from within
"switch -exact $leadingChar {
            "\{" {
                return [parseObject $tokens $nrTokens tokenCursor]
            }
            "\[" {
  ..."
    (procedure "parseValue" line 11)
    invoked from within
"parseValue $tokens $nrTokens tokenCursor"
    (procedure "json::json2dict" line 7)
    invoked from within
"json::json2dict $JSON($name)"
    ("uplevel" body line 2)
    invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== json-1.4 FAILED

---- json-1.5 start
++++ json-1.5 PASSED
---- json-1.6 start
++++ json-1.6 PASSED
---- json-1.7 start
++++ json-1.7 PASSED
---- json-1.8 start
++++ json-1.8 PASSED
---- json-1.9 start
++++ json-1.9 PASSED
@@ Testsuite modules/json/json_write.test
- tcllib::testutils 1.2
* json::write 1
---- json-write-1.0 start
++++ json-write-1.0 PASSED
---- json-write-1.1 start
++++ json-write-1.1 PASSED
---- json-write-1.2 start
++++ json-write-1.2 PASSED
---- json-write-2.0 start
++++ json-write-2.0 PASSED
---- json-write-2.1 start
++++ json-write-2.1 PASSED
---- json-write-2.2 start
++++ json-write-2.2 PASSED
---- json-write-2.3 start
++++ json-write-2.3 PASSED
---- json-write-2.4 start
++++ json-write-2.4 PASSED
---- json-write-3.0 start
++++ json-write-3.0 PASSED
---- json-write-3.1 start
++++ json-write-3.1 PASSED
---- json-write-3.1 start
++++ json-write-3.1 PASSED

@@ End 1260296986
all.tcl:	Total	20	Passed	19	Skipped	0	Failed	1
Sourced 2 Test Files.
Files with failing tests: json/json.test
============================================================

@@ Host gila.activestate.com
@@ Platform Linux-2.4.21-297-default-i686
@@ CWD /home/andreask/workbench/tcllib-head/tcllib
@@ Shell /home/andreask/workbench/tcllib-head/TE/install/tcl86/bin/tclsh8.6
@@ Tcl 8.6b1.1
@@ MatchTests *
@@ SkipFiles l.*.test
@@ MatchFiles *.test
@@ Start 1260296986
@@ Module json
@@ Testsuite modules/json/json.test
- tcllib::testutils 1.2
* json 1.1
---- json-1.1 start
++++ json-1.1 PASSED
---- json-1.2 start
++++ json-1.2 PASSED
---- json-1.3 start
++++ json-1.3 PASSED
---- json-1.4 start


==== json-1.4 test JSON menu FAILED
==== Contents of test case:

        set res [json::json2dict $JSON($name)]
        if {[info exists DICTSORT($name)]} {
            return [string equal [dictsort3 $DICTSORT($name) $res] [dictsort3 $DICTSORT($name) $TCL($name)]]
        } else {
            return [string equal $res $TCL($name)]
        }
    
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: unexpected token ":" at position 16; expecting ","|"}"
    while executing
"error "unexpected token \"$token\" at position $tokenCursor; expecting $expected""
    (procedure "unexpected" line 2)
    invoked from within
"unexpected $tokenCursor $token "\",\"|\"\}\"""
    ("default" arm line 2)
    invoked from within
"switch -exact $token {
            "," {
                # continue
            }
            "\}" {
                break
            }
            d..."
    (procedure "parseObjectMembers" line 11)
    invoked from within
"parseObjectMembers $tokens $nrTokens tokenCursor result"
    (procedure "parseObject" line 15)
    invoked from within
"parseObject $tokens $nrTokens tokenCursor"
    ("{" arm line 2)
    invoked from within
"switch -exact $leadingChar {
            "\{" {
                return [parseObject $tokens $nrTokens tokenCursor]
            }
            "\[" {
  ..."
    (procedure "parseValue" line 11)
    invoked from within
"parseValue $tokens $nrTokens tokenCursor"
    (procedure "parseObjectMember" line 19)
    invoked from within
"parseObjectMember $tokens $nrTokens tokenCursor objectDict"
    (procedure "parseObjectMembers" line 6)
    invoked from within
"parseObjectMembers $tokens $nrTokens tokenCursor result"
    (procedure "parseObject" line 15)
    invoked from within
"parseObject $tokens $nrTokens tokenCursor"
    ("{" arm line 2)
    invoked from within
"switch -exact $leadingChar {
            "\{" {
                return [parseObject $tokens $nrTokens tokenCursor]
            }
            "\[" {
  ..."
    (procedure "parseValue" line 11)
    invoked from within
"parseValue $tokens $nrTokens tokenCursor"
    (procedure "json::json2dict" line 7)
    invoked from within
"json::json2dict $JSON($name)"
    ("uplevel" body line 2)
    invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== json-1.4 FAILED

---- json-1.5 start
++++ json-1.5 PASSED
---- json-1.6 start
++++ json-1.6 PASSED
---- json-1.7 start
++++ json-1.7 PASSED
---- json-1.8 start
++++ json-1.8 PASSED
---- json-1.9 start
++++ json-1.9 PASSED
@@ Testsuite modules/json/json_write.test
- tcllib::testutils 1.2
* json::write 1
---- json-write-1.0 start
++++ json-write-1.0 PASSED
---- json-write-1.1 start
++++ json-write-1.1 PASSED
---- json-write-1.2 start
++++ json-write-1.2 PASSED
---- json-write-2.0 start
++++ json-write-2.0 PASSED
---- json-write-2.1 start
++++ json-write-2.1 PASSED
---- json-write-2.2 start
++++ json-write-2.2 PASSED
---- json-write-2.3 start
++++ json-write-2.3 PASSED
---- json-write-2.4 start
++++ json-write-2.4 PASSED
---- json-write-3.0 start
++++ json-write-3.0 PASSED
---- json-write-3.1 start
++++ json-write-3.1 PASSED
---- json-write-3.1 start
++++ json-write-3.1 PASSED

@@ End 1260296987
all.tcl:	Total	20	Passed	19	Skipped	0	Failed	1
Sourced 2 Test Files.
Files with failing tests: json/json.test
Passed      38 of     40
Skipped      0 of     40
Failed       2 of     40
#Errors      0