mirror of
https://github.com/gentoo-mirror/gentoo.git
synced 2026-08-24 06:48:18 -07:00
31 lines
960 B
Diff
31 lines
960 B
Diff
--- 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
|