diff options
| author | dgp <dgp@users.sourceforge.net> | 2008-12-22 13:59:09 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2008-12-22 13:59:09 (GMT) |
| commit | 85315f43661f9fa741a064b1aa9ac828d4268fc8 (patch) | |
| tree | c199cd456c31c69d489a0be3c0850eba5fd5ef14 /tests | |
| parent | 58b56bfc01d214036ca9ffd3f64d6890b316bc2f (diff) | |
| download | tk-85315f43661f9fa741a064b1aa9ac828d4268fc8.zip tk-85315f43661f9fa741a064b1aa9ac828d4268fc8.tar.gz tk-85315f43661f9fa741a064b1aa9ac828d4268fc8.tar.bz2 | |
* tests/embed.test: Eliminate duplicate test names.
Diffstat (limited to 'tests')
| -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 6cf4854..2ca0836 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.4 2005/02/15 03:22:10 chengyemao Exp $ +# RCS: @(#) $Id: embed.test,v 1.4.4.1 2008/12/22 13:59:09 dgp Exp $ package require tcltest 2.1 eval tcltest::configure $argv @@ -34,13 +34,13 @@ if {$tcl_platform(platform) == "windows"} { # testing window embedding for Windows platform -test embed-1.4 {TkpUseWindow procedure, -container must be set} { +test embed-1.4.win {TkpUseWindow procedure, -container must be set} { deleteWindows toplevel .container list [catch {toplevel .embd -use [winfo id .container]} err] $err } {1 {the window to use is not a Tk container}} -test embed-1.5 {TkpUseWindow procedure, -container must be set} { +test embed-1.5.win {TkpUseWindow procedure, -container must be set} { deleteWindows frame .container list [catch {toplevel .embd -use [winfo id .container]} err] $err @@ -50,13 +50,13 @@ test embed-1.5 {TkpUseWindow procedure, -container must be set} { # testing window embedding for other platforms -test embed-1.4 {TkpUseWindow procedure, -container must be set} { +test embed-1.4.nonwin {TkpUseWindow procedure, -container must be set} { deleteWindows toplevel .container list [catch {toplevel .embd -use [winfo id .container]} err] $err } {1 {window ".container" doesn't have -container option set}} -test embed-1.5 {TkpUseWindow procedure, -container must be set} { +test embed-1.5.nonwin {TkpUseWindow procedure, -container must be set} { deleteWindows frame .container list [catch {toplevel .embd -use [winfo id .container]} err] $err |