summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorpatthoyts <patthoyts@users.sourceforge.net>2008-10-06 23:59:02 (GMT)
committerpatthoyts <patthoyts@users.sourceforge.net>2008-10-06 23:59:02 (GMT)
commit5aeb51bc17cdc6ed0610f83a87aa404ba60cd449 (patch)
tree59a9a555d39f426b5f19feaefcc4ba997e829ae5 /tests
parente0b0b949f2dd493f17925e7318a7e4f9854fae27 (diff)
downloadtk-5aeb51bc17cdc6ed0610f83a87aa404ba60cd449.zip
tk-5aeb51bc17cdc6ed0610f83a87aa404ba60cd449.tar.gz
tk-5aeb51bc17cdc6ed0610f83a87aa404ba60cd449.tar.bz2
Removed dependency on default precision
Diffstat (limited to 'tests')
-rw-r--r--tests/listbox.test48
1 files changed, 24 insertions, 24 deletions
diff --git a/tests/listbox.test b/tests/listbox.test
index bb6a00f..1a1f6c3 100644
--- a/tests/listbox.test
+++ b/tests/listbox.test
@@ -6,7 +6,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: listbox.test,v 1.32 2008/08/17 19:40:33 aniap Exp $
+# RCS: @(#) $Id: listbox.test,v 1.33 2008/10/06 23:59:02 patthoyts Exp $
package require tcltest 2.2
eval tcltest::configure $argv
@@ -15,9 +15,9 @@ namespace import -force tcltest::test
set fixed {Courier -12}
-proc record args {
+proc record {name args} {
global log
- lappend log $args
+ lappend log [format {%s %.6g %.6g} $name {*}$args]
}
proc getsize w {
@@ -916,7 +916,7 @@ test listbox-3.115 {ListboxWidgetCmd procedure, "xview" option} -setup {
.l2 insert 0 a b c d e f g h i j k l m n o p q r s t
pack .l2
update
- .l2 xview
+ format {%.6g %.6g} {*}[.l2 xview]
} -cleanup {
destroy .l2
} -result {0 1}
@@ -932,7 +932,7 @@ test listbox-3.116 {ListboxWidgetCmd procedure, "xview" option} -constraints {
.l2 insert 0 a b c d e f g h i j k l m n o p q r s t
.l2 insert 1 "0123456789a123456789b123456789c123456789d123456789"
.l2 xview 4
- .l2 xview
+ format {%.6g %.6g} {*}[.l2 xview]
} -cleanup {
destroy .l2
} -result {0.08 0.28}
@@ -955,7 +955,7 @@ test listbox-3.119 {ListboxWidgetCmd procedure, "xview" option} -constraints {
.l xview 0
.l2 xview moveto .4
update
- .l2 xview
+ format {%.6g %.6g} {*}[.l2 xview]
} -cleanup {
destroy .l2
} -result {0.4 0.6}
@@ -972,7 +972,7 @@ test listbox-3.120 {ListboxWidgetCmd procedure, "xview" option} -constraints {
.l2 xview 0
.l2 xview scroll 2 units
update
- .l2 xview
+ format {%.6g %.6g} {*}[.l2 xview]
} -cleanup {
destroy .l2
} -result {0.04 0.24}
@@ -989,7 +989,7 @@ test listbox-3.121 {ListboxWidgetCmd procedure, "xview" option} -constraints {
.l2 xview 30
.l2 xview scroll -1 pages
update
- .l2 xview
+ format {%.6g %.6g} {*}[.l2 xview]
} -cleanup {
destroy .l2
} -result {0.44 0.64}
@@ -1008,7 +1008,7 @@ test listbox-3.122 {ListboxWidgetCmd procedure, "xview" option} -constraints {
.l2 xview 30
.l2 xview scroll -4 pages
update
- .l2 xview
+ format {%.6g %.6g} {*}[.l2 xview]
} -cleanup {
destroy .l2
} -result {0.52 0.54}
@@ -1018,7 +1018,7 @@ test listbox-3.123 {ListboxWidgetCmd procedure, "yview" option} -setup {
listbox .l2
pack .l2
update
- .l2 yview
+ format {%.6g %.6g} {*}[.l2 yview]
} -cleanup {
destroy .l2
} -result {0 1}
@@ -1029,7 +1029,7 @@ test listbox-3.124 {ListboxWidgetCmd procedure, "yview" option} -setup {
.l2 insert 0 el1
pack .l2
update
- .l2 yview
+ format {%.6g %.6g} {*}[.l2 yview]
} -cleanup {
destroy .l2
} -result {0 1}
@@ -1043,7 +1043,7 @@ test listbox-3.125 {ListboxWidgetCmd procedure, "yview" option} -setup {
.l2 insert 0 a b c d e f g h i j k l m n o p q r s t
.l2 yview 4
update
- .l2 yview
+ format {%.6g %.6g} {*}[.l2 yview]
} -cleanup {
destroy .l2
} -result {0.2 0.45}
@@ -1062,7 +1062,7 @@ test listbox-3.128 {ListboxWidgetCmd procedure, "xview" option} -setup {
.l2 insert 0 a b c d e f g h i j k l m n o p q r s t
.l2 yview 0
.l2 yview moveto .31
- .l2 yview
+ format {%.6g %.6g} {*}[.l2 yview]
} -cleanup {
destroy .l2
} -result {0.3 0.55}
@@ -1075,7 +1075,7 @@ test listbox-3.129 {ListboxWidgetCmd procedure, "xview" option} -setup {
.l2 insert 0 a b c d e f g h i j k l m n o p q r s t
.l2 yview 2
.l2 yview scroll 2 pages
- .l2 yview
+ format {%.6g %.6g} {*}[.l2 yview]
} -cleanup {
destroy .l2
} -result {0.4 0.65}
@@ -1088,7 +1088,7 @@ test listbox-3.130 {ListboxWidgetCmd procedure, "xview" option} -setup {
.l2 insert 0 a b c d e f g h i j k l m n o p q r s t
.l2 yview 10
.l2 yview scroll -3 units
- .l2 yview
+ format {%.6g %.6g} {*}[.l2 yview]
} -cleanup {
destroy .l2
} -result {0.35 0.6}
@@ -1103,7 +1103,7 @@ test listbox-3.131 {ListboxWidgetCmd procedure, "xview" option} -setup {
update
.l2 yview 15
.l2 yview scroll -4 pages
- .l2 yview
+ format {%.6g %.6g} {*}[.l2 yview]
} -cleanup {
destroy .l2
} -result {0.55 0.65}
@@ -1131,7 +1131,7 @@ test listbox-3.137 {ListboxWidgetCmd procedure, "yview" option, partial last lin
} -body {
.l insert 0 a b c d e f g h i j k l m n o p q r s t
mkPartial
- .partial.l yview
+ format {%.6g %.6g} {*}[.partial.l yview]
} -cleanup {
destroy .l
} -result {0 0.266667}
@@ -2112,7 +2112,7 @@ test listbox-11.3 {ChangeListboxView procedure} -setup {
set log {}
.l yview 2
update
- list [.l yview] $log
+ list [format {%.6g %.6g} {*}[.l yview]] $log
} -cleanup {
destroy .l
} -result {{0.2 0.7} {{y 0.2 0.7}}}
@@ -2126,7 +2126,7 @@ test listbox-11.4 {ChangeListboxView procedure} -setup {
set log {}
.l yview 8
update
- list [.l yview] $log
+ list [format {%.6g %.6g} {*}[.l yview]] $log
} -cleanup {
destroy .l
} -result {{0.5 1} {{y 0.5 1}}}
@@ -2141,7 +2141,7 @@ test listbox-11.5 {ChangeListboxView procedure} -setup {
set log {}
.l yview 3
update
- list [.l yview] $log
+ list [format {%.6g %.6g} {*}[.l yview]] $log
} -cleanup {
destroy .l
} -result {{0.3 0.8} {}}
@@ -2447,7 +2447,7 @@ test listbox-18.3 {ListboxUpdateVScrollbar procedure} -body {
rename bgerror {}
} -result {{{invalid command name "gorp"}} {invalid command name "gorp"
while executing
-"gorp 0 1"
+"gorp 0.0 1.0"
(vertical scrolling command executed by listbox)}}
@@ -2480,7 +2480,7 @@ test listbox-19.2 {ListboxUpdateVScrollbar procedure} -body {
return $x
} -result {{{invalid command name "bogus"}} {invalid command name "bogus"
while executing
-"bogus 0 1"
+"bogus 0.0 1.0"
(horizontal scrolling command executed by listbox)}}
@@ -2702,12 +2702,12 @@ test listbox-21.17 {ListboxListVarProc, update vertical scrollbar} -setup {
.l yview scroll 3 units
update
set result {}
- lappend result [.l yview]
+ lappend result [format {%.6g %.6g} {*}[.l yview]]
set x [lreplace $x 3 3]
set x [lreplace $x 3 3]
set x [lreplace $x 3 3]
update
- lappend result [.l yview]
+ lappend result [format {%.6g %.6g} {*}[.l yview]]
return $result
} -cleanup {
destroy .l