From 39661855c0816ac248be437704c76f58359cb5f0 Mon Sep 17 00:00:00 2001
From: _ov4 <ov4@ov4.org>
Date: Sat, 17 Oct 2026 06:52:23 +0000
Subject: feat(classes): construct declared objects and nested fields and
 arrays

Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
---
 .../iii/class-constructor-default-errors/case.json | 32 ++++++++++++++++++++++
 .../class-constructor-default-errors/program.cps   | 21 ++++++++++++++
 2 files changed, 53 insertions(+)
 create mode 100644 tests/iii/class-constructor-default-errors/case.json
 create mode 100644 tests/iii/class-constructor-default-errors/program.cps

(limited to 'tests/iii/class-constructor-default-errors')

diff --git a/tests/iii/class-constructor-default-errors/case.json b/tests/iii/class-constructor-default-errors/case.json
new file mode 100644
index 0000000..adcefe8
--- /dev/null
+++ b/tests/iii/class-constructor-default-errors/case.json
@@ -0,0 +1,32 @@
+{
+  "errors": [
+    {
+      "reason": "Incorrect # arguments passed to Required.NEW",
+      "line": 15
+    },
+    {
+      "reason": "Incorrect # arguments passed to Required.NEW",
+      "line": 16
+    },
+    {
+      "reason": "has no constructor NEW",
+      "line": 17
+    },
+    {
+      "reason": "Cannot access private method NEW",
+      "line": 18
+    },
+    {
+      "reason": "Incorrect # arguments passed to Required.NEW",
+      "line": 19
+    },
+    {
+      "reason": "Incorrect # arguments passed to Required.NEW",
+      "line": 20
+    },
+    {
+      "reason": "Constructor arguments require a class type",
+      "line": 21
+    }
+  ]
+}
diff --git a/tests/iii/class-constructor-default-errors/program.cps b/tests/iii/class-constructor-default-errors/program.cps
new file mode 100644
index 0000000..43dfef7
--- /dev/null
+++ b/tests/iii/class-constructor-default-errors/program.cps
@@ -0,0 +1,21 @@
+CLASS Required
+    PROCEDURE NEW(Number : INTEGER)
+    ENDPROCEDURE
+ENDCLASS
+CLASS Plain
+    Value : INTEGER
+ENDCLASS
+CLASS Hidden
+    PRIVATE PROCEDURE NEW()
+    ENDPROCEDURE
+ENDCLASS
+TYPE Wrapped
+    DECLARE Item : Required
+ENDTYPE
+DECLARE Missing : Required
+DECLARE EmptyArgs : Required()
+DECLARE Extra : Plain(1)
+DECLARE PrivateObject : Hidden
+DECLARE Items : ARRAY[1:2] OF Required
+DECLARE Nested : Wrapped
+DECLARE Scalar : INTEGER()
-- 
cgit v1.3.1-4-g156e