chiark
/
gitweb
/
~mdw
/
sod
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
src/method-proto.lisp (invoke-delegation-chain): Pass keyword args correctly.
[sod]
/
test
/
test.sod
diff --git
a/test/test.sod
b/test/test.sod
index 6bc775b1f3d9f0ea26fd6c0fa1bfa6e9b21deec4..776228b11d4770cecc872e02f6980e5e006ab493 100644
(file)
--- a/
test/test.sod
+++ b/
test/test.sod
@@
-233,8
+233,14
@@
class T3Base : SodObject {
void m1(?) { }
}
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; }
}
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);
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
);
}
}
}
}