diff options
| author | Steve Bennett <steveb@workware.net.au> | 2015-08-26 22:14:33 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2015-08-26 22:14:33 +1000 |
| commit | 2f955b69b301271f4759075deabd8e0e20be1dbb (patch) | |
| tree | 3aebda2ead89aa570240c53a8f7c75154a061a97 | |
| parent | 069750bd63591ec4fea8a6f8f4edd8a983c6e182 (diff) | |
| parent | a5a863f3803586367180d30276418240a53c5839 (diff) | |
| download | jimtcl-2f955b69b301271f4759075deabd8e0e20be1dbb.zip jimtcl-2f955b69b301271f4759075deabd8e0e20be1dbb.tar.gz jimtcl-2f955b69b301271f4759075deabd8e0e20be1dbb.tar.bz2 | |
Merge pull request #38 from evanhunter/fix_bad_variable_name
tcltest: Fix reference to wrong variable name
| -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 |