diff options
Diffstat (limited to 'Tests/MODELS2020-CaseStudies/case.study.familyTree.run/src/queries/familyTreeConstraints.vql')
-rw-r--r-- | Tests/MODELS2020-CaseStudies/case.study.familyTree.run/src/queries/familyTreeConstraints.vql | 44 |
1 files changed, 25 insertions, 19 deletions
diff --git a/Tests/MODELS2020-CaseStudies/case.study.familyTree.run/src/queries/familyTreeConstraints.vql b/Tests/MODELS2020-CaseStudies/case.study.familyTree.run/src/queries/familyTreeConstraints.vql index e7b44f0b..fdbac640 100644 --- a/Tests/MODELS2020-CaseStudies/case.study.familyTree.run/src/queries/familyTreeConstraints.vql +++ b/Tests/MODELS2020-CaseStudies/case.study.familyTree.run/src/queries/familyTreeConstraints.vql | |||
@@ -9,25 +9,31 @@ pattern memberIsItsOwnParent(m: Member) = { | |||
9 | m == p; | 9 | m == p; |
10 | } | 10 | } |
11 | 11 | ||
12 | //@Constraint(message="twoMembersHaveNoParent", severity="error", key={m1, m2}) | 12 | @Constraint(message="twoMembersHaveNoParent", severity="error", key={m1, m2}) |
13 | //pattern twoMembersHaveNoParent(m1:Member, m2:Member) = { | 13 | pattern twoMembersHaveNoParent(m1:Member, m2:Member) = { |
14 | // neg find memberHasParent(m1); | 14 | neg find memberHasParent(m1); |
15 | // neg find memberHasParent(m2); | 15 | neg find memberHasParent(m2); |
16 | // m1 != m2; | 16 | m1 != m2; |
17 | //} | 17 | } |
18 | // | 18 | |
19 | //pattern memberHasParent(m: Member) = { | 19 | pattern memberHasParent(m: Member) = { |
20 | // Member.parents(m, _); | 20 | Member.parents(m, _); |
21 | //} | 21 | } |
22 | // | 22 | |
23 | //@Constraint(message="parentTooYoung", severity="error", key={m, p}) | 23 | @Constraint(message="negativeAge", severity="error",key={m}) |
24 | //pattern parentTooYoung(m: Member, p: Member) = { | 24 | pattern negativeAge(m: Member) { |
25 | // FamilyTree.members(_, m); | 25 | Member.age(m,mage); |
26 | // Member.parents(m, p); | 26 | check(mage<0); |
27 | // Member.age(m, mAge); | 27 | } |
28 | // Member.age(p, pAge); | 28 | |
29 | // check (mAge <= (pAge + 12)); | 29 | @Constraint(message="parentTooYoung", severity="error", key={c, p}) |
30 | //} | 30 | pattern parentTooYoung(c: Member, p: Member) = { |
31 | FamilyTree.members(_, c); | ||
32 | Member.parents(c, p); | ||
33 | Member.age(c, cAge); | ||
34 | Member.age(p, pAge); | ||
35 | check (pAge <= (cAge + 12)); | ||
36 | } | ||
31 | 37 | ||
32 | 38 | ||
33 | 39 | ||