From 69030a86c83b4982c53feaaa0e46e5d235abb665 Mon Sep 17 00:00:00 2001
From: dkf <donal.k.fellows@manchester.ac.uk>
Date: Wed, 18 Oct 2017 18:23:38 +0000
Subject: [1a56550e96] Mixins aren't being searched correctly by [info class
 methods -all]

---
 tests/oo.test | 24 +++++++++++++++++++++++-
 1 file changed, 23 insertions(+), 1 deletion(-)

diff --git a/tests/oo.test b/tests/oo.test
index 5eaa8bf..3a6d2d1 100644
--- a/tests/oo.test
+++ b/tests/oo.test
@@ -3799,7 +3799,29 @@ test oo-35.4 {Bug 593baa032c: mixins list teardown} {
     oo::class create D {mixin B}
     namespace eval [info object namespace D] [list [namespace which B] destroy]
 } {}
-
+test oo-35.5 {Bug } -setup {
+    oo::class create base {
+	unexport destroy
+    }
+} -body {
+    oo::class create C {
+	superclass base
+	method c {} {}
+    }
+    oo::class create D {
+	superclass base
+	mixin C
+	method d {} {}
+    }
+    oo::class create E {
+	superclass D
+	method e {} {}
+    }
+    E create e1
+    list [lsort [info class methods E -all]] [lsort [info object methods e1 -all]]
+} -cleanup {
+    base destroy
+} -result {{c d e} {c d e}}
 
 cleanupTests
 return
-- 
cgit v0.12