Tcl Source Code

Check-in [b1b77002f4]
Login

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: b1b77002f49755c3d8db39d338f5d883400d6bc3
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to library/tcltest/tcltest.tcl.

982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
1001
1002
#	None.

proc tcltest::interpreter { {interp ""} } {
    variable tcltest
    if {[llength [info level 0]] == 1} {
	return $tcltest
    }

if {$interp eq {}} {
set tcltest {}
} else {
set tcltest $interp
}
#    set tcltest $interp
}

#####################################################################

# tcltest::AddToSkippedBecause --
#
#	Increments the variable used to track how many tests were







<
<
<
<
|
<
<







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
2877
2878
2879
2880
2881
2882
2883
2884
2885
2886
2887
# Results
#     none
#
# Side Effects:
#     none.

proc tcltest::loadTestedCommands {} {
variable l
if {[loadScript] eq {}} {
return
}
    return [uplevel 1 [loadScript]]
}

# tcltest::saveState --
#
#	Save information regarding what procs and variables exist.
#







<
<
<
<







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.
#