Tcl Source Code

Check-in [55da18eb59]
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:Improve test for last commit fixing [45b9faf103f2].
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-branch
Files: files | file ages | folders
SHA3-256: 55da18eb59901fa7bc96e8df0eb34d0a35a970d2e9eecb56f341c0b7a20ed97a
User & Date: pooryorick 2019-04-08 13:38:19
Context
2019-04-08
15:35
merge bug-45b9faf103f2, fewer destructive TclObjLookupVarEx, closes [45b9faf103f2] check-in: 7723c52623 user: sebres tags: core-8-branch
15:03
closes [45b9faf103f2] (tclVar cached lookup): fixes segfaulting if variable released before set; par... Closed-Leaf check-in: e62a48e964 user: sebres tags: bug-45b9faf103f2
13:49
merge 8.7 check-in: 581926e4c8 user: dgp tags: dgp-string-insert
13:38
Improve test for last commit fixing [45b9faf103f2]. check-in: 55da18eb59 user: pooryorick tags: core-8-branch
13:01
Fix for [45b9faf103f2], [try] interaction with local variable names produces segmentation fault. check-in: 4100488a3c user: pooryorick tags: core-8-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/cmdMZ.test.

413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
    fix for issue 45b9faf103f2

    [try] interaction with local variable names produces segmentation violation

} -body {
    ::apply {{} {
	eval {
	    try {
		lindex 5
	    } on ok res {} 
	}
	set res
    }} 
} -result 5


# The tests for Tcl_WhileObjCmd are in while.test
 






|
|
|
|
<







413
414
415
416
417
418
419
420
421
422
423

424
425
426
427
428
429
430
    fix for issue 45b9faf103f2

    [try] interaction with local variable names produces segmentation violation

} -body {
    ::apply {{} {
	set cmd try
	$cmd {
	    lindex 5
	} on ok res {} 

	set res
    }} 
} -result 5


# The tests for Tcl_WhileObjCmd are in while.test