summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2011-09-16 13:13:11 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2011-09-16 13:13:11 (GMT)
commit8dad1b8281811bab0d71588b3c59a7fa1d163642 (patch)
treefa60ba1a0c33fd214cda7a1313d82633c445d112 /tests
parent616ed3e2c84e9d0ece967a597357eb509fffccbd (diff)
downloadtcl-8dad1b8281811bab0d71588b3c59a7fa1d163642.zip
tcl-8dad1b8281811bab0d71588b3c59a7fa1d163642.tar.gz
tcl-8dad1b8281811bab0d71588b3c59a7fa1d163642.tar.bz2
[Bug 3408830]: Use the _right_ fix for [Bug 3400658]!
Diffstat (limited to 'tests')
-rw-r--r--tests/oo.test10
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