summaryrefslogtreecommitdiffstats
path: root/Source/cmCommandArgumentParserTokens.h
diff options
context:
space:
mode:
authorBrad King <brad.king@kitware.com>2016-06-13 14:28:02 (GMT)
committerBrad King <brad.king@kitware.com>2016-06-13 14:28:02 (GMT)
commit9f3546bbb44e23b97ea226fce155330eb352f75b (patch)
tree0492c73c989707d2bb083f282d63b847f4486dc7 /Source/cmCommandArgumentParserTokens.h
parent023e2a1eb7a0337e78054d0c576525564f8bf07c (diff)
downloadCMake-3.6.0-rc2.zip
CMake-3.6.0-rc2.tar.gz
CMake-3.6.0-rc2.tar.bz2
CMake 3.6.0-rc2v3.6.0-rc2
Diffstat (limited to 'Source/cmCommandArgumentParserTokens.h')
0 files changed, 0 insertions, 0 deletions
generated by cgit v0.12 at 2026-03-03 12:31:11 (GMT)
ion> Tcl is a high-level, general-purpose, interpreted, dynamic programming language. It was designed with the goal of being very simple but powerful.
summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2006-10-09 19:15:40 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2006-10-09 19:15:40 (GMT)
commit25e6ad437c89b37b6e1b4c2283cc0eef267e9c06 (patch)
tree5d5d3889692f5fb9e51abfce3aeb3b7d346b2297 /tests
parent57911c541c6dbf733b08171a1711081e59d2b95e (diff)
downloadtcl-25e6ad437c89b37b6e1b4c2283cc0eef267e9c06.zip
tcl-25e6ad437c89b37b6e1b4c2283cc0eef267e9c06.tar.gz
tcl-25e6ad437c89b37b6e1b4c2283cc0eef267e9c06.tar.bz2
* tests/*.test: updated all tests to refer explicitly to thetip_278_20061009
global variables ::errorInfo, ::errorCode, ::env and ::tcl_platform: many were relying on the alternative lookup in the global namespace, that feature is tested specifically in namespace and variable tests. The modified testfiles are: apply.test, basic.test, case.test, cmdIL.test, cmdMZ.test, compExpr-old.test, error.test, eval.test, event.test, expr.test, fileSystem.test, for.test, http.test, if.test, incr-old.test, incr.test, interp.test, io.test, ioCmd.test, load.test, misc.test, namespace.test, parse.test, parseOld.test, pkg.test, proc-old.test, set.test, switch.test, tcltest.test, thread.test, var.test, while-old.test, while.test.
Diffstat (limited to 'tests')
-rw-r--r--tests/apply.test4
-rw-r--r--tests/basic.test4
-rw-r--r--tests/case.test6
-rw-r--r--tests/cmdIL.test4
-rw-r--r--tests/cmdMZ.test12
-rw-r--r--tests/compExpr-old.test14
-rw-r--r--tests/error.test42
-rw-r--r--tests/eval.test4
-rw-r--r--tests/event.test6
-rw-r--r--tests/expr.test14
-rw-r--r--tests/fileSystem.test2
-rw-r--r--tests/for.test18
-rw-r--r--tests/http.test4
-rw-r--r--tests/if.test18
-rw-r--r--tests/incr-old.test8
-rw-r--r--tests/incr.test18
-rw-r--r--tests/interp.test6
-rw-r--r--tests/io.test14
-rw-r--r--tests/ioCmd.test32
-rw-r--r--tests/load.test10
-rw-r--r--tests/misc.test4
-rw-r--r--tests/namespace.test14
-rw-r--r--tests/parse.test32
-rw-r--r--tests/parseOld.test4
-rw-r--r--tests/pkg.test10
-rw-r--r--tests/proc-old.test20
-rw-r--r--tests/set.test10
-rw-r--r--tests/switch.test6
-rwxr-xr-xtests/tcltest.test12
-rw-r--r--tests/thread.test10
-rw-r--r--tests/var.test8
-rw-r--r--tests/while-old.test4
-rw-r--r--tests/while.test10
33 files changed, 192 insertions, 192 deletions
diff --git a/tests/apply.test b/tests/apply.test
index a4e5b8c..b1769fa 100644
--- a/tests/apply.test
+++ b/tests/apply.test
@@ -12,7 +12,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: apply.test,v 1.5 2006/03/10 19:49:14 msofer Exp $
+# RCS: @(#) $Id: apply.test,v 1.6 2006/10/09 19:15:41 msofer Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -128,7 +128,7 @@ test apply-4.2 {error in arguments to lambda expression} {
test apply-5.1 {runtime error in lambda expression} {
set lambda [list {} {error foo}]
set res [catch {apply $lambda}]
- list $res $errorInfo
+ list $res $::errorInfo
} {1 {foo
while executing
"error foo"
diff --git a/tests/basic.test b/tests/basic.test
index ec6ad18..7322eb0 100644
--- a/tests/basic.test
+++ b/tests/basic.test
@@ -15,7 +15,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: basic.test,v 1.41 2006/01/18 19:48:11 dgp Exp $
+# RCS: @(#) $Id: basic.test,v 1.42 2006/10/09 19:15:44 msofer Exp $
#
package require tcltest 2
@@ -550,7 +550,7 @@ test basic-46.1 {Tcl_AllowExceptions: exception return not allowed} {stdio} {
fconfigure $f -buffering line
puts $f {fconfigure stdout -buffering line}
puts $f continue
- puts $f {puts $errorInfo}
+ puts $f {puts $::errorInfo}
puts $f {puts DONE}
set newMsg {}
set msg {}
diff --git a/tests/case.test b/tests/case.test
index 477538c..023fdbb 100644
--- a/tests/case.test
+++ b/tests/case.test
@@ -11,7 +11,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: case.test,v 1.6 2004/05/19 10:52:35 dkf Exp $
+# RCS: @(#) $Id: case.test,v 1.7 2006/10/09 19:15:44 msofer Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -42,7 +42,7 @@ test case-1.7 {list of patterns} {
test case-2.1 {error in executed command} {
list [catch {case a in a {error "Just a test"} default {format 1}} msg] \
- $msg $errorInfo
+ $msg $::errorInfo
} {1 {Just a test} {Just a test
while executing
"error "Just a test""
@@ -60,7 +60,7 @@ test case-2.4 {error: pattern with no body} {
} {1 {extra case pattern with no body}}
test case-2.5 {error in default command} {
list [catch {case foo in a {error case1} default {error case2} \
- b {error case 3}} msg] $msg $errorInfo
+ b {error case 3}} msg] $msg $::errorInfo
} {1 case2 {case2
while executing
"error case2"
diff --git a/tests/cmdIL.test b/tests/cmdIL.test