X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/bce58d373fad048a8e30bd1794953f7ebb081540..12386a2694932857981a076536c6297f8eaa661f:/test/test.sod

diff --git a/test/test.sod b/test/test.sod
index 6bc775b..776228b 100644
--- a/test/test.sod
+++ b/test/test.sod
@@ -233,8 +233,14 @@ class T3Base : SodObject {
   void m1(?) { }
 }
 
-[link = T3Base, nick = sub]
-class T3Sub : T3Base {
+[link = T3Base, nick = mid]
+class T3Mid : T3Base {
+  void base.m0(?int y) { STEP(y); CALL_NEXT_METHOD; }
+  void base.m1(?) { STEP(4); CALL_NEXT_METHOD; }
+}
+
+[link = T3Mid, nick = sub]
+class T3Sub : T3Mid {
   void base.m0(?int z) { STEP(z); CALL_NEXT_METHOD; }
   void base.m1(?int z) { STEP(z); CALL_NEXT_METHOD; }
 }
@@ -242,9 +248,9 @@ class T3Sub : T3Base {
 code c : tests {
   prepare("kwargs");
   { SOD_DECL(T3Sub, t, NO_KWARGS);
-    T3Base_m0(t, KWARGS(K(z, 0) K(x, 1)));
-    T3Base_m1(t, KWARGS(K(z, 2)));
-    DONE(3);
+    T3Base_m0(t, KWARGS(K(z, 0) K(y, 1) K(x, 2)));
+    T3Base_m1(t, KWARGS(K(z, 3)));
+    DONE(5);
   }
 }