summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2016-07-05 17:03:59 (GMT)
committerdgp <dgp@users.sourceforge.net>2016-07-05 17:03:59 (GMT)
commitdb45aa4434d4a7af38b8c14072648bf9965d462b (patch)
treed03b78f7e25c9b04c8646c78d29542b544dfd309 /tests
parenteb05205f603455afbe3445cef6a03226078d09b0 (diff)
downloadtcl-db45aa4434d4a7af38b8c14072648bf9965d462b.zip
tcl-db45aa4434d4a7af38b8c14072648bf9965d462b.tar.gz
tcl-db45aa4434d4a7af38b8c14072648bf9965d462b.tar.bz2
New tests to demo the remaining flaw in ensemble dispatch revisions.
Itcl 4 also demonstrated these problems.
Diffstat (limited to 'tests')
-rw-r--r--tests/oo.test12
1 files changed, 12 insertions, 0 deletions
diff --git a/tests/oo.test b/tests/oo.test
index 895f7ed..48e093a 100644
--- a/tests/oo.test
+++ b/tests/oo.test
@@ -2017,6 +2017,12 @@ test oo-15.10 {variable binding must not bleed through oo::copy} -setup {
test oo-16.1 {OO: object introspection} -body {
info object
} -returnCodes 1 -result "wrong \# args: should be \"info object subcommand ?arg ...?\""
+test oo-16.1.1 {OO: object introspection} -body {
+ catch {info object} m o
+ dict get $o -errorinfo
+} -result "wrong \# args: should be \"info object subcommand ?arg ...?\"
+ while executing
+\"info object\""
test oo-16.2 {OO: object introspection} -body {
info object class NOTANOBJECT
} -returnCodes 1 -result {NOTANOBJECT does not refer to an object}
@@ -2156,6 +2162,12 @@ test oo-16.14 {OO: object introspection: TIP #436} -setup {
test oo-17.1 {OO: class introspection} -body {
info class
} -returnCodes 1 -result "wrong \# args: should be \"info class subcommand ?arg ...?\""
+test oo-17.1.1 {OO: class introspection} -body {
+ catch {info class} m o
+ dict get $o -errorinfo
+} -result "wrong \# args: should be \"info class subcommand ?arg ...?\"
+ while executing
+\"info class\""
test oo-17.2 {OO: class introspection} -body {
info class superclass NOTANOBJECT
} -returnCodes 1 -result {NOTANOBJECT does not refer to an object}