From a1d9d869d68de00bd667bdf9708ffdd207f9421c Mon Sep 17 00:00:00 2001
From: Sean Corfield <sean@corfield.org>
Date: Sat, 26 Jan 2019 00:27:15 -0800
Subject: [PATCH] Add raw Java benchmark

---
 src/next/jdbc.clj | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/src/next/jdbc.clj b/src/next/jdbc.clj
index b5fddfa..4f552dc 100644
--- a/src/next/jdbc.clj
+++ b/src/next/jdbc.clj
@@ -456,6 +456,17 @@
   ;; calibrate
   (quick-bench (reduce + (take 10e6 (range))))
 
+  ;; raw java
+  (defn select* [^Connection con]
+    (let [ps (doto (.prepareStatement con "SELECT * FROM fruit WHERE appearance = ?")
+               (.setObject 1 "red"))
+          rs (.executeQuery ps)
+          _ (.next rs)
+          value (.getObject rs "name")]
+      (.close ps)
+      value))
+  (quick-bench (select* con))
+
   ;; same as the Java example in java.jdbc perf test
   (quick-bench
    (reduce (fn [rs m] (reduced (:name m)))