diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2025-06-17 10:17:49 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2025-06-17 10:17:49 (GMT) |
| commit | c0d2a628a7aae16cba02725ff7ecf832dfc11332 (patch) | |
| tree | 9fa4d0bb92d4c229edf14db531b30e3bced7af5b /tests/main.test | |
| parent | 477358dd87a8ab7890be0d2172a097b1de4828de (diff) | |
| parent | 5df8c22f6d572f4a169b24195b9a5aef31b598cc (diff) | |
| download | tcl-core-arith-series-bytecode.zip tcl-core-arith-series-bytecode.tar.gz tcl-core-arith-series-bytecode.tar.bz2 | |
merge trunkcore-arith-series-bytecode
Diffstat (limited to 'tests/main.test')
| -rw-r--r-- | tests/main.test | 8 |
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 |
