Permalink
Browse files

Add retrieval of files from node. Refactor sending of files to remove…

… *file-transfers*. Add ssh-key/record-public-key to retrieve a users public key from a remote node.
  • Loading branch information...
1 parent 8d03c4b commit d9c49f8bc4bf7a1c15918b43380f487e9e6cf83f @hugoduncan hugoduncan committed Sep 25, 2010
Showing with 16 additions and 19 deletions.
  1. +16 −19 test/pallet/crate/cloudkick_test.clj
@@ -13,25 +13,22 @@
(deftest cloudkick-test
(core/defnode a {:os-family :ubuntu})
(let [request {:node-type a}]
- (is (= (str
- (package/package-source*
- request
- "cloudkick"
- :aptitude
- {:url "http://packages.cloudkick.com/ubuntu"
- :key-url "http://packages.cloudkick.com/cloudkick.packages.key"}
- :yum { :url (str "http://packages.cloudkick.com/redhat/"
- (hostinfo/architecture))})
- (package/package-manager* request :update)
- (stevedore/checked-commands
- "Packages"
- (stevedore/script (package/package-manager-non-interactive))
- (package/package* request "cloudkick-agent"))
- (remote-file/remote-file*
- request
- "/etc/cloudkick.conf"
- :content
- "oauth_key key\noauth_secret secret\ntags any\nname node\n\n\n\n"))
+ (is (= (first
+ (resource/build-resources
+ [:node-type a]
+ (package/package-source
+ "cloudkick"
+ :aptitude
+ {:url "http://packages.cloudkick.com/ubuntu"
+ :key-url "http://packages.cloudkick.com/cloudkick.packages.key"}
+ :yum { :url (str "http://packages.cloudkick.com/redhat/"
+ (hostinfo/architecture))})
+ (package/package-manager :update)
+ (package/package "cloudkick-agent")
+ (remote-file/remote-file
+ "/etc/cloudkick.conf"
+ :content
+ "oauth_key key\noauth_secret secret\ntags any\nname node\n\n\n\n")))
(first
(resource/build-resources
[:node-type a] (cloudkick "node" "key" "secret")))))))

0 comments on commit d9c49f8

Please sign in to comment.