Index: tests/methods.test =================================================================== diff -u -r12319faaf20df7116346558bd948b0edda9124eb -rc90b4fbe1aca2a6bcff6205d001f6ed83db51a90 --- tests/methods.test (.../methods.test) (revision 12319faaf20df7116346558bd948b0edda9124eb) +++ tests/methods.test (.../methods.test) (revision c90b4fbe1aca2a6bcff6205d001f6ed83db51a90) @@ -235,11 +235,26 @@ ? {lsort [C object mixin get]} "::M2 ::M4" ? {lsort [C mixin get]} "::M1 ::M3" + ? {lsort [C object mixin]} "::M2 ::M4" + ? {lsort [C mixin]} "::M1 ::M3" + ? {catch {C mixin M5} errorMsg} 1 ? {lsort [C info mixin classes]} "::M1 ::M3" ? {catch {C object mixin M5} errorMsg} 1 ? {lsort [C info object mixin classes]} "::M2 ::M4" + + ? {C mixin set M5} ::M5 + ? {lsort [C info mixin classes]} "::M5" + + ? {C object mixin set M5} "::M5" + ? {lsort [C info object mixin classes]} "::M5" + + ? {C configure -mixin M1} "" + ? {C cget -mixin} "::M1" + + ? {C configure -object-mixin M2} "" + ? {C cget -object-mixin} "::M2" } # testing next via nonpos-args