tests/iii/operator-result-errors/program.cps


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20


CLASS Box
Value : INTEGER
OVERLOAD FUNCTION OPERATOR=(rhs : Box) RETURNS STRING
RETURN "text"
ENDFUNCTION
ENDCLASS
DECLARE item : Box
IF item = item THEN
OUTPUT "wrong"
ENDIF
FUNCTION Bad(value : Box) RETURNS BOOLEAN
RETURN value = value
ENDFUNCTION
FUNCTION NeedBool(flag : BOOLEAN) RETURNS INTEGER
RETURN 0
ENDFUNCTION
OUTPUT NeedBool(item = item)
CASE OF item
item : OUTPUT "wrong"
ENDCASE