Tcl Source Code

Check-in [5345820749]
Login

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

Overview
Comment:Unique test name.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | bug-8b9854c3d8
Files: files | file ages | folders
SHA3-256: 5345820749285d749aa675ccf417c9b5fc2d2f71648884f0adb6e8a269171d7e
User & Date: dgp 2019-06-13 17:37:46.155
Context
2019-06-13
17:58
Fix Bug 8b9854c3d8. Now 4 test failures require examination. check-in: 3bfd725f54 user: dgp tags: bug-8b9854c3d8
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
Changes
Unified Diff Ignore Whitespace Patch
Changes to tests/namespace.test.
3320
3321
3322
3323
3324
3325
3326
3327
3328
3329
3330
3331
3332
3333
3334
3335
3336
3337
3338
3339
3340
3341
3342
3343
	    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}







|
|
|




|

|







3320
3321
3322
3323
3324
3325
3326
3327
3328
3329
3330
3331
3332
3333
3334
3335
3336
3337
3338
3339
3340
3341
3342
3343
	    return 16fe1b5807
    }
}

: p1
} 16fe1b5807

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


# cleanup
catch {rename cmd1 {}}
catch {unset l}
catch {unset msg}