diff options
author | stanton <stanton> | 1998-12-02 01:46:06 (GMT) |
---|---|---|
committer | stanton <stanton> | 1998-12-02 01:46:06 (GMT) |
commit | dfc1f4c5ee46a899d3a2fb497635ecc525d30e30 (patch) | |
tree | b1df10563bcf30f4212c9444394fe8421d01aa20 /tests/parse.test | |
parent | d96f4346b5866249776d62e8c6f6af5d2f5d6e25 (diff) | |
download | tcl-dfc1f4c5ee46a899d3a2fb497635ecc525d30e30.zip tcl-dfc1f4c5ee46a899d3a2fb497635ecc525d30e30.tar.gz tcl-dfc1f4c5ee46a899d3a2fb497635ecc525d30e30.tar.bz2 |
* generic/tclTest.c (TestevalobjvObjCmd): Updated for EvalObjv
change.
* tests/parse.test: Updated tests for EvalObjv change.
* generic/tclParse.c (EvalObjv, Tcl_EvalObjv): Changed
Tcl_EvalObjv interface to remove string and length arguments,
preserved original interface as EvalObjv for internal use.
* generic/tcl.h: Changed Tcl_EvalObjv interface to remove string
and length arguments.
* doc/Eval.3: Updated documentation for Tcl_EvalObjv to remove
string and length arguments.
Diffstat (limited to 'tests/parse.test')
-rw-r--r-- | tests/parse.test | 24 |
1 files changed, 11 insertions, 13 deletions
diff --git a/tests/parse.test b/tests/parse.test index 3f8ae88..34f7250 100644 --- a/tests/parse.test +++ b/tests/parse.test @@ -7,7 +7,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: parse.test,v 1.1.2.3 1998/11/11 04:08:33 stanton Exp $ +# RCS: @(#) $Id: parse.test,v 1.1.2.4 1998/12/02 01:46:08 stanton Exp $ if {[info commands testparser] == {}} { puts "This application hasn't been compiled with the \"testparser\"" @@ -203,11 +203,11 @@ test parse-7.1 {Tcl_FreeParse and ExpandTokenArray procedures} { } {- {$a(b) $a(b) $a(b) $a(b) $a(b) $a(b) $a(b) $a(b) $a(b) $a(b) $a(b) $a(b) $a(b) $a(b) $a(b) $a(b) } 16 word {$a(b)} 3 variable {$a(b)} 2 text a 0 text b 0 word {$a(b)} 3 variable {$a(b)} 2 text a 0 text b 0 word {$a(b)} 3 variable {$a(b)} 2 text a 0 text b 0 word {$a(b)} 3 variable {$a(b)} 2 text a 0 text b 0 word {$a(b)} 3 variable {$a(b)} 2 text a 0 text b 0 word {$a(b)} 3 variable {$a(b)} 2 text a 0 text b 0 word {$a(b)} 3 variable {$a(b)} 2 text a 0 text b 0 word {$a(b)} 3 variable {$a(b)} 2 text a 0 text b 0 word {$a(b)} 3 variable {$a(b)} 2 text a 0 text b 0 word {$a(b)} 3 variable {$a(b)} 2 text a 0 text b 0 word {$a(b)} 3 variable {$a(b)} 2 text a 0 text b 0 word {$a(b)} 3 variable {$a(b)} 2 text a 0 text b 0 word {$a(b)} 3 variable {$a(b)} 2 text a 0 text b 0 word {$a(b)} 3 variable {$a(b)} 2 text a 0 text b 0 word {$a(b)} 3 variable {$a(b)} 2 text a 0 text b 0 word {$a(b)} 3 variable {$a(b)} 2 text a 0 text b 0 {}} test parse-8.1 {Tcl_EvalObjv procedure} { - testevalobjv "test command" 20 0 concat this is a test + testevalobjv 0 concat this is a test } {this is a test} test parse-8.2 {Tcl_EvalObjv procedure, unknown commands} { rename unknown unknown.old - set x [catch {testevalobjv "test command" 0 10 asdf poiu} msg] + set x [catch {testevalobjv 10 asdf poiu} msg] rename unknown.old unknown list $x $msg } {1 {invalid command name "asdf"}} @@ -216,7 +216,7 @@ test parse-8.3 {Tcl_EvalObjv procedure, unknown commands} { proc unknown args { return "unknown $args" } - set x [catch {testevalobjv "test command" 10 0 asdf poiu} msg] + set x [catch {testevalobjv 0 asdf poiu} msg] rename unknown {} rename unknown.old unknown list $x $msg @@ -226,21 +226,19 @@ test parse-8.4 {Tcl_EvalObjv procedure, unknown commands} { proc unknown args { error "I don't like that command" } - set x [catch {testevalobjv "test command" 10 0 asdf poiu} msg] + set x [catch {testevalobjv 0 asdf poiu} msg] rename unknown {} rename unknown.old unknown list $x $msg } {1 {I don't like that command}} test parse-8.5 {Tcl_EvalObjv procedure, command traces} { - testcmdtrace tracetest {testevalobjv "test command" 10 0 set x 123} -} {{testevalobjv "test command" 10 0 set x 123} {testevalobjv {test command} 10 0 set x 123} {test comma} {set x 123}} -test parse-8.6 {Tcl_EvalObjv procedure, command traces} { - testcmdtrace tracetest {testevalobjv "" 0 0 set x 123} -} {{testevalobjv "" 0 0 set x 123} {testevalobjv {} 0 0 set x 123} {} {set x 123}} + testevalobjv 0 set x 123 + testcmdtrace tracetest {testevalobjv 0 set x $x} +} {{testevalobjv 0 set x $x} {testevalobjv 0 set x 123} {set x 123} {set x 123}} test parse-8.7 {Tcl_EvalObjv procedure, TCL_EVAL_GLOBAL flag} { proc x {} { set y 23 - set z [testevalobjv "test command" 10 1 set y] + set z [testevalobjv 1 set y] return [list $z $y] } catch {unset y} @@ -257,12 +255,12 @@ test parse-8.8 {Tcl_EvalObjv procedure, async handlers} { set handler1 [testasync create async1] set aresult xxx set acode yyy - set x [list [catch [list testevalobjv "test command" 10 0 testasync mark $handler1 original 0] msg] $msg $acode $aresult] + set x [list [catch [list testevalobjv 0 testasync mark $handler1 original 0] msg] $msg $acode $aresult] testasync delete set x } {0 {new result} 0 original} test parse-8.9 {Tcl_EvalObjv procedure, exceptional return} { - list [catch {testevalobjv "test command" 10 0 error message} msg] $msg + list [catch {testevalobjv 0 error message} msg] $msg } {1 message} test parse-9.1 {Tcl_LogCommandInfo, line numbers} { |