fix [2021443] inconsistant "wrong # args" messages

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}