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/stringComp.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/stringComp.test')
| -rw-r--r-- | tests/stringComp.test | 6 |
1 files changed, 3 insertions, 3 deletions
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] |