diff options
Diffstat (limited to 'tests/oo.test')
| -rw-r--r-- | tests/oo.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/oo.test b/tests/oo.test index 3f9fa94..f9b7be4 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.7 2008/06/19 21:29:04 dkf Exp $ +# RCS: @(#) $Id: oo.test,v 1.8 2008/07/19 22:50:39 nijtmans Exp $ package require TclOO 0.4 ;# Must match value in configure.in if {[lsearch [namespace children] ::tcltest] == -1} { @@ -1117,7 +1117,7 @@ test oo-15.3 {OO: class cloning} { test oo-16.1 {OO: object introspection} -body { info object -} -returnCodes 1 -result "wrong \# args: should be \"info object subcommand ?argument ...?\"" +} -returnCodes 1 -result "wrong \# args: should be \"info object subcommand ?arg ...?\"" test oo-16.2 {OO: object introspection} -body { info object class NOTANOBJECT } -returnCodes 1 -result {NOTANOBJECT does not refer to an object} @@ -1215,7 +1215,7 @@ test oo-16.11 {OO: object introspection} -setup { test oo-17.1 {OO: class introspection} -body { info class -} -returnCodes 1 -result "wrong \# args: should be \"info class subcommand ?argument ...?\"" +} -returnCodes 1 -result "wrong \# args: should be \"info class subcommand ?arg ...?\"" test oo-17.2 {OO: class introspection} -body { info class superclass NOTANOBJECT } -returnCodes 1 -result {NOTANOBJECT does not refer to an object} |