From 035055f5c5cd83e2e342063ea7b7eeb98d87bd9e Mon Sep 17 00:00:00 2001 From: Steve Bennett Date: Tue, 14 Dec 2010 10:50:31 +1000 Subject: Platform differences for regexp messages Signed-off-by: Steve Bennett --- tests/regexp.test | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/tests/regexp.test b/tests/regexp.test index 885e44c..7fa3ee0 100644 --- a/tests/regexp.test +++ b/tests/regexp.test @@ -202,8 +202,8 @@ test regexp-6.3 {regexp errors} jim { list [catch {regexp -gorp a} msg] $msg } {1 {bad switch "-gorp": must be --, -all, -indices, -inline, -line, -nocase, or -start}} test regexp-6.4 {regexp errors} { - list [catch {regexp a( b} msg] [string match *parentheses* $msg] -} {1 1} + catch {regexp a( b} msg +} 1 #test regexp-6.5 {regexp errors} { # list [catch {regexp a) b} msg] [string match *parentheses* $msg] #} {1 1} @@ -364,8 +364,8 @@ test regexp-11.5 {regsub errors} jim { list [catch {regsub -gorp a b c} msg] $msg } {1 {bad switch "-gorp": must be --, -all, -line, -nocase, or -start}} test regexp-11.6 {regsub errors} { - list [catch {regsub -nocase a( b c d} msg] [string match *parentheses* $msg] -} {1 1} + catch {regsub -nocase a( b c d} msg +} 1 test regexp-11.7 {regsub errors} jim { catch {unset f1} set f1 44 -- cgit v1.1