From 72bb6de9a0cd0e70c6f0661fd8070624957810d7 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Wed, 26 Feb 2025 20:23:23 +0000
Subject: Do not use the character "-" in a test constraint name.

When tcltest sees it, it does not process as a constraint, but converts
to interpretation as a constraint expression.  what you mean to be the
constraint "a-b" is processed as a combination of the constraints "a" and "b".
This makes it impossible to use tcltest command line options to perform
constraint-limited testing on variations of constraint values.
---
 tests/appendComp.test | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/tests/appendComp.test b/tests/appendComp.test
index 3a18404..0fafc6a 100644
--- a/tests/appendComp.test
+++ b/tests/appendComp.test
@@ -271,7 +271,7 @@ test appendComp-7.2 {lappend var triggers read trace, index var} -setup {
 	return $::result
     }
     bar
-} -result {myvar {} read} -constraints {bug-3057639}
+} -result {myvar {} read} -constraints {bug_3057639}
 test appendComp-7.3 {lappend var triggers read trace, stack var} -setup {
     unset -nocomplain ::result
     unset -nocomplain ::myvar
@@ -283,7 +283,7 @@ test appendComp-7.3 {lappend var triggers read trace, stack var} -setup {
 	return $::result
     }
     bar
-} -result {::myvar {} r} -constraints {bug-3057639}
+} -result {::myvar {} r} -constraints {bug_3057639}
 test appendComp-7.4 {lappend var triggers read trace, array var} -setup {
     unset -nocomplain ::result
 } -body {
@@ -296,7 +296,7 @@ test appendComp-7.4 {lappend var triggers read trace, array var} -setup {
 	return $::result
     }
     bar
-} -result {myvar b read} -constraints {bug-3057639}
+} -result {myvar b read} -constraints {bug_3057639}
 test appendComp-7.5 {lappend var triggers read trace, array var} -setup {
     unset -nocomplain ::result
 } -body {
@@ -321,7 +321,7 @@ test appendComp-7.6 {lappend var triggers read trace, array var exists} -setup {
 	return $::result
     }
     bar
-} -result {myvar b read} -constraints {bug-3057639}
+} -result {myvar b read} -constraints {bug_3057639}
 test appendComp-7.7 {lappend var triggers read trace, array stack var} -setup {
     unset -nocomplain ::myvar
     unset -nocomplain ::result
@@ -333,7 +333,7 @@ test appendComp-7.7 {lappend var triggers read trace, array stack var} -setup {
 	return $::result
     }
     bar
-} -result {::myvar b read} -constraints {bug-3057639}
+} -result {::myvar b read} -constraints {bug_3057639}
 test appendComp-7.8 {lappend var triggers read trace, array stack var} -setup {
     unset -nocomplain ::myvar
     unset -nocomplain ::result
-- 
cgit v0.12