13 tests fail in cvs HEAD. Some of these seem to be due to a poor
implementation of 'testmetrics', but the last few seem more important
than that.
scrollbar.test
==== scrollbar-3.26 ScrollbarWidgetCmd procedure, "delta" option
FAILED
==== Contents of test case:
.s delta 0 20
---- Result was:
0.127389
---- Result should have been (exact matching):
0.11976
==== scrollbar-3.26 FAILED
==== scrollbar-3.27 ScrollbarWidgetCmd procedure, "delta" option
FAILED
==== Contents of test case:
.s delta 0 -20
---- Result was:
-0.127389
---- Result should have been (exact matching):
-0.11976
==== scrollbar-3.27 FAILED
==== scrollbar-3.28 ScrollbarWidgetCmd procedure, "delta" option
FAILED
==== Contents of test case:
toplevel .t -width 250 -height 100
wm geom .t +0+0
scrollbar .t.s -orient horizontal -borderwidth 2
place .t.s -width 201
update
set result [list [.t.s delta 0 20] [.t.s delta [expr [getTroughSize .t.s] -
1] 0]]
destroy .t
set result
---- Result was:
0 1.03704
---- Result should have been (exact matching):
0 1
==== scrollbar-3.28 FAILED
==== scrollbar-3.35 ScrollbarWidgetCmd procedure, "fraction" option
FAILED
==== Contents of test case:
.s fraction 4 21
---- Result was:
0
---- Result should have been (exact matching):
0.0299401
==== scrollbar-3.35 FAILED
==== scrollbar-3.38 ScrollbarWidgetCmd procedure, "fraction" option
FAILED
==== Contents of test case:
.s fraction 4 178
---- Result was:
1
---- Result should have been (exact matching):
0.993711
==== scrollbar-3.38 FAILED
==== scrollbar-3.50 ScrollbarWidgetCmd procedure, "identify" option
FAILED
==== Contents of test case:
.s identify 5 5
---- Result was:
---- Result should have been (exact matching):
arrow1
==== scrollbar-3.50 FAILED
==== scrollbar-6.11 ScrollbarPosition procedure FAILED
==== Contents of test case:
.s identify 8 4
---- Result was:
---- Result should have been (exact matching):
arrow1
==== scrollbar-6.11 FAILED
==== scrollbar-6.12 ScrollbarPosition procedure FAILED
==== Contents of test case:
.s identify 8 19
---- Result was:
trough1
---- Result should have been (exact matching):
arrow1
==== scrollbar-6.12 FAILED
==== scrollbar-6.25 ScrollbarPosition procedure FAILED
==== Contents of test case:
.s identify 8 179
---- Result was:
arrow1
---- Result should have been (exact matching):
trough2
==== scrollbar-6.25 FAILED
==== scrollbar-6.39 ScrollbarPosition procedure FAILED
==== Contents of test case:
.t.s identify 4 8
---- Result was:
---- Result should have been (exact matching):
arrow1
==== scrollbar-6.39 FAILED
==== scrollbar-6.41 ScrollbarPosition procedure FAILED
==== Contents of test case:
.t.s identify 82 8
---- Result was:
trough2
---- Result should have been (exact matching):
slider
==== scrollbar-6.41 FAILED
==== scrollbar-8.1 TkScrollbarEventProc: recursive deletion FAILED
==== Contents of test case:
proc doit {args} { destroy .t.f }
proc bgerror {args} {}
destroy .t.f
frame .t.f
scrollbar .t.f.s -command doit
pack .t.f -fill both -expand 1
pack .t.f.s -fill y -expand 1 -side right
wm geometry .t 100x100
.t.f.s set 0 .5
update
set result [winfo exists .t.f.s]
event generate .t.f.s <ButtonPress> -button 1 -x [expr [winfo width
.t.f.s] / 2] -y 5
event generate .t <ButtonRelease> -button 1
update
lappend result [winfo exists .t.f.s] [winfo exists .t.f]
rename bgerror {}
set result
---- Result was:
1 1 1
---- Result should have been (exact matching):
1 0 0
==== scrollbar-8.1 FAILED
==== scrollbar-8.2 TkScrollbarEventProc: recursive deletion FAILED
==== Contents of test case:
proc doit {args} { destroy .t.f.s }
proc bgerror {args} {}
destroy .t.f
frame .t.f
scrollbar .t.f.s -command doit
pack .t.f -fill both -expand 1
pack .t.f.s -fill y -expand 1 -side right
wm geometry .t 100x100
.t.f.s set 0 .5
update
set result [winfo exists .t.f.s]
event generate .t.f.s <ButtonPress> -button 1 -x [expr [winfo width
.t.f.s] / 2] -y 5
event generate .t.f <ButtonRelease> -button 1
update
lappend result [winfo exists .t.f.s] [winfo exists .t.f]
rename bgerror {}
set result
---- Result was:
1 1 1
---- Result should have been (exact matching):
1 0 1
==== scrollbar-8.2 FAILED
