diff options
| author | stanton <stanton> | 1998-11-03 02:06:43 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1998-11-03 02:06:43 (GMT) |
| commit | c7332617ba5dbb6c74ef23c5bca3ea821407ac7f (patch) | |
| tree | 9265f1d59977c1c2ae6d3e3f254878d3eded6b36 /tests/scale.test | |
| parent | 1699d713ff773d038e2adb47e802756a2541642d (diff) | |
| download | tk-c7332617ba5dbb6c74ef23c5bca3ea821407ac7f.zip tk-c7332617ba5dbb6c74ef23c5bca3ea821407ac7f.tar.gz tk-c7332617ba5dbb6c74ef23c5bca3ea821407ac7f.tar.bz2 | |
fixed broken tests
Diffstat (limited to 'tests/scale.test')
| -rw-r--r-- | tests/scale.test | 18 |
1 files changed, 9 insertions, 9 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 |