aboutsummaryrefslogtreecommitdiff
path: root/tests/iii/diagnostic-nested-call
diff options
context:
space:
mode:
Diffstat (limited to 'tests/iii/diagnostic-nested-call')
-rw-r--r--tests/iii/diagnostic-nested-call/case.json8
-rw-r--r--tests/iii/diagnostic-nested-call/notes.md3
-rw-r--r--tests/iii/diagnostic-nested-call/program.cps3
3 files changed, 14 insertions, 0 deletions
diff --git a/tests/iii/diagnostic-nested-call/case.json b/tests/iii/diagnostic-nested-call/case.json
new file mode 100644
index 0000000..a00f88b
--- /dev/null
+++ b/tests/iii/diagnostic-nested-call/case.json
@@ -0,0 +1,8 @@
+{
+ "errors": [
+ {
+ "reason": "MID\\ expects\\ 3\\ args",
+ "line": 2
+ }
+ ]
+}
diff --git a/tests/iii/diagnostic-nested-call/notes.md b/tests/iii/diagnostic-nested-call/notes.md
new file mode 100644
index 0000000..252dec7
--- /dev/null
+++ b/tests/iii/diagnostic-nested-call/notes.md
@@ -0,0 +1,3 @@
+# diagnostic-nested-call
+
+The compiler must reject this program: MID expects 3 args. The diagnostic must identify line 2; compilation must preserve existing output.
diff --git a/tests/iii/diagnostic-nested-call/program.cps b/tests/iii/diagnostic-nested-call/program.cps
new file mode 100644
index 0000000..0987bed
--- /dev/null
+++ b/tests/iii/diagnostic-nested-call/program.cps
@@ -0,0 +1,3 @@
+OUTPUT LENGTH(
+ MID("text", 1)
+)