diff options
Diffstat (limited to 'eiffel-fragen/nachbedingung/child.e')
| -rw-r--r-- | eiffel-fragen/nachbedingung/child.e | 25 |
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 @@ | |||
| 1 | class | ||
| 2 | CHILD | ||
| 3 | inherit | ||
| 4 | COUNTER | ||
| 5 | redefine | ||
| 6 | set, | ||
| 7 | checkval | ||
| 8 | end | ||
| 9 | |||
| 10 | feature -- 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 | ||
| 25 | end | ||
