From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 11 Oct 2019 20:33:01 +0000 (+0100)
Subject: test: use chiark-tcl-hbytes rather than ad-hoc \x quoting
X-Git-Tag: v0.5.0~125
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=9be7a8ae73b05b4d0bac5477d5642c18a0f7ba44;p=secnet.git

test: use chiark-tcl-hbytes rather than ad-hoc \x quoting

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---

diff --git a/test/invoke b/test/invoke
index fb9ce2c..30106d9 100755
--- a/test/invoke
+++ b/test/invoke
@@ -2,6 +2,8 @@
 
 package require Tclx
 
+load chiark_tcl_hbytes-1.so
+
 set netlink(inside) {
     local-address "172.18.232.9";
     secnet-address "172.18.232.10";
@@ -103,7 +105,7 @@ proc spawn-secnet {which} {
     if {!$pid} {
 	execl ./secnet $argl
     }
-    puts -nonewline $netlinkfh($which.t) "\xc0"
+    puts -nonewline $netlinkfh($which.t) [hbytes h2raw c0]
 }
 
 proc netlink-readable {which} {