jhalterman

(defn try-until-success
  "Accepts a try-fn to try a failure-fn to call upon failure, supplying the failure/exception. The try-fn is retried
  until no failure is thrown."
  [try-fn failure-fn]
  (loop []
    (if-let [result (try
                      (try-fn)
                      (catch Exception e
                        (failure-fn e)
                        nil))]

jhalterman

(deftest create-cas-test
  (let [test (run!
               (assoc
                 noop-test
                 :name      "foundationdb"
                 :os        ubuntu/os
                 :db        db
                 :client    (cas-register)
                 :model     (model/cas-register)
                 :checker   (checker/compose {:html timeline/html

jhalterman

      :cas   (timeout 5000 (assoc op :type :info :value :timed-out)
          (let [cas (reify Function
            (apply [this, tr]
              (let [
                [value value'] (:value op)
                key_var (byte-array (map byte key))
                old_value (.getLong (Tuple/fromBytes (.get (.get tr (byte-array (map byte key))))) 0)
                new_value (.pack (Tuple/from (into-array [value'])))]
              (if (= old_value value)
                (do

jhalterman

# Usage setjdk 1.8
function setjdk() {  
  if [ $# -ne 0 ]; then  
   removeFromPath '/System/Library/Frameworks/JavaVM.framework/Home/bin'  
   if [ -n "${JAVA_HOME+x}" ]; then  
    removeFromPath $JAVA_HOME  
   fi  
   export JAVA_HOME=`/usr/libexec/java_home -v $@`  
   export PATH=$JAVA_HOME/bin:$PATH  
  fi