http://stackoverflow.com/questions/5994502/occasional-null-results-with-clojures-http-async-client-and-google

online.clj

; Copyright 2011 Hubert Iwaniuk
;
; Licensed under the Apache License, Version 2.0 (the "License");
; you may not use this file except in compliance with the License.
; You may obtain a copy of the License at
;
;   http://www.apache.org/licenses/LICENSE-2.0
;
; Unless required by applicable law or agreed to in writing, software
; distributed under the License is distributed on an "AS IS" BASIS,
; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
; See the License for the specific language governing permissions and
; limitations under the License.

(ns http.async.client.online
  "Testing of http.async online mode"
  {:author "Hubert Iwaniuk"}
  (:refer-clojure :exclude [await])
  (:use clojure.test)
  (:require [http.async.client :as client]))

(deftest test-google-geocode
  (let [ctx (client/create-client)
        r-geo (fn []
                (-> (client/GET
                     ctx
                     "http://maps.googleapis.com/maps/api/geocode/json?address=San+Jose&sensor=false")
                    client/await
                    client/string))]
    (try
      (dotimes [_ 40]
        (is (.contains (r-geo) "lat")))
      (finally
       (client/close ctx)))
    ))