test.clj

(require '[pallet.compute :refer [instantiate-provider]])
(require '[pallet.api :refer [group-spec server-spec node-spec plan-fn converge lift]])
(require '[pallet.compute :refer [images]]
         '[clojure.pprint :refer [pprint]])
(require '[pallet.crate.java :as java])
(require '[pallet.crate.automated-admin-user :refer [automated-admin-user]])
(require '[pallet.actions :as pact])

(def vmfest (instantiate-provider "vmfest"
                                  :vbox-comm :ws))


(pprint (images vmfest))


(def default-node-spec
  (node-spec
   :image {:image-id :ubuntu-13.04-64bit}
   :hardware {:min-cores 1}))

(def
  ^{:doc "Defines the type of node quickstart will run on"}
  base-server
  (server-spec
   :phases
   {:bootstrap (plan-fn (automated-admin-user))}))

(def
  ^{:doc "Define a server spec for quickstart"}
  quickstart-server
  (server-spec
   :phases
   {:configure (plan-fn
                 (pact/file "/tmp/phase-configure-basenode" :owner "vmfest", :group "vmfest", :mode "0644")
                 )}))

(def
  ^{:doc "Defines a group spec that can be passed to converge or lift."}
  quickstart
  (group-spec
   "quickstart"
   :extends [base-server quickstart-server (java/server-spec {:vendor "oracle" :components "jdk" :strategy "debs"})]
   :node-spec default-node-spec
   :phases {:install quickstart-server}))
                            

(converge {quickstart 1} :compute vmfest :os-detect false)

SEVERE: This VMFest provider is already configured to use XPCOM but you are attempting to configure it to use Web Services. Only one communication can be used at any time, and it can only be set once per JVM run.
Exception in thread "main" clojure.lang.ExceptionInfo: This VMFest provider is already configured to use XPCOM but you are attempting to configure it to use Web Services. Only one communication can be used at any time, and it can only be set once per JVM run. {:type :vmfest-configuration-error, :message "This VMFest provider is already configured to use XPCOM but you are attempting to configure it to use Web Services. Only one communication can be used at any time, and it can only be set once per JVM run."}
at clojure.core$ex_info.invoke(core.clj:4327)
at pallet.compute.vmfest$add_vbox_to_classpath.invoke(vmfest.clj:219)
at pallet.compute.vmfest$fn__12418.invoke(vmfest.clj:280)
at clojure.lang.MultiFn.invoke(MultiFn.java:231)
at pallet.compute$instantiate_provider.doInvoke(compute.clj:38)
at clojure.lang.RestFn.applyTo(RestFn.java:139)
at clojure.core$apply.invoke(core.clj:619)
at pallet.configure$compute_service_from_map.invoke(configure.clj:199)
at pallet.configure$compute_service_from_config.invoke(configure.clj:208)
at pallet.configure$compute_service_from_config_file.invoke(configure.clj:236)
at pallet.configure$compute_service.doInvoke(configure.clj:274)