Check-in [c30d48a484]

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:c30d48a484b6ea5eb5d280c29df9f86f4fa30811
User & Date: kbk 2014-08-03 01:41:50
Context
2014-08-03
01:58
Add more FDDD tests, clean up whitespace in tests, and fix bugs exposed in testing. check-in: d1e531296b user: kbk tags: trunk
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
Changes

Changes to library/tclfddd.tcl.

501
502
503
504
505
506
507

508
509
510
511
512
513
514
		}

		# Evaluate the script and handle the status returns
		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







>







501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
		}

		# Evaluate the script and handle the status returns
		try {
		    uplevel 1 $script
		} on error {message options} {
		    dict incr options -level 1
		    dict for {key value} $options { puts "$key = $value" }
		    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