aboutsummaryrefslogtreecommitdiffstats
path: root/Tests/MODELS2020-CaseStudies/case.study.pledge.run/src/queries/familyTreeConstraintsQual.vql
diff options
context:
space:
mode:
Diffstat (limited to 'Tests/MODELS2020-CaseStudies/case.study.pledge.run/src/queries/familyTreeConstraintsQual.vql')
-rw-r--r--Tests/MODELS2020-CaseStudies/case.study.pledge.run/src/queries/familyTreeConstraintsQual.vql51
1 files changed, 0 insertions, 51 deletions
diff --git a/Tests/MODELS2020-CaseStudies/case.study.pledge.run/src/queries/familyTreeConstraintsQual.vql b/Tests/MODELS2020-CaseStudies/case.study.pledge.run/src/queries/familyTreeConstraintsQual.vql
deleted file mode 100644
index 946451d1..00000000
--- a/Tests/MODELS2020-CaseStudies/case.study.pledge.run/src/queries/familyTreeConstraintsQual.vql
+++ /dev/null
@@ -1,51 +0,0 @@
1package queries
2
3import "http://www.example.org/familytree"
4
5@Constraint(message="memberIsItsOwnParent", severity="error", key={m})
6pattern memberIsRecursiveParent(m: Member) = {
7 find isParent+(m, m);
8}
9
10pattern isParent(m: Member, p: Member){
11 Member.parents(m, p);
12}
13
14
15@Constraint(message="memberIsItsOwnParent", severity="error", key={m})
16pattern memberIsItsOwnParent(m: Member) = {
17 FamilyTree.members(_, m);
18 Member.parents(m, p);
19 m == p;
20}
21
22@Constraint(message="twoMembersHaveNoParent", severity="error", key={m1, m2})
23pattern twoMembersHaveNoParent(m1:Member, m2:Member) = {
24 neg find memberHasParent(m1);
25 neg find memberHasParent(m2);
26 m1 != m2;
27}
28
29pattern memberHasParent(m: Member) = {
30 Member.parents(m, _);
31}
32
33@Constraint(message="negativeAge", severity="error",key={m})
34pattern negativeAge(m: Member) {
35 Member.age(m,mage);
36 check(mage<0);
37}
38
39@Constraint(message="parentTooYoung", severity="error", key={c, p})
40pattern parentTooYoung(c: Member, p: Member) = {
41 FamilyTree.members(_, c);
42 Member.parents(c, p);
43 Member.age(c, cAge);
44 Member.age(p, pAge);
45 check (pAge <= (cAge + 12));
46}
47
48
49
50
51