From daaaed7e2b38c9d9f9c904bf6ab6da6d03c6eca8 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 26 Aug 2011 17:18:08 -0700
Subject: [PATCH] Adding a UDP echo benchmark.

---
 extra/benchmark/echo/echo.factor | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 extra/benchmark/echo/echo.factor

diff --git a/extra/benchmark/echo/echo.factor b/extra/benchmark/echo/echo.factor
new file mode 100644
index 0000000000..cda002986d
--- /dev/null
+++ b/extra/benchmark/echo/echo.factor
@@ -0,0 +1,20 @@
+! Copyright (C) 2010 John Benediktsson
+! See http://factorcode.org/license.txt for BSD license
+
+USING: accessors destructors kernel io.binary io.sockets
+sequences ;
+
+IN: benchmark.echo
+
+: send/recv ( packet server client -- )
+    [ over over addr>> ] [ send ] bi* receive drop assert= ;
+
+: udp-echo ( -- )
+    [
+        10000 iota [ 4 >be ] map
+        f 0 <inet4> <datagram>
+        f 0 <inet4> <datagram>
+        [ send/recv ] 2curry each
+    ] with-destructors ;
+
+MAIN: udp-echo