diff options
Diffstat (limited to 'Tests/MODELS2020-CaseStudies/case.study.pledge.queries/ocl/queries.ocl')
-rw-r--r-- | Tests/MODELS2020-CaseStudies/case.study.pledge.queries/ocl/queries.ocl | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/Tests/MODELS2020-CaseStudies/case.study.pledge.queries/ocl/queries.ocl b/Tests/MODELS2020-CaseStudies/case.study.pledge.queries/ocl/queries.ocl new file mode 100644 index 00000000..de770240 --- /dev/null +++ b/Tests/MODELS2020-CaseStudies/case.study.pledge.queries/ocl/queries.ocl | |||
@@ -0,0 +1,14 @@ | |||
1 | import '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 | |||
4 | package Taxation | ||
5 | |||
6 | context 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 | |||
10 | context Expense inv inv11: | ||
11 | let max:Real = if((self.income.income_amount / 2)>50) then self.income.income_amount / 2 else 50 endif in | ||
12 | self.declared_amount >= 50 and self.declared_amount <= max | ||
13 | |||
14 | endpackage \ No newline at end of file | ||