diff options
| author | sebres <sebres@users.sourceforge.net> | 2018-05-30 11:49:19 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2018-05-30 11:49:19 (GMT) |
| commit | 71f7b946a6a525d6c5163a34bd1c2d2ad72f25c8 (patch) | |
| tree | 3a303e51287e61c73608540c6e8b1858090ba4bd | |
| parent | 83a8197fe9d38bd55cb7ee1d5dfd4ea2b8415c93 (diff) | |
| download | tcl-71f7b946a6a525d6c5163a34bd1c2d2ad72f25c8.zip tcl-71f7b946a6a525d6c5163a34bd1c2d2ad72f25c8.tar.gz tcl-71f7b946a6a525d6c5163a34bd1c2d2ad72f25c8.tar.bz2 | |
amend to [98a00c62b4798792]: fixed sort of the tests
| -rw-r--r-- | library/tcltest/tcltest.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/tcltest/tcltest.tcl b/library/tcltest/tcltest.tcl index 8e3e505..0f4fee4 100644 --- a/library/tcltest/tcltest.tcl +++ b/library/tcltest/tcltest.tcl @@ -2672,7 +2672,7 @@ proc tcltest::GetMatchingFiles { args } { skip patterns!" } - return [__SortFiles $matchingFiles] + return $matchingFiles } # tcltest::GetMatchingDirectories -- @@ -2795,7 +2795,7 @@ proc tcltest::runAllTests { {shell ""} } { puts [outputChannel] "Tests began at [eval $timeCmd]" # Run each of the specified tests - foreach file [lsort [GetMatchingFiles]] { + foreach file [__SortFiles [GetMatchingFiles]] { set tail [file tail $file] puts [outputChannel] $tail flush [outputChannel] |