diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-03-06 13:41:23 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-03-06 13:41:23 (GMT) |
| commit | 292be1554df2e6a02eab708e38cbbd0ab5977466 (patch) | |
| tree | 7a20dbd5e4014a5d022ed40337476dc657d45cdb /tests/oo.test | |
| parent | a30135ba031c53d2726673256a21b95ddf1b3551 (diff) | |
| parent | c5e46efb954d7d3ec9a1594489918053bde2e758 (diff) | |
| download | tcl-novem_remove_va.zip tcl-novem_remove_va.tar.gz tcl-novem_remove_va.tar.bz2 | |
merge novemnovem_remove_va
Diffstat (limited to 'tests/oo.test')
| -rw-r--r-- | tests/oo.test | 21 |
1 files changed, 20 insertions, 1 deletions
diff --git a/tests/oo.test b/tests/oo.test index 540cdf3..49fe150 100644 --- a/tests/oo.test +++ b/tests/oo.test @@ -7,7 +7,7 @@ # See the file "license.terms" for information on usage and redistribution of # this file, and for a DISCLAIMER OF ALL WARRANTIES. -package require -exact TclOO 0.7 ;# Must match value in generic/tclOO.h +package require TclOO 1.0 package require tcltest 2 if {"::tcltest" in [namespace children]} { namespace import -force ::tcltest::* @@ -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 { |