From 74163d999b5c98fb62f26421390860bac3352dce Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Wed, 26 Feb 2025 20:45:46 +0000
Subject: More constraint name repair

---
 tests/bigdata.test | 18 +++++++++---------
 tests/listObj.test |  2 +-
 2 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/tests/bigdata.test b/tests/bigdata.test
index a7db497..6b5b501 100644
--- a/tests/bigdata.test
+++ b/tests/bigdata.test
@@ -139,7 +139,7 @@ test script-bytecode-length-bigdata-1 {Test bytecode length limit} -body {
     catch $s r e
 } -cleanup {
     bigClean
-} -constraints panic-in-EnterCmdStartData
+} -constraints panicInEnterCmdStartData
 
 #
 # string cat
@@ -321,7 +321,7 @@ bigtestRO string-map-bigdata-1 {string map} {5 0 0 5} -body {
     set s [bigString 0x100000000]
 } -cleanup {
     bigClean
-} -constraints bug-takesTooLong
+} -constraints bugTakesTooLong
 
 #
 # string match
@@ -681,7 +681,7 @@ bigtestRO regexp-bigdata-2 "regexp with capture" 1 -body {
     set s [bigString 0x10000000a 0x100000009]
 } -cleanup {
     bigClean digits match
-} -constraints bug-takesTooLong
+} -constraints bugTakesTooLong
 
 #
 # regsub
@@ -691,14 +691,14 @@ bigtestRO regsub-bigdata-1 "regsub" X -body {
     set s [bigString 0x100000001 0x100000000]
 } -cleanup {
     bigClean
-} -constraints bug-takesTooLong
+} -constraints bugTakesTooLong
 bigtestRO regsub-bigdata-2 "regsub" 1 -body {
     string equal [regsub -all \\d $s x] [string cat [string repeat x 0x100000000] X]
 } -setup {
     set s [bigString 0x100000001 0x100000000]
 } -cleanup {
     bigClean
-} -constraints bug-takesTooLong
+} -constraints bugTakesTooLong
 
 #
 # subst
@@ -869,7 +869,7 @@ bigtest ledit-bigdata-3 "ledit - small -> large result" {2147483650 2147483650 {
     set l [bigList 2147483642]
 } -cleanup {
     bigClean
-} -constraints memory-allocation-panic
+} -constraints memoryAllocationPanic
 
 #
 # lindex
@@ -1027,7 +1027,7 @@ bigtest lreplace-bigdata-2 "lreplace - large result" {4294967301 {a b c d e 0 1
     #set l [bigList 4294967296]
 } -cleanup {
     bigClean
-} -constraints bug-outofmemorypanic
+} -constraints bugOutOfMemoryPanic
 
 #
 # lsearch
@@ -1058,7 +1058,7 @@ bigtest lseq-bigdata-2 "lseq" {9223372036854775807 9223372036854775799} -body {
     set l [lseq 0x7fffffffffffffff]; llength $l
 } -cleanup {
     bigClean
-} -constraints bug-fa00fbbbab
+} -constraints bug_fa00fbbbab
 
 #
 # lset
@@ -1103,7 +1103,7 @@ bigtest split-bigdata-1 "split" {4294967296 {0 1 2 3 4} {1 2 3 4 5}} -body {
     set s [bigString 0x100000000]
 } -cleanup {
     bigClean
-} -constraints bug-takesTooLong
+} -constraints bugTakesTooLong
 
 bigtestRO concat-bigdata-1 "concat" {4294967296 {0 1 2 3 4} {6 7 0 1 2} {3 4 5 6 7}} -body {
     unset -nocomplain l2
diff --git a/tests/listObj.test b/tests/listObj.test
index 7aac480..087747f 100644
--- a/tests/listObj.test
+++ b/tests/listObj.test
@@ -319,7 +319,7 @@ test listobj-14.2 {Tcl_ListObjIndex out-of-bounds index for native lists with sp
     list [testlistobj index 1 -1] [testlistobj index 1 1000]
 } -result {null null}
 
-test listobj-14.3 {Tcl_ListObjIndex out-of-bounds index for lseq} -constraints {bug-30e4e9102f testobj} -setup {
+test listobj-14.3 {Tcl_ListObjIndex out-of-bounds index for lseq} -constraints {bug_30e4e9102f testobj} -setup {
     testobj set 1 [lseq 3]
 } -cleanup {
     testobj freeallvars
-- 
cgit v0.12