summaryrefslogtreecommitdiffstats
path: root/tests/regexp.test
diff options
context:
space:
mode:
authorjenn <jenn>1999-08-23 17:54:59 (GMT)
committerjenn <jenn>1999-08-23 17:54:59 (GMT)
commit5091b794329105b393227690593b14fbfa6e37bc (patch)
tree0d2ef94dcb7e154f0633f0e6a6c0d977ebdad5a6 /tests/regexp.test
parent4c6a266de934cd6b3f8f0f3b93b2b6130d9ba3fa (diff)
downloadtcl-5091b794329105b393227690593b14fbfa6e37bc.zip
tcl-5091b794329105b393227690593b14fbfa6e37bc.tar.gz
tcl-5091b794329105b393227690593b14fbfa6e37bc.tar.bz2
* tests/tcltest.test: Added additional tests for -tmpdir, marked
all tests that use exec as unixOrPc. * tests/encoding.test: * tests/interp.test: * tests/macFCmd.test: * tests/parseOld.test: * tests/regexp.test: Applied patches from Jim Ingham to add encoding to a Mac only interp test, change an error message in macFCmd.tet, put a comment in parseOld.test, fix tests using the testencoding path command, and put unixOrPc constraints on tests that use exec.
Diffstat (limited to 'tests/regexp.test')
-rw-r--r--tests/regexp.test12
1 files changed, 9 insertions, 3 deletions
diff --git a/tests/regexp.test b/tests/regexp.test
index d17f2be..b0f101c 100644
--- a/tests/regexp.test
+++ b/tests/regexp.test
@@ -11,7 +11,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: regexp.test,v 1.8 1999/06/26 20:55:10 rjohnson Exp $
+# RCS: @(#) $Id: regexp.test,v 1.9 1999/08/23 17:54:59 jenn Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -363,7 +363,10 @@ test regexp-11.7 {regsub errors} {
list [catch {regsub -nocase aaa aaa xxx f1(f2)} msg] $msg
} {1 {couldn't set variable "f1(f2)"}}
-test regexp-12.1 {Tcl_RegExpExec: large number of subexpressions} {
+# This test crashes on the Mac unless you increase the Stack Space to about 1
+# Meg. This is probably bigger than most users want...
+
+test regexp-12.1 {macCrash} {Tcl_RegExpExec: large number of subexpressions} {
list [regexp (.)(.)(.)(.)(.)(.)(.)(.)(.)(.)(.)(.)(.)(.)(.)(.)(.)(.)(.)(.)(.)(.)(.)(.)(.)(.) abcdefghijklmnopqrstuvwxyz all a b c d e f g h i j k l m n o p q r s t u v w x y z] $all $a $b $c $d $e $f $g $h $i $j $k $l $m $n $o $p $q $r $s $t $u $v $w $x $y $z
} {1 abcdefghijklmnopqrstuvwxyz a b c d e f g h i j k l m n o p q r s t u v w x y z}
@@ -403,7 +406,10 @@ test regexp-14.2 {CompileRegexp: regexp cache, different flags} {
append x *a
regexp -nocase $x bbba
} 1
-test regexp-14.3 {CompileRegexp: regexp cache, empty regexp and empty cache} {
+
+# There is no exec on the Mac ...
+
+test regexp-14.3 {unixOrPc} {CompileRegexp: regexp cache, empty regexp and empty cache} {
makeFile {puts [regexp {} foo]} junk.tcl
exec $::tcltest::tcltest junk.tcl
} 1