diff options
Diffstat (limited to 'tcltests/test_exec.tcl')
| -rw-r--r-- | tcltests/test_exec.tcl | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/tcltests/test_exec.tcl b/tcltests/test_exec.tcl new file mode 100644 index 0000000..bb9dbc8 --- /dev/null +++ b/tcltests/test_exec.tcl @@ -0,0 +1,17 @@ +if {[info commands exec] eq ""} { + return "noimpl" +} +if {[info commands verbose] eq ""} { + proc verbose {msg} {puts $msg} +} + +set infile [open Makefile] +set outfile [open exec.out w] + +exec cat <@$infile >@$outfile +close $infile +close $outfile + +exec cmp -s Makefile exec.out + +file delete exec.out |