summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorferrieux <ferrieux@users.sourceforge.net>2014-08-02 15:26:46 (GMT)
committerferrieux <ferrieux@users.sourceforge.net>2014-08-02 15:26:46 (GMT)
commit50e84817bf26eed388c0fb3df70cfb4d00e9eab5 (patch)
tree4687543a47761a272c292a071803d13d45c85dc5
parent199f805233d9af1ccfd843748bffd339b275bbab (diff)
downloadtcl-50e84817bf26eed388c0fb3df70cfb4d00e9eab5.zip
tcl-50e84817bf26eed388c0fb3df70cfb4d00e9eab5.tar.gz
tcl-50e84817bf26eed388c0fb3df70cfb4d00e9eab5.tar.bz2
Don't use [pid] in tests, stick to constant literals.
-rw-r--r--doc/string.n2
-rw-r--r--tests/string.test6
-rw-r--r--tests/stringComp.test6
3 files changed, 8 insertions, 6 deletions
diff --git a/doc/string.n b/doc/string.n
index 9108e7c..450a97b 100644
--- a/doc/string.n
+++ b/doc/string.n
@@ -19,6 +19,7 @@ string \- Manipulate strings
Performs one of several string operations, depending on \fIoption\fR.
The legal \fIoption\fRs (which may be abbreviated) are:
.TP
+.VS 8.6.2
\fBstring cat\fR ?\fIstring1\fR? ?\fIstring2...\fR?
.
Concatenate the given strings just like direct juxtaposition
@@ -26,6 +27,7 @@ would. This primitive is occasionally handier than juxtaposition when
mixed quoting is wanted, or when the aim is to return the result of a
concatenation without resorting to \fB[return -level 0]\fR. If no arg
is present, an empty string is returned.
+.VE
.TP
\fBstring compare\fR ?\fB\-nocase\fR? ?\fB\-length\fI length\fR? \fIstring1 string2\fR
.
diff --git a/tests/string.test b/tests/string.test
index 54d02e8..3611753 100644
--- a/tests/string.test
+++ b/tests/string.test
@@ -1973,15 +1973,15 @@ test string-29.1 {string cat, no arg} {
string cat
} ""
test string-29.2 {string cat, single arg} {
- set x [pid]
+ set x FOO
string compare $x [string cat $x]
} 0
test string-29.3 {string cat, two args} {
- set x [pid]
+ set x FOO
string compare $x$x [string cat $x $x]
} 0
test string-29.4 {string cat, many args} {
- set x [pid]
+ set x FOO
set n 260
set xx [string repeat $x $n]
set vv [string repeat {$x} $n]
diff --git a/tests/stringComp.test b/tests/stringComp.test
index 083399b..f9f6bda 100644
--- a/tests/stringComp.test
+++ b/tests/stringComp.test
@@ -743,21 +743,21 @@ test stringComp-29.1 {string cat, no arg} {
} ""
test stringComp-29.2 {string cat, single arg} {
proc foo {} {
- set x [pid]
+ set x FOO
string compare $x [string cat $x]
}
foo
} 0
test stringComp-29.3 {string cat, two args} {
proc foo {} {
- set x [pid]
+ set x FOO
string compare $x$x [string cat $x $x]
}
foo
} 0
test stringComp-29.4 {string cat, many args} {
proc foo {} {
- set x [pid]
+ set x FOO
set n 260
set xx [string repeat $x $n]
set vv [string repeat {$x} $n]