-constraint -> -constraints

tcltk · Jan 15, 2024 · 9417cb6 · 9417cb6
1 parent 3141307
commit 9417cb6
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/tests/textTag.test b/tests/textTag.test
@@ -113,7 +113,7 @@ test textTag-1.12 {tag configuration options} -body {
 } -cleanup {
     .t tag configure x -justify [lindex [.t tag configure x -justify] 3]
 } -result {left}
-test textTag-1.13 {configuration options} -constraint needsTcl87 -body {
+test textTag-1.13 {configuration options} -constraints needsTcl87 -body {
     .t tag configure x -justify middle
 } -cleanup {
     .t tag configure x -justify [lindex [.t tag configure x -justify] 3]
@@ -190,7 +190,7 @@ test textTag-1.22 {tag configuration options} -body {
 } -cleanup {
     .t tag configure x -relief [lindex [.t tag configure x -relief] 3]
 } -result {raised}
-test textTag-1.23 {configuration options} -constraint needsTcl87 -body {
+test textTag-1.23 {configuration options} -constraints needsTcl87 -body {
     .t tag configure x -relief stupid
 } -cleanup {
     .t tag configure x -relief [lindex [.t tag configure x -relief] 3]
@@ -538,13 +538,13 @@ test textTag-5.8 {TkTextTagCmd - "configure" option} -body {
 } -cleanup {
     .t tag delete x
 } -result {-justify {} {} {} left}
-test textTag-5.9 {TkTextTagCmd - "configure" option} -constraint needsTcl87 -body {
+test textTag-5.9 {TkTextTagCmd - "configure" option} -constraints needsTcl87 -body {
     .t tag delete x
     .t tag configure x -justify bogus
 } -cleanup {
     .t tag delete x
 } -returnCodes error -result {bad justification "bogus": must be left, right, center, or ""}
-test textTag-5.10 {TkTextTagCmd - "configure" option} -constraint needsTcl87 -body {
+test textTag-5.10 {TkTextTagCmd - "configure" option} -constraints needsTcl87 -body {
     .t tag delete x
     .t tag configure x -justify fill
 } -cleanup {