feat(classes): support ordinary member methods and this references

Co-Authored-By: Claude Fable 5.1 <noreply@anthropic.com>

1 files changed, 35 insertions, 0 deletions

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)