Tcl Source Code

Artifact f3a342fed76ebd90a2135944dbb160d1ca65ca50:

Index: tcltest.tcl
===================================================================
RCS file: /cvsroot/tcl/tcl/library/tcltest/tcltest.tcl,v
retrieving revision 1.33
diff -u -r1.33 tcltest.tcl
--- tcltest.tcl	2001/09/06 17:51:00	1.33
+++ tcltest.tcl	2002/02/06 21:58:07
@@ -2155,7 +2157,7 @@
     if {[llength $args] == 0} {
 	puts [errorChannel] "test $name: {wrong # args: should be \"test name desc ?options?\"}"
 	incr tcltest::testLevel -1
-	return 1
+	error "test $name: {wrong # args: should be \"test name desc ?options?\"}"
     } elseif {([string index [lindex $args 0] 0] == "-") || ([llength $args] == 1)} {
 	
 	if {[llength $args] == 1} {
@@ -2181,7 +2183,7 @@
 	    if {[lsearch -exact $validFlags $flag] == -1} {
 		puts [errorChannel] "test $name: bad flag $flag supplied to tcltest::test"
 		incr tcltest::testLevel -1
-		return 1
+		error "test $name: bad flag $flag supplied to tcltest::test"
 	    }
 	}
 
@@ -2194,7 +2196,7 @@
 	if {[lsearch {regexp glob exact} $match] == -1} {
 	    puts [errorChannel] "test $name: {bad value for -match: must be one of exact, glob, regexp}"
 	    incr tcltest::testLevel -1
-	    return 1
+	    error "test $name: {bad value for -match: must be one of exact, glob, regexp}"
 	}
 
 	# Replace symbolic valies supplied for -returnCodes
@@ -2215,7 +2217,7 @@
 	} else {
 	    puts [errorChannel] "test $name: {wrong # args: should be \"test name desc ?constraints? script expectedResult\"}"
 	    incr tcltest::testLevel -1
-	    return 1
+	    error "test $name: {wrong # args: should be \"test name desc ?constraints? script expectedResult\"}"
 	}
     }