diff options
| author | Evan Hunter <evan@ozhiker.com> | 2015-08-26 08:48:03 +0100 |
|---|---|---|
| committer | Evan Hunter <evan@ozhiker.com> | 2015-08-26 09:07:37 +0100 |
| commit | a5a863f3803586367180d30276418240a53c5839 (patch) | |
| tree | 3aebda2ead89aa570240c53a8f7c75154a061a97 /tcltest.tcl | |
| parent | 069750bd63591ec4fea8a6f8f4edd8a983c6e182 (diff) | |
| download | jimtcl-a5a863f3803586367180d30276418240a53c5839.zip jimtcl-a5a863f3803586367180d30276418240a53c5839.tar.gz jimtcl-a5a863f3803586367180d30276418240a53c5839.tar.bz2 | |
tcltest: Fix reference to wrong variable name
Diffstat (limited to 'tcltest.tcl')
| -rw-r--r-- | tcltest.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tcltest.tcl b/tcltest.tcl index d338b2a..ce3cbf3 100644 --- a/tcltest.tcl +++ b/tcltest.tcl @@ -151,7 +151,7 @@ proc testConstraint {constraint {bool {}}} { if {[info exists ::tcltest::testConstraints($constraint)]} { return $::tcltest::testConstraints($constraint) } - return -code error "unknown constraint: $c" + return -code error "unknown constraint: $constraint" return 1 } else { set ::tcltest::testConstraints($constraint) $bool |