summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog7
-rw-r--r--tests/unixWm.test14
2 files changed, 14 insertions, 7 deletions
diff --git a/ChangeLog b/ChangeLog
index 71d2b2e..89a3f4d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,12 @@
2003-03-11 Mo DeJong <mdejong@users.sourceforge.net>
+ * tests/unixWm.test: Add the testwrapper
+ constraint to tests that depend on the
+ testwrapper command. These tests should
+ not be run under Windows for example.
+
+2003-03-11 Mo DeJong <mdejong@users.sourceforge.net>
+
* doc/wm.n (minimize, maximize): Remove claim
that the resizable command keeps scripts from
changing the size of windows since it is
diff --git a/tests/unixWm.test b/tests/unixWm.test
index 9c77197..fc8421d 100644
--- a/tests/unixWm.test
+++ b/tests/unixWm.test
@@ -7,7 +7,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: unixWm.test,v 1.30 2003/03/12 00:25:41 mdejong Exp $
+# RCS: @(#) $Id: unixWm.test,v 1.31 2003/03/12 03:25:52 mdejong Exp $
package require tcltest 2.2
namespace import -force tcltest::configure
@@ -995,7 +995,7 @@ wm geom .t +0+0
update
test unixWm-28.1 {Tk_WmCmd procedure, "maxsize" option, setting the
- maxsize should update WM_NORMAL_HINTS} {
+ maxsize should update WM_NORMAL_HINTS} {testwrapper} {
destroy .t
toplevel .t
wm maxsize .t 300 300
@@ -1006,7 +1006,7 @@ test unixWm-28.1 {Tk_WmCmd procedure, "maxsize" option, setting the
test unixWm-28.2 {Tk_WmCmd procedure, "maxsize" option, setting the
maxsize to a value smaller than the current size should
- set the maxsize in WM_NORMAL_HINTS} {
+ set the maxsize in WM_NORMAL_HINTS} {testwrapper} {
destroy .t
toplevel .t
wm geom .t 400x400
@@ -1019,7 +1019,7 @@ test unixWm-28.2 {Tk_WmCmd procedure, "maxsize" option, setting the
test unixWm-28.3 {Tk_WmCmd procedure, "maxsize" option, setting the
maxsize to a value smaller than the current size should
set the maxsize in WM_NORMAL_HINTS even if the
- interactive resizable flag is set to 0} {
+ interactive resizable flag is set to 0} {testwrapper} {
destroy .t
toplevel .t
wm geom .t 400x400
@@ -1031,7 +1031,7 @@ test unixWm-28.3 {Tk_WmCmd procedure, "maxsize" option, setting the
} {300 300}
test unixWm-29.1 {Tk_WmCmd procedure, "minsize" option, setting the
- minsize should update WM_NORMAL_HINTS} {
+ minsize should update WM_NORMAL_HINTS} {testwrapper} {
destroy .t
toplevel .t
wm minsize .t 300 300
@@ -1042,7 +1042,7 @@ test unixWm-29.1 {Tk_WmCmd procedure, "minsize" option, setting the
test unixWm-29.2 {Tk_WmCmd procedure, "minsize" option, setting the
minsize to a value larger than the current size should
- set the maxsize in WM_NORMAL_HINTS} {
+ set the maxsize in WM_NORMAL_HINTS} {testwrapper} {
destroy .t
toplevel .t
wm geom .t 200x200
@@ -1055,7 +1055,7 @@ test unixWm-29.2 {Tk_WmCmd procedure, "minsize" option, setting the
test unixWm-29.3 {Tk_WmCmd procedure, "minsize" option, setting the
minsize to a value larger than the current size should
set the minsize in WM_NORMAL_HINTS even if the
- interactive resizable flag is set to 0} {
+ interactive resizable flag is set to 0} {testwrapper} {
destroy .t
toplevel .t
wm geom .t 200x200