diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2013-02-08 14:07:10 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2013-02-08 14:07:10 (GMT) |
| commit | 995e26088f3238dfbe17cbd9a06591d0408335c8 (patch) | |
| tree | 5f160f52b12ee8432300b5e74d3abb1f7dd738d7 /tests | |
| parent | 2015734692c79b1c2538622fcba9ceb0f24d44db (diff) | |
| download | tcl-995e26088f3238dfbe17cbd9a06591d0408335c8.zip tcl-995e26088f3238dfbe17cbd9a06591d0408335c8.tar.gz tcl-995e26088f3238dfbe17cbd9a06591d0408335c8.tar.bz2 | |
characterize bug
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/oo.test | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/tests/oo.test b/tests/oo.test index 5d34077..49fe150 100644 --- a/tests/oo.test +++ b/tests/oo.test @@ -2204,6 +2204,25 @@ test oo-19.2 {OO: varname method: Bug 2883857} -setup { } -cleanup { SpecialClass destroy } -result ::oo_test::x(y) +test oo-19.3 {OO: varname method and variable decl: Bug 3603695} -setup { + oo::class create testClass { + variable foo + export varname + constructor {} { + variable foo x + } + method bar {obj} { + my varname foo + $obj varname foo + } + } +} -body { + testClass create A + testClass create B + lsearch [list [A varname foo] [B varname foo]] [B bar A] +} -cleanup { + testClass destroy +} -result 0 test oo-20.1 {OO: variable method} -body { oo::class create testClass { |