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

3 files changed, 3 insertions, 3 deletions

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