diff options
author | dgp <dgp@noemail.net> | 2002-08-05 03:24:38 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2002-08-05 03:24:38 (GMT) |
commit | 892965716ced280aa97146b1fac12c129de65db1 (patch) | |
tree | 55bc26f8f6a88258d08fd90ff9a8943937349574 /tests/parseExpr.test | |
parent | edf2c0e3f562577e072bbc9607a573a51d2c09fb (diff) | |
download | tcl-892965716ced280aa97146b1fac12c129de65db1.zip tcl-892965716ced280aa97146b1fac12c129de65db1.tar.gz tcl-892965716ced280aa97146b1fac12c129de65db1.tar.bz2 |
* doc/CmdCmplt.3: Applied Patch 585105 to fully CONST-ify
* doc/Concat.3: all remaining public interfaces of Tcl.
* doc/CrtCommand.3: Notably, the parser no longer writes on
* doc/CrtSlave.3: the string it is parsing, so it is no
* doc/CrtTrace.3: longer necessary for Tcl_Eval() to be
* doc/Eval.3: given a writable string. Also, the
* doc/ExprLong.3: refactoring of the Tcl_*Var* routines
* doc/LinkVar.3: by Miguel Sofer is included, so that the
* doc/ParseCmd.3: "part1" argument for them no longer needs
* doc/SetVar.3: to be writable either.
* doc/TraceVar.3:
* doc/UpVar.3: Compatibility support has been enhanced so
* generic/tcl.decls that a #define of USE_NON_CONST will remove
* generic/tcl.h all possible source incompatibilities with
* generic/tclBasic.c the 8.3 version of the header file(s).
* generic/tclCmdMZ.c The new #define of USE_COMPAT_CONST now does
* generic/tclCompCmds.c what USE_NON_CONST used to do -- disable
* generic/tclCompExpr.c only those new CONST's that introduce
* generic/tclCompile.c irreconcilable incompatibilities.
* generic/tclCompile.h
* generic/tclDecls.h Several bugs are also fixed by this patch.
* generic/tclEnv.c [Bugs 584051,580433] [Patches 585105,582429]
* generic/tclEvent.c
* generic/tclInt.decls
* generic/tclInt.h
* generic/tclIntDecls.h
* generic/tclInterp.c
* generic/tclLink.c
* generic/tclObj.c
* generic/tclParse.c
* generic/tclParseExpr.c
* generic/tclProc.c
* generic/tclTest.c
* generic/tclUtf.c
* generic/tclUtil.c
* generic/tclVar.c
* mac/tclMacTest.c
* tests/expr-old.test
* tests/parseExpr.test
* unix/tclUnixTest.c
* unix/tclXtTest.c
* win/tclWinTest.c
FossilOrigin-Name: e476c22fecaa0dd7fea635d29d8ea1d5579365a1
Diffstat (limited to 'tests/parseExpr.test')
-rw-r--r-- | tests/parseExpr.test | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/tests/parseExpr.test b/tests/parseExpr.test index 958c515..489e6d2 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.7 2001/12/06 10:59:18 dkf Exp $ +# RCS: @(#) $Id: parseExpr.test,v 1.8 2002/08/05 03:24:41 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -509,9 +509,11 @@ test parseExpr-16.4 {GetLexeme procedure, integer lexeme} { test parseExpr-16.5 {GetLexeme procedure, integer lexeme too big} {wideIntegerUnparsed} { list [catch {testexprparser {12345678901234567890} -1} msg] $msg } {1 {integer value too large to represent}} -test parseExpr-16.6 {GetLexeme procedure, bad integer lexeme} { - list [catch {testexprparser {0999} -1} msg] $msg -} {1 {"0999" is an invalid octal number}} + +test parseExpr-16.6 {GetLexeme procedure, bad integer lexeme} -body { + testexprparser {0999} -1 +} -returnCodes error -match glob -result {*invalid octal number*} + test parseExpr-16.7 {GetLexeme procedure, double lexeme} { testexprparser {0.999} -1 } {- {} 0 subexpr 0.999 1 text 0.999 0 {}} |