Index: tests/object-system.test =================================================================== diff -u -r17ad6747e40c1724810371f92f0108b12c1d5284 -r9f32dd2c379759ca82cf9b49dcc9c62af01f5cc8 --- tests/object-system.test (.../object-system.test) (revision 17ad6747e40c1724810371f92f0108b12c1d5284) +++ tests/object-system.test (.../object-system.test) (revision 9f32dd2c379759ca82cf9b49dcc9c62af01f5cc8) @@ -357,8 +357,26 @@ # ? {catch {nx::Object create [self]::bar}} 1 } +nx::Object create foo { + nx::Object create [self]::bar + # + # Don't allow child-object to be overwritten by object specific cmd + # + ? {catch {:forward bar somethingelse}} 1 + ? {nsf::object::exists [self]::bar} 1 + # + # Don't allow child-object to be overwritten by object specific + # scripted method + # + ? {catch {:method bar {} {;}}} 1 + ? {nsf::object::exists [self]::bar} 1 +} +foo destroy + + + # # Test instances of diamond class structure. #