From 4e4f0355794c80ed8d351a237d3a2907b8824123 Mon Sep 17 00:00:00 2001 From: dgp Date: Fri, 10 Oct 2008 16:28:25 +0000 Subject: * tests/canvText.test: Backport test updates in light of the * tests/entry.test: 2008-10-05 commit. * tests/listbox.test: * tests/scrollbar.test: * tests/spinbox.test: * tests/textDisp.test: --- ChangeLog | 4 +++- tests/spinbox.test | 68 ++++++++++++++++++++++++++--------------------------- tests/textDisp.test | 22 ++++++++++------- 3 files changed, 51 insertions(+), 43 deletions(-) diff --git a/ChangeLog b/ChangeLog index bc6b54c..2153fd5 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,4 +1,4 @@ -2008-10-28 Don Porter +2008-10-09 Don Porter * generic/tkListbox.c: Make literal return values consistent with those generated by Tcl_PrintDouble(). @@ -7,6 +7,8 @@ * tests/entry.test: 2008-10-05 commit. * tests/listbox.test: * tests/scrollbar.test: + * tests/spinbox.test: + * tests/textDisp.test: * generic/tkEntry.c: Fix missing space constructing the scroll command. diff --git a/tests/spinbox.test b/tests/spinbox.test index ca84c5c..7d21d63 100644 --- a/tests/spinbox.test +++ b/tests/spinbox.test @@ -4,7 +4,7 @@ # Copyright (c) 1998-2000 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: spinbox.test,v 1.9 2004/06/24 12:45:43 dkf Exp $ +# RCS: @(#) $Id: spinbox.test,v 1.9.4.1 2008/10/10 16:28:25 dgp Exp $ package require tcltest 2.1 eval tcltest::configure $argv @@ -445,8 +445,8 @@ test spinbox-3.64 {SpinboxWidgetCmd procedure, "selection to" widget command} { } {1 {wrong # args: should be ".e selection to index"}} test spinbox-3.65 {SpinboxWidgetCmd procedure, "xview" widget command} { .e xview 5 - .e xview -} {0.0537634 0.268817} + format {%.6f %.6f} {*}[.e xview] +} {0.053763 0.268817} test spinbox-3.66 {SpinboxWidgetCmd procedure, "xview" widget command} { list [catch {.e xview gorp} msg] $msg } {1 {bad spinbox index "gorp"}} @@ -454,7 +454,7 @@ test spinbox-3.67 {SpinboxWidgetCmd procedure, "xview" widget command} { .e xview 0 .e icursor 10 .e xview insert - .e xview + format {%.6f %.6f} {*}[.e xview] } {0.107527 0.322581} test spinbox-3.68 {SpinboxWidgetCmd procedure, "xview" widget command} { list [catch {.e xview moveto foo bar} msg] $msg @@ -464,7 +464,7 @@ test spinbox-3.69 {SpinboxWidgetCmd procedure, "xview" widget command} { } {1 {expected floating-point number but got "foo"}} test spinbox-3.70 {SpinboxWidgetCmd procedure, "xview" widget command} { .e xview moveto 0.5 - .e xview + format {%.6f %.6f} {*}[.e xview] } {0.505376 0.72043} test spinbox-3.71 {SpinboxWidgetCmd procedure, "xview" widget command} { list [catch {.e xview scroll 24} msg] $msg @@ -475,13 +475,13 @@ test spinbox-3.72 {SpinboxWidgetCmd procedure, "xview" widget command} { test spinbox-3.73 {SpinboxWidgetCmd procedure, "xview" widget command} { .e xview moveto 0 .e xview scroll 1 pages - .e xview + format {%.6f %.6f} {*}[.e xview] } {0.193548 0.408602} test spinbox-3.74 {SpinboxWidgetCmd procedure, "xview" widget command} { .e xview moveto .9 update .e xview scroll -2 p - .e xview + format {%.6f %.6f} {*}[.e xview] } {0.397849 0.612903} test spinbox-3.75 {SpinboxWidgetCmd procedure, "xview" widget command} { .e xview 30 @@ -519,12 +519,12 @@ test spinbox-3.81 {SpinboxWidgetCmd procedure, "xview" widget command} { set x {} .e xview moveto .1 - lappend x [lindex [.e xview] 0] + lappend x [format {%.6f} [lindex [.e xview] 0]] .e xview moveto .11 - lappend x [lindex [.e xview] 0] + lappend x [format {%.6f} [lindex [.e xview] 0]] .e xview moveto .12 - lappend x [lindex [.e xview] 0] -} {0.0957447 0.106383 0.117021} + lappend x [format {%.6f} [lindex [.e xview] 0]] +} {0.095745 0.106383 0.117021} test spinbox-3.82 {SpinboxWidgetCmd procedure} { list [catch {.e gorp} msg] $msg } {1 {bad option "gorp": must be bbox, cget, configure, delete, get, icursor, identify, index, insert, invoke, scan, selection, set, validate, or xview}} @@ -603,8 +603,8 @@ test spinbox-5.7 {ConfigureSpinbox procedure} { .e insert end "01234567890" update .e configure -width 5 - set scrollInfo -} {0 0.363636} + format {%.6f %.6f} {*}$scrollInfo +} {0.000000 0.363636} test spinbox-5.8 {ConfigureSpinbox procedure} {fonts} { catch {destroy .e} spinbox .e -width 0 @@ -728,15 +728,15 @@ test spinbox-7.1 {InsertChars procedure} { .e insert 0 abcde .e insert 2 XXX update - list [.e get] $contents $scrollInfo -} {abXXXcde abXXXcde {0 1}} + list [.e get] $contents [format {%.6f %.6f} {*}$scrollInfo] +} {abXXXcde abXXXcde {0.000000 1.000000}} test spinbox-7.2 {InsertChars procedure} { .e delete 0 end .e insert 0 abcde .e insert 500 XXX update - list [.e get] $contents $scrollInfo -} {abcdeXXX abcdeXXX {0 1}} + list [.e get] $contents [format {%.6f %.6f} {*}$scrollInfo] +} {abcdeXXX abcdeXXX {0.000000 1.000000}} test spinbox-7.3 {InsertChars procedure} { .e delete 0 end .e insert 0 0123456789 @@ -822,22 +822,22 @@ test spinbox-8.1 {DeleteChars procedure} { .e insert 0 abcde .e delete 2 4 update - list [.e get] $contents $scrollInfo -} {abe abe {0 1}} + list [.e get] $contents [format {%.6f %.6f} {*}$scrollInfo] +} {abe abe {0.000000 1.000000}} test spinbox-8.2 {DeleteChars procedure} { .e delete 0 end .e insert 0 abcde .e delete -2 2 update - list [.e get] $contents $scrollInfo -} {cde cde {0 1}} + list [.e get] $contents [format {%.6f %.6f} {*}$scrollInfo] +} {cde cde {0.000000 1.000000}} test spinbox-8.3 {DeleteChars procedure} { .e delete 0 end .e insert 0 abcde .e delete 3 1000 update - list [.e get] $contents $scrollInfo -} {abc abc {0 1}} + list [.e get] $contents [format {%.6f %.6f} {*}$scrollInfo] +} {abc abc {0.000000 1.000000}} test spinbox-8.4 {DeleteChars procedure} { .e delete 0 end .e insert 0 0123456789abcde @@ -1236,12 +1236,12 @@ update test spinbox-16.1 {SpinboxVisibleRange procedure} {fonts} { .e delete 0 end .e insert 0 ............................. - .e xview -} {0 0.827586} -test spinbox-15.4 {SpinboxVisibleRange procedure} { + format {%.6f %.6f} {*}[.e xview] +} {0.000000 0.827586} +test spinbox-16.2 {SpinboxVisibleRange procedure} { .e delete 0 end - .e xview -} {0 1} + format {%.6f %.6f} {*}[.e xview] +} {0.000000 1.000000} catch {destroy .e} spinbox .e -width 10 -xscrollcommand scroll -font $fixed @@ -1251,21 +1251,21 @@ test spinbox-17.1 {SpinboxUpdateScrollbar procedure} { .e delete 0 end .e insert 0 123 update - set scrollInfo -} {0 1} + format {%.6f %.6f} {*}$scrollInfo +} {0.000000 1.000000} test spinbox-17.2 {SpinboxUpdateScrollbar procedure} { .e delete 0 end .e insert 0 0123456789abcdef .e xview 3 update - set scrollInfo -} {0.1875 0.8125} + format {%.6f %.6f} {*}$scrollInfo +} {0.187500 0.812500} test spinbox-17.3 {SpinboxUpdateScrollbar procedure} { .e delete 0 end .e insert 0 abcdefghijklmnopqrs .e xview 6 update - set scrollInfo + format {%.6f %.6f} {*}$scrollInfo } {0.315789 0.842105} test spinbox-17.4 {SpinboxUpdateScrollbar procedure} { destroy .e @@ -1281,7 +1281,7 @@ test spinbox-17.4 {SpinboxUpdateScrollbar procedure} { list $x $errorInfo } {{invalid command name "thisisnotacommand"} {invalid command name "thisisnotacommand" while executing -"thisisnotacommand 0 1" +"thisisnotacommand 0.0 1.0" (horizontal scrolling command executed by .e)}} set l [interp hidden] diff --git a/tests/textDisp.test b/tests/textDisp.test index c8594e2..116d623 100644 --- a/tests/textDisp.test +++ b/tests/textDisp.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: textDisp.test,v 1.42 2007/12/13 15:27:54 dgp Exp $ +# RCS: @(#) $Id: textDisp.test,v 1.42.2.1 2008/10/10 16:28:25 dgp Exp $ package require tcltest 2.1 eval tcltest::configure $argv @@ -1962,18 +1962,24 @@ test textDisp-16.33 {TkTextYviewCmd procedure} { test textDisp-16.34 {TkTextYviewCmd procedure} { set res {} .t yview 1.0 - lappend res [expr {[lindex [.t yview] 0] * [.t count -ypixels 1.0 end]}] + lappend res [format %.12g [expr {[lindex [.t yview] 0] + * [.t count -ypixels 1.0 end]}]] .t yview scroll 1 pixels - lappend res [expr {[lindex [.t yview] 0] * [.t count -ypixels 1.0 end]}] + lappend res [format %.12g [expr {[lindex [.t yview] 0] + * [.t count -ypixels 1.0 end]}]] .t yview scroll 1 pixels - lappend res [expr {[lindex [.t yview] 0] * [.t count -ypixels 1.0 end]}] + lappend res [format %.12g [expr {[lindex [.t yview] 0] + * [.t count -ypixels 1.0 end]}]] .t yview scroll 1 pixels - lappend res [expr {[lindex [.t yview] 0] * [.t count -ypixels 1.0 end]}] + lappend res [format %.12g [expr {[lindex [.t yview] 0] + * [.t count -ypixels 1.0 end]}]] .t yview scroll 1 pixels - lappend res [expr {[lindex [.t yview] 0] * [.t count -ypixels 1.0 end]}] + lappend res [format %.12g [expr {[lindex [.t yview] 0] + * [.t count -ypixels 1.0 end]}]] .t yview scroll 1 pixels - lappend res [expr {[lindex [.t yview] 0] * [.t count -ypixels 1.0 end]}] -} {0.0 1.0 2.0 3.0 4.0 5.0} + lappend res [format %.12g [expr {[lindex [.t yview] 0] + * [.t count -ypixels 1.0 end]}]] +} {0 1 2 3 4 5} test textDisp-16.35 {TkTextYviewCmd procedure} { set res {} .t yview 1.0 -- cgit v0.12