summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorhobbs <hobbs>2000-11-02 01:18:35 (GMT)
committerhobbs <hobbs>2000-11-02 01:18:35 (GMT)
commitcc8065eaa2473d12103a02aaecfb361b1aba2a91 (patch)
tree51d6f3b33191e426558cbbec3c4569017ba2252c
parent830f722f704259df342e5f54edc4e99b79d0b047 (diff)
downloadtk-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.
-rw-r--r--tests/color.test8
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]