diff options
| author | ferrieux <ferrieux@users.sourceforge.net> | 2014-08-02 15:26:46 (GMT) |
|---|---|---|
| committer | ferrieux <ferrieux@users.sourceforge.net> | 2014-08-02 15:26:46 (GMT) |
| commit | 50e84817bf26eed388c0fb3df70cfb4d00e9eab5 (patch) | |
| tree | 4687543a47761a272c292a071803d13d45c85dc5 /tests/string.test | |
| parent | 199f805233d9af1ccfd843748bffd339b275bbab (diff) | |
| download | tcl-50e84817bf26eed388c0fb3df70cfb4d00e9eab5.zip tcl-50e84817bf26eed388c0fb3df70cfb4d00e9eab5.tar.gz tcl-50e84817bf26eed388c0fb3df70cfb4d00e9eab5.tar.bz2 | |
Don't use [pid] in tests, stick to constant literals.
Diffstat (limited to 'tests/string.test')
| -rw-r--r-- | tests/string.test | 6 |
1 files changed, 3 insertions, 3 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] |