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 | a3fc75697c61b4a4eb8910367bf6ebec7e87e779 (patch) | |
| tree | 5f160f52b12ee8432300b5e74d3abb1f7dd738d7 /tests/oo.test | |
| parent | 98040fe8bcb5786e0e2743bc32dc10b576f86f93 (diff) | |
| download | tcl-a3fc75697c61b4a4eb8910367bf6ebec7e87e779.zip tcl-a3fc75697c61b4a4eb8910367bf6ebec7e87e779.tar.gz tcl-a3fc75697c61b4a4eb8910367bf6ebec7e87e779.tar.bz2 | |
characterize bug
Diffstat (limited to 'tests/oo.test')
| -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 { |