summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2008-09-26 20:16:38 (GMT)
committerdgp <dgp@users.sourceforge.net>2008-09-26 20:16:38 (GMT)
commit03fe58895ff5d2fff94410b80ecf3fd7907b7948 (patch)
tree756a76460a8221b5d7928f2edc5ff71491439c93 /tests
parent030aaf8733e03063daa3c730c5b258575b9386ba (diff)
downloadtcl-03fe58895ff5d2fff94410b80ecf3fd7907b7948.zip
tcl-03fe58895ff5d2fff94410b80ecf3fd7907b7948.tar.gz
tcl-03fe58895ff5d2fff94410b80ecf3fd7907b7948.tar.bz2
TIP #323 IMPLEMENTATION (partial)
* doc/object.n: Revise standard oo method [my variable] to * generic/tclOOBasic.c: accept zero variable names. * tests/oo.test:
Diffstat (limited to 'tests')
-rw-r--r--tests/oo.test12
1 files changed, 11 insertions, 1 deletions
diff --git a/tests/oo.test b/tests/oo.test
index f221e1f..7d328f6 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.
#
-# RCS: @(#) $Id: oo.test,v 1.13 2008/09/25 10:13:33 dkf Exp $
+# RCS: @(#) $Id: oo.test,v 1.14 2008/09/26 20:16:39 dgp Exp $
package require TclOO 0.4 ;# Must match value in configure.in
if {[lsearch [namespace children] ::tcltest] == -1} {
@@ -1542,6 +1542,16 @@ test oo-20.11 {OO: variable mustn't crash when recursing} -body {
} -cleanup {
catch {A destroy}
} -match glob -result *
+test oo-20.12 {OO: variable method accept zero args (TIP 323)} -setup {
+ oo::object create foo
+} -cleanup {
+ foo destroy
+} -body {
+ oo::objdefine foo method demo {} {
+ my variable
+ }
+ foo demo
+} -result {}
test oo-21.1 {OO: inheritance ordering} -setup {
oo::class create A