diff options
| author | dgp <dgp@noemail.net> | 2008-12-19 15:33:39 (GMT) |
|---|---|---|
| committer | dgp <dgp@noemail.net> | 2008-12-19 15:33:39 (GMT) |
| commit | e69d5ff1aa81a970f8ccac43b0164f6cfe67709c (patch) | |
| tree | d015404895e1a27b85dc0b7a8cdae555589e2924 /tests/embed.test | |
| parent | 70f622f083fbf37d94f21821b8b0feed3feea2fb (diff) | |
| download | tk-e69d5ff1aa81a970f8ccac43b0164f6cfe67709c.zip tk-e69d5ff1aa81a970f8ccac43b0164f6cfe67709c.tar.gz tk-e69d5ff1aa81a970f8ccac43b0164f6cfe67709c.tar.bz2 | |
* tests/clrpick.test: Eliminate duplicate test names.
* tests/embed.test:
* tests/text.test:
* tests/textMark.test:
FossilOrigin-Name: b44d75568605eb65180abefc0f1d7997bdedc9d1
Diffstat (limited to 'tests/embed.test')
| -rw-r--r-- | tests/embed.test | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/embed.test b/tests/embed.test index db486f0..79f47b2 100644 --- a/tests/embed.test +++ b/tests/embed.test @@ -4,7 +4,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: embed.test,v 1.5 2008/08/12 22:52:23 aniap Exp $ +# RCS: @(#) $Id: embed.test,v 1.6 2008/12/19 15:33:40 dgp Exp $ package require tcltest 2.2 namespace import ::tcltest::* @@ -38,7 +38,7 @@ test embed-1.3 {CreateFrame procedure, both -use and -container is invalid} -set } -returnCodes error -result {A window cannot have both the -use and the -container option set.} # testing window embedding for win platforms -test embed-1.4 {TkpUseWindow procedure, -container must be set} -constraints { +test embed-1.4.win {TkpUseWindow procedure, -container must be set} -constraints { win } -setup { deleteWindows @@ -49,7 +49,7 @@ test embed-1.4 {TkpUseWindow procedure, -container must be set} -constraints { deleteWindows } -returnCodes error -result {the window to use is not a Tk container} # testing window embedding for win platforms -test embed-1.5 {TkpUseWindow procedure, -container must be set} -constraints { +test embed-1.5.win {TkpUseWindow procedure, -container must be set} -constraints { win } -setup { deleteWindows @@ -61,7 +61,7 @@ test embed-1.5 {TkpUseWindow procedure, -container must be set} -constraints { } -returnCodes error -result {the window to use is not a Tk container} # testing window embedding for other than win platforms -test embed-1.5 {TkpUseWindow procedure, -container must be set} -constraints { +test embed-1.4.nonwin {TkpUseWindow procedure, -container must be set} -constraints { nonwin } -setup { deleteWindows @@ -72,7 +72,7 @@ test embed-1.5 {TkpUseWindow procedure, -container must be set} -constraints { deleteWindows } -returnCodes error -result {window ".container" doesn't have -container option set} # testing window embedding for other than win platforms -test embed-1.6 {TkpUseWindow procedure, -container must be set} -constraints { +test embed-1.5.nonwin {TkpUseWindow procedure, -container must be set} -constraints { nonwin } -setup { deleteWindows |