summaryrefslogtreecommitdiffstats
path: root/eiffel-fragen/nachbedingung/child.e
diff options
context:
space:
mode:
Diffstat (limited to 'eiffel-fragen/nachbedingung/child.e')
-rw-r--r--eiffel-fragen/nachbedingung/child.e25
1 files changed, 25 insertions, 0 deletions
diff --git a/eiffel-fragen/nachbedingung/child.e b/eiffel-fragen/nachbedingung/child.e
new file mode 100644
index 0000000..fcbe8c3
--- /dev/null
+++ b/eiffel-fragen/nachbedingung/child.e
@@ -0,0 +1,25 @@
1class
2 CHILD
3inherit
4 COUNTER
5 redefine
6 set,
7 checkval
8 end
9
10feature -- Element change
11
12 set (some_value: INTEGER) is
13 -- Set value of counter to some_value.
14 do
15 item := some_value - 10
16 ensure then
17 checkval > 0
18 end
19
20 checkval: INTEGER is
21 -- Get value of counter
22 do
23 Result := item + 20
24 end
25end