diff options
| author | dgp <dgp@users.sourceforge.net> | 2006-03-21 18:30:54 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2006-03-21 18:30:54 (GMT) |
| commit | c0d9a0cf3bf47d4da9a87a298d436cda4c932f45 (patch) | |
| tree | 0de1b464c9a7da4e2118ec565244a48afdcfef2f /tests/parseExpr.test | |
| parent | 458fdd4426e9f3e1e99f2f6758aca0116bf2defc (diff) | |
| download | tcl-c0d9a0cf3bf47d4da9a87a298d436cda4c932f45.zip tcl-c0d9a0cf3bf47d4da9a87a298d436cda4c932f45.tar.gz tcl-c0d9a0cf3bf47d4da9a87a298d436cda4c932f45.tar.bz2 | |
Added knownBug constraints.
Diffstat (limited to 'tests/parseExpr.test')
| -rw-r--r-- | tests/parseExpr.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/parseExpr.test b/tests/parseExpr.test index a72eb87..4c99525 100644 --- a/tests/parseExpr.test +++ b/tests/parseExpr.test @@ -8,7 +8,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: parseExpr.test,v 1.18 2006/03/21 11:12:29 dkf Exp $ +# RCS: @(#) $Id: parseExpr.test,v 1.19 2006/03/21 18:30:55 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -620,7 +620,7 @@ test parseExpr-16.4 {GetLexeme procedure, integer lexeme} testexprparser { test parseExpr-16.5 {GetLexeme procedure, integer lexeme too big} {testexprparser wideIs32bit} { list [catch {testexprparser {12345678901234567890} -1} msg] $msg } {1 {integer value too large to represent}} -test parseExpr-16.6 {GetLexeme procedure, bad integer lexeme} -constraints {testexprparser} -body { +test parseExpr-16.6 {GetLexeme procedure, bad integer lexeme} -constraints {testexprparser knownBug} -body { testexprparser {0999} -1 } -returnCodes error -match glob -result {*invalid octal number*} test parseExpr-16.7 {GetLexeme procedure, double lexeme} testexprparser { |