From 3242575ad561607fc0588b299216e3182ef5bb39 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 13 Dec 2019 15:48:40 -0800 Subject: 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. --- tests/012/oop-mi.expected | 3 +++ tests/012/oop-mi.tl | 4 +++- 2 files changed, 6 insertions(+), 1 deletion(-) (limited to 'tests') 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)) -- cgit v1.2.3