From e15fa4cafeebc1298c81e78116f3e33f47ab86e2 Mon Sep 17 00:00:00 2001
From: Holger Hans Peter Freyther <zecke@selfish.org>
Date: Wed, 8 Dec 2010 10:06:52 +0100
Subject: contrib: Add smalltalk script to send send UDP messages

These messages are a SLTM and a TRA message that we want
to test on the udt relay receiver. The speciality is the header.
---
 contrib/TestSender.st | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 contrib/TestSender.st

diff --git a/contrib/TestSender.st b/contrib/TestSender.st
new file mode 100644
index 0000000..c059dae
--- /dev/null
+++ b/contrib/TestSender.st
@@ -0,0 +1,25 @@
+PackageLoader fileInPackage: 'Sockets'.
+
+Eval [
+    | msg socket datagram addr |
+
+    addr := Sockets.SocketAddress byName: '127.0.0.1'.
+    socket := Sockets.DatagramSocket local: '127.0.0.1' port: 5000.
+    datagram := Sockets.Datagram new.
+    datagram port: 1313.
+    datagram address: addr.
+
+    "SLTM"
+    msg := #(2 0 0 1 0 0 0 0 0 0 0
+             15 193 232 197 7 0 17
+             128 247 248 249 250 251
+             252 253 254 ) asByteArray.
+
+    datagram data: msg.
+    socket nextPut: datagram.
+
+    "TRA"
+    msg := #(2 0 0 1 0 0 0 0 0 0 0 6 192 232 197 7 0 23) asByteArray.
+    datagram data: msg.
+    socket nextPut: datagram.
+]
-- 
cgit v1.2.3