Tk Library Source Code
Check-in [c729f18ef7]
Not logged in
Core Home Documentation Tickets | Timeline Branches Tags Wiki Login
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 | tklib-0-6-rc
Files: files | file ages | folders
SHA1: c729f18ef7c0150d2689d68173737a0ce95b57b3
User & Date: aku 2013-03-12 03:00:51
Context
2013-03-12
03:18
Get latest plotchart fixes. check-in: fcdf9d9650 user: aku tags: tklib-0-6-rc
03:00
Fix for plotchart testsuite, added proper Tcl version check. check-in: c729f18ef7 user: aku tags: tklib-0-6-rc
2013-03-11
22:55
And the .tap file also check-in: 7ffa535791 user: andreask tags: tklib-0-6-rc
Changes
Unified Diff 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
︙︙