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 Side-by-Side Diffs Ignore Whitespace Patch

Changes to tests/namespace.test.

  3319   3319       proc p1 {} {
  3320   3320   	    return 16fe1b5807
  3321   3321       }
  3322   3322   }
  3323   3323   
  3324   3324   : p1
  3325   3325   } 16fe1b5807
         3326  +
         3327  +test namespace-56.4 {Bug 8b9854c3d8} -setup {
         3328  +    namespace eval namespace-56.4 {
         3329  +	proc cmd {} {string match ::* [lindex [info level 0] 0]}
         3330  +	namespace export *
         3331  +	namespace ensemble create
         3332  +    }
         3333  +} -body {
         3334  +    namespace-56.4 cmd
         3335  +} -cleanup {
         3336  +    namespace delete namespace-56.4
         3337  +} -result 1
         3338  +
  3326   3339   
  3327   3340   # cleanup
  3328   3341   catch {rename cmd1 {}}
  3329   3342   catch {unset l}
  3330   3343   catch {unset msg}
  3331   3344   catch {unset trigger}
  3332   3345   namespace delete {*}[namespace children :: test_ns_*]
  3333   3346   ::tcltest::cleanupTests
  3334   3347   return
  3335   3348   
  3336   3349   # Local Variables:
  3337   3350   # mode: tcl
  3338   3351   # End: