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}}