2 files changed, 53 insertions, 0 deletions
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()