- priority: 5 --> 2
- status: open --> closed-fixed
OriginalBugID: 1977 Bug
Version: 8.1
SubmitDate: '1999-05-04'
LastModified: '1999-08-14'
Severity: MED
Status: Released
Submitter: pat
ChangedBy: hobbs
OS: Solaris
OSVersion: 2.6 and CDE
Machine: Other
FixedDate: '1999-08-14'
FixedInVersion: 8.2
Name:
Larry W. Virden
Extensions:
none
CustomShell:
none
ReproducibleScript:
configure
make all test
ObservedBehavior:
The following test suite tests failed:
clipboard.test
==== clipboard-6.2 Tk_ClipboardAppend procedure FAILED
==== Contents of test case:
setupbg
clipboard clear
clipboard append -f INTEGER -t TEST "16"
set result [dobg {selection get -s CLIPBOARD TEST}]
cleanupbg
set result
---- Result was:
CLIPBOARD selection doesn't exist or form "TEST" not defined
---- Result should have been:
0x10
==== clipboard-6.2 FAILED
focus.test
==== focus-5.1 ChangeXFocus procedure, don't take focus unless have it
FAILED
==== Contents of test case:
focusSetup
focus -force .t
update
set result [focus]
send [dobg {tk appname}] {focus -force .; update}
lappend result [focus]
focus .t.b2
update
lappend result [focus]
---- Result was:
.t .t {}
---- Result should have been:
.t {} {}
==== focus-5.1 FAILED
focusTcl.test
font.test
==== font-46.4 TkFontGetAliasList: match FAILED
==== Contents of test case:
font actual {{times new roman} 10} -family
---- Result was:
times new roman
---- Result should have been:
times
==== font-46.4 FAILED
unixFont.test
==== unixfont-2.2 TkpGetFontFromAttributes procedure: Times relatives
FAILED
==== Contents of test case:
set x {}
lappend x [lindex [font actual {-family "Times New Roman"}] 1]
lappend x [lindex [font actual {-family "New York"}] 1]
lappend x [lindex [font actual {-family "Times"}] 1]
---- Result was:
{times new roman} times times
---- Result should have been:
times times times
==== unixfont-2.2 FAILED
==== unixfont-2.3 TkpGetFontFromAttributes procedure: Courier relatives
FAILED
==== Contents of test case:
set x {}
lappend x [lindex [font actual {-family "Courier New"}] 1]
lappend x [lindex [font actual {-family "Monaco"}] 1]
lappend x [lindex [font actual {-family "Courier"}] 1]
---- Result was:
{courier new} courier courier
---- Result should have been:
courier courier courier
==== unixfont-2.3 FAILED
==== unixfont-2.4 TkpGetFontFromAttributes procedure: Helvetica
relatives FAILED
==== Contents of test case:
set x {}
lappend x [lindex [font actual {-family "Arial"}] 1]
lappend x [lindex [font actual {-family "Geneva"}] 1]
lappend x [lindex [font actual {-family "Helvetica"}] 1]
---- Result was:
arial helvetica helvetica
---- Result should have been:
helvetica helvetica helvetica
==== unixfont-2.4 FAILED
Tests ended at Mon May 03 11:19:35 EDT 1999
all.tcl: Total 6539 Passed 6112 Skipped 421 Failed
6
Sourced 83 Test Files.
Files with failing tests: clipboard.test focus.test font.test
unixFont.test
Number of tests skipped for each constraint:
2 altDisplay
2 emptyTest
44 macOnly
11 macOrPc
1 nonPOrtable
131 nonPortable
229 pcOnly
1 userInteraction
DesiredBehavior:
All test suite tests pass.
None of the above errors occur for us when running a make test
on Solaris 5.7 with 8.2.0.
-- 08/14/1999 hobbs