Tcl Source Code

Check-in [7067cdd418]
Login

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

Overview
Comment:merge trunk
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | novem
Files: files | file ages | folders
SHA1: 7067cdd41885ae247857bd51259ebd5bc3c8c72f
User & Date: jan.nijtmans 2014-02-21 20:08:47
Context
2014-02-25
08:32
merge trunk check-in: 784a6ebd99 user: jan.nijtmans tags: novem
2014-02-21
20:08
merge trunk check-in: 7067cdd418 user: jan.nijtmans tags: novem
2014-02-19
14:12
[1230597] Update test comment. check-in: 6deecf6f75 user: dgp tags: trunk
2014-02-18
09:56
merge trunk check-in: 7250e8085c user: jan.nijtmans tags: novem
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/namespace.test.

299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
    }
    namespace eval test_ns_import {
        namespace import ::test_ns_export::*
        proc p {} {return [cmd1 123]}
    }
    test_ns_import::p
} {cmd1: 123}
test namespace-9.5 {Tcl_Import, can't redefine cmd unless allowOverwrite!=0} {
    list [catch {namespace eval test_ns_import {namespace import ::test_ns_export::*}} msg] $msg
} {0 {}}
test namespace-9.6 {Tcl_Import, cmd redefinition ok if allowOverwrite!=0} {
    namespace eval test_ns_import {
        namespace import -force ::test_ns_export::*
        cmd1 555
    }







|







299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
    }
    namespace eval test_ns_import {
        namespace import ::test_ns_export::*
        proc p {} {return [cmd1 123]}
    }
    test_ns_import::p
} {cmd1: 123}
test namespace-9.5 {Tcl_Import, RFE 1230597} {
    list [catch {namespace eval test_ns_import {namespace import ::test_ns_export::*}} msg] $msg
} {0 {}}
test namespace-9.6 {Tcl_Import, cmd redefinition ok if allowOverwrite!=0} {
    namespace eval test_ns_import {
        namespace import -force ::test_ns_export::*
        cmd1 555
    }