blob: b3a48141483694ed962b4f3da1d0996b3e850827 (
plain)
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
26
27
28
29
30
|
--- a/tests/entry.test 2026-03-06 11:01:27.368490500 +0100
+++ b/tests/entry.test 2026-03-06 11:34:18.284747899 +0100
@@ -14,6 +14,9 @@
pack .e
update
set i 0
+# Check if we are running Tk 9.0 or higher
+set isTk9 [expr {[package vcompare [package provide Tk] 9.0] >= 0}]
+
foreach test {
{-background #ff0000 #ff0000 non-existent \
{unknown color name "non-existent"}}
@@ -55,10 +58,15 @@
{-xscrollcommand {Some command} {Some command} {} {}}
} {
set name [lindex $test 0]
+ set value [lindex $test 1]
+ set expected [lindex $test 2]
+ if {$isTk9 && [string match "-*borderwidth" $name]} {
+ set expected $value
+ }
test entry-1.$i {configuration options} {
- .e configure $name [lindex $test 1]
+ .e configure $name $value
list [lindex [.e configure $name] 4] [.e cget $name]
- } [list [lindex $test 2] [lindex $test 2]]
+ } [list $expected $expected]
incr i
}
destroy .e
|
