Tcl Source Code

Check-in [a358973415]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:update test
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | tip-521
Files: files | file ages | folders
SHA3-256: a3589734156f25abd25f6eb61955fb7f6f9065d39dbfc47d544c57e46ea78ac0
User & Date: dgp 2019-06-10 19:50:03
Context
2019-06-15
21:03
Try to work around MSVC6's lack of fpclassify()... check-in: 35debdf339 user: dkf tags: tip-521
2019-06-10
19:50
update test check-in: a358973415 user: dgp tags: tip-521
19:42
merge 8.7 check-in: 4feba7477a user: dgp tags: tip-521
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/info.test.

651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
    catch {namespace delete x}
} -body {
    namespace eval x info vars foo
} -cleanup {
    namespace delete x
} -result {}

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!
}
test info-20.1 {info functions option} {info functions sin} sin
test info-20.2 {info functions option} {lsort [info functions]} $functions
test info-20.3 {info functions option} {






|







651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
    catch {namespace delete x}
} -body {
    namespace eval x info vars foo
} -cleanup {
    namespace delete x
} -result {}

set functions {abs acos asin atan atan2 bool ceil cos cosh double entier exp floor fmod hypot int isfinite isinf isnan isnormal isqrt issubnormal isunordered 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!
}
test info-20.1 {info functions option} {info functions sin} sin
test info-20.2 {info functions option} {lsort [info functions]} $functions
test info-20.3 {info functions option} {