diff options
| -rw-r--r-- | tests/color.test | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/tests/color.test b/tests/color.test index 9dbc85a..b7fed15 100644 --- a/tests/color.test +++ b/tests/color.test @@ -5,7 +5,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: color.test,v 1.4 2000/03/02 23:52:55 hobbs Exp $ +# RCS: @(#) $Id: color.test,v 1.5 2000/11/02 01:18:35 hobbs Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -192,9 +192,13 @@ test color-2.4 {Tk_GetColor procedure} { test color-2.5 {Tk_GetColor procedure} { winfo rgb .t #00FF00 } {0 65535 0} -test color-2.6 {Tk_GetColor procedure} { +test color-2.6 {Tk_GetColor procedure} {nonPortable} { + # Red doesn't always map to *pure* red winfo rgb .t red } {65535 0 0} +test color-2.7 {Tk_GetColor procedure} { + winfo rgb .t #ff0000 +} {65535 0 0} test color-3.1 {Tk_FreeColor procedure, reference counting} { eval destroy [winfo child .t] |