From 71959308ac3589a49cde993adf47ef762cf8d8b9 Mon Sep 17 00:00:00 2001 From: dkf Date: Wed, 7 Jan 2009 11:58:07 +0000 Subject: Narrow the focus of a failing test so that it succeeds (by only testing that which is supposed to be tested...) --- ChangeLog | 7 +++++++ tests/oo.test | 4 ++-- 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 + + * 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 * 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 { -- cgit v0.12