summaryrefslogtreecommitdiffstats
path: root/tests/oo.test
diff options
context:
space:
mode:
authorgahr <gahr@gahr.ch>2016-04-04 11:25:12 (GMT)
committergahr <gahr@gahr.ch>2016-04-04 11:25:12 (GMT)
commit540521771129cfb3a851405ae4306448fea3e769 (patch)
tree75feaeff0a9a36b53252789c8aebb45dbc0b2e49 /tests/oo.test
parent4b301d844892c52ec5fecce47f03c91a551639ca (diff)
parentb4d78562f6e023b1bf1accc8649c1a93b14be8d6 (diff)
downloadtcl-tip_444.zip
tcl-tip_444.tar.gz
tcl-tip_444.tar.bz2
merge trunktip_444
Diffstat (limited to 'tests/oo.test')
-rw-r--r--tests/oo.test8
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/oo.test b/tests/oo.test
index 895f7ed..9491f78 100644
--- a/tests/oo.test
+++ b/tests/oo.test
@@ -280,7 +280,7 @@ test oo-1.18.2 {Bug 21c144f0f5} -setup {
}
} -cleanup {
interp delete slave
-}
+}
test oo-1.19 {basic test of OO functionality: teardown order} -body {
oo::object create o
namespace delete [info object namespace o]
@@ -1989,7 +1989,7 @@ test oo-15.10 {variable binding must not bleed through oo::copy} -setup {
} -body {
set obj1 [FooClass new]
oo::objdefine $obj1 {
- variable var
+ variable var
method m {} {
set var foo
}
@@ -2619,7 +2619,7 @@ test oo-20.10 {OO: variable and varname methods refer to same things} -setup {
test oo-20.11 {OO: variable mustn't crash when recursing} -body {
oo::class create A {
constructor {name} {
- my variable np_name
+ my variable np_name
set np_name $name
}
method copy {nm} {
@@ -2634,7 +2634,7 @@ test oo-20.11 {OO: variable mustn't crash when recursing} -body {
lappend objs [$ref copy {}]
}
$cpy prop $var $objs
- } else {
+ } else {
$cpy prop $var $val
}
}