chiark
/
gitweb
/
~ian
/
secnet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
test: Fix names of stunt pipes
[secnet.git]
/
test
/
invoke
diff --git
a/test/invoke
b/test/invoke
index 69aa0da67b63cf999dcf60db6cb00db5c459e59f..2f8835e7742c9119adebf63fdc80c30dabb44f2f 100755
(executable)
--- a/
test/invoke
+++ b/
test/invoke
@@
-34,14
+34,14
@@
proc mkconf {which} {
set netlinkfh($which.$tr) [set fh [open $pipefp.$tr r+]]
fconfigure $fh -blocking 0 -buffering none -translation binary
}
set netlinkfh($which.$tr) [set fh [open $pipefp.$tr r+]]
fconfigure $fh -blocking 0 -buffering none -translation binary
}
- fileevent $netlinkfh($which.
t
) readable [list netlink-readable $which]
+ fileevent $netlinkfh($which.
r
) readable [list netlink-readable $which]
set fakeuf test/$which.fake-userv
set fakeuh [open $fakeuf w 0755]
puts $fakeuh "#!/bin/sh
set -e
set fakeuf test/$which.fake-userv
set fakeuh [open $fakeuf w 0755]
puts $fakeuh "#!/bin/sh
set -e
-cat >$pipefp.
t
&
-exec 3<>$pipefp.
r
-exec <$pipefp.
r
+cat >$pipefp.
r
&
+exec 3<>$pipefp.
t
+exec <$pipefp.
t
exec 3<&-
exec cat
"
exec 3<&-
exec cat
"