Attachment "Debian8_bindtest_bug6e8afe516d.txt" to
ticket [6e8afe51]
added by
fvogel
2018-10-28 20:16:00.
Warning: ttkStubInit.c may be out of date.
Developers may want to run "make genstubs" to regenerate.
This warning can be safely ignored, do not report as a bug!
LD_LIBRARY_PATH="`pwd`:/home/francois/Documents/tcltk/fossil/tcl/unix:${LD_LIBRARY_PATH}"; export LD_LIBRARY_PATH; TCL_LIBRARY=/home/francois/Documents/tcltk/fossil/tcl/library; export TCL_LIBRARY; TK_LIBRARY=/home/francois/Documents/tcltk/fossil/tk/library; export TK_LIBRARY; ./tktest /home/francois/Documents/tcltk/fossil/tk/unix/../tests/all.tcl -geometry +0+0 -file bind.test -match \* -verbose be
Tests running in interp: /home/francois/Documents/tcltk/fossil/tk/unix/tktest
Tests located in: /home/francois/Documents/tcltk/fossil/tk/tests
Tests running in: /home/francois/Documents/tcltk/fossil/tk/unix
Temporary files stored in /home/francois/Documents/tcltk/fossil/tk/unix
Test files sourced into current interpreter
Running tests that match: *
Skipping test files that match: l.*.test
Only running test files that match: bind.test
Tests began at Sun Oct 28 21:10:33 CET 2018
bind.test
==== bind-1.6 bind command FAILED
==== Contents of test case:
frame .t.f
bind .t.f <Enter> {test script}
set result [bind .t.f <Enter>]
bind .t.f <Enter> {}
list $result [bind .t.f <Enter>]
---- Result was:
{} {}
---- Result should have been (exact matching):
{test script} {}
==== bind-1.6 FAILED
==== bind-1.7 bind command FAILED
==== Contents of test case:
frame .t.f
bind .t.f <Enter> {test script}
bind .t.f <Enter> {+more text}
bind .t.f <Enter>
---- Result was:
---- Result should have been (exact matching):
test script
more text
==== bind-1.7 FAILED
==== bind-9.2 Tk_DeleteBinding procedure FAILED
==== Contents of test case:
frame .t.f -class Test -width 150 -height 100
foreach i {a b c d} {
bind .t.f $i "binding for $i"
}
foreach i {b d a c} {
bind .t.f $i {}
lappend result [lsort [bind .t.f]]
}
return $result
---- Result was:
{a b c d} {a b c d} {a b c d} {a b d}
---- Result should have been (exact matching):
{a c d} {a c} c {}
==== bind-9.2 FAILED
==== bind-9.3 Tk_DeleteBinding procedure FAILED
==== Contents of test case:
frame .t.f -class Test -width 150 -height 100
foreach i {<1> <Meta-1> <Control-1> <Double-Alt-1>} {
bind .t.f $i "binding for $i"
}
foreach i {<Control-1> <Double-Alt-1> <1> <Meta-1>} {
bind .t.f $i {}
lappend result [lsort [bind .t.f]]
}
return $result
---- Result was:
{<Button-1> <Double-Alt-Button-1> <Meta-Button-1>} {<Button-1> <Double-Alt-Button-1> <Meta-Button-1>} {<Button-1> <Double-Alt-Button-1> <Meta-Button-1>} {<Button-1> <Double-Alt-Button-1> <Meta-Button-1>}
---- Result should have been (exact matching):
{<Button-1> <Double-Alt-Button-1> <Meta-Button-1>} {<Button-1> <Meta-Button-1>} <Meta-Button-1> {}
==== bind-9.3 FAILED
==== bind-13.10 Tk_BindEvent procedure: ignore NotifyInferior FAILED
==== Contents of test case:
bind .t.f <Enter> "lappend x Enter%#"
bind .t.f <Leave> "lappend x Leave%#"
event generate .t.f <Enter> -serial 100 -detail NotifyAncestor
event generate .t.f <Enter> -serial 101 -detail NotifyInferior
event generate .t.f <Leave> -serial 102 -detail NotifyAncestor
event generate .t.f <Leave> -serial 103 -detail NotifyInferior
return $x
---- Result was:
Enter100 {.t.f enter frame} {.t.f enter .t} Leave102
---- Result should have been (exact matching):
Enter100 Leave102
==== bind-13.10 FAILED
==== bind-16.1 ExpandPercents procedure FAILED
==== Contents of test case:
bind .t.f <Enter> {set x abcd}
set x none
event generate .t.f <Enter>
set x
---- Result was:
abcd {.t.f enter frame} {.t.f enter .t}
---- Result should have been (exact matching):
abcd
==== bind-16.1 FAILED
==== bind-16.2 ExpandPercents procedure FAILED
==== Contents of test case:
bind .t.f <Enter> {set x %#}
set x none
event generate .t.f <Enter> -serial 1234
set x
---- Result was:
1234 {.t.f enter frame} {.t.f enter .t}
---- Result should have been (exact matching):
1234
==== bind-16.2 FAILED
==== bind-16.6 ExpandPercents procedure FAILED
==== Contents of test case:
bind .t.f <Enter> {set x %d}
set x none
event generate .t.f <Enter> -detail NotifyAncestor
set x
---- Result was:
NotifyAncestor {.t.f enter frame} {.t.f enter .t}
---- Result should have been (exact matching):
NotifyAncestor
==== bind-16.6 FAILED
==== bind-16.7 ExpandPercents procedure FAILED
==== Contents of test case:
bind .t.f <Enter> {set x %d}
set x none
event generate .t.f <Enter> -detail NotifyVirtual
set x
---- Result was:
NotifyVirtual {.t.f enter frame} {.t.f enter .t}
---- Result should have been (exact matching):
NotifyVirtual
==== bind-16.7 FAILED
==== bind-16.8 ExpandPercents procedure FAILED
==== Contents of test case:
bind .t.f <Enter> {set x %d}
set x none
event generate .t.f <Enter> -detail NotifyNonlinear
set x
---- Result was:
NotifyNonlinear {.t.f enter frame} {.t.f enter .t}
---- Result should have been (exact matching):
NotifyNonlinear
==== bind-16.8 FAILED
==== bind-16.9 ExpandPercents procedure FAILED
==== Contents of test case:
bind .t.f <Enter> {set x %d}
set x none
event generate .t.f <Enter> -detail NotifyNonlinearVirtual
set x
---- Result was:
NotifyNonlinearVirtual {.t.f enter frame} {.t.f enter .t}
---- Result should have been (exact matching):
NotifyNonlinearVirtual
==== bind-16.9 FAILED
==== bind-16.10 ExpandPercents procedure FAILED
==== Contents of test case:
bind .t.f <Enter> {set x %d}
set x none
event generate .t.f <Enter> -detail NotifyPointer
set x
---- Result was:
NotifyPointer {.t.f enter frame} {.t.f enter .t}
---- Result should have been (exact matching):
NotifyPointer
==== bind-16.10 FAILED
==== bind-16.11 ExpandPercents procedure FAILED
==== Contents of test case:
bind .t.f <Enter> {set x %d}
set x none
event generate .t.f <Enter> -detail NotifyPointerRoot
set x
---- Result was:
NotifyPointerRoot {.t.f enter frame} {.t.f enter .t}
---- Result should have been (exact matching):
NotifyPointerRoot
==== bind-16.11 FAILED
==== bind-16.12 ExpandPercents procedure FAILED
==== Contents of test case:
bind .t.f <Enter> {set x %d}
set x none
event generate .t.f <Enter> -detail NotifyDetailNone
set x
---- Result was:
NotifyDetailNone {.t.f enter frame} {.t.f enter .t}
---- Result should have been (exact matching):
NotifyDetailNone
==== bind-16.12 FAILED
==== bind-16.13 ExpandPercents procedure FAILED
==== Contents of test case:
bind .t.f <Enter> {set x %f}
set x none
event generate .t.f <Enter> -focus 1
return $x
---- Result was:
1 {.t.f enter frame} {.t.f enter .t}
---- Result should have been (exact matching):
1
==== bind-16.13 FAILED
==== bind-16.17 ExpandPercents procedure FAILED
==== Contents of test case:
bind .t.f <Enter> {set x "%m"}
set x none
event generate .t.f <Enter> -mode NotifyNormal
set x
---- Result was:
NotifyNormal {.t.f enter frame} {.t.f enter .t}
---- Result should have been (exact matching):
NotifyNormal
==== bind-16.17 FAILED
==== bind-16.18 ExpandPercents procedure FAILED
==== Contents of test case:
bind .t.f <Enter> {set x "%m"}
set x none
event generate .t.f <Enter> -mode NotifyGrab
set x
---- Result was:
NotifyGrab {.t.f enter frame} {.t.f enter .t}
---- Result should have been (exact matching):
NotifyGrab
==== bind-16.18 FAILED
==== bind-16.19 ExpandPercents procedure FAILED
==== Contents of test case:
bind .t.f <Enter> {set x "%m"}
set x none
event generate .t.f <Enter> -mode NotifyUngrab
set x
---- Result was:
NotifyUngrab {.t.f enter frame} {.t.f enter .t}
---- Result should have been (exact matching):
NotifyUngrab
==== bind-16.19 FAILED
==== bind-16.20 ExpandPercents procedure FAILED
==== Contents of test case:
bind .t.f <Enter> {set x "%m"}
set x none
event generate .t.f <Enter> -mode NotifyWhileGrabbed
set x
---- Result was:
NotifyWhileGrabbed {.t.f enter frame} {.t.f enter .t}
---- Result should have been (exact matching):
NotifyWhileGrabbed
==== bind-16.20 FAILED
==== bind-16.27 ExpandPercents procedure FAILED
==== Contents of test case:
bind .t.f <Enter> {set x "%s"}
set x none
event generate .t.f <Enter> -state 0x3ff
set x
---- Result was:
1023 {.t.f enter frame} {.t.f enter .t}
---- Result should have been (exact matching):
1023
==== bind-16.27 FAILED
==== bind-16.34 ExpandPercents procedure FAILED
==== Contents of test case:
bind .t.f <Enter> {set x "%x %y"}
set x none
event generate .t.f <Enter> -x 781 -y 632
set x
---- Result was:
781 632 {.t.f enter frame} {.t.f enter .t}
---- Result should have been (exact matching):
781 632
==== bind-16.34 FAILED
==== bind-16.37 ExpandPercents procedure FAILED
==== Contents of test case:
bind .t.f <Enter> {set x "%E"}
set x none
event generate .t.f <Enter> -sendevent 1
return $x
---- Result was:
1 {.t.f enter frame} {.t.f enter .t}
---- Result should have been (exact matching):
1
==== bind-16.37 FAILED
==== bind-17.9 event command: delete many FAILED
==== Contents of test case:
event delete <<Paste>>
event add <<Paste>> <3> <1> <2> t
event delete <<Paste>> <1> <2>
lsort [event info <<Paste>>]
---- Result was:
<Button-1> <Button-2> <Button-3> t
---- Result should have been (exact matching):
<Button-3> t
==== bind-17.9 FAILED
==== bind-18.4 CreateVirtualEvent procedure: duplicate physical FAILED
==== Contents of test case:
event delete <<xyz>>
event add <<xyz>> <Control-v>
event add <<xyz>> <Control-v>
event info <<xyz>>
---- Result was:
<Control-Key-v> <Control-Key-v>
---- Result should have been (exact matching):
<Control-Key-v>
==== bind-18.4 FAILED
==== bind-19.3 DeleteVirtualEvent procedure: delete 1 FAILED
==== Contents of test case:
event add <<xyz>> <Control-v>
event delete <<xyz>> <Control-v>
event info <<xyz>>
---- Result was:
<Control-Key-v>
---- Result should have been (exact matching):
==== bind-19.3 FAILED
==== bind-22.36 HandleEventGenerate: options <Enter> -detail NotifyVirtual FAILED
==== Contents of test case:
bind .t.f <Enter> "lappend x %d"
event generate .t.f <Enter> -detail NotifyVirtual
return $x
---- Result was:
NotifyVirtual {.t.f enter frame} {.t.f enter .t}
---- Result should have been (exact matching):
NotifyVirtual
==== bind-22.36 FAILED
==== bind-22.39 HandleEventGenerate: options <Enter> -focus 1 FAILED
==== Contents of test case:
bind .t.f <Enter> "lappend x %f"
event generate .t.f <Enter> -focus 1
return $x
---- Result was:
1 {.t.f enter frame} {.t.f enter .t}
---- Result should have been (exact matching):
1
==== bind-22.39 FAILED
==== bind-22.52 HandleEventGenerate: options <Enter> -mode NotifyNormal FAILED
==== Contents of test case:
bind .t.f <Enter> "lappend x %m"
event generate .t.f <Enter> -mode NotifyNormal
return $x
---- Result was:
NotifyNormal {.t.f enter frame} {.t.f enter .t}
---- Result should have been (exact matching):
NotifyNormal
==== bind-22.52 FAILED
==== bind-22.71 HandleEventGenerate: options <Enter> -root .t FAILED
==== Contents of test case:
bind .t.f <Enter> "lappend x %R"
event generate .t.f <Enter> -root .t
expr {[winfo id .t] eq $x}
---- Result was:
0
---- Result should have been (exact matching):
1
==== bind-22.71 FAILED
==== bind-22.79 HandleEventGenerate: options <Enter> -rootx 2i FAILED
==== Contents of test case:
bind .t.f <Enter> "lappend x %X"
event generate .t.f <Enter> -rootx 2i
expr {[winfo pixels .t.f 2i] eq $x}
---- Result was:
0
---- Result should have been (exact matching):
1
==== bind-22.79 FAILED
==== bind-22.87 HandleEventGenerate: options <Enter> -rooty 2i FAILED
==== Contents of test case:
bind .t.f <Enter> "lappend x %Y"
event generate .t.f <Enter> -rooty 2i
expr {[winfo pixels .t.f 2i] eq $x}
---- Result was:
0
---- Result should have been (exact matching):
1
==== bind-22.87 FAILED
==== bind-22.101 HandleEventGenerate: options <Enter> -state 1 FAILED
==== Contents of test case:
bind .t.f <Enter> "lappend x %s"
event generate .t.f <Enter> -state 1
return $x
---- Result was:
1 {.t.f enter frame} {.t.f enter .t}
---- Result should have been (exact matching):
1
==== bind-22.101 FAILED
==== bind-22.113 HandleEventGenerate: options <Enter> -subwindow .t FAILED
==== Contents of test case:
bind .t.f <Enter> "lappend x %S"
event generate .t.f <Enter> -subwindow .t
expr {[winfo id .t] eq $x}
---- Result was:
0
---- Result should have been (exact matching):
1
==== bind-22.113 FAILED
==== bind-22.121 HandleEventGenerate: options <Enter> -time 100 FAILED
==== Contents of test case:
bind .t.f <Enter> "lappend x %t"
event generate .t.f <Enter> -time 100
return $x
---- Result was:
100 {.t.f enter frame} {.t.f enter .t}
---- Result should have been (exact matching):
100
==== bind-22.121 FAILED
==== bind-22.145 HandleEventGenerate: options <Enter> -x 2i FAILED
==== Contents of test case:
bind .t.f <Enter> "lappend x %x"
event generate .t.f <Enter> -x 2i
expr {[winfo pixels .t.f 2i] eq $x}
---- Result was:
0
---- Result should have been (exact matching):
1
==== bind-22.145 FAILED
==== bind-22.157 HandleEventGenerate: options <Enter> -y 2i FAILED
==== Contents of test case:
bind .t.f <Enter> "lappend x %y"
event generate .t.f <Enter> -y 2i
expr {[winfo pixels .t.f 2i] eq $x}
---- Result was:
0
---- Result should have been (exact matching):
1
==== bind-22.157 FAILED
==== bind-25.1 ParseEventDescription procedure FAILED
==== Contents of test case:
bind .t.f a test
bind .t.f a
---- Result was:
---- Result should have been (exact matching):
test
==== bind-25.1 FAILED
==== bind-26.9 event names: Enter FAILED
==== Contents of test case:
bind .t.f <Enter> "set x {event Enter}"
set x xyzzy
event generate .t.f <Enter>
list $x [bind .t.f]
---- Result was:
{event Enter {.t.f enter frame} {.t.f enter .t}} <Enter>
---- Result should have been (exact matching):
{event Enter} <Enter>
==== bind-26.9 FAILED
Tests ended at Sun Oct 28 21:10:36 CET 2018
all.tcl: Total 511 Passed 470 Skipped 3 Failed 38
Sourced 1 Test Files.
Files with failing tests: bind.test
Number of tests skipped for each constraint:
3 nonPortable
LD_LIBRARY_PATH="`pwd`:/home/francois/Documents/tcltk/fossil/tcl/unix:${LD_LIBRARY_PATH}"; export LD_LIBRARY_PATH; TCL_LIBRARY=/home/francois/Documents/tcltk/fossil/tcl/library; export TCL_LIBRARY; TK_LIBRARY=/home/francois/Documents/tcltk/fossil/tk/library; export TK_LIBRARY; ./tktest /home/francois/Documents/tcltk/fossil/tk/unix/../tests/ttk/all.tcl -geometry +0+0 \
-file bind.test -match \* -verbose be
Tests running in interp: /home/francois/Documents/tcltk/fossil/tk/unix/tktest
Tests located in: /home/francois/Documents/tcltk/fossil/tk/tests/ttk
Tests running in: /home/francois/Documents/tcltk/fossil/tk/unix
Temporary files stored in /home/francois/Documents/tcltk/fossil/tk/unix
Test files sourced into current interpreter
Running tests that match: *
Skipping test files that match: l.*.test
Only running test files that match: bind.test
Tests began at Sun Oct 28 21:10:36 CET 2018
Error: No test files remain after applying your match and skip patterns!
Tests ended at Sun Oct 28 21:10:36 CET 2018
all.tcl: Total 0 Passed 0 Skipped 0 Failed 0
Sourced 0 Test Files.
