Check-in [273c213e57]

Not logged in
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Show extended stack traces when `kt::local` and sibling run into trouble.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 273c213e576a3eb3b8a6e459ec073f2572daa2a9
User & Date: aku 2017-10-05 06:28:25
Context
2018-03-27
16:30
Enable closing of streams and use it to limit the number of open streams during tests by closing small streams for failure reporting quickly. Without that a large number of test failures can easily go over the max amount of open files allowed by the OS. check-in: 4c09346858 user: aku tags: trunk
2017-10-05
06:28
Show extended stack traces when `kt::local` and sibling run into trouble. check-in: 273c213e57 user: aku tags: trunk
2017-10-04
23:28
Added `kt::local*`, a variant of `kt::local` which does not forget the package and force a re-load. check-in: c0f0b90c04 user: aku tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to testutilities.tcl.

67
68
69
70
71
72
73

74
75
76
77
78
79
80
..
89
90
91
92
93
94
95

96
97
98
99
100
101
102
    try {
	package unknown ::kt::PU
	package forget  $name
	package require $name {*}$args
    } on error {e o} {
	puts "    Aborting the tests found in \"[file tail [info script]]\""
	puts "    Required local package $name not found: $e"

	return -code return
    } finally {
	package unknown $saved
    }

    puts "LOCAL  [dict get $tag $type] $name [package present $name]"
    return
................................................................................
    set saved [package unknown]
    try {
	package unknown ::kt::PU
	package require $name {*}$args
    } on error {e o} {
	puts "    Aborting the tests found in \"[file tail [info script]]\""
	puts "    Required local package $name not found: $e"

	return -code return
    } finally {
	package unknown $saved
    }

    puts "LOCAL  [dict get $tag $type] $name [package present $name]"
    return






>







 







>







67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
..
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
    try {
	package unknown ::kt::PU
	package forget  $name
	package require $name {*}$args
    } on error {e o} {
	puts "    Aborting the tests found in \"[file tail [info script]]\""
	puts "    Required local package $name not found: $e"
	puts "    |[join [split [dict get $o -errorinfo] \n] "\n    |"]"
	return -code return
    } finally {
	package unknown $saved
    }

    puts "LOCAL  [dict get $tag $type] $name [package present $name]"
    return
................................................................................
    set saved [package unknown]
    try {
	package unknown ::kt::PU
	package require $name {*}$args
    } on error {e o} {
	puts "    Aborting the tests found in \"[file tail [info script]]\""
	puts "    Required local package $name not found: $e"
	puts "    |[join [split [dict get $o -errorinfo] \n] "\n    |"]"
	return -code return
    } finally {
	package unknown $saved
    }

    puts "LOCAL  [dict get $tag $type] $name [package present $name]"
    return