From cc8065eaa2473d12103a02aaecfb361b1aba2a91 Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Thu, 2 Nov 2000 01:18:35 +0000
Subject: 	* tests/color.test: marked color-2.6 nonPortable as we can't 
 reliably assume what 'red' maps to.

---
 tests/color.test | 8 ++++++--
 1 file 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]
-- 
cgit v0.12