summaryrefslogtreecommitdiffstats
path: root/tests/unsupported.test
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2008-08-22 18:27:27 (GMT)
committerdgp <dgp@users.sourceforge.net>2008-08-22 18:27:27 (GMT)
commitfc2d441c7dae498f52b432c51af8a3daf7aaa0b6 (patch)
tree59248a29d441bc3aba3268b4a00c232b71737852 /tests/unsupported.test
parent6b0fac94b5b540742b1e77429ec272b94107fe4c (diff)
downloadtcl-fc2d441c7dae498f52b432c51af8a3daf7aaa0b6.zip
tcl-fc2d441c7dae498f52b432c51af8a3daf7aaa0b6.tar.gz
tcl-fc2d441c7dae498f52b432c51af8a3daf7aaa0b6.tar.bz2
speling ficks
Diffstat (limited to 'tests/unsupported.test')
-rw-r--r--tests/unsupported.test10
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/unsupported.test b/tests/unsupported.test
index 87db81d..94242fa 100644
--- a/tests/unsupported.test
+++ b/tests/unsupported.test
@@ -9,7 +9,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: unsupported.test,v 1.5 2008/08/21 23:57:43 msofer Exp $
+# RCS: @(#) $Id: unsupported.test,v 1.6 2008/08/22 18:27:27 dgp Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -186,7 +186,7 @@ test unsupported-A.7 {atProcExit non-proc} -constraints {atProcExit} -body {
unset -nocomplain x
} -match glob -result *atProcExit* -returnCodes error
-test unsupported-A.8 {atProcExit and eval} -constraints {knownbug atProcExit} -setup {
+test unsupported-A.8 {atProcExit and eval} -constraints {knownBug atProcExit} -setup {
proc a {} {
eval atProcExit lappend ::x 2
set ::x 1
@@ -197,7 +197,7 @@ test unsupported-A.8 {atProcExit and eval} -constraints {knownbug atProcExit} -s
unset -nocomplain ::x
} -result {1 2}
-test unsupported-A9 {atProcExit and uplevel} -constraints {knownbug atProcExit} -setup {
+test unsupported-A9 {atProcExit and uplevel} -constraints {knownBug atProcExit} -setup {
proc a {} {
uplevel 1 [list atProcExit set ::x 2]
set ::x 1
@@ -373,7 +373,7 @@ test unsupported-T.9 {tailcall factorial} -constraints {tailcall} -setup {
rename fact {}
} -result {1 120 3628800 1307674368000}
-test unsupported-T.10 {tailcall and eval} -constraints {knownbug atProcExit} -setup {
+test unsupported-T.10 {tailcall and eval} -constraints {knownBug atProcExit} -setup {
proc a {} {
eval [list tailcall lappend ::x 2]
set ::x 1
@@ -384,7 +384,7 @@ test unsupported-T.10 {tailcall and eval} -constraints {knownbug atProcExit} -se
unset -nocomplain ::x
} -result {1 2}
-test unsupported-T.11 {tailcall and uplevel} -constraints {knownbug atProcExit} -setup {
+test unsupported-T.11 {tailcall and uplevel} -constraints {knownBug atProcExit} -setup {
proc a {} {
uplevel 1 [list tailcall set ::x 2]
set ::x 1