diff options
| author | gahr <gahr@gahr.ch> | 2016-04-04 11:25:12 (GMT) |
|---|---|---|
| committer | gahr <gahr@gahr.ch> | 2016-04-04 11:25:12 (GMT) |
| commit | 540521771129cfb3a851405ae4306448fea3e769 (patch) | |
| tree | 75feaeff0a9a36b53252789c8aebb45dbc0b2e49 /tests/winPipe.test | |
| parent | 4b301d844892c52ec5fecce47f03c91a551639ca (diff) | |
| parent | b4d78562f6e023b1bf1accc8649c1a93b14be8d6 (diff) | |
| download | tcl-tip_444.zip tcl-tip_444.tar.gz tcl-tip_444.tar.bz2 | |
merge trunktip_444
Diffstat (limited to 'tests/winPipe.test')
| -rw-r--r-- | tests/winPipe.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/winPipe.test b/tests/winPipe.test index 9c6f94d..8128fe2 100644 --- a/tests/winPipe.test +++ b/tests/winPipe.test @@ -34,14 +34,14 @@ testConstraint testexcept [llength [info commands testexcept]] set big bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb\n append big $big -append big $big +append big $big append big $big append big $big append big $big append big $big set path(little) [makeFile {} little] -set f [open $path(little) w] +set f [open $path(little) w] puts -nonewline $f "little" close $f |