tcltests/test_exec.tcl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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