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
     }
-    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
-cat >$pipefp.t &
-exec 3<>$pipefp.r
-exec <$pipefp.r
+cat >$pipefp.r &
+exec 3<>$pipefp.t
+exec <$pipefp.t
 exec 3<&-
 exec cat
 "