Tcl Source Code

Check-in [f76f0f177f]
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:Test namespace-56.4 detects Bug 8b9854c3d8. Branch open to fix it.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | bug-8b9854c3d8
Files: files | file ages | folders
SHA3-256: f76f0f177fd564c606ab93ab14980aea24d57cf52001207f3c0cd2975d2c4b43
User & Date: dgp 2019-06-13 17:20:45
Context
2019-06-13
17:37
Unique test name. check-in: 5345820749 user: dgp tags: bug-8b9854c3d8
17:20
Test namespace-56.4 detects Bug 8b9854c3d8. Branch open to fix it. check-in: f76f0f177f user: dgp tags: bug-8b9854c3d8
2019-06-11
15:31
Fix [25deec4e46]: Tcl fails to compile with icc due to typedef conflict check-in: c6c21c7e4c user: jan.nijtmans tags: core-8-6-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/namespace.test.

3319
3320
3321
3322
3323
3324
3325













3326
3327
3328
3329
3330
3331
3332
3333
3334
3335
3336
3337
3338
    proc p1 {} {
	    return 16fe1b5807
    }
}

: p1
} 16fe1b5807













 
# cleanup
catch {rename cmd1 {}}
catch {unset l}
catch {unset msg}
catch {unset trigger}
namespace delete {*}[namespace children :: test_ns_*]
::tcltest::cleanupTests
return

# Local Variables:
# mode: tcl
# End:






>
>
>
>
>
>
>
>
>
>
>
>
>













3319
3320
3321
3322
3323
3324
3325
3326
3327
3328
3329
3330
3331
3332
3333
3334
3335
3336
3337
3338
3339
3340
3341
3342
3343
3344
3345
3346
3347
3348
3349
3350
3351
    proc p1 {} {
	    return 16fe1b5807
    }
}

: p1
} 16fe1b5807

test namespace-56.4 {Bug 8b9854c3d8} -setup {
    namespace eval namespace-56.4 {
	proc cmd {} {string match ::* [lindex [info level 0] 0]}
	namespace export *
	namespace ensemble create
    }
} -body {
    namespace-56.4 cmd
} -cleanup {
    namespace delete namespace-56.4
} -result 1

 
# cleanup
catch {rename cmd1 {}}
catch {unset l}
catch {unset msg}
catch {unset trigger}
namespace delete {*}[namespace children :: test_ns_*]
::tcltest::cleanupTests
return

# Local Variables:
# mode: tcl
# End: