Check-in [bb22f9b118]

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

Overview
Comment:Add more FDDD tests, clean up whitespace in tests, and fix bugs exposed in testing.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:bb22f9b1184095011e96670d2130b5b20a428155
User & Date: kbk 2014-08-03 01:39:08
Context
2014-08-03
01:41
Add more FDDD tests, clean up whitespace in tests, and fix bugs exposed in testing. check-in: c30d48a484 user: kbk tags: trunk
01:39
Add more FDDD tests, clean up whitespace in tests, and fix bugs exposed in testing. check-in: bb22f9b118 user: kbk tags: trunk
01:38
Add more FDDD tests, clean up whitespace in tests, and fix bugs exposed in testing. check-in: 323dd8ca3e user: kbk tags: trunk
Changes

Changes to library/tclfddd.tcl.

504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
		try {
		    uplevel 1 $script
		} on error {message options} {
		    dict incr options -level 1
		    regsub \
			{\("uplevel" body line (\d*?)\).*?\("try" body line 2\)} \
			[dict get $options -errorinfo] \
			{("enumerate" body, line \1)} \
			ei
		    dict set options -errorinfo $ei
		    return -options $options $message
		} on return {retval options} {
		    dict incr options -level 1
		    return -options $options $retval
		} on break {} {







|







504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
		try {
		    uplevel 1 $script
		} on error {message options} {
		    dict incr options -level 1
		    regsub \
			{\("uplevel" body line (\d*?)\).*?\("try" body line 2\)} \
			[dict get $options -errorinfo] \
			{("enumerate" body line \1)} \
			ei
		    dict set options -errorinfo $ei
		    return -options $options $message
		} on return {retval options} {
		    dict incr options -level 1
		    return -options $options $retval
		} on break {} {