Skip to content

Instantly share code, notes, and snippets.

@rstradling
Last active December 15, 2015 11:59
Show Gist options
  • Save rstradling/5256869 to your computer and use it in GitHub Desktop.
Save rstradling/5256869 to your computer and use it in GitHub Desktop.
(deftest site-test
( let [
; This one generates no context's around the echos
item1 (first
(build-actions/build-actions
{}
(directory "/etc/nginx/sites-available")
(directory "/etc/nginx/sites-enabled")
(remote-file
"/etc/nginx/sites-enabled/default"
:content "server {\n\tserver_name testhost;\n\tlisten 80;\n\taccess_log /var/log/nginx/access.log;\n\tlocation / {\n\t\tindex index.html index.htm;\n\t}\n}"
)
(file
"/etc/nginx/sites-available/default" :action :delete :force true)))
; This one provides context around the echos called site:
item2 (first
(build-actions/build-actions
{:server {:group-name :n :image {:os-family :ubuntu}}}
(nginx-settings site-test-data)
(site)))]
(println "item1 =")
(println item1)
(println "item2 =")
(println item2)
;(is (= item1 item2))
))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment