test the digitalocean gist code by making a machine, printing its ip, and then deleting it.

test-do.clj

#!/usr/bin/env spire

(ns user
  (:require [digitalocean :as do]))

(let [droplet (->
               {:name "myexample.com"
                :region "nyc3"
                :size "s-1vcpu-1gb"
                :image "ubuntu-16-04-x64"
                :backups false
                :ipv6 true
                :user_data nil
                :private_networking nil
                :volumes nil
                :tags ["test-spire"]}
               do/create-droplet
               do/wait-for-droplet
               )]
  (debug
   [(:id droplet)
    (:networks droplet)])

  (do/delete-droplet droplet))