Zookeeper live test

gistfile1.clj

(deftest live-test
  (doseq [image live-test/*images*]
    (live-test/test-nodes
     [compute node-map node-types]
     {:zookeeper
      {:image image
       :count 1
       :phases {:bootstrap (resource/phase
                            (package/minimal-packages)
                            (package/package-manager
                             :configure :proxy "http://192.168.2.37:3128")
                            (package/package-manager :update)
                            (automated-admin-user/automated-admin-user))
                :configure (resource/phase
                            (java/java :openjdk :jdk)
                            (install)
                            (configure)
                            (init)
                            (config-files)
                            (pallet.resource.service/service
                             "zookeeper" :action :restart))
                :verify (resource/phase
                         (network-service/wait-for-port-listen 2181)
                         (exec-script/exec-checked-script
                          "check zookeeper"
                          (println "zookeeper ruok response is "
                           @(pipe (println "ruok") ("nc" "localhost" 2181)))
                          (println "zookeeper stat "
                           @(pipe (println "stat") ("nc" "localhost" 2181)))
                          (println "zookeeper dump "
                           @(pipe (println "dump") ("nc" "localhost" 2181)))
                          (test (= "imok"
                                   @(pipe (println "ruok")
                                          ("nc" "localhost" 2181))))))}}}
     (core/lift (:zookeeper node-types) :phase :verify :compute compute))))