* tests/compile.test: Updated tests with changed behavior

        * tests/execute.test:   due to addition of bignums.
        * tests/expr-old.test:
        * tests/expr.test:
        * tests/parseExpr.test:
        * tests/platform.test:
        * tests/string.test:

1 files changed, 3 insertions, 3 deletions

diff --git a/tests/platform.test b/tests/platform.test
index c04561e..2236311 100644
--- a/tests/platform.test
+++ b/tests/platform.test
@@ -31,11 +31,11 @@ test platform-1.1 {TclpSetVariables: tcl_platform} {
 # everything these days.  Note that this does *not* use wide(), and
 # this is intentional since that could make Tcl's numbers wider than
 # the machine-integer on some platforms...
-test platform-2.1 {tcl_platform(wordSize) indicates size of native word} knownBug {
-    set result [expr {1 << (8 * $tcl_platform(wordSize) - 1)}]
+test platform-2.1 {tcl_platform(wordSize) indicates size of native word} {
+    set result [expr {int(1 << (8 * $tcl_platform(wordSize) - 1))}]
     # Result must be the largest bit in a machine word, which this checks
     # without assuming how wide the word really is
-    list [expr {$result < 0}] [expr {$result ^ ($result - 1)}]
+    list [expr {$result < 0}] [expr {$result ^ int($result - 1)}]
 } {1 -1}
 
 # On Windows, test that the CPU ID works