From 02f5af133cd7c089f3e8086bb9c49dd71cc54843 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Fri, 21 Oct 2005 21:49:35 +0000
Subject: Marked some failing tests as knownBug until they can be updated.

---
 tests/execute.test | 12 ++++++------
 tests/expr.test    | 16 ++++++++--------
 2 files changed, 14 insertions(+), 14 deletions(-)

diff --git a/tests/execute.test b/tests/execute.test
index 0f02e01..47bf837 100644
--- a/tests/execute.test
+++ b/tests/execute.test
@@ -14,7 +14,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: execute.test,v 1.19 2004/10/28 17:21:25 msofer Exp $
+# RCS: @(#) $Id: execute.test,v 1.20 2005/10/21 21:49:35 dgp Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest 2
@@ -640,13 +640,13 @@ test execute-7.12 {Wide int handling in INST_LSHIFT} {longIs32bit} {
 test execute-7.13 {Wide int handling in INST_RSHIFT} {longIs32bit} {
     expr 0x543210febcda9876>>7
 } 47397893236700464
-test execute-7.14 {Wide int handling in INST_RSHIFT} {longIs32bit} {
+test execute-7.14 {Wide int handling in INST_RSHIFT} {longIs32bit knownBug} {
     expr 0x9876543210febcda>>7
 } -58286587177206407
-test execute-7.15 {Wide int handling in INST_BITOR} {longIs32bit} {
+test execute-7.15 {Wide int handling in INST_BITOR} {longIs32bit knownBug} {
     expr 0x9876543210febcda | 0x543210febcda9876
 } -2560765885044310786
-test execute-7.16 {Wide int handling in INST_BITXOR} {longIs32bit} {
+test execute-7.16 {Wide int handling in INST_BITXOR} {longIs32bit knownBug} {
     expr 0x9876543210febcda ^ 0x543210febcda9876
 } -3727778945703861076
 test execute-7.17 {Wide int handling in INST_BITAND} {longIs32bit} {
@@ -703,10 +703,10 @@ test execute-7.31 {Wide int handling in abs()} {longIs32bit} {
     set y 0x123456871234568
     concat [expr {abs($x)}] [expr {abs($y)}]
 } {730503879441204585 81985533099853160}
-test execute-7.32 {Wide int handling} {longIs32bit} {
+test execute-7.32 {Wide int handling} {longIs32bit knownBug} {
     expr {1024 * 1024 * 1024 * 1024}
 } 0
-test execute-7.33 {Wide int handling} {longIs32bit} {
+test execute-7.33 {Wide int handling} {longIs32bit knownBug} {
     expr {0x1 * 1024 * 1024 * 1024 * 1024}
 } 0
 test execute-7.34 {Wide int handling} {longIs32bit} {
diff --git a/tests/expr.test b/tests/expr.test
index 0176e4e..fe1784a 100644
--- a/tests/expr.test
+++ b/tests/expr.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: expr.test,v 1.46 2005/10/21 20:44:17 dgp Exp $
+# RCS: @(#) $Id: expr.test,v 1.47 2005/10/21 21:49:35 dgp Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest 2.1
@@ -1025,8 +1025,8 @@ test expr-24.1 {expr edge cases; shifting} {expr int(5)>>32} 0
 test expr-24.2 {expr edge cases; shifting} {expr int(5)>>63} 0
 test expr-24.3 {expr edge cases; shifting} {expr wide(5)>>32} 0
 test expr-24.4 {expr edge cases; shifting} {expr wide(5)>>63} 0
-test expr-24.5 {expr edge cases; shifting} longIs32bit {expr int(5)<<32} 0
-test expr-24.6 {expr edge cases; shifting} longIs32bit {expr int(5)<<63} 0
+test expr-24.5 {expr edge cases; shifting} {longIs32bit knownBug} {expr int(5)<<32} 0
+test expr-24.6 {expr edge cases; shifting} {longIs32bit knownBug} {expr int(5)<<63} 0
 test expr-24.7 {expr edge cases; shifting} {expr wide(5)<<32} 21474836480
 test expr-24.8 {expr edge cases; shifting} knownBug {expr wide(10)<<63} 0
 test expr-24.9 {expr edge cases; shifting} {expr 5>>32} 0
@@ -5405,7 +5405,7 @@ test expr-32.2 {expr div basics} {
     -3 -2 -1 -1 -1 \
     ]
 
-test expr-33.1 {parse largest long value} {longIs32bit} {
+test expr-33.1 {parse largest long value} {longIs32bit knownBug} {
     set max_long_str 2147483647
     set max_long_hex "0x7FFFFFFF "
 
@@ -5422,7 +5422,7 @@ test expr-33.1 {parse largest long value} {longIs32bit} {
         [expr {(2147483647 + 1) < 0}] \
 
 } {2147483647 2147483647 2147483647 2147483647 1 1}
-test expr-33.2 {parse smallest long value} {longIs32bit} {
+test expr-33.2 {parse smallest long value} {longIs32bit knownBug} {
     set min_long_str -2147483648
     set min_long_hex "-0x80000000 "
 
@@ -5519,16 +5519,16 @@ test expr-34.11 {expr edge cases} {longIs32bit} {
 test expr-34.12 {expr edge cases} {longIs32bit} {
     expr {$min % -2}
 } {0}
-test expr-34.13 {expr edge cases} {longIs32bit} {
+test expr-34.13 {expr edge cases} {longIs32bit knownBug} {
     expr {$min / -1}
 } {-2147483648}
 test expr-34.14 {expr edge cases} {longIs32bit} {
     expr {$min % -1}
 } {0}
-test expr-34.15 {expr edge cases} {longIs32bit} {
+test expr-34.15 {expr edge cases} {longIs32bit knownBug} {
     expr {$min * -1}
 } $min
-test expr-34.16 {expr edge cases} {longIs32bit} {
+test expr-34.16 {expr edge cases} {longIs32bit knownBug} {
     expr {-$min}
 } $min
 test expr-34.17 {expr edge cases} {longIs32bit} {
-- 
cgit v0.12