aboutsummaryrefslogtreecommitdiffstats
path: root/Tests/MODELS2020-CaseStudies/case.study.pledge.run/ocl/queries.ocl
diff options
context:
space:
mode:
Diffstat (limited to 'Tests/MODELS2020-CaseStudies/case.study.pledge.run/ocl/queries.ocl')
-rw-r--r--Tests/MODELS2020-CaseStudies/case.study.pledge.run/ocl/queries.ocl14
1 files changed, 14 insertions, 0 deletions
diff --git a/Tests/MODELS2020-CaseStudies/case.study.pledge.run/ocl/queries.ocl b/Tests/MODELS2020-CaseStudies/case.study.pledge.run/ocl/queries.ocl
new file mode 100644
index 00000000..de770240
--- /dev/null
+++ b/Tests/MODELS2020-CaseStudies/case.study.pledge.run/ocl/queries.ocl
@@ -0,0 +1,14 @@
1import 'file:/Users/Aren Babikian/git/VIATRA-Attributes/original.PLEDGE.case.studies/model/CD_Case_A.uml'
2--e.g., import 'file:/Users/User_X/CD_Case_A.uml'
3
4package Taxation
5
6context Income inv x:
7 let involved_details:Set(Income_Detail)=self.details->select(i:Income_Detail| i.is_worked=true) in
8 involved_details.amount->sum()
9
10context Expense inv inv11:
11let max:Real = if((self.income.income_amount / 2)>50) then self.income.income_amount / 2 else 50 endif in
12self.declared_amount >= 50 and self.declared_amount <= max
13
14endpackage \ No newline at end of file