diff options
| -rw-r--r-- | tests/binary.test | 4 | ||||
| -rw-r--r-- | tests/pkg.test | 4 | ||||
| -rw-r--r-- | tests/switch.test | 16 |
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}} |