diff options
| author | dgp <dgp@users.sourceforge.net> | 2006-03-14 05:01:48 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2006-03-14 05:01:48 (GMT) |
| commit | 8cf5f6ebb0f0258c78d7fc4fe43fefae92d58c83 (patch) | |
| tree | 3f002fde32d98cd5d25c4c1cd254b2ae5ac232ae /tests | |
| parent | 1fb6cda0f576123a95af432a49030f4f23f2e463 (diff) | |
| download | tk-8cf5f6ebb0f0258c78d7fc4fe43fefae92d58c83.zip tk-8cf5f6ebb0f0258c78d7fc4fe43fefae92d58c83.tar.gz tk-8cf5f6ebb0f0258c78d7fc4fe43fefae92d58c83.tar.bz2 | |
* tests/constraints.tcl: Added notAqua constraint to canvPs-3.1
* tests/canvPs.test: to stop test suite crash on Mac OSX.
[Bug 1088807]
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/canvPs.test | 4 | ||||
| -rw-r--r-- | tests/constraints.tcl | 1 |
2 files changed, 4 insertions, 1 deletions
diff --git a/tests/canvPs.test b/tests/canvPs.test index 74287d0..68c3b68 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.11 2005/10/12 09:29:21 dkf Exp $ +# RCS: @(#) $Id: canvPs.test,v 1.12 2006/03/14 05:01:48 dgp Exp $ package require tcltest 2.1 eval tcltest::configure $argv @@ -132,6 +132,8 @@ test canvPs-2.4 {test writing to channel and file, same output} -constraints { test canvPs-3.1 {test ps generation with an embedded window} -setup { set bar [makeFile {} bar.ps] file delete $bar +} -constraints { + notAqua } -body { destroy .c pack [canvas .c -width 200 -height 200 -background white] diff --git a/tests/constraints.tcl b/tests/constraints.tcl index db1aa88..19013ec 100644 --- a/tests/constraints.tcl +++ b/tests/constraints.tcl @@ -145,6 +145,7 @@ namespace import -force tk::test::* namespace import -force tcltest::testConstraint +testConstraint userInteraction [expr {[tk windowingsystem] ne "aqua"}] testConstraint userInteraction 0 testConstraint nonUnixUserInteraction [expr { [testConstraint userInteraction] || [testConstraint unix] |