Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fixed another improper check, and removed redundant check in package index. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | subtitles-and-corrected-tests |
| Files: | files | file ages | folders |
| SHA1: | f3d8b0be17e364e7504950e2b0e95985351cd605 |
| User & Date: | aku 2013-03-12 03:14:58 |
Context
|
2013-03-12
| ||
| 03:17 | Activate all the Tk specific tests. check-in: 297b6b232a user: aku tags: subtitles-and-corrected-tests | |
| 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 | |
Changes
Changes to modules/plotchart/pkgIndex.tcl.
1 2 3 4 5 6 7 8 9 10 11 |
if {![package vsatisfies [package provide Tcl] 8.5]} {
# PRAGMA: returnok
return
}
package ifneeded Plotchart 2.1.0 [list source [file join $dir plotchart.tcl]]
if {![package vsatisfies [package provide Tcl] 8.5]} {
# PRAGMA: returnok
return
}
package ifneeded xyplot 1.0.1 [list source [file join $dir xyplot.tcl]]
package ifneeded plotanim 0.2 [list source [file join $dir plotanim.tcl]]
|
< < < < |
1 2 3 4 5 6 7 |
if {![package vsatisfies [package provide Tcl] 8.5]} {
# PRAGMA: returnok
return
}
package ifneeded Plotchart 2.1.0 [list source [file join $dir plotchart.tcl]]
package ifneeded xyplot 1.0.1 [list source [file join $dir xyplot.tcl]]
package ifneeded plotanim 0.2 [list source [file join $dir plotanim.tcl]]
|
Changes to modules/plotchart/plotchart.test.
6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
# as these do not require graphics
#
# TODO:
# - Error handling tests
# - checks for setZoomPan (changes of coordinates)
#
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
|
| | | > > > > > > > > > |
6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 |
# as these do not require graphics
#
# TODO:
# - Error handling tests
# - checks for setZoomPan (changes of coordinates)
#
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
|