From 3425b95cb654f8e1adc98365a4b370aa1fff8b4d Mon Sep 17 00:00:00 2001 From: _ov4 Date: Sat, 17 Oct 2026 06:02:21 +0000 Subject: feat(classes): support ordinary member methods and this references Co-Authored-By: Claude Fable 5.1 --- tests/iii/class-method-errors/program.cps | 35 +++++++++++++++++++++++++++++++ 1 file changed, 35 insertions(+) create mode 100644 tests/iii/class-method-errors/program.cps (limited to 'tests/iii/class-method-errors/program.cps') diff --git a/tests/iii/class-method-errors/program.cps b/tests/iii/class-method-errors/program.cps new file mode 100644 index 0000000..f2503e2 --- /dev/null +++ b/tests/iii/class-method-errors/program.cps @@ -0,0 +1,35 @@ +CLASS Box + PRIVATE Hidden : INTEGER + PUBLIC Value : INTEGER + PROCEDURE Set(Number : INTEGER) + Hidden <- Number + ENDPROCEDURE + PRIVATE FUNCTION Secret() RETURNS INTEGER + RETURN Hidden + ENDFUNCTION + PROCEDURE BadLocal() + DECLARE this : Box + ENDPROCEDURE + PROCEDURE BadParam(this : Box) + ENDPROCEDURE + PROCEDURE NEW() + ENDPROCEDURE + PROCEDURE set() + ENDPROCEDURE + FUNCTION Value() RETURNS INTEGER + RETURN 0 + ENDFUNCTION +ENDCLASS +CLASS Stranger + PROCEDURE Probe(Other : Box) + OUTPUT Other.Hidden + OUTPUT Other.Secret() + ENDPROCEDURE +ENDCLASS +DECLARE B : Box +OUTPUT B.Secret() +OUTPUT B.Hidden +B.Set() +B.Missing() +DECLARE Number : INTEGER +Number.Set(1) -- cgit v1.3.1-4-g156e