summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2013-02-08 14:07:10 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2013-02-08 14:07:10 (GMT)
commita3fc75697c61b4a4eb8910367bf6ebec7e87e779 (patch)
tree5f160f52b12ee8432300b5e74d3abb1f7dd738d7 /tests
parent98040fe8bcb5786e0e2743bc32dc10b576f86f93 (diff)
downloadtcl-a3fc75697c61b4a4eb8910367bf6ebec7e87e779.zip
tcl-a3fc75697c61b4a4eb8910367bf6ebec7e87e779.tar.gz
tcl-a3fc75697c61b4a4eb8910367bf6ebec7e87e779.tar.bz2
characterize bug
Diffstat (limited to 'tests')
-rw-r--r--tests/oo.test19
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 {