diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-01-28 10:42:05 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-01-28 10:42:05 (GMT) |
| commit | 8d49123e73e1b0bbbf97cd212e88960772a9e166 (patch) | |
| tree | b3753c3b36bfe5b8fb3203da20f2864e9981ea97 /tests/info.test | |
| parent | 9c024d9d3bfcd6cee7c0a39492f7e1fd4f80192d (diff) | |
| download | tcl-8d49123e73e1b0bbbf97cd212e88960772a9e166.zip tcl-8d49123e73e1b0bbbf97cd212e88960772a9e166.tar.gz tcl-8d49123e73e1b0bbbf97cd212e88960772a9e166.tar.bz2 | |
Use {} braces in more "expr" expressions.
Diffstat (limited to 'tests/info.test')
| -rw-r--r-- | tests/info.test | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/info.test b/tests/info.test index fb9e0de..69be6a3 100644 --- a/tests/info.test +++ b/tests/info.test @@ -657,7 +657,7 @@ test info-19.6 {info vars: Bug 1072654} -setup { set functions {abs acos asin atan atan2 bool ceil cos cosh double entier exp floor fmod hypot int isqrt log log10 max min pow rand round sin sinh sqrt srand tan tanh wide} # Check whether the extra testing functions are defined... -if {!([catch {expr T1()} msg] && ($msg eq {invalid command name "tcl::mathfunc::T1"}))} { +if {!([catch {expr {T1()}} msg] && ($msg eq {invalid command name "tcl::mathfunc::T1"}))} { set functions "T1 T2 T3 $functions" ;# A lazy way of prepending! } test info-20.1 {info functions option} {info functions sin} sin |