diff options
| author | stanton <stanton> | 1998-12-02 23:46:49 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1998-12-02 23:46:49 (GMT) |
| commit | ace1071dfbee32ed04c4933c0944933ecb1c48a1 (patch) | |
| tree | d27bbaf0a886965794b336d0e1fc64ca921c7db2 /tests/io.test | |
| parent | be81b7e5081d8731364412b6ca71cf480e7fc7a2 (diff) | |
| download | tcl-ace1071dfbee32ed04c4933c0944933ecb1c48a1.zip tcl-ace1071dfbee32ed04c4933c0944933ecb1c48a1.tar.gz tcl-ace1071dfbee32ed04c4933c0944933ecb1c48a1.tar.bz2 | |
renamed regtests.test to reg.test
Diffstat (limited to 'tests/io.test')
| -rw-r--r-- | tests/io.test | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/tests/io.test b/tests/io.test index 1899e45..9b532ba 100644 --- a/tests/io.test +++ b/tests/io.test @@ -11,7 +11,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: io.test,v 1.1.2.4 1998/12/02 03:13:31 stanton Exp $ +# RCS: @(#) $Id: io.test,v 1.1.2.5 1998/12/02 23:46:49 stanton Exp $ if {[string compare test [info procs test]] == 1} then {source defs} @@ -37,8 +37,7 @@ for { set i 0 } { $i < 100 } { incr i} { } close $f -set f [open cat w] -puts $f { +makeFile { set f stdin if {$argv != ""} { set f [open $argv] @@ -55,8 +54,7 @@ puts $f { } } vwait forever -} -close $f +} cat # These tests are disabled until we decide what to do with "unsupported0". # |