aboutsummaryrefslogtreecommitdiff
path: root/tests/iii/class-private-case
diff options
context:
space:
mode:
Diffstat (limited to 'tests/iii/class-private-case')
-rw-r--r--tests/iii/class-private-case/case.json8
-rw-r--r--tests/iii/class-private-case/notes.md3
-rw-r--r--tests/iii/class-private-case/program.cps5
3 files changed, 16 insertions, 0 deletions
diff --git a/tests/iii/class-private-case/case.json b/tests/iii/class-private-case/case.json
new file mode 100644
index 0000000..6d425cd
--- /dev/null
+++ b/tests/iii/class-private-case/case.json
@@ -0,0 +1,8 @@
+{
+ "errors": [
+ {
+ "reason": "Cannot\\ access\\ private\\ field\\ hIDDEN\\ of\\ type\\ Box",
+ "line": 5
+ }
+ ]
+}
diff --git a/tests/iii/class-private-case/notes.md b/tests/iii/class-private-case/notes.md
new file mode 100644
index 0000000..0eff0da
--- /dev/null
+++ b/tests/iii/class-private-case/notes.md
@@ -0,0 +1,3 @@
+# class-private-case
+
+The compiler must reject this program: Cannot access private field hIDDEN of type Box. The diagnostic must identify line 5; compilation must preserve existing output.
diff --git a/tests/iii/class-private-case/program.cps b/tests/iii/class-private-case/program.cps
new file mode 100644
index 0000000..9ba8e02
--- /dev/null
+++ b/tests/iii/class-private-case/program.cps
@@ -0,0 +1,5 @@
+CLASS Box
+ PRIVATE Hidden : INTEGER
+ENDCLASS
+DECLARE Item : Box
+OUTPUT item.hIDDEN