azure-plus 0.6.5

data/test/integration/blob/lease/renew_lease_test.rb

@@ -0,0 +1,42 @@
+#-------------------------------------------------------------------------
+# # Copyright (c) Microsoft and contributors. All rights reserved.
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#   http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#--------------------------------------------------------------------------
+require "integration/test_helper"
+require "azure/blob/blob_service"
+
+describe Azure::Blob::BlobService do
+  subject { Azure::Blob::BlobService.new }
+  
+  describe '#renew_lease' do
+    let(:container_name) { ContainerNameHelper.name }
+    let(:blob_name) { "blobname" }
+    let(:length) { 1024 }
+    before { 
+      subject.create_container container_name
+    }
+
+    it 'should be possible to renew a lease' do
+      subject.create_page_blob container_name, blob_name, length
+
+      lease_id = subject.acquire_lease container_name, blob_name
+      lease_id.wont_be_nil
+
+      new_lease_id = subject.renew_lease container_name, blob_name, lease_id
+      new_lease_id.wont_be_nil
+
+      # renewing a lease returns the same lease id
+      new_lease_id.must_equal lease_id
+    end
+  end
+end

data/test/integration/blob/list_blobs_test.rb

@@ -0,0 +1,113 @@
+#-------------------------------------------------------------------------
+# # Copyright (c) Microsoft and contributors. All rights reserved.
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#   http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#--------------------------------------------------------------------------
+require "integration/test_helper"
+require "azure/blob/blob_service"
+
+describe Azure::Blob::BlobService do
+  subject { Azure::Blob::BlobService.new }
+  after { TableNameHelper.clean }
+
+  describe '#list_blobs' do
+    let(:container_name) { ContainerNameHelper.name }
+    let(:blob_names) { ["blobname0","blobname1","blobname2","blobname3"] }
+    let(:content) { content = ""; 1024.times.each{|i| content << "@" }; content }
+    let(:metadata) { { "CustomMetadataProperty"=>"CustomMetadataValue" } }
+    let(:options) { { :blob_content_type=>"application/foo", :metadata => metadata } }
+
+    before { 
+      subject.create_container container_name
+      blob_names.each { |blob_name|
+        subject.create_block_blob container_name, blob_name, content, options
+      }
+    }
+
+    it 'lists the available blobs' do
+      result = subject.list_blobs container_name
+      result.length.must_equal blob_names.length
+      expected_blob_names = blob_names.each
+      result.each { |blob|
+        blob.name.must_equal expected_blob_names.next
+        blob.properties[:content_length].must_equal content.length
+      }
+    end
+
+    it 'lists the available blobs with prefix' do
+      result = subject.list_blobs container_name, { :prefix => "blobname0" }
+      result.length.must_equal 1
+    end
+
+    it 'lists the available blobs with max results and marker ' do
+      result = subject.list_blobs container_name, { :max_results => 2 }
+      result.length.must_equal 2
+      first_blob = result[0]
+      result.continuation_token.wont_equal("")
+
+      result = subject.list_blobs container_name, { :max_results => 2, :marker => result.continuation_token }
+      result.length.must_equal 2
+      result[0].name.wont_equal first_blob.name
+    end
+
+    describe 'when options hash is used' do
+      it 'if :metadata is set true, also returns custom metadata for the blobs' do
+        result = subject.list_blobs container_name, { :metadata => true }
+        result.length.must_equal blob_names.length
+        expected_blob_names = blob_names.each
+
+        result.each { |blob|
+          blob.name.must_equal expected_blob_names.next
+          blob.properties[:content_length].must_equal content.length
+
+          metadata.each { |k,v|
+            blob.metadata.must_include k.downcase
+            blob.metadata[k.downcase].must_equal v
+          }
+        }
+      end
+
+      it 'if :snapshots is set true, also returns snapshots' do
+        snapshot = subject.create_blob_snapshot container_name, blob_names[0]
+
+        # verify snapshots aren't returned on a normal call
+        result = subject.list_blobs container_name
+        result.length.must_equal blob_names.length
+
+        result = subject.list_blobs container_name, { :snapshots => true }
+        result.length.must_equal blob_names.length + 1
+        found_snapshot = false
+        result.each { |blob|
+          found_snapshot = true if blob.name == blob_names[0] and blob.snapshot == snapshot
+        }
+        found_snapshot.must_equal true
+      end
+
+      it 'if :uncommittedblobs is set true, also returns blobs with uploaded, uncommitted blocks' do
+        # uncommited blob/block
+        subject.create_blob_block container_name, "blockblobname", "blockid", content
+
+        # verify uncommitted blobs aren't returned on a normal call
+        result = subject.list_blobs container_name
+        result.length.must_equal blob_names.length
+
+        result = subject.list_blobs container_name, { :uncommittedblobs => true }
+        result.length.must_equal blob_names.length + 1
+        found_uncommitted = true
+        result.each { |blob|
+          found_uncommitted = true if blob.name == "blockblobname"
+        }
+        found_uncommitted.must_equal true
+      end
+    end
+  end
+end

data/test/integration/cloud_service/Cloud_Create_test.rb

@@ -0,0 +1,44 @@
+#-------------------------------------------------------------------------
+# Copyright 2013 Microsoft Open Technologies, Inc.
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#   http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#--------------------------------------------------------------------------
+require 'integration/test_helper'
+
+describe Azure::CloudServiceManagementService do
+
+  subject { Azure::CloudServiceManagementService.new }
+  let(:options) do
+    {
+      location: 'West US',
+      description: 'Test'
+    }
+  end
+
+  before do
+    Loggerx.expects(:puts).returns(nil).at_least(0)
+  end
+
+  describe '#create_cloud_service' do
+    before do
+      @cloud_name = random_string('test-service-cloud', 10)
+      subject.create_cloud_service(@cloud_name, options)
+    end
+
+    it 'Creates a new cloud service in Windows Azure.' do
+      cloud_service = subject.get_cloud_service_properties(@cloud_name)
+      assert cloud_service.name, @cloud_name
+      assert cloud_service.location, options[:location]
+      assert cloud_service.virtual_machines, Hash.new
+    end
+  end
+end

data/test/integration/cloud_service/Cloud_Delete_test.rb

@@ -0,0 +1,44 @@
+#-------------------------------------------------------------------------
+# Copyright 2013 Microsoft Open Technologies, Inc.
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#   http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#--------------------------------------------------------------------------
+require 'integration/test_helper'
+
+describe Azure::CloudServiceManagementService do
+
+  subject { Azure::CloudServiceManagementService.new }
+
+  let(:options) do
+    {
+      location: 'West US',
+      description: 'Test'
+    }
+  end
+
+  before do
+    Loggerx.expects(:puts).returns(nil).at_least(0)
+  end
+
+  describe '#delete_cloud_service' do
+    before do
+      @cloud_name = random_string('test-service-cloud', 10)
+      subject.create_cloud_service(@cloud_name, options)
+    end
+
+    it 'Deletes the cloud service in Windows Azure.' do
+      subject.delete_cloud_service(@cloud_name)
+      present = subject.get_cloud_service(@cloud_name)
+      assert_equal present, false
+    end
+  end
+end

data/test/integration/database/create_sql_server_firewall_test.rb

@@ -0,0 +1,86 @@
+#-------------------------------------------------------------------------
+# Copyright 2013 Microsoft Open Technologies, Inc.
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#   http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#--------------------------------------------------------------------------
+require "integration/test_helper"
+
+describe Azure::SqlDatabaseManagementService do
+
+  subject { Azure::SqlDatabaseManagementService.new }
+  let(:login_name) {'ms_open_tech'}
+  let(:sql_server) { subject.create_server(login_name, 'User1@123', WindowsImageLocation) }
+
+  describe "#set_sql_server_firewall_rule" do
+
+    before {
+      Loggerx.expects(:puts).returns(nil).at_least(0)
+    }
+
+    after {
+      subject.delete_server(sql_server.name)
+    }
+
+    it "should adds a new server-level firewall rule for a SQL Database server with requester's IP address." do
+      subject.set_sql_server_firewall_rule(sql_server.name, "rule1")
+      sql_server_firewalls = subject.list_sql_server_firewall_rules(sql_server.name)
+      sql_server_firewalls.wont_be_nil
+      sql_server_firewalls.must_be_kind_of Array
+      sql_server_firewalls.first.must_be_kind_of Hash
+      sql_server_firewalls.size.must_equal 1
+      firewall = sql_server_firewalls.first
+      firewall[:rule].must_equal 'rule1'
+      firewall[:end_ip_address].wont_be_nil
+      firewall[:start_ip_address].wont_be_nil
+    end
+
+    it "should adds a new server-level firewall rule for a SQL Database server with given IP range." do
+      ip_range = {:start_ip_address => "10.20.30.0", :end_ip_address => "10.20.30.255"}
+      subject.set_sql_server_firewall_rule(sql_server.name, "rule2", ip_range)
+      sql_server_firewalls = subject.list_sql_server_firewall_rules(sql_server.name)
+      sql_server_firewalls.wont_be_nil
+      sql_server_firewalls.must_be_kind_of Array
+      sql_server_firewalls.first.must_be_kind_of Hash
+      sql_server_firewalls.size.must_equal 1
+
+      firewall = sql_server_firewalls.last
+      firewall[:rule].must_equal 'rule2'
+      firewall[:end_ip_address].must_equal "10.20.30.255"
+      firewall[:start_ip_address].must_equal "10.20.30.0"
+    end
+
+    it "should updates an existing server-level firewall rule for a SQL Database server." do
+      ip_range = {:start_ip_address => "10.20.30.100", :end_ip_address => "10.20.30.150"}
+      subject.set_sql_server_firewall_rule(sql_server.name, "rule2", ip_range)
+      sql_server_firewalls = subject.list_sql_server_firewall_rules(sql_server.name)
+      firewall = sql_server_firewalls.last
+      sql_server_firewalls.wont_be_nil
+      sql_server_firewalls.must_be_kind_of Array
+      sql_server_firewalls.first.must_be_kind_of Hash
+      sql_server_firewalls.size.must_equal 1
+
+      firewall = sql_server_firewalls.last
+      firewall[:rule].must_equal 'rule2'
+      firewall[:end_ip_address].must_equal "10.20.30.150"
+      firewall[:start_ip_address].must_equal "10.20.30.100"
+    end
+
+    it "errors if the sql server does not exist" do
+      server_name = "unknown-server"
+      exception = assert_raises(Azure::Error::Error) do
+        subject.set_sql_server_firewall_rule(server_name, "rule1")
+      end
+      assert_match(/does not have server #{server_name}./i, exception.message)
+    end
+  end
+
+end

data/test/integration/database/create_sql_server_test.rb

@@ -0,0 +1,53 @@
+#-------------------------------------------------------------------------
+# Copyright 2013 Microsoft Open Technologies, Inc.
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#   http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#--------------------------------------------------------------------------
+require "integration/test_helper"
+
+describe Azure::SqlDatabaseManagementService do
+
+  subject { Azure::SqlDatabaseManagementService.new }
+  let(:login_name) {'ms_open_tech'}
+  describe "#create_server" do
+
+    before {
+      Loggerx.expects(:puts).returns(nil).at_least(0)
+    }
+
+    it "should be able to create a new sql database server." do
+      sql_server = subject.create_server(login_name, 'User@123', WindowsImageLocation)
+      sql_server.name.wont_be_nil
+      sql_server.location.must_equal WindowsImageLocation
+      sql_server.administrator_login.must_equal login_name
+      subject.delete_server sql_server.name
+    end
+
+    it "errors if the sql server location does not exist" do
+      location = 'unknown-location'
+      exception = assert_raises(RuntimeError) do
+        subject.create_server(login_name, 'User@123', location)
+      end
+      assert_match(/Location \'#{location}\' cannot be found/i, exception.message)
+    end
+
+    it "errors if the sql server passsword is invalid" do
+      password = 'weak'
+      exception = assert_raises(RuntimeError) do
+        subject.create_server(login_name, password, WindowsImageLocation)
+      end
+      assert_match(/Password validation failed/i, exception.message)
+    end
+
+  end
+
+end

data/test/integration/database/delete_sql_server_firewall_test.rb

@@ -0,0 +1,70 @@
+#-------------------------------------------------------------------------
+# Copyright 2013 Microsoft Open Technologies, Inc.
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#   http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#--------------------------------------------------------------------------
+require "integration/test_helper"
+
+describe Azure::SqlDatabaseManagementService do
+
+  let(:login_name) {'ms_open_tech'}
+  let(:sql_server) { subject.create_server(login_name, 'User1@123', WindowsImageLocation) }
+  subject { Azure::SqlDatabaseManagementService.new }
+
+  before {
+    Loggerx.expects(:puts).returns(nil).at_least(0)
+    subject.set_sql_server_firewall_rule(sql_server.name, "rule1")
+    ip_range = {:start_ip_address => "10.20.30.0", :end_ip_address => "10.20.30.255"}
+    subject.set_sql_server_firewall_rule(sql_server.name, "rule2", ip_range)
+  }
+
+  after {
+    subject.delete_server(sql_server.name)
+  }
+
+  describe "#delete_sql_server_firewall_rule" do
+
+    it "delete sql database server firewall" do
+      server_name = sql_server.name
+      subject.delete_sql_server_firewall_rule(server_name, 'rule1')
+
+      sql_server_firewalls = subject.list_sql_server_firewall_rules(server_name)
+      sql_server_firewalls.wont_be_nil
+      sql_server_firewalls.must_be_kind_of Array
+      sql_server_firewalls.first.must_be_kind_of Hash
+      sql_server_firewalls.size.must_equal 1
+      firewall = sql_server_firewalls.first
+      firewall[:rule].must_equal 'rule2'
+      firewall[:end_ip_address].must_equal "10.20.30.255"
+      firewall[:start_ip_address].must_equal "10.20.30.0"
+    end
+
+    it "errors if the sql server does not exist" do
+      server_name = "unknown-server"
+      exception = assert_raises(Azure::Error::Error) do
+        subject.delete_sql_server_firewall_rule(server_name, 'rule1')
+      end
+      assert_match(/does not have server #{server_name}./i, exception.message)
+    end
+
+    it "errors if the sql server firewall rule does not exist" do
+      rule_name = 'rule10'
+      exception = assert_raises(RuntimeError) do
+        subject.delete_sql_server_firewall_rule(sql_server.name, rule_name)
+      end
+      assert_match(/The specified firewall rule #{rule_name} does not exist./i, exception.message)
+    end
+
+  end
+
+end
+