Tcl Source Code

Check-in [2c6fed253d]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Demand the error message indicating the purpose of the test.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | bug-3610026
Files: files | file ages | folders
SHA1: 2c6fed253d49c2c8f92d60c9ec892d5f8c311469
User & Date: dgp 2013-04-08 19:30:51
Context
2013-04-08
19:45
3610026 Stop crash when the number of "colors" in a regular expression overflows a short int. Thank... check-in: a5e7d0c908 user: dgp tags: core-8-4-branch
19:30
Demand the error message indicating the purpose of the test. Closed-Leaf check-in: 2c6fed253d user: dgp tags: bug-3610026
15:15
3610026 Stop segfault when regexp overflows color limits. check-in: 1d848fecaa user: dgp tags: bug-3610026
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/regexp.test.

685
686
687
688
689
690
691
692
693
694
695
696
    while {$cp < 32864} {
	append e [format %c [incr cp]]
    }
} -body {
    regexp -about $e
} -cleanup {
    unset -nocomplain e cp
} -returnCodes error  -match glob -result * 

# cleanup
::tcltest::cleanupTests
return






|




685
686
687
688
689
690
691
692
693
694
695
696
    while {$cp < 32864} {
	append e [format %c [incr cp]]
    }
} -body {
    regexp -about $e
} -cleanup {
    unset -nocomplain e cp
} -returnCodes error  -match glob -result {*too many colors*}

# cleanup
::tcltest::cleanupTests
return