summaryrefslogtreecommitdiffstats
path: root/tests/main.test
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2025-06-17 10:17:49 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2025-06-17 10:17:49 (GMT)
commitc0d2a628a7aae16cba02725ff7ecf832dfc11332 (patch)
tree9fa4d0bb92d4c229edf14db531b30e3bced7af5b /tests/main.test
parent477358dd87a8ab7890be0d2172a097b1de4828de (diff)
parent5df8c22f6d572f4a169b24195b9a5aef31b598cc (diff)
downloadtcl-core-arith-series-bytecode.zip
tcl-core-arith-series-bytecode.tar.gz
tcl-core-arith-series-bytecode.tar.bz2
Diffstat (limited to 'tests/main.test')
-rw-r--r--tests/main.test8
1 files changed, 6 insertions, 2 deletions
diff --git a/tests/main.test b/tests/main.test
index c245b0e..a3d7d28 100644
--- a/tests/main.test
+++ b/tests/main.test
@@ -16,6 +16,10 @@ namespace eval ::tcl::test::main {
[llength [package provide tcl::test]]
&& [package vsatisfies [package provide tcl::test] 8.5-]}]
+ testConstraint noappverifier [expr {
+ [llength [info commands testappverifierpresent]] == 0
+ || ![testappverifierpresent]}]
+
# Procedure to simulate interactive typing of commands, line by line
proc type {chan script} {
foreach line [split $script \n] {
@@ -548,7 +552,7 @@ namespace eval ::tcl::test::main {
test Tcl_Main-4.5 {
Tcl_Main: Bug 1481986
} -constraints {
- exec tcl::test
+ exec tcl::test noappverifier
} -setup {
set rc [makeFile {
testsetmainloop
@@ -1154,7 +1158,7 @@ namespace eval ::tcl::test::main {
test Tcl_Main-8.10 {
StdinProc: interactive output, closed stdout
} -constraints {
- exec tcl::test
+ exec tcl::test noappverifier
} -body {
exec [interpreter] << {
testsetmainloop