X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=blobdiff_plain;f=test%2Finvoke;h=7182d13336286ec8f93afd42c2feb66cc137859a;hb=6e43702fb56a80f491f0c9cb9d19f29bced46f7f;hp=30106d95538d62eea53c3594df103210be80d592;hpb=9be7a8ae73b05b4d0bac5477d5642c18a0f7ba44;p=secnet.git

diff --git a/test/invoke b/test/invoke
index 30106d9..7182d13 100755
--- a/test/invoke
+++ b/test/invoke
@@ -139,7 +139,24 @@ $message
     exit 1
 }
 
+proc sendpkt {} {
+    global netlinkfh
+    set p {
+        4500 0054 ed9d 4000 4001 24da ac12 e809
+        ac12 e802 0800 1de4 2d96 0001 f1d4 a05d
+        0000 0000 507f 0b00 0000 0000 1011 1213
+        1415 1617 1819 1a1b 1c1d 1e1f 2021 2223
+        2425 2627 2829 2a2b 2c2d 2e2f 3031 3233
+        3435 3637
+    }
+    puts -nonewline $netlinkfh(inside.t) \
+	[hbytes h2raw c0[join $p ""]c0]
+}
+
 spawn-secnet inside
 spawn-secnet outside
 
+after 500 sendpkt
+after 1000 sendpkt
+
 vwait ok