diff options
| author | Kevin B Kenny <kennykb@acm.org> | 2006-12-01 19:59:59 (GMT) |
|---|---|---|
| committer | Kevin B Kenny <kennykb@acm.org> | 2006-12-01 19:59:59 (GMT) |
| commit | 339ca1b05809a2057811f8afa91f753e7482dc0f (patch) | |
| tree | 583e2aa907472a929b1df844211858394e6f224a /tests/info.test | |
| parent | 987906704f34c52aac4787e16dcbbc9d41ddbd48 (diff) | |
| download | tcl-339ca1b05809a2057811f8afa91f753e7482dc0f.zip tcl-339ca1b05809a2057811f8afa91f753e7482dc0f.tar.gz tcl-339ca1b05809a2057811f8afa91f753e7482dc0f.tar.bz2 | |
TIP#299 IMPLEMENTATION
Diffstat (limited to 'tests/info.test')
| -rw-r--r-- | tests/info.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/info.test b/tests/info.test index 7b7b867..82c942b 100644 --- a/tests/info.test +++ b/tests/info.test @@ -13,7 +13,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: info.test,v 1.40 2006/11/28 22:20:29 andreas_kupries Exp $ +# RCS: @(#) $Id: info.test,v 1.41 2006/12/01 20:00:00 kennykb Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -644,7 +644,7 @@ test info-19.6 {info vars: Bug 1072654} -setup { namespace delete x } -result {} -set functions {abs acos asin atan atan2 bool ceil cos cosh double entier exp floor fmod hypot int log log10 max min pow rand round sin sinh sqrt srand tan tanh wide} +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"}))} { set functions "T1 T2 T3 $functions" ;# A lazy way of prepending! |