diff options
author | jenn <jenn> | 1999-08-23 17:54:59 (GMT) |
---|---|---|
committer | jenn <jenn> | 1999-08-23 17:54:59 (GMT) |
commit | 5091b794329105b393227690593b14fbfa6e37bc (patch) | |
tree | 0d2ef94dcb7e154f0633f0e6a6c0d977ebdad5a6 /tests/regexp.test | |
parent | 4c6a266de934cd6b3f8f0f3b93b2b6130d9ba3fa (diff) | |
download | tcl-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.test | 12 |
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 |