Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | More improvements found browsing tcltest |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
b1b77002f49755c3d8db39d338f5d883 |
User & Date: | dgp 2013-01-30 17:22:49 |
Context
2013-01-30
| ||
17:58 | In the script library, selected modernizations from Patrick Fradin. check-in: e2850774ab user: dgp tags: trunk | |
17:22 | More improvements found browsing tcltest check-in: b1b77002f4 user: dgp tags: trunk | |
17:15 | More improvements found browsing tcltest. check-in: 38058afdf7 user: dgp tags: core-8-5-branch | |
16:52 | Fradin improvements in test suite too check-in: 71b3eaddaa user: dgp tags: trunk | |
Changes
Changes to library/tcltest/tcltest.tcl.
︙ | ︙ | |||
982 983 984 985 986 987 988 | # None. proc tcltest::interpreter { {interp ""} } { variable tcltest if {[llength [info level 0]] == 1} { return $tcltest } | < < < < | < < | 982 983 984 985 986 987 988 989 990 991 992 993 994 995 996 | # None. proc tcltest::interpreter { {interp ""} } { variable tcltest if {[llength [info level 0]] == 1} { return $tcltest } set tcltest $interp } ##################################################################### # tcltest::AddToSkippedBecause -- # # Increments the variable used to track how many tests were |
︙ | ︙ | |||
2870 2871 2872 2873 2874 2875 2876 | # Results # none # # Side Effects: # none. proc tcltest::loadTestedCommands {} { | < < < < | 2864 2865 2866 2867 2868 2869 2870 2871 2872 2873 2874 2875 2876 2877 | # Results # none # # Side Effects: # none. proc tcltest::loadTestedCommands {} { return [uplevel 1 [loadScript]] } # tcltest::saveState -- # # Save information regarding what procs and variables exist. # |
︙ | ︙ |