summaryrefslogtreecommitdiffstats
path: root/tests
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 /tests
parent199f805233d9af1ccfd843748bffd339b275bbab (diff)
downloadtcl-50e84817bf26eed388c0fb3df70cfb4d00e9eab5.zip
tcl-50e84817bf26eed388c0fb3df70cfb4d00e9eab5.tar.gz
tcl-50e84817bf26eed388c0fb3df70cfb4d00e9eab5.tar.bz2
Don't use [pid] in tests, stick to constant literals.
Diffstat (limited to 'tests')
-rw-r--r--tests/string.test6
-rw-r--r--tests/stringComp.test6
2 files changed, 6 insertions, 6 deletions
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]