Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | [Bug 967195]: Make tcltest work when tclsh is compiled without using the setargv() function on mingw (no need to incr the version, since 2.2.10 is never released) |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | core-8-4-branch |
| Files: | files | file ages | folders |
| SHA1: |
e695c3505ce83011d7c48501176dd360 |
| User & Date: | jan.nijtmans 2011-11-30 20:45:21 |
Context
|
2011-12-07
| ||
| 06:13 | [Bug 3444754] string tolower \u01c5 is wrong check-in: b2fd948d0c user: jan.nijtmans tags: core-8-4-branch | |
|
2011-11-30
| ||
| 21:01 | [Bug 967195]: Make tcltest work when tclsh is compiled without using the setargv() function on mingw... check-in: 3fdf31914d user: jan.nijtmans tags: core-8-5-branch | |
| 20:45 | [Bug 967195]: Make tcltest work when tclsh is compiled without using the setargv() function on mingw... check-in: e695c3505c user: jan.nijtmans tags: core-8-4-branch | |
|
2011-11-29
| ||
| 20:09 | Use the same shebang comment everywhere check-in: 1ee716a733 user: jan.nijtmans tags: core-8-4-branch | |
Changes
Changes to ChangeLog.
1 2 3 4 5 6 7 | 2011-11-29 Jan Nijtmans <[email protected]> * doc/tclsh.1: Use the same shebang comment everywhere. * tools/str2c * tools/tcltk-man2html.tcl 2011-11-22 Jan Nijtmans <[email protected]> | > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 | 2011-11-30 Jan Nijtmans <[email protected]> * library/tcltest/tcltest.tcl: [Bug 967195]: Make tcltest work when tclsh is compiled without using the setargv() function on mingw. (no need to incr the version, since 2.2.10 is never released) 2011-11-29 Jan Nijtmans <[email protected]> * doc/tclsh.1: Use the same shebang comment everywhere. * tools/str2c * tools/tcltk-man2html.tcl 2011-11-22 Jan Nijtmans <[email protected]> |
| ︙ | ︙ |
Changes to library/tcltest/tcltest.tcl.
| ︙ | ︙ | |||
479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 |
# exported variable and the modern option kept as a true internal var.
# Also set up usage string and value testing for the option.
proc Option {option value usage {verify AcceptAll} {varName {}}} {
variable Option
variable Verify
variable Usage
variable OptionControlledVariables
set Usage($option) $usage
set Verify($option) $verify
if {[catch {$verify $value} msg]} {
return -code error $msg
} else {
set Option($option) $msg
}
if {[string length $varName]} {
variable $varName
| > > | 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 |
# exported variable and the modern option kept as a true internal var.
# Also set up usage string and value testing for the option.
proc Option {option value usage {verify AcceptAll} {varName {}}} {
variable Option
variable Verify
variable Usage
variable OptionControlledVariables
variable DefaultValue
set Usage($option) $usage
set Verify($option) $verify
set DefaultValue($option) $value
if {[catch {$verify $value} msg]} {
return -code error $msg
} else {
set Option($option) $msg
}
if {[string length $varName]} {
variable $varName
|
| ︙ | ︙ | |||
703 704 705 706 707 708 709 |
if {!$Option(-limitconstraints)} {return}
foreach c [array names testConstraints] {
if {[lsearch -exact $Option(-constraints) $c] == -1} {
testConstraint $c 0
}
}
}
| | | 705 706 707 708 709 710 711 712 713 714 715 716 717 718 719 |
if {!$Option(-limitconstraints)} {return}
foreach c [array names testConstraints] {
if {[lsearch -exact $Option(-constraints) $c] == -1} {
testConstraint $c 0
}
}
}
Option -limitconstraints 0 {
whether to run only tests with the constraints
} AcceptBoolean limitConstraints
trace variable Option(-limitconstraints) w \
[namespace code {ClearUnselectedConstraints ;#}]
# A test application has to know how to load the tested commands
# into the interpreter.
|
| ︙ | ︙ | |||
2660 2661 2662 2663 2664 2665 2666 2667 2668 2669 2670 2671 2672 2673 |
# None.
proc tcltest::runAllTests { {shell ""} } {
variable testSingleFile
variable numTestFiles
variable numTests
variable failFiles
FillFilesExisted
if {[llength [info level 0]] == 1} {
set shell [interpreter]
}
set testSingleFile false
| > | 2662 2663 2664 2665 2666 2667 2668 2669 2670 2671 2672 2673 2674 2675 2676 |
# None.
proc tcltest::runAllTests { {shell ""} } {
variable testSingleFile
variable numTestFiles
variable numTests
variable failFiles
variable DefaultValue
FillFilesExisted
if {[llength [info level 0]] == 1} {
set shell [interpreter]
}
set testSingleFile false
|
| ︙ | ︙ | |||
2724 2725 2726 2727 2728 2729 2730 |
} else {
# Pass along our configuration to the child processes.
# EXCEPT for the -outfile, because the parent process
# needs to read and process output of children.
set childargv [list]
foreach opt [Configure] {
if {[string equal $opt -outfile]} {continue}
| > > > > > | | 2727 2728 2729 2730 2731 2732 2733 2734 2735 2736 2737 2738 2739 2740 2741 2742 2743 2744 2745 2746 |
} else {
# Pass along our configuration to the child processes.
# EXCEPT for the -outfile, because the parent process
# needs to read and process output of children.
set childargv [list]
foreach opt [Configure] {
if {[string equal $opt -outfile]} {continue}
set value [Configure $opt]
# Don't bother passing default configuration options
if {[string equal $value $DefaultValue($opt)]} {
continue
}
lappend childargv $opt $value
}
set cmd [linsert $childargv 0 | $shell $file]
if {[catch {
incr numTestFiles
set pipeFd [open $cmd "r"]
while {[gets $pipeFd line] >= 0} {
if {[regexp [join {
|
| ︙ | ︙ |