summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/clrpick.test6
-rw-r--r--tests/embed.test10
-rw-r--r--tests/text.test4
-rw-r--r--tests/textMark.test4
4 files changed, 12 insertions, 12 deletions
diff --git a/tests/clrpick.test b/tests/clrpick.test
index 0502a69..7a94b97 100644
--- a/tests/clrpick.test
+++ b/tests/clrpick.test
@@ -5,7 +5,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: clrpick.test,v 1.14 2008/08/15 01:10:03 aniap Exp $
+# RCS: @(#) $Id: clrpick.test,v 1.15 2008/12/19 15:33:40 dgp Exp $
#
package require tcltest 2.2
@@ -54,10 +54,10 @@ test clrpick-1.1 {tk_chooseColor command} -body {
test clrpick-1.2 {tk_chooseColor command } -body {
tk_chooseColor -initialcolor
} -returnCodes error -result {value for "-initialcolor" missing}
-test clrpick-1.2 {tk_chooseColor command } -body {
+test clrpick-1.2.1 {tk_chooseColor command } -body {
tk_chooseColor -parent
} -returnCodes error -result {value for "-parent" missing}
-test clrpick-1.2 {tk_chooseColor command } -body {
+test clrpick-1.2.2 {tk_chooseColor command } -body {
tk_chooseColor -title
} -returnCodes error -result {value for "-title" missing}
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
diff --git a/tests/text.test b/tests/text.test
index 896a997..8fd077d 100644
--- a/tests/text.test
+++ b/tests/text.test
@@ -6,7 +6,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: text.test,v 1.53 2008/12/06 10:48:29 dkf Exp $
+# RCS: @(#) $Id: text.test,v 1.54 2008/12/19 15:33:40 dgp Exp $
package require tcltest 2.2
eval tcltest::configure $argv
@@ -811,7 +811,7 @@ test text-1.83 {text options} -setup {
} -cleanup {
destroy .t
} -result {-yscrollcommand yScrollCommand ScrollCommand {} {test command}}
-test text-1.83 {configuration option: "insertunfocussed"} -setup {
+test text-1.83.1 {configuration option: "insertunfocussed"} -setup {
text .t -borderwidth 2 -highlightthickness 2 -font {Courier -12 bold}
pack .t
update
diff --git a/tests/textMark.test b/tests/textMark.test
index 9c61c40..62cab1b 100644
--- a/tests/textMark.test
+++ b/tests/textMark.test
@@ -6,7 +6,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: textMark.test,v 1.12 2008/12/06 09:51:55 dkf Exp $
+# RCS: @(#) $Id: textMark.test,v 1.13 2008/12/19 15:33:40 dgp Exp $
package require tcltest 2.2
namespace import ::tcltest::*
@@ -114,7 +114,7 @@ test textMark-4.2 {TkTextMarkCmd - "unset" option} -body {
.t mark unset a b
.t index a
} -returnCodes error -result {bad text index "a"}
-test textMark-4.2 {TkTextMarkCmd - "unset" option} -body {
+test textMark-4.2.1 {TkTextMarkCmd - "unset" option} -body {
.t mark set a 1.2
.t mark set b 2.3
.t mark unset a b