gistfile1.lisp

(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))
))