summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/canvPs.test4
-rw-r--r--tests/constraints.tcl1
2 files changed, 3 insertions, 2 deletions
diff --git a/tests/canvPs.test b/tests/canvPs.test
index cc0f39b..8f8fffe 100644
--- a/tests/canvPs.test
+++ b/tests/canvPs.test
@@ -6,7 +6,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: canvPs.test,v 1.5.2.1 2003/05/11 00:57:10 hobbs Exp $
+# RCS: @(#) $Id: canvPs.test,v 1.5.2.2 2006/03/14 04:59:44 dgp Exp $
package require tcltest 2.1
namespace import -force tcltest::configure
@@ -94,7 +94,7 @@ test canvPs-2.4 {test writing to channel and file, same output} {pcOnly} {
set status
} ok
-test canvPs-3.1 {test ps generation with an embedded window} {} {
+test canvPs-3.1 {test ps generation with an embedded window} {notAqua} {
removeFile bar.ps
destroy .c
pack [canvas .c -width 200 -height 200 -background white]
diff --git a/tests/constraints.tcl b/tests/constraints.tcl
index 3006cca..7898250 100644
--- a/tests/constraints.tcl
+++ b/tests/constraints.tcl
@@ -127,6 +127,7 @@ namespace eval tk {
namespace import -force tk::test::*
namespace import -force tcltest::testConstraint
+testConstraint notAqua [expr {[tk windowingsystem] ne "aqua"}]
testConstraint userInteraction 0
testConstraint nonUnixUserInteraction [expr {[testConstraint userInteraction]
|| [testConstraint unix]}]