From 89bc1ded128ae683ba81242cbdfc50548c9ef623 Mon Sep 17 00:00:00 2001
From: Laurence Tratt <laurie@tratt.net>
Date: Tue, 16 Jun 2020 10:47:08 +0100
Subject: [PATCH] Add a superclass test.

---
 lang_tests/inst_var_at_put_superclass/test.som     | 14 ++++++++++++++
 .../inst_var_at_put_superclass/test_super.som      |  5 +++++
 2 files changed, 19 insertions(+)
 create mode 100644 lang_tests/inst_var_at_put_superclass/test.som
 create mode 100644 lang_tests/inst_var_at_put_superclass/test_super.som

diff --git a/lang_tests/inst_var_at_put_superclass/test.som b/lang_tests/inst_var_at_put_superclass/test.som
new file mode 100644
index 00000000..940e5704
--- /dev/null
+++ b/lang_tests/inst_var_at_put_superclass/test.som
@@ -0,0 +1,14 @@
+"
+VM:
+  status: success
+  stdout: 2
+"
+
+test = test_super (
+    | x |
+
+    run = (
+        self instVarAt: 1 put: 2.
+        self f.
+    )
+)
diff --git a/lang_tests/inst_var_at_put_superclass/test_super.som b/lang_tests/inst_var_at_put_superclass/test_super.som
new file mode 100644
index 00000000..46178a5a
--- /dev/null
+++ b/lang_tests/inst_var_at_put_superclass/test_super.som
@@ -0,0 +1,5 @@
+test_super = (
+    f = (
+        (self instVarAt: 1) println.
+    )
+)