diff options
| author | hobbs <hobbs> | 2000-11-02 01:18:35 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2000-11-02 01:18:35 (GMT) |
| commit | cc8065eaa2473d12103a02aaecfb361b1aba2a91 (patch) | |
| tree | 51d6f3b33191e426558cbbec3c4569017ba2252c /tests/color.test | |
| parent | 830f722f704259df342e5f54edc4e99b79d0b047 (diff) | |
| download | tk-cc8065eaa2473d12103a02aaecfb361b1aba2a91.zip tk-cc8065eaa2473d12103a02aaecfb361b1aba2a91.tar.gz tk-cc8065eaa2473d12103a02aaecfb361b1aba2a91.tar.bz2 | |
* tests/color.test: marked color-2.6 nonPortable as we can't
reliably assume what 'red' maps to.
Diffstat (limited to 'tests/color.test')
| -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] |