summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2009-01-07 11:58:07 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2009-01-07 11:58:07 (GMT)
commit71959308ac3589a49cde993adf47ef762cf8d8b9 (patch)
tree734c2887ae3e5e3e8c9e554587d90325ff7c00dc
parent0d8f0efadcd9ffe199a532212c3e34cc1081c50f (diff)
downloadtcl-71959308ac3589a49cde993adf47ef762cf8d8b9.zip
tcl-71959308ac3589a49cde993adf47ef762cf8d8b9.tar.gz
tcl-71959308ac3589a49cde993adf47ef762cf8d8b9.tar.bz2
Narrow the focus of a failing test so that it succeeds (by only testing that
which is supposed to be tested...)
-rw-r--r--ChangeLog7
-rw-r--r--tests/oo.test4
2 files changed, 9 insertions, 2 deletions
diff --git a/ChangeLog b/ChangeLog
index 3fee4f9..0010208 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2009-01-07 Donal K. Fellows <dkf@users.sf.net>
+
+ * tests/oo.test (oo-22.1): Adjusted test to be less dependent on the
+ specifics of how [info frame] reports general frame information, and
+ instead to focus on what methods add to it; that's really what the
+ test is about anyway.
+
2009-01-06 Don Porter <dgp@users.sourceforge.net>
* tests/stringObj.test: Revise tests that demand a NULL Tcl_ObjType
diff --git a/tests/oo.test b/tests/oo.test
index 0505ddd..b7029ea 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.19 2009/01/06 14:30:19 dkf Exp $
+# RCS: @(#) $Id: oo.test,v 1.20 2009/01/07 11:58:08 dkf Exp $
package require TclOO 0.6.1 ;# Must match value in generic/tclOO.h
if {[lsearch [namespace children] ::tcltest] == -1} {
@@ -1810,7 +1810,7 @@ test oo-22.1 {OO and info frame} -setup {
list [i level] [i frames] [dict get [c frame] object]
} -cleanup {
c destroy
-} -result {1 {{type source line * file * cmd {info frame 0} method frames class ::c level 0} {type source line * file * cmd {info frame 0} method frames object ::i level 0}} ::c}
+} -result {1 {{* cmd {info frame 0} method frames class ::c level 0} {* cmd {info frame 0} method frames object ::i level 0}} ::c}
# Prove that the issue in [Bug 1865054] isn't an issue any more
test oo-23.1 {Self-like derivation; complex case!} -setup {