From 48ff3a2b20e142da6a7bd2f35ba2baca0a4d33ae Mon Sep 17 00:00:00 2001
From: Steve Bennett <steveb@workware.net.au>
Date: Sun, 24 Jan 2010 11:41:46 +1000
Subject: Implement and document lassign

---
 tests/testing.tcl | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

(limited to 'tests/testing.tcl')

diff --git a/tests/testing.tcl b/tests/testing.tcl
index 2adacdd..4956450 100644
--- a/tests/testing.tcl
+++ b/tests/testing.tcl
@@ -4,7 +4,7 @@
 # e.g. bio copy [autoopen infile] [autoopen outfile w]; collect
 #
 proc autoopen {filename {mode r}} {
-	set ref [ref [open.old $filename $mode] aio lambdaFinalizer]
+	set ref [ref [open $filename $mode] aio lambdaFinalizer]
 	rename [getref $ref] $ref
 	return $ref
 }
@@ -22,19 +22,19 @@ proc section {name} {
 array set testresults {numfail 0 numpass 0 failed {}}
 
 proc test {id descr script expected} {
-    puts -nonewline "$id "
-    set rc [catch {uplevel 1 $script} result]
+	puts -nonewline "$id "
+	set rc [catch {uplevel 1 $script} result]
 	# Note that rc=2 is return
-    if {($rc == 0 || $rc == 2) && $result eq $expected} {
+	if {($rc == 0 || $rc == 2) && $result eq $expected} {
 		puts "OK  $descr"
 		incr ::testresults(numpass)
-    } else {
+	} else {
 		puts "ERR $descr"
 		puts "Expected: '$expected'"
-		puts "Got     : '$result'"
+		puts "Got	  : '$result'"
 		incr ::testresults(numfail)
-        lappend ::testresults(failed) [list $id $descr $script $expected $result]
-    }
+		lappend ::testresults(failed) [list $id $descr $script $expected $result]
+	}
 }
 
 proc testreport {} {
-- 
cgit v1.1