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 | ef5820ba49dab8a84a78f3418859dd30ce92def1 (patch) | |
| tree | 71051f77e830a8eca00e16bbc3a6738eab1bbc1e | |
| parent | 46782431eeab9780a9f7a3968168c733e9f9fc03 (diff) | |
| download | txr-ef5820ba49dab8a84a78f3418859dd30ce92def1.tar.gz txr-ef5820ba49dab8a84a78f3418859dd30ce92def1.tar.bz2 txr-ef5820ba49dab8a84a78f3418859dd30ce92def1.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.
| -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)) |