Changed test back to what it used to be in 7.* now that [set] counts as a

real command once again. :^)

2 files changed, 6 insertions, 6 deletions

diff --git a/ChangeLog b/ChangeLog
index e087710..90ee27f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2004-05-17  Donal K. Fellows  <donal.k.fellows@man.ac.uk>
 
+	* tests/info.test (info-3.1): Corrected test result back to what
+	it used to be in Tcl 7.* now that command counts are being
+	correctly kept.
+
 	* generic/tclExecute.c (TEBC:INST_START_CMD): Make sure that the
 	command-count is always advanced.  Allows TIP#143 limits to tell
 	that work is being done.
diff --git a/tests/info.test b/tests/info.test
index 30ce636..ec77d0b 100644
--- a/tests/info.test
+++ b/tests/info.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: info.test,v 1.25 2003/03/27 13:19:15 dkf Exp $
+# RCS: @(#) $Id: info.test,v 1.26 2004/05/17 21:42:34 dkf Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -103,10 +103,6 @@ test info-2.6 {info body option, returning list bodies} {
 	    [foo; string bytelength [info body foo]]
 } {9 9}
 
-# "info cmdcount" is no longer accurate for compiled commands!
-# The expected result for info-3.1 used to be "3" and is now "1"
-# since the "set"s have been compiled away.  info-3.2 was corrected
-# in 8.3 because the eval'ed body won't be compiled.
 proc testinfocmdcount {} {
     set x [info cmdcount]
     set y 12345
@@ -115,7 +111,7 @@ proc testinfocmdcount {} {
 }
 test info-3.1 {info cmdcount compiled} {
     testinfocmdcount
-} 1
+} 3
 test info-3.2 {info cmdcount evaled} {
     set x [info cmdcount]
     set y 12345