summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2012-04-09 21:38:27 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2012-04-09 21:38:27 (GMT)
commitba795792d6185008b4de5f9c0463f26fa2ddab0a (patch)
treebbf70e95747797972530e153c0ffee4c8c954486 /tests
parent4d8a945fc474dc4d42a6c0903f3eb2e0b62bd9a4 (diff)
downloadtcl-ba795792d6185008b4de5f9c0463f26fa2ddab0a.zip
tcl-ba795792d6185008b4de5f9c0463f26fa2ddab0a.tar.gz
tcl-ba795792d6185008b4de5f9c0463f26fa2ddab0a.tar.bz2
Fix [Bug 3396896]
Diffstat (limited to 'tests')
-rw-r--r--tests/oo.test18
1 files changed, 16 insertions, 2 deletions
diff --git a/tests/oo.test b/tests/oo.test
index a0e7345..f3c0bda 100644
--- a/tests/oo.test
+++ b/tests/oo.test
@@ -2973,7 +2973,6 @@ test oo-27.19 {variables declaration and [info vars]: Bug 2712377} -setup {
lappend ::result | foo=$foo [info locals] [info locals *]
}
}
-
Foo create stuff
stuff setvars what ever
stuff dump1
@@ -3009,7 +3008,6 @@ test oo-27.20 {variables declaration and [info vars]: Bug 2712377} -setup {
lappend ::result | foo=$foo [info locals] [info locals *]
}
}
-
Foo create stuff
stuff setvars what ever
stuff dump1
@@ -3018,6 +3016,22 @@ test oo-27.20 {variables declaration and [info vars]: Bug 2712377} -setup {
} -cleanup {
Foo destroy
} -result {<1> foo=what v v <2> foo=what | foo=what v v}
+test oo-27.21 {variables declaration uniqueifies: Bug 3396896} -setup {
+ oo::class create Foo
+} -body {
+ oo::define Foo variable v v v t t v t
+ info class variable Foo
+} -cleanup {
+ Foo destroy
+} -result {v t}
+test oo-27.22 {variables declaration uniqueifies: Bug 3396896} -setup {
+ oo::object create foo
+} -body {
+ oo::objdefine foo variable v v v t t v t
+ info object variable foo
+} -cleanup {
+ foo destroy
+} -result {v t}
# A feature that's not supported because the mechanism may change without
# warning, but is supposed to work...