Tk Library Source Code
Check-in [7c69b51a2d]
Not logged in
Bounty program for improvements to Tcl and certain Tcl packages.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fix for plotchart testsuite, added proper Tcl version check.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | subtitles-and-corrected-tests
Files: files | file ages | folders
SHA1:7c69b51a2dcc67db5d058ed8c1a17b6af27976bc
User & Date: aku 2013-03-12 03:03:40
Context
2013-03-12
03:14
Fixed another improper check, and removed redundant check in package index. check-in: f3d8b0be17 user: aku tags: subtitles-and-corrected-tests
03:03
Fix for plotchart testsuite, added proper Tcl version check. check-in: 7c69b51a2d user: aku tags: subtitles-and-corrected-tests
2013-03-10
16:08
Correct the use of options for the vertical subtext. Add missing procedures from previous checkin. check-in: bb8dd0fd80 user: markus tags: subtitles-and-corrected-tests
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to modules/plotchart/plotcontour.test.

1
2
3
4
5
6
7
8
9









10
11
12
13
14
15
16
# -*- tcl -*-
# Informal test for plotcontour
#

if {![package vsatisfies [package provide Tcl] 8.3]} {
    puts "    Aborting tests for plotchart."
    puts "    Requiring Tcl 8.3, have [package present Tcl]"
    return
}










# -------------------------------------------------------------------------
#
# Note:
#    The tests assume tcltest 2.1, in order to compare
#    floating-point results





|
|
|


>
>
>
>
>
>
>
>
>







1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
# -*- tcl -*-
# Informal test for plotcontour
#

if {![package vsatisfies [package provide Tcl] 8.5]} {
    puts "    Aborting the tests found in \"[file tail [info script]]\"."
    puts "    Requiring Tcl 8.5, have [package present Tcl]"
    return
}

# Future: put all tests under constraint tk and set constraint properly
if {[catch { package require Tk 8.5 } msg]} {
    puts "    Aborting the tests found in \"[file tail [info script]]\"."
    puts "    Requiring Tk 8.5, $msg"
    return
}

::tcltest::testConstraint tk 1

# -------------------------------------------------------------------------
#
# Note:
#    The tests assume tcltest 2.1, in order to compare
#    floating-point results