From eff48f66c6d8e7231eef0ef3c3561e19865a2637 Mon Sep 17 00:00:00 2001
From: Sam T <pxqr.sta@gmail.com>
Date: Sun, 12 May 2013 07:17:15 +0400
Subject: + Add basic bench.

---
 bench/Main.hs   | 17 +++++++++++++++++
 bench/Server.hs | 11 +++++++++++
 2 files changed, 28 insertions(+)
 create mode 100644 bench/Main.hs
 create mode 100644 bench/Server.hs

(limited to 'bench')

diff --git a/bench/Main.hs b/bench/Main.hs
new file mode 100644
index 00000000..411282a0
--- /dev/null
+++ b/bench/Main.hs
@@ -0,0 +1,17 @@
+{-# LANGUAGE OverloadedStrings #-}
+module Main (main) where
+
+import Criterion.Main
+import Remote.KRPC
+
+
+addr :: RemoteAddr
+addr = (0, 6000)
+
+echo :: Method [Int] [Int]
+echo = method "echo" ["x"] ["x"]
+
+main :: IO ()
+main = defaultMain $ map mkbench [1, 10, 100, 1000]
+  where
+    mkbench n = bench (show n) $ nfIO $ call addr echo [1..n]
\ No newline at end of file
diff --git a/bench/Server.hs b/bench/Server.hs
new file mode 100644
index 00000000..cb5ed316
--- /dev/null
+++ b/bench/Server.hs
@@ -0,0 +1,11 @@
+{-# LANGUAGE OverloadedStrings #-}
+module Main (main) where
+
+import Remote.KRPC
+
+
+echo :: Method [Int] [Int]
+echo = method "echo" ["x"] ["x"]
+
+main :: IO ()
+main = server 6000 [ echo ==> return ]
-- 
cgit v1.2.3