InstanceOf tester (VP.Test)

[simantics/platform.git] / bundles / org.simantics.modeling.ontology / graph / ModelingViewpoint.pgraph

diff --git a/bundles/org.simantics.modeling.ontology/graph/ModelingViewpoint.pgraph b/bundles/org.simantics.modeling.ontology/graph/ModelingViewpoint.pgraph
index 7e572df9f69e3aeb385fe98b5f4034bfaa0bd08d..e71c13997a661d9c729872e23054efe5883b3824 100644 (file)
--- a/bundles/org.simantics.modeling.ontology/graph/ModelingViewpoint.pgraph
+++ b/bundles/org.simantics.modeling.ontology/graph/ModelingViewpoint.pgraph
@@ -29,7 +29,7 @@ MOD.SCLAction <T ACT.Action
 MOD.SCLDropAction <T ACT.Action
   --> MOD.SCLDropAction.action ==> "Resource -> Dynamic -> Integer -> <Proc> ()" <R L0.HasProperty : L0.FunctionalRelation 
 
-MOD.SCLTest <T ACT.Action
+MOD.SCLTest <T VP.Test
   --> MOD.SCLTest.test ==> "Resource -> <ReadGraph> Boolean" <R L0.HasProperty : L0.FunctionalRelation 
 
 // Legacy ModelingBrowseContext
@@ -659,6 +659,15 @@ MOD.InstantiateUnder <T MOD.SCLAction
 ACTIONS.InstantiateUnder
   @MOD.sclAction "instantiateUnderAction self"
 
+MOD.InstanceOfTest <T MOD.SCLTest
+  >-- MOD.InstanceOfTest.HasType --> L0.Type <R L0.IsRelatedTo : L0.TotalFunction
+  @MOD.sclAssertion MOD.SCLTest.test "instanceOfTest self" "Resource -> <Proc> Boolean"
+
+MOD.instanceOfTest : L0.Template
+    @template %test %type
+        %test : MOD.InstanceOfTest
+          MOD.InstanceOfTest.HasType %type
+
 TESTS = MAC.Tests : L0.Library
 TESTS.IsNotPublished
   @MOD.sclTest "isNotPublished"