fog-arubacloud 0.0.3 → 0.0.5

data/lib/fog/arubacloud/compute/requests/remove_loadbalancer.rb

@@ -0,0 +1,47 @@
+# coding: utf-8
+#
+# Author:: Dangleterre Michaël
+# © Copyright ArubaCloud.
+#
+# LICENSE: MIT (http://opensource.org/licenses/MIT)
+#
+
+require 'fog/arubacloud/service'
+require 'fog/arubacloud/error'
+require 'benchmark'
+
+
+module Fog
+  module ArubaCloud
+    class Compute
+      class Real
+        def remove_loadbalancer(data)
+          body = self.body('SetEnqueueLoadBalancerDeletion').merge(
+              :LoadBalancerDeletionRequest => {
+                  :loadBalancerID => data[:id]
+              }
+          )
+          response = nil
+          time = Benchmark.realtime {
+            response = request(body, 'SetEnqueueLoadBalancerDeletion', 'SetEnqueueLoadBalancerDeletion Error')
+          }
+          Fog::Logger.debug("SetEnqueueLoadBalancerDeletion time: #{time}")
+          if response['Success']
+            response
+          else
+            raise Fog::ArubaCloud::Errors::RequestError.new('Error during the Load Balancer deletion.')
+          end
+        end # remove_loadbalancer
+
+        class Mock
+          def remove_loadbalancer
+            raise Fog::Errors::MockNotImplemented.new(
+                      'Mock not implemented. Feel free to contribute.'
+                  )
+          end # remove_loadbalancer
+        end # Mock
+      end # Real
+
+    end # Compute
+  end # ArubaCloud
+end # Fog

data/lib/fog/arubacloud/compute/requests/rename_shared_storage.rb

@@ -0,0 +1,50 @@
+# coding: utf-8
+#
+# Author:: Dangleterre Michaël
+# © Copyright ArubaCloud.
+#
+# LICENSE: MIT (http://opensource.org/licenses/MIT)
+#
+
+require 'fog/arubacloud/service'
+require 'fog/arubacloud/error'
+require 'benchmark'
+
+
+module Fog
+  module ArubaCloud
+    class Compute
+      class Real
+        def rename_shared_storage(data)
+          body = self.body('SetRenameSharedStorage').merge(
+              {
+                  :SharedStorage => {
+                      :SharedStorageId => data[:id],
+                      :SharedStorageName => data[:sharedstoragename]
+                  }
+              }
+          )
+          response = nil
+          time = Benchmark.realtime {
+            response = request(body, 'SetRenameSharedStorage', 'SetRenameSharedStorage Error')
+          }
+          Fog::Logger.debug("SetRenameSharedStorage time: #{time}")
+          if response['Success']
+            response
+          else
+            raise Fog::ArubaCloud::Errors::RequestError.new('Error in request.')
+          end
+        end # rename_shared_storage
+
+        class Mock
+          def rename_shared_storage
+            raise Fog::Errors::MockNotImplemented.new(
+                      'Mock not implemented. Feel free to contribute.'
+                  )
+          end # rename_shared_storage
+        end # Mock
+      end # Real
+
+    end # Compute
+  end # ArubaCloud
+end # Fog

data/lib/fog/arubacloud/compute/requests/restore_vm.rb

@@ -0,0 +1,61 @@
+# coding: utf-8
+#
+# Author:: Dangleterre Michaël
+# © Copyright ArubaCloud.
+#
+# LICENSE: MIT (http://opensource.org/licenses/MIT)
+#
+
+require 'fog/arubacloud/service'
+require 'fog/arubacloud/error'
+require 'benchmark'
+
+
+module Fog
+  module ArubaCloud
+    class Compute
+      class Real
+        def restore_vm(data)
+          (service.servers).all.each do |server|
+            id = server.id if (server.name).include? data[:name] and (server.vm_type).include? 'pro'
+          end
+          body = self.body('SetEnqueueServerRestore').merge(
+              {
+                  :ServerRestore  => {
+                      :ServerId => id,
+                      :CPUQuantity  => cpu,
+                      :RAMQuantity => memory
+                  }
+              }
+          )
+          response = nil
+          time = Benchmark.realtime {
+            response = request(body, 'SetEnqueueServerRestore', 'SetEnqueueServerRestore Error')
+          }
+          Fog::Logger.debug("SetEnqueueServerRestore time: #{time}")
+          if response['Success']
+            response
+          else
+            raise Fog::ArubaCloud::Errors::RequestError.new(response)
+          end
+
+        end # restore_vm
+      end # Real
+
+      class Mock
+        def restore_vm
+          response = Excon::Response.new
+          response.status = 200
+          response.body = {
+              'ExceptionInfo' => nil,
+              'ResultCode' => 0,
+              'ResultMessage' => nil,
+              'Success' => true
+          }
+          response.body
+        end # restore_vm
+      end # Mock
+
+    end # Compute
+  end # ArubaCloud
+end # Fog

data/lib/fog/arubacloud/compute/requests/suspend_scheduled_operations.rb

@@ -0,0 +1,43 @@
+# coding: utf-8
+#
+# Author:: Dangleterre Michaël
+# © Copyright ArubaCloud.
+#
+# LICENSE: MIT (http://opensource.org/licenses/MIT)
+#
+
+require 'fog/arubacloud/service'
+require 'fog/arubacloud/error'
+require 'benchmark'
+
+
+module Fog
+  module ArubaCloud
+    class Compute
+      class Real
+        def suspend_scheduled_operations(operationid)
+          body = self.body('SetUpdateServerScheduledOperation').merge({:operationid => operationid})
+          response = nil
+          time = Benchmark.realtime {
+            response = request(body , 'SetUpdateServerScheduledOperation', 'SetUpdateServerScheduledOperation Error')
+          }
+          Fog::Logger.debug("SetUpdateServerScheduledOperation time: #{time}")
+          if response['Success']
+            response
+          else
+            raise Fog::ArubaCloud::Errors::RequestError.new('Error in request.')
+          end
+        end # suspend_scheduled_operations
+
+        class Mock
+          def get_scheduled_operations
+            raise Fog::Errors::MockNotImplemented.new(
+                      'Mock not implemented. Feel free to contribute.'
+                  )
+          end # get_scheduled_operations
+        end # Mock
+      end # Real
+
+    end # Compute
+  end # ArubaCloud
+end # Fog

data/lib/fog/arubacloud/compute.rb

@@ -1,3 +1,4 @@
+# coding: utf-8
 #
 # Author:: Alessio Rocchi (<alessio.rocchi@staff.aruba.it>)
 # © Copyright ArubaCloud.
@@ -6,10 +7,11 @@
 #
 
 require 'fog/arubacloud/service'
+require 'benchmark'
 
 module Fog
-  module Compute
-    class ArubaCloud < Fog::Service
+  module ArubaCloud
+    class Compute < Fog::Service
 
       # Define global constant to enumerate service type (We will need them in Vagrant :P)
       PRO_HV    = 1
@@ -21,7 +23,7 @@ module Fog
       requires :arubacloud_username, :arubacloud_password
 
       # Models
-      model_path 'fog/arubacloud/models/compute'
+      model_path 'fog/arubacloud/compute/models'
       collection :servers
       model      :server
       collection :ips
@@ -32,9 +34,19 @@ module Fog
       model      :disk
       collection :network_adapters
       model      :network_adapter
+      collection :snapshots
+      model      :snapshot
+      collection :schedules
+      model      :schedule
+      collection :loadbalancers
+      model      :loadbalancer
+      collection :custom_templates
+      model      :custom_template
+      collection :sharedstorages
+      model      :sharedstorage
 
       # Requests
-      request_path 'fog/arubacloud/requests/compute'
+      request_path 'fog/arubacloud/compute/requests'
       request :power_on_vm
       request :power_off_vm
       request :get_servers
@@ -47,9 +59,41 @@ module Fog
       request :get_purchased_ip_addresses
       request :get_hypervisors
       request :reinitialize_vm
+      request :create_snapshot
+      request :apply_snapshot
+      request :delete_snapshot
+      request :archive_vm
+      request :restore_vm
+      request :get_scheduled_operations
+      request :suspend_scheduled_operations
+      request :delete_scheduled_operation
+      request :create_scheduled_operation
+      request :create_scheduled_occurrence
+      request :create_loadbalancer
+      request :remove_loadbalancer
+      request :get_loadbalancer
+      request :modify_loadbalancer
+      request :enable_loadbalancer
+      request :disable_loadbalancer
+      request :get_lb_stats
+      request :get_lb_loads
+      request :add_lb_rule
+      request :remove_instance
+      request :add_instance
+      request :get_notifications
+      request :add_contact
+      request :remove_contact
+      request :manage_custom_template
+      request :delete_custom_template
+      request :get_custom_templates
+      request :get_shared_storage
+      request :create_shared_storage
+      request :edit_shared_storage
+      request :delete_shared_storage
+      request :rename_shared_storage
+      request :get_package_id
 
-      # Mock class to run a fake instance of the Service with no real connections.
-      class Mock < Fog::ArubaCloud::Service
+      class BaseObject < Fog::ArubaCloud::Service
         def initialize(options={})
           @arubacloud_username = options[:arubacloud_username] || ''
           @arubacloud_password = options[:arubacloud_password] || ''
@@ -68,29 +112,69 @@ module Fog
               :Password => @arubacloud_password
           }
         end
+
+        # Method generator to wrap around request inside requests files.
+        # @param [Hash] body
+        # @param [String] method_name
+        # @param [String] failure_message
+        # @param [Bool] benchmark
+        def request(body={}, method_name='', failure_message='', benchmark=true)
+          options = {
+              :http_method => :post,
+              :method => method_name,
+              :body => Fog::JSON.encode(body)
+          }
+          response = nil
+
+          if benchmark
+            time = Benchmark.realtime {
+              response = _request(options)
+            }
+            Fog::Logger.debug("#{options[:method]} took: #{time}")
+          else
+            response = _request(options)
+          end
+          if response['Success']
+            response
+          else
+            Fog::Logger.debug("Request failed. Debug: #{response}")
+	    if !response['ResultMessage'] || response['ResultMessage'].empty?
+		raise Fog::ArubaCloud::Errors::RequestError.new(failure_message)
+	    else
+		raise Fog::ArubaCloud::Errors::RequestError.new(response['ResultMessage'], response  )
+	    end
+          end
+        end
+      end
+
+      class Mock < BaseObject
+        def initialize(*params)
+          super(*params)
+        end
+
+        def body(method)
+          super(method)
+        end
+
+        def request(body={}, method_name='', failure_message='', benchmark=true)
+          super(body, method_name, failure_message, benchmark)
+        end
       end #Mock
 
-      class Real < Fog::ArubaCloud::Service
-        def initialize(options={})
-          @arubacloud_username = options[:arubacloud_username] || ''
-          @arubacloud_password = options[:arubacloud_password] || ''
-          @ws_enduser_url = options[:url] || Fog::ArubaCloud::DEFAULT_WS_ENDUSER_URL
+      class Real < BaseObject
+        def initialize(*params)
+          super(*params)
         end
 
-        # Return the base json object used by each request.
-        # @param method [String] the name of the method to call.
-        # @return [Hash] base scheme for json request.
         def body(method)
-          {
-              :ApplicationId => method,
-              :RequestId => method,
-              :Sessionid => method,
-              :Username => @arubacloud_username,
-              :Password => @arubacloud_password
-          }
+          super(method)
+        end
+
+        def request(body={}, method_name='', failure_message='', benchmark=true)
+          super(body, method_name, failure_message, benchmark)
         end
       end #Real
 
     end #ArubaCloud
   end #Compute
-end #Fog
+end #Fog

data/lib/fog/arubacloud/error.rb

@@ -59,6 +59,10 @@ module Fog
 
       end
 
+      class InvalidParameterValue < Error
+
+      end
+
       class InvalidStateException < ::RuntimeError
         attr_reader :desired_state
         attr_reader :current_state

data/lib/fog/arubacloud/service.rb

@@ -16,7 +16,7 @@ module Fog
         @ws_enduser_url = url || Fog::ArubaCloud::DEFAULT_WS_ENDUSER_URL
       end
 
-      def request(options)
+      def _request(options)
         http_method = options[:http_method] || :get
         @request_url = "#{@ws_enduser_url}/#{options[:method]}"
 
@@ -35,7 +35,9 @@ module Fog
           response = @connection.request(:method => http_method)
         rescue Excon::Errors::Timeout
           # raise an error
-          raise Fog::ArubaCloud::Errors::RequestTimeOut.new("Request timed out after: #{60 unless params[:read_timeout]}")
+          raise Fog::ArubaCloud::Errors::RequestTimeOut.new(
+              "Request timed out after: #{60 unless params[:read_timeout]}"
+          )
         end
 
         # decode the response and return it

data/lib/fog/arubacloud/version.rb

@@ -1,3 +1,4 @@
+# coding: utf-8
 #
 # Author:: Alessio Rocchi (<alessio.rocchi@staff.aruba.it>)
 # © Copyright ArubaCloud.
@@ -6,7 +7,7 @@
 #
 
 module Fog
-  module Arubacloud
-    VERSION = '0.0.3'
+  module ArubaCloud
+    VERSION = '0.0.5'
   end
 end

data/lib/fog/arubacloud.rb

@@ -10,22 +10,14 @@ require 'fog/json'
 
 
 module Fog
-  module Compute
-    autoload :ArubaCloud, File.expand_path('../arubacloud/compute', __FILE__)
-
-    def self.new(attributes)
-      attributes.delete(:provider)
-      Fog::Compute::ArubaCloud.new(attributes)
-    end
-
-  end
-
   module ArubaCloud
     extend Fog::Provider
-
+    
+    autoload :ArubaCloud, File.expand_path('../arubacloud/compute', __FILE__)
     DEFAULT_API_VERSION = '2.9'
     DEFAULT_WS_ENDUSER_URL = "https://api.dc2.computing.cloud.it/WsEndUser/v#{DEFAULT_API_VERSION}/WsEndUser.svc/json"
 
     service(:compute, 'Compute')
+    
   end
-end
+end

data/spec/fog/compute/arubacloud/models/disk_spec.rb

@@ -0,0 +1,63 @@
+require File.expand_path('spec/spec_helper')
+require 'fog/arubacloud/compute/models/disk'
+
+describe Fog::ArubaCloud::Compute::Disk do
+  include ModelSetup
+
+  let (:disk_class) do
+    class Fog::ArubaCloud::Compute::Disk
+      def self.read_identity
+        instance_variable_get('@identity')
+      end
+    end
+    Fog::ArubaCloud::Compute::Disk
+  end
+
+  let(:service) { Object.new }
+  let(:disk) { Fog::ArubaCloud::Compute::Disk.new }
+
+  it 'must respond to #create' do
+    disk.must_respond_to :create
+  end
+
+  describe '#create' do
+    describe 'passing a wrong disk size >500GB' do
+      before :each do
+        disk.size = 600
+        disk.virtual_disk_type = 1
+      end
+
+      it 'should raise BadDiskSize' do
+        disk.stub(:service, service) do
+          proc {disk.create}.must_raise Fog::ArubaCloud::Errors::BadDiskSize
+        end
+      end
+    end
+
+    describe 'passing wrong disk type (> 3)' do
+      before :each do
+        disk.size = 100
+        disk.virtual_disk_type = 4
+      end
+
+      it 'should raise BadDiskNumber' do
+        disk.stub(:service, service) do
+          proc {disk.create}.must_raise Fog::ArubaCloud::Errors::BadDiskNumber
+        end
+      end
+    end
+
+    describe 'passing correct values' do
+      before :each do
+        disk.size = 100
+        disk.virtual_disk_type = 1
+      end
+
+      it 'should return' do
+        disk.stub(:service, service) do
+          disk.create
+        end
+      end
+    end
+  end
+end

data/spec/fog/compute/arubacloud/models/disks_spec.rb

@@ -0,0 +1,11 @@
+require File.expand_path('spec/spec_helper')
+require File.expand_path('lib/fog/arubacloud/compute/models/disks')
+
+describe Fog::ArubaCloud::Compute::Disks do
+  subject { Fog::ArubaCloud::Compute::Disks }
+
+  it 'should be a collection of Disk' do
+    subject.model.must_equal(Fog::ArubaCloud::Compute::Disk)
+  end
+
+end

data/spec/fog/compute/arubacloud/models/ip_spec.rb

@@ -0,0 +1,53 @@
+require File.expand_path('spec/spec_helper')
+require 'fog/arubacloud/compute/models/ip'
+
+describe Fog::ArubaCloud::Compute::IP do
+  include ModelSetup
+
+  let (:ip_class) do
+    class Fog::ArubaCloud::Compute::IP
+      def self.read_identity
+        instance_variable_get('@identity')
+      end
+    end
+    Fog::ArubaCloud::Compute::IP
+  end
+
+  let(:service) { Object.new }
+  let(:ip) { Fog::ArubaCloud::Compute::IP.new }
+
+  it 'must respond to #purchase' do
+    ip.must_respond_to :purchase
+  end
+
+  it 'must respond to #remove' do
+    ip.must_respond_to :remove
+  end
+
+  describe '#remove' do
+    describe 'without ServerId set' do
+      before :each do
+        ip.id = nil
+      end
+
+      it 'should raise ArgumentError' do
+        ip.stub(:service, service) do
+          proc {ip.remove}.must_raise ArgumentError
+        end
+      end
+    end
+
+    describe 'still attached to the server' do
+      before :each do
+        ip.id = 23432
+        ip.server = 3254324
+      end
+
+      it 'should raise RequestError' do
+        ip.stub(:service, service) do
+          proc {ip.remove}.must_raise Fog::ArubaCloud::Errors::RequestError
+        end
+      end
+    end
+  end
+end

data/spec/fog/compute/arubacloud/models/ips_spec.rb

@@ -0,0 +1,11 @@
+require File.expand_path('spec/spec_helper')
+require 'fog/arubacloud/compute/models/ips'
+
+describe Fog::ArubaCloud::Compute::Ips do
+  subject { Fog::ArubaCloud::Compute::Ips }
+
+  it 'should be a collection of IP' do
+    subject.model.must_equal(Fog::ArubaCloud::Compute::IP)
+  end
+
+end