Add a regions command

Displays a list of regions. Closes #17.

lib/tugboat/cli.rb

@@ -199,6 +199,11 @@ def keys
       Middleware.sequence_ssh_keys.call({})
     end
 
+    desc "regions", "Show regions"
+    def regions
+      Middleware.sequence_regions.call({})
+    end
+
     desc "version", "Show version"
     def version
       say "Tugboat #{Tugboat::VERSION}"

lib/tugboat/middleware.rb

@@ -20,6 +20,7 @@ module Middleware
     autoload :SnapshotDroplet, "tugboat/middleware/snapshot_droplet"
     autoload :ListImages, "tugboat/middleware/list_images"
     autoload :ListSSHKeys, "tugboat/middleware/list_ssh_keys"
+    autoload :ListRegions, "tugboat/middleware/list_regions"
 
     # Start the authorization flow.
     # This writes a ~/.tugboat file, which can be edited manually.
@@ -140,5 +141,15 @@ def self.sequence_ssh_keys
         use ListSSHKeys
       end
     end
+
+    # Display a list of regions
+    def self.sequence_regions
+      ::Middleware::Builder.new do
+        use InjectConfiguration
+        use CheckConfiguration
+        use InjectClient
+        use ListRegions
+      end
+    end
   end
 end

lib/tugboat/middleware/list_regions.rb

@@ -0,0 +1,17 @@
+module Tugboat
+  module Middleware
+    class ListRegions < Base
+      def call(env)
+        ocean = env["ocean"]
+        regions = ocean.regions.list.regions
+
+        say "Regions:"
+        regions.each do |region|
+          say "#{region.name} (id: #{region.id})"
+        end
+
+        @app.call(env)
+      end
+    end
+  end
+end

spec/cli/regions_cli_spec.rb

@@ -0,0 +1,28 @@
+require 'spec_helper'
+
+describe Tugboat::CLI do
+  include_context "spec"
+
+  before :each do
+    @cli = Tugboat::CLI.new
+  end
+
+  describe "regions" do
+    it "shows a list" do
+      stub_request(:get, "https://api.digitalocean.com/regions?api_key=#{api_key}&client_id=#{client_key}").
+        to_return(:status => 200, :body => fixture("show_regions"))
+
+      @cli.regions
+
+      expect($stdout.string).to eq <<-eos
+Regions:
+Region 1 (id: 1)
+Region 2 (id: 2)
+Region 3 (id: 3)
+      eos
+
+      expect(a_request(:get, "https://api.digitalocean.com/regions?api_key=#{api_key}&client_id=#{client_key}")).
+        to have_been_made
+    end
+  end
+end

spec/fixtures/show_regions.json

@@ -0,0 +1,17 @@
+{
+  "status": "OK",
+  "regions": [
+    {
+      "id": 1,
+      "name": "Region 1"
+    },
+    {
+      "id": 2,
+      "name": "Region 2"
+    },
+    {
+      "id": 3,
+      "name": "Region 3"
+    }
+  ]
+}