summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--tests/binary.test4
-rw-r--r--tests/pkg.test4
-rw-r--r--tests/switch.test16
3 files changed, 12 insertions, 12 deletions
diff --git a/tests/binary.test b/tests/binary.test
index e2ad12e..557e03d 100644
--- a/tests/binary.test
+++ b/tests/binary.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: binary.test,v 1.25 2005/10/08 14:42:54 dgp Exp $
+# RCS: @(#) $Id: binary.test,v 1.26 2005/12/02 17:34:03 dgp Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -2233,7 +2233,7 @@ test binary-65.8 {largest significand} ieeeFloatingPoint {
binary scan [binary format w 0x4350000000000000] q d
set d
} 18014398509481984.0
-test binary-65.8 {largest significand} ieeeFloatingPoint {
+test binary-65.9 {largest significand} ieeeFloatingPoint {
binary scan [binary format w 0x4350000000000001] q d
set d
} 18014398509481988.0
diff --git a/tests/pkg.test b/tests/pkg.test
index fb27d34..31091bb 100644
--- a/tests/pkg.test
+++ b/tests/pkg.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: pkg.test,v 1.15 2005/11/18 19:13:46 dgp Exp $
+# RCS: @(#) $Id: pkg.test,v 1.16 2005/12/02 17:34:03 dgp Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2
@@ -376,7 +376,7 @@ test pkg-2.35 {Tcl_PkgRequire: consistent return values (1162286)} -setup {
} -cleanup {
package forget foo
} -returnCodes error -match glob -result {attempt to provide package * failed:*}
-test pkg-2.35 {Tcl_PkgRequire: consistent return values (1162286)} -setup {
+test pkg-2.35.1 {Tcl_PkgRequire: consistent return values (1162286)} -setup {
package forget foo
} -body {
package ifneeded foo 1 {break}
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}}