summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorstanton <stanton>1998-11-03 02:06:43 (GMT)
committerstanton <stanton>1998-11-03 02:06:43 (GMT)
commitc7332617ba5dbb6c74ef23c5bca3ea821407ac7f (patch)
tree9265f1d59977c1c2ae6d3e3f254878d3eded6b36 /tests
parent1699d713ff773d038e2adb47e802756a2541642d (diff)
downloadtk-c7332617ba5dbb6c74ef23c5bca3ea821407ac7f.zip
tk-c7332617ba5dbb6c74ef23c5bca3ea821407ac7f.tar.gz
tk-c7332617ba5dbb6c74ef23c5bca3ea821407ac7f.tar.bz2
fixed broken tests
Diffstat (limited to 'tests')
-rw-r--r--tests/scale.test18
-rw-r--r--tests/winClipboard.test5
2 files changed, 13 insertions, 10 deletions
diff --git a/tests/scale.test b/tests/scale.test
index ddef4cf..adc50e9 100644
--- a/tests/scale.test
+++ b/tests/scale.test
@@ -7,7 +7,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: scale.test,v 1.2 1998/09/14 18:23:49 stanton Exp $
+# RCS: @(#) $Id: scale.test,v 1.3 1998/11/03 02:06:43 stanton Exp $
if {[info procs test] != "test"} {
source defs
@@ -329,8 +329,8 @@ test scale-6.6 {ComputeFormat procedure} {nonPortable} {
test scale-6.7 {ComputeFormat procedure} {
.s configure -from 1000000000 -to 10000000000 -resolution 1000000000
.s set 4930000000
- .s get
-} {5.0e+09}
+ expr {[.s get] == 5.0e+09}
+} 1
test scale-6.8 {ComputeFormat procedure} {
.s configure -from .1 -to 1 -resolution .1
.s set .6
@@ -359,8 +359,8 @@ test scale-6.12 {ComputeFormat procedure} {
test scale-6.13 {ComputeFormat procedure} {
.s configure -from .000001 -to .00001 -resolution .000001
.s set .000006
- .s get
-} {6.0e-06}
+ expr {[.s get] == 6.0e-06}
+} 1
test scale-6.14 {ComputeFormat procedure} {
.s configure -to .00001 -from .0001 -resolution .00001
.s set .00006
@@ -369,13 +369,13 @@ test scale-6.14 {ComputeFormat procedure} {
test scale-6.15 {ComputeFormat procedure} {
.s configure -to .000001 -from .00001 -resolution .000001
.s set .000006
- .s get
-} {6.0e-06}
+ expr {[.s get] == 6.0e-06}
+} 1
test scale-6.16 {ComputeFormat procedure} {
.s configure -from .00001 -to .0001 -resolution .00001 -digits 1
.s set .00006
- .s get
-} {6e-05}
+ expr {[.s get] == 6e-05}
+} 1
test scale-6.17 {ComputeFormat procedure} {
.s configure -from 10000000 -to 100000000 -resolution 10000000 -digits 3
.s set 49300000
diff --git a/tests/winClipboard.test b/tests/winClipboard.test
index 64a73a9..6727a27 100644
--- a/tests/winClipboard.test
+++ b/tests/winClipboard.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: winClipboard.test,v 1.2 1998/09/14 18:23:53 stanton Exp $
+# RCS: @(#) $Id: winClipboard.test,v 1.3 1998/11/03 02:06:44 stanton Exp $
if {$tcl_platform(platform)!="windows"} {
return
@@ -21,6 +21,9 @@ if {[string compare test [info procs test]] == 1} {
source defs
}
+# Note that these tests may fail if another application is grabbing the
+# clipboard (e.g. an X server)
+
test winClipboard-1.1 {TkSelGetSelection} {
clipboard clear
catch {selection get -selection CLIPBOARD} msg