From cef6ca071550bc96fcce2dbaa03e9b78e1d1ac24 Mon Sep 17 00:00:00 2001 From: dgp Date: Mon, 22 Dec 2008 13:59:09 +0000 Subject: * tests/embed.test: Eliminate duplicate test names. --- ChangeLog | 2 ++ tests/embed.test | 10 +++++----- 2 files changed, 7 insertions(+), 5 deletions(-) diff --git a/ChangeLog b/ChangeLog index 07245bf..9c24d39 100644 --- a/ChangeLog +++ b/ChangeLog @@ -2,6 +2,8 @@ *** 8.5.6 TAGGED FOR RELEASE *** + * tests/embed.test: Eliminate duplicate test names. + * changes: Updates for 8.5.6 release. 2008-12-22 Donal K. Fellows 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 -- cgit v0.12