From 5aeb51bc17cdc6ed0610f83a87aa404ba60cd449 Mon Sep 17 00:00:00 2001 From: patthoyts Date: Mon, 6 Oct 2008 23:59:02 +0000 Subject: Removed dependency on default precision --- ChangeLog | 1 + tests/listbox.test | 48 ++++++++++++++++++++++++------------------------ 2 files changed, 25 insertions(+), 24 deletions(-) diff --git a/ChangeLog b/ChangeLog index be4d197..21a19b2 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,6 +1,7 @@ 2008-10-07 Pat Thoyts * tests/entry.test: Removed dependency on precision in results + * tests/listbox.test: * tests/scrollbar.test: * tests/spinbox.test: * tests/winWm.test: Fixed incorrect error strings 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 -- cgit v0.12