Tcl Source Code

Check-in [5870e3c48b]
Login

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

Overview
Comment:[1a56550e96] Mixins aren't being searched correctly by [info class methods -all]
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | bug-1a56550e96
Files: files | file ages | folders
SHA3-256: 5870e3c48b6ff7dbaa7aa099bfb873e969ba3124372c54791149663fbf5d5f21
User & Date: dkf 2017-10-18 18:23:38
Context
2017-10-19
09:22
Ensure that method list introspection finds methods from mixins in all cases. Use better approach fo... Closed-Leaf check-in: deb7ff3522 user: dkf tags: bug-1a56550e96
2017-10-18
18:23
[1a56550e96] Mixins aren't being searched correctly by [info class methods -all] check-in: 5870e3c48b user: dkf tags: bug-1a56550e96
2017-10-09
14:25
In nmakehlp -v, return non-0 exit code if version is not found. (taken from vc-reform branch) check-in: b41dcee6c2 user: jan.nijtmans tags: core-8-6-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/oo.test.

3795
3796
3797
3798
3799
3800
3801



3802



















3803
3804
3805
3806
3807
3808
3809
} {}
test oo-35.4 {Bug 593baa032c: mixins list teardown} {
    # Bug makes this crash, especially with mem-debugging on
    oo::class create B {}
    oo::class create D {mixin B}
    namespace eval [info object namespace D] [list [namespace which B] destroy]
} {}
























cleanupTests
return

# Local Variables:
# mode: tcl
# End:







>
>
>
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>







3795
3796
3797
3798
3799
3800
3801
3802
3803
3804
3805
3806
3807
3808
3809
3810
3811
3812
3813
3814
3815
3816
3817
3818
3819
3820
3821
3822
3823
3824
3825
3826
3827
3828
3829
3830
3831
} {}
test oo-35.4 {Bug 593baa032c: mixins list teardown} {
    # Bug makes this crash, especially with mem-debugging on
    oo::class create B {}
    oo::class create D {mixin B}
    namespace eval [info object namespace D] [list [namespace which B] destroy]
} {}
test oo-35.5 {Bug } -setup {
    oo::class create base {
	unexport destroy
    }
} -body {
    oo::class create C {
	superclass base
	method c {} {}
    }
    oo::class create D {
	superclass base
	mixin C
	method d {} {}
    }
    oo::class create E {
	superclass D
	method e {} {}
    }
    E create e1
    list [lsort [info class methods E -all]] [lsort [info object methods e1 -all]]
} -cleanup {
    base destroy
} -result {{c d e} {c d e}}

cleanupTests
return

# Local Variables:
# mode: tcl
# End: