Loading...

XML

Word

Printable

Steps to Reproduce:

Hide

package test;

declare BaseObject
@Traitable
id : String @key
end

declare trait A
id : String @key
end

declare trait B extends A
end

declare trait C extends A
end

rule "init"
when
then
BaseObject $obj = new BaseObject("testid123");
insert ($obj);
don($obj, B.class, true);
don($obj, C.class, true);
end

query "QueryTraitA"
a : A()
end

Show
package test; declare BaseObject @Traitable id : String @key end declare trait A id : String @key end declare trait B extends A end declare trait C extends A end rule "init" when then BaseObject $obj = new BaseObject("testid123"); insert ($obj); don($obj, B.class, true); don($obj, C.class, true); end query "QueryTraitA" a : A() end

If two traits with the same super trait are don to an object, two proxy instances of the super trait are created.