Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Merge 8.6 |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | core-8-branch |
Files: | files | file ages | folders |
SHA3-256: |
a358975f0586e03ad71036cb65a16358 |
User & Date: | jan.nijtmans 2024-03-28 21:39:54 |
Context
2024-03-29
| ||
12:26 | Upgrade provided libtommath with version 1.3. Still works with external libtommath 1.2 too. check-in: a04ae84a3f user: jan.nijtmans tags: core-8-branch | |
2024-03-28
| ||
21:46 | Eliminate tcltest::fileEncoding, not a good idea check-in: 706b8f486c user: jan.nijtmans tags: trunk, main | |
21:39 | Merge 8.6 check-in: a358975f05 user: jan.nijtmans tags: core-8-branch | |
21:12 | Asciify string.test. tcltest::fileEncoding is thus no longer necessary (which would have performance... check-in: 03cf62003a user: jan.nijtmans tags: core-8-6-branch | |
2024-03-27
| ||
20:18 | fixes SF [edb4b065f49b9e51]: cherry-picked from 5d52c6d7302b320e] check-in: ac30912bcc user: sebres tags: core-8-branch | |
Changes
Changes to library/tcltest/tcltest.tcl.
︙ | ︙ | |||
2840 2841 2842 2843 2844 2845 2846 | if {[llength $matchDirs] == 0} { DebugPuts 1 "No test directories remain after applying match\ and skip patterns!" } return [lsort $matchDirs] } | < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < | 2840 2841 2842 2843 2844 2845 2846 2847 2848 2849 2850 2851 2852 2853 | if {[llength $matchDirs] == 0} { DebugPuts 1 "No test directories remain after applying match\ and skip patterns!" } return [lsort $matchDirs] } # tcltest::runAllTests -- # # prints output and sources test files according to the match and # skip patterns provided. after sourcing test files, it goes on # to source all.tcl files in matching test subdirectories. # # Arguments: |
︙ | ︙ | |||
2959 2960 2961 2962 2963 2964 2965 | # Run each of the specified tests foreach file [lsort [GetMatchingFiles]] { set tail [file tail $file] puts [outputChannel] $tail flush [outputChannel] | < < < | | 2916 2917 2918 2919 2920 2921 2922 2923 2924 2925 2926 2927 2928 2929 2930 2931 2932 2933 | # Run each of the specified tests foreach file [lsort [GetMatchingFiles]] { set tail [file tail $file] puts [outputChannel] $tail flush [outputChannel] if {[singleProcess]} { if {[catch { incr numTestFiles uplevel 1 [list ::source $file] } msg]} { puts [outputChannel] "Test file error: $msg" # append the name of the test to a list to be reported # later lappend testFileFailures $file } if {$numTests(Failed) > 0} { |
︙ | ︙ | |||
2989 2990 2991 2992 2993 2994 2995 | set value [Configure $opt] # Don't bother passing default configuration options if {$value eq $DefaultValue($opt)} { continue } lappend childargv $opt $value } | | | 2943 2944 2945 2946 2947 2948 2949 2950 2951 2952 2953 2954 2955 2956 2957 | set value [Configure $opt] # Don't bother passing default configuration options if {$value eq $DefaultValue($opt)} { continue } lappend childargv $opt $value } set cmd [linsert $childargv 0 | $shell $file] if {[catch { incr numTestFiles set pipeFd [open $cmd "r"] if {$fullutf} { fconfigure $pipeFd -profile tcl8 -encoding utf-8 } while {[gets $pipeFd line] >= 0} { |
︙ | ︙ |
Changes to tests/string.test.
|
| < < | 1 2 3 4 5 6 7 | # Commands covered: string # # This file contains a collection of tests for one or more of the Tcl # built-in commands. Sourcing this file into Tcl runs the tests and # generates output for errors. No output means no errors were found. # # Copyright © 1991-1993 The Regents of the University of California. |
︙ | ︙ |