diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2019-12-13 15:48:40 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2019-12-13 15:48:40 -0800 |
| commit | 3242575ad561607fc0588b299216e3182ef5bb39 (patch) | |
| tree | 71051f77e830a8eca00e16bbc3a6738eab1bbc1e /tests | |
| parent | b1fe95fef05b7e8d26ff82645d373c2ef0b5c449 (diff) | |
| download | txr-3242575ad561607fc0588b299216e3182ef5bb39.tar.gz txr-3242575ad561607fc0588b299216e3182ef5bb39.tar.bz2 txr-3242575ad561607fc0588b299216e3182ef5bb39.zip | |
multiple-inheritance: test static-slot-home.
* tests/012/oop-mi.tl: Add some coverage for static-slot-home
function.
* tests/012/oop-mi.expected: Updated.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/012/oop-mi.expected | 3 | ||||
| -rw-r--r-- | tests/012/oop-mi.tl | 4 |
2 files changed, 6 insertions, 1 deletions
diff --git a/tests/012/oop-mi.expected b/tests/012/oop-mi.expected index 301c7460..6d112c2e 100644 --- a/tests/012/oop-mi.expected +++ b/tests/012/oop-mi.expected @@ -12,3 +12,6 @@ gm m1 m2 gm +base1 +base2 +grand diff --git a/tests/012/oop-mi.tl b/tests/012/oop-mi.tl index 7561d096..4431f23d 100644 --- a/tests/012/oop-mi.tl +++ b/tests/012/oop-mi.tl @@ -60,4 +60,6 @@ (prinl (call-super-fun 'der3 'm nil)) (prinl (call-super-fun 'der3 'gm nil)) - +(prinl (static-slot-home 'der2 'm)) +(prinl (static-slot-home 'der3 'm)) +(prinl (static-slot-home 'der3 'gm)) |