summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2012-04-04 10:51:02 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2012-04-04 10:51:02 (GMT)
commit75978a26daf2595c582c0177de45b97dd19b4af8 (patch)
tree74cd0f333a41576a54897b0cd4e65d72887b713d /tests
parent2b95a64188c3a52fd7cfdb0641558bed9e222818 (diff)
downloadtcl-75978a26daf2595c582c0177de45b97dd19b4af8.zip
tcl-75978a26daf2595c582c0177de45b97dd19b4af8.tar.gz
tcl-75978a26daf2595c582c0177de45b97dd19b4af8.tar.bz2
Added characterisation of Bug 3514761; currently knownBug...
Diffstat (limited to 'tests')
-rw-r--r--tests/oo.test16
1 files changed, 16 insertions, 0 deletions
diff --git a/tests/oo.test b/tests/oo.test
index 150bc97..ccea42a 100644
--- a/tests/oo.test
+++ b/tests/oo.test
@@ -337,6 +337,22 @@ test oo-2.6 {OO constructor and tailcall - Bug 2414858} -setup {
} -cleanup {
foo destroy
} -result good
+test oo-2.7 {construction, method calls and ensembles - Bug 3514761} -setup {
+ namespace eval k {}
+} -constraints knownBug -body {
+ namespace eval k {
+ oo::class create s {
+ constructor {j} {
+ # nothing
+ }
+ }
+ namespace export s
+ namespace ensemble create
+ }
+ k s create X
+} -returnCodes error -cleanup {
+ namespace delete k
+} -result {wrong # args: should be "k s create X j"}
test oo-3.1 {basic test of OO functionality: destructor} -setup {
# This is a bit complex because it needs to run in a sub-interp as we're