From 50e84817bf26eed388c0fb3df70cfb4d00e9eab5 Mon Sep 17 00:00:00 2001
From: ferrieux <ferrieux@users.sourceforge.net>
Date: Sat, 2 Aug 2014 15:26:46 +0000
Subject: Don't use [pid] in tests, stick to constant literals.

---
 doc/string.n          | 2 ++
 tests/string.test     | 6 +++---
 tests/stringComp.test | 6 +++---
 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]
-- 
cgit v0.12