diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2011-09-16 13:13:11 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2011-09-16 13:13:11 (GMT) |
| commit | d1afedc4afdead04b87a35755efd2f2116766a38 (patch) | |
| tree | fa60ba1a0c33fd214cda7a1313d82633c445d112 /tests | |
| parent | 24f95384925c3ebda269b153465d19c01703cd0a (diff) | |
| download | tcl-d1afedc4afdead04b87a35755efd2f2116766a38.zip tcl-d1afedc4afdead04b87a35755efd2f2116766a38.tar.gz tcl-d1afedc4afdead04b87a35755efd2f2116766a38.tar.bz2 | |
[Bug 3408830]: Use the _right_ fix for [Bug 3400658]!
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/oo.test | 10 |
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 |