From 6a4a7796ed10260dc4f7c70443a6678b934eb837 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 28 Mar 2013 06:24:15 -0700
Subject: [PATCH] benchmark.parse-fixnum: adding a fixnum parse benchmark.

---
 extra/benchmark/parse-fixnum/parse-fixnum.factor | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 extra/benchmark/parse-fixnum/parse-fixnum.factor

diff --git a/extra/benchmark/parse-fixnum/parse-fixnum.factor b/extra/benchmark/parse-fixnum/parse-fixnum.factor
new file mode 100644
index 0000000000..c88c3c5151
--- /dev/null
+++ b/extra/benchmark/parse-fixnum/parse-fixnum.factor
@@ -0,0 +1,9 @@
+USING: kernel math.parser sequences ;
+IN: benchmark.parse-fixnum
+
+: parse-fixnum-benchmark ( -- )
+    2,000,000 iota [
+        [ number>string string>number ] [ assert= ] bi
+    ] each ;
+
+MAIN: parse-fixnum-benchmark