1 files changed, 10 insertions, 0 deletions
diff --git a/tests/oo.test b/tests/oo.test
index 5ec5d2f..171ccc7 100644
--- a/tests/oo.test
+++ b/tests/oo.test
@@ -880,6 +880,16 @@ test oo-6.17 {Bug 3400658: forwarding and wrongargs rewriting - via ensemble} -s
 } -returnCodes error -cleanup {
     fooClass destroy
 } -result {wrong # args: should be "foo test c d"}
+test oo-6.18 {Bug 3408830: more forwarding cases} -setup {
+    oo::class create fooClass
+} -body {
+    oo::define fooClass {
+	forward len  string length
+    }
+    [fooClass create foo] len a b
+} -returnCodes error -cleanup {
+    fooClass destroy
+} -result {wrong # args: should be "::foo len string"}
 
 test oo-7.1 {OO: inheritance 101} -setup {
     oo::class create superClass