[Tcl-bugs] [ tktoolkit-Bugs-740558 ] test failures

[SourceForge.net <no...@so...>]

Bugs item #740558, was opened at 2003-05-20 17:05
Message generated for change (Settings changed) made by dkf
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=112997&aid=740558&group_id=12997

Category: 18. [text]
Group: 8.5a0
>Status: Closed
>Resolution: Fixed
Priority: 9
Submitted By: Don Porter (dgp)
Assigned to: Donal K. Fellows (dkf)
Summary: test failures

Initial Comment:
text.test

==== text-20.3 TextSearchCmd procedure, -forwards
option FAILED
==== Contents of test case:

    .t search -forwards xyz 1.4

---- Result was:
1.1
---- Result should have been (exact matching):
1.5
==== text-20.3 FAILED


==== text-20.36 TextSearchCmd procedure, regexp finds
empty lines FAILED
==== Contents of test case:

    # Test for fix of bug #1643
    .t insert end "\n"
    tk::TextSetCursor .t 4.0
    .t search -forward -regexp {^$} insert end

---- Result was:

---- Result should have been (exact matching):
4.0
==== text-20.36 FAILED


==== text-20.106 TextSearchCmd, multiline regexp
matching FAILED
==== Contents of test case:

    # Practical example which crashes Tk, but only
after the
    # search is complete.  This is memory corruption
caused by
    # a bug in Tcl's handling of string objects.
    # (Tcl bug 635200)
    deleteWindows
    pack [text .t2]
    .t2 insert 1.0 {static int         
SetFsPathFromAny _ANSI_ARGS_((Tcl_Interp *interp,
                            Tcl_Obj *objPtr));
static Tcl_Obj*         FSNormalizeAbsolutePath 
                            _ANSI_ARGS_((Tcl_Interp*
interp, Tcl_Obj *pathPtr));}
    set markExpr "^(\[A-Za-z0-9~_\]+\[
\t\n\r\]*\(|(\[^ \t\(#\n\r/@:\*\]\[^=\(\r\n\]*\[
\t\]+\*?)?"
    append markExpr
"(\[A-Za-z0-9~_\]+(<\[^>\]*>)?(::)?(\[A-Za-z0-9~_\]+::)*\[-A-Za-z0-9~_+
<>\|\*/\]+|\[A-Za-z0-9~_\]+)"
    append markExpr "\[ \n\t\r\]*\()"
    .t2 search -forwards -regexp $markExpr 1.41 end

---- Result was:
1.0
---- Result should have been (exact matching):

==== text-20.106 FAILED


Tests ended at Tue May 20 12:05:16 PM EDT 2003
all.tcl:        Total   358     Passed  354     Skipped
1       Failed  3
Sourced 2 Test Files.
Files with failing tests: text.test
Number of tests skipped for each constraint:
        1       macOrPc
Font Courier -12 still in cache.


----------------------------------------------------------------------

Comment By: Vince Darley (vincentdarley)
Date: 2003-05-20 20:56

Message:
Logged In: YES 
user_id=32170

Once again these failures are caused by dkf's changes. 
Try 'cvs update -r 1.34 generic/tkText.c' and re-run the 
tests.  They pass.

Donal: can you please check your "fixes" before 
committing them and breaking a perfectly good 
patch/tip that I checked in?  thanks!



----------------------------------------------------------------------

Comment By: Don Porter (dgp)
Date: 2003-05-20 17:13

Message:
Logged In: YES 
user_id=80530

sorry about the auto-assign.
Vince asked for this.

----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=112997&aid=740558&group_id=12997