skip extensive IO-aggressive tests, be gentle with users and CIs env (especially SSD, let alone our surroundings)

4 files changed, 11 insertions, 7 deletions

diff --git a/library/tcltest/tcltest.tcl b/library/tcltest/tcltest.tcl
index d5bb7fe..867831a 100644
--- a/library/tcltest/tcltest.tcl
+++ b/library/tcltest/tcltest.tcl
@@ -1282,19 +1282,23 @@ proc tcltest::DefineConstraintInitializers {} {
 
     # Skip empty tests
 
-    ConstraintInitializer emptyTest {format 0}
+    ConstraintInitializer emptyTest {expr 0}
 
     # By default, tests that expose known bugs are skipped.
 
-    ConstraintInitializer knownBug {format 0}
+    ConstraintInitializer knownBug {expr 0}
 
     # By default, non-portable tests are skipped.
 
-    ConstraintInitializer nonPortable {format 0}
+    ConstraintInitializer nonPortable {expr 0}
+
+    # By default, extremely slow, extensive or IO-aggressive tests are skipped.
+
+    ConstraintInitializer extensive {expr 0}
 
     # Some tests require user interaction.
 
-    ConstraintInitializer userInteraction {format 0}
+    ConstraintInitializer userInteraction {expr 0}
 
     # Some tests must be skipped if the interpreter is not in
     # interactive mode
diff --git a/tests/chanio.test b/tests/chanio.test
index aef6a1b..0766c35 100644
--- a/tests/chanio.test
+++ b/tests/chanio.test
@@ -4529,7 +4529,7 @@ test chan-io-34.20 {Tcl_Tell combined with writing} -setup {
 test chan-io-34.21 {Tcl_Seek and Tcl_Tell on large files} -setup {
     file delete $path(test3)
     set l ""
-} -constraints {largefileSupport} -body {
+} -constraints {largefileSupport extensive} -body {
     set f [open $path(test3) w]
     chan configure $f -encoding binary
     lappend l [chan tell $f]
diff --git a/tests/io.test b/tests/io.test
index 4bb8c1f..1e17c43 100644
--- a/tests/io.test
+++ b/tests/io.test
@@ -4849,7 +4849,7 @@ test io-34.20 {Tcl_Tell combined with writing} {
     close $f
     set l
 } {29 39 40 447}
-test io-34.21 {Tcl_Seek and Tcl_Tell on large files} {largefileSupport} {
+test io-34.21 {Tcl_Seek and Tcl_Tell on large files} {largefileSupport extensive} {
     file delete $path(test3)
     set f [open $path(test3) w]
     fconfigure $f -encoding binary
diff --git a/tests/winFCmd.test b/tests/winFCmd.test
index 58df34d..ad6d8be 100644
--- a/tests/winFCmd.test
+++ b/tests/winFCmd.test
@@ -419,7 +419,7 @@ proc MakeFiles {dirname} {
 
 test winFCmd-1.38 {TclpRenameFile: check rename of conflicting inodes} -setup {
     cleanup
-} -constraints {win winNonZeroInodes notInCIenv} -body {
+} -constraints {win winNonZeroInodes notInCIenv extensive} -body {
     file mkdir td1
     lassign [MakeFiles td1] a b
     file rename -force $a $b