summaryrefslogtreecommitdiffstats
path: root/tests/switch.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/switch.test')
-rw-r--r--tests/switch.test16
1 files changed, 8 insertions, 8 deletions
diff --git a/tests/switch.test b/tests/switch.test
index ed1d38a..f611888 100644
--- a/tests/switch.test
+++ b/tests/switch.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: switch.test,v 1.14 2005/06/20 07:49:12 mdejong Exp $
+# RCS: @(#) $Id: switch.test,v 1.15 2005/12/02 17:34:03 dgp Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -139,31 +139,31 @@ test switch-3.11 {-exact vs. -glob vs. -regexp with -nocase} {
}
} exact
-test switch-3.7 {-exact vs. -glob vs. -regexp} {
+test switch-3.12 {-exact vs. -glob vs. -regexp} {
list [catch {switch -exa Foo Foo {set result OK}} msg] $msg
} {0 OK}
-test switch-3.8 {-exact vs. -glob vs. -regexp} {
+test switch-3.13 {-exact vs. -glob vs. -regexp} {
list [catch {switch -gl Foo Fo? {set result OK}} msg] $msg
} {0 OK}
-test switch-3.9 {-exact vs. -glob vs. -regexp} {
+test switch-3.14 {-exact vs. -glob vs. -regexp} {
list [catch {switch -re Foo Fo. {set result OK}} msg] $msg
} {0 OK}
-test switch-3.10 {-exact vs. -glob vs. -regexp} {
+test switch-3.15 {-exact vs. -glob vs. -regexp} {
list [catch {switch -exact -exact Foo Foo {set result OK}} msg] $msg
} {1 {bad option "-exact": -exact option already found}}
-test switch-3.11 {-exact vs. -glob vs. -regexp} {
+test switch-3.16 {-exact vs. -glob vs. -regexp} {
list [catch {switch -exact -glob Foo Foo {set result OK}} msg] $msg
} {1 {bad option "-glob": -exact option already found}}
-test switch-3.12 {-exact vs. -glob vs. -regexp} {
+test switch-3.17 {-exact vs. -glob vs. -regexp} {
list [catch {switch -glob -regexp Foo Foo {set result OK}} msg] $msg
} {1 {bad option "-regexp": -glob option already found}}
-test switch-3.13 {-exact vs. -glob vs. -regexp} {
+test switch-3.18 {-exact vs. -glob vs. -regexp} {
list [catch {switch -regexp -glob Foo Foo {set result OK}} msg] $msg
} {1 {bad option "-glob": -regexp option already found}}