azure-plus 0.6.5

data/test/unit/core/auth/shared_key_test.rb

@@ -0,0 +1,58 @@
+#-------------------------------------------------------------------------
+# # 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 "test_helper"
+require "azure/core/auth/shared_key"
+
+describe Azure::Core::Auth::SharedKey do
+  subject { Azure::Core::Auth::SharedKey.new "account-name", "YWNjZXNzLWtleQ==" }
+  
+  let(:method) { "POST" }
+  let(:uri) { URI.parse "http://dummy.uri/resource" }
+  let(:headers) do
+    {
+      "Content-Encoding"=> "foo",
+      "Content-Language"=> "foo",
+      "Content-Length"=> "foo",
+      "Content-MD5"=> "foo",
+      "Content-Type"=> "foo",
+      "Date"=> "foo",
+      "If-Modified-Since"=> "foo",
+      "If-Match"=> "foo",
+      "If-None-Match"=> "foo",
+      "If-Unmodified-Since"=> "foo",
+      "Range"=> "foo", 
+      "x-ms-ImATeapot"=> "teapot",
+      "x-ms-ShortAndStout"=>"True"
+    }
+  end
+
+  describe "sign" do
+    it "creates a signature from the provided HTTP method, uri, and a specific set of standard headers" do
+      subject.sign(method, uri, headers).must_equal "account-name:vcdxlDVoE1QvJerkg0ci3Wlnj2Qq8yzlsrkRf5dEU/I="
+    end
+  end
+  
+  describe "canonicalized_headers" do
+    it "creates a canonicalized header string" do
+      subject.canonicalized_headers(headers).must_equal "x-ms-imateapot:teapot\nx-ms-shortandstout:True"
+    end
+  end
+
+  describe "canonicalized_resource" do
+    it "creates a canonicalized resource string" do
+      subject.canonicalized_resource(uri).must_equal "/account-name/resource"
+    end
+  end
+end

data/test/unit/core/auth/signer_test.rb

@@ -0,0 +1,30 @@
+#-------------------------------------------------------------------------
+# # 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 "test_helper"
+require "azure/core/auth/signer"
+
+describe Azure::Core::Auth::Signer do
+  subject { Azure::Core::Auth::Signer.new "YWNjZXNzLWtleQ==" }
+
+  it "decodes the base64 encoded access_key" do
+    subject.access_key.must_equal "access-key"
+  end
+
+  describe "sign" do
+    it "creates a signature for the body, as a base64 encoded string, which represents a HMAC hash using the access_key" do
+      subject.sign("body").must_equal "iuUxVhs1E7PeSNx/90ViyJNO24160qYpoWeCcOsnMoM="
+    end
+  end
+end

data/test/unit/core/http/http_error_test.rb

@@ -0,0 +1,57 @@
+#-------------------------------------------------------------------------
+# # 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 "test_helper"
+require "azure/core/http/http_error"
+
+describe Azure::Core::Http::HTTPError do
+  let :http_response do
+    double(:body=> Fixtures[:http_error], :status_code=> 409, :uri=>'http://dummy.uri')
+  end
+
+  subject do
+    Azure::Core::Http::HTTPError.new(http_response)
+  end
+
+  it "is an instance of Azure::Core::Error" do
+    subject.must_be_kind_of Azure::Core::Error
+  end
+
+  it "lets us see the original uri" do
+    subject.uri.must_equal 'http://dummy.uri'
+  end
+
+  it "lets us see the errors'status code" do
+    subject.status_code.must_equal 409
+  end
+
+  it "lets us see the error's type" do
+    subject.type.must_equal "TableAlreadyExists"
+  end
+
+  it "lets us see the error's description" do
+    subject.description.must_equal "The table specified already exists."
+  end
+
+  it "generates an error message that wraps both the type and description" do
+    subject.message.must_equal "TableAlreadyExists (409): The table specified already exists."
+  end
+
+  it "sets the type to unknown if the response body is not an XML" do
+    http_response.body = "\r\nInvalid request\r\n"
+
+    subject.type.must_equal "Unknown"
+    subject.description.must_equal "Invalid request"
+  end
+end

data/test/unit/core/http/http_request_test.rb

@@ -0,0 +1,66 @@
+#-------------------------------------------------------------------------
+# # 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 "test_helper"
+require "azure/core/http/http_request"
+
+describe Azure::Core::Http::HttpRequest do
+  describe " default_headers " do
+    subject do 
+      Azure::Core::Http::HttpRequest.new(:get, URI("/"), nil, "Thu, 04 Oct 2012 06:38:27 GMT")
+    end
+
+    it "sets the x-ms-date header to the current_time" do
+      subject.headers["x-ms-date"] = "Thu, 04 Oct 2012 06:38:27 GMT"
+    end
+
+    it "sets the x-ms-version header to the current API version" do
+      subject.headers["x-ms-version"] = "2011-08-18"
+    end
+
+    it "sets the DataServiceVersion header to the current API version" do
+      subject.headers["DataServiceVersion"] = "1.0;NetFx"
+    end
+
+    it "sets the MaxDataServiceVersion header to the current max` API version" do
+      subject.headers["MaxDataServiceVersion"] = "2.0;NetFx"
+    end
+
+    describe " when passed a body " do
+      subject do 
+        Azure::Core::Http::HttpRequest.new(:get, URI("/"), "<body/>")
+      end
+
+      it "sets the default Content-Type header" do
+        subject.headers["Content-Type"].must_equal "application/atom+xml; charset=utf-8"
+      end
+
+      it "sets the Content-Length header" do
+        subject.headers["Content-Length"].must_equal "7"
+      end
+
+      it "sets the Content-MD5 header to a Base64 encoded representation of the MD5 hash of the body" do
+        subject.headers["Content-MD5"].must_equal "PNeJy7qyzV4XUoBBHkVu0g=="
+      end
+    end
+
+    describe " when the body is nil " do
+      it "leaves the Content-Type, Content-Length, and Content-MD5 headers blank" do
+        subject.headers["Content-Type"].must_equal ""
+        subject.headers["Content-Length"].must_equal "0"
+        subject.headers["Content-MD5"].must_be_nil
+      end
+    end
+  end
+end

data/test/unit/core/http/http_response_test.rb

@@ -0,0 +1,45 @@
+#-------------------------------------------------------------------------
+# # 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 'test_helper'
+require "azure/core/http/http_response"
+
+describe Azure::Core::Http::HttpResponse do
+  it "converts net/http headers into strings" do
+    http_response = MiniTest::Mock.new
+    http_response.stub(:to_hash, { "Content-Type" => ["text/xml"] })
+
+    response = Azure::Core::Http::HttpResponse.new(http_response)
+    response.headers["Content-Type"].must_equal "text/xml"
+  end
+
+  describe Azure::Core::Http::HttpResponse::HeaderHash do
+    subject do
+      Azure::Core::Http::HttpResponse::HeaderHash.new(
+        "AsdAsd" => ["1"], "bazqux" => ["2"], "QUXFOO" => ["3"]
+      )
+    end
+
+    it "returns the header values as strings, not arrays" do
+      subject["AsdAsd"].must_equal "1"
+      subject["bazqux"].must_equal "2"
+      subject["QUXFOO"].must_equal "3"
+    end
+
+    it "obtains keys in a case-insensitive fashion" do
+      subject["asdasd"].must_equal "1"
+      subject["BaZqUx"].must_equal "2"
+    end
+  end
+end

data/test/unit/core/http/retry_policy_test.rb

@@ -0,0 +1,23 @@
+#-------------------------------------------------------------------------
+# # 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 "test_helper"
+require "azure/core/http/retry_policy"
+
+describe Azure::Core::Http::RetryPolicy do
+  it "uses blocks as retry logic" do
+    retry_policy = Azure::Core::Http::RetryPolicy.new do |a,b| true end
+    retry_policy.should_retry?(nil, nil).must_equal true
+  end
+end

data/test/unit/database/serialization_test.rb

@@ -0,0 +1,97 @@
+#-------------------------------------------------------------------------
+# 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 'test_helper'
+
+describe Azure::SqlDatabaseManagement::Serialization do
+  subject { Azure::SqlDatabaseManagement::Serialization }
+
+  let(:sql_servers_xml) { Fixtures['list_sql_database'] }
+  before do
+    Azure.config.sql_database_authentication_mode = :sql_server
+  end
+  describe '#databases_from_xml' do
+
+    it 'accepts an XML string' do
+      subject.databases_from_xml Nokogiri::XML(sql_servers_xml)
+    end
+
+    it 'returns an Array of SqlDatabaseServer instances' do
+      results = subject.databases_from_xml Nokogiri::XML(sql_servers_xml)
+      results.must_be_kind_of Array
+      results[0].must_be_kind_of Azure::SqlDatabaseManagement::SqlDatabase
+      results.count.must_equal 3
+    end
+  end
+
+  describe '#database_to_xml' do
+    let(:login) { 'administrator' }
+    let(:password) { 'Password@123' }
+    let(:location) { 'West US' }
+
+    it 'accepts an name and options hash' do
+      subject.database_to_xml(login, password, location)
+    end
+
+    it 'serializes the argument to xml' do
+      results = subject.database_to_xml login, password, location
+      doc = Nokogiri::XML results
+      doc.css('AdministratorLogin').text.must_equal login
+      doc.css('AdministratorLoginPassword').text.must_equal password
+      doc.css('Location').text.must_equal location
+      results.must_be_kind_of String
+    end
+
+  end
+
+  describe '#firewall_rule_to_xml' do
+    let(:options) do
+      {
+        start_ip_address: '10.0.0.1',
+        end_ip_address: '10.0.0.255'
+      }
+    end
+
+    it 'accepts a ip range' do
+      subject.firewall_rule_to_xml(options)
+    end
+
+    it 'serializes the argument to xml' do
+      results = subject.firewall_rule_to_xml options
+      doc = Nokogiri::XML results
+      doc.css('StartIpAddress').text.must_equal options[:start_ip_address]
+      doc.css('EndIpAddress').text.must_equal options[:end_ip_address]
+      results.must_be_kind_of String
+    end
+
+  end
+
+  describe '#database_firewall_from_xml' do
+    let(:sql_server_firewall_xml) { Fixtures['list_sql_server_firewall'] }
+
+    it 'accepts an XML string' do
+      subject.database_firewall_from_xml Nokogiri::XML(sql_server_firewall_xml)
+    end
+
+    it 'returns an Array of SqlDatabaseServer instances with firewall' do
+      results = subject.database_firewall_from_xml(
+        Nokogiri::XML(sql_server_firewall_xml)
+      )
+      results.must_be_kind_of Array
+      results[0].must_be_kind_of Hash
+      results.count.must_equal 4
+    end
+
+  end
+end

data/test/unit/database/sql_database_server_service_test.rb

@@ -0,0 +1,288 @@
+#-------------------------------------------------------------------------
+# 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 'test_helper'
+
+describe 'Azure::SqlDatabaseManagementService' do
+  subject { Azure::SqlDatabaseManagementService.new }
+
+  let(:response_headers) { {} }
+  let(:mock_request) { mock }
+  let(:response) { mock }
+  let(:response_xml) { nil }
+
+  describe 'SQL Server authentication Endpoint' do
+    before do
+      Loggerx.expects(:puts).returns(nil).at_least(0)
+      mock_request.stubs(:headers).returns(response_headers)
+      mock_request.expects(:call).returns(Nokogiri::XML response_xml).at_least(0)
+      Azure.config.sql_database_authentication_mode = :sql_server
+    end
+
+    describe '#list_servers' do
+      let(:response_xml) { Fixtures['list_sql_database'] }
+      let(:method) { :get }
+      let(:request_path) { '/servers' }
+
+      before do
+        SqlManagementHttpRequest.stubs(:new).with(
+          method,
+          request_path,
+          nil
+        ).returns(mock_request)
+      end
+
+      it 'assembles a URI for the request' do
+        subject.list_servers
+      end
+
+      it 'returns a list of sql servers for the account' do
+        results = subject.list_servers
+        results.must_be_kind_of Array
+        results.length.must_equal 3
+        sql_server = results.first
+        sql_server.must_be_kind_of Azure::SqlDatabaseManagement::SqlDatabase
+        sql_server.name.must_equal 'nn1koc2ney'
+        sql_server.administrator_login.must_equal 'SqlServer2'
+        sql_server.location.must_equal 'West US'
+        sql_server.feature_name.must_equal 'Premium Mode'
+        sql_server.feature_value.must_equal 'false'
+      end
+    end
+
+    describe '#delete_server' do
+      before do
+        Azure::SqlDatabaseManagementService.any_instance.stubs(
+          :list_servers
+        ).returns([])
+      end
+
+      it 'error if sql server does not exists' do
+        s_name = 'unknown-server'
+        exception = assert_raises(Azure::Error::Error) do
+          subject.delete_server s_name
+        end
+        s_id = Azure.config.subscription_id
+        assert_match(/Subscription #{s_id} does not have server #{s_name}./i,
+                     exception.message)
+      end
+
+    end
+
+    describe '#list_sql_server_firewall_rules' do
+      let(:response_xml) { Fixtures['list_sql_server_firewall'] }
+      let(:method) { :get }
+      let(:sql_server_name) { 'server1' }
+      let(:request_path) { "/servers/#{sql_server_name}/firewallrules" }
+
+      before do
+        sql_server = Azure::SqlDatabaseManagement::SqlDatabase.new do |server|
+          server.name = sql_server_name
+        end
+        Azure::SqlDatabaseManagementService.any_instance.stubs(
+          :list_servers
+        ).returns([sql_server])
+
+        SqlManagementHttpRequest.stubs(:new).with(
+          method,
+          request_path,
+          nil
+        ).returns(mock_request)
+      end
+
+      it 'assembles a URI for the sql server firewall request' do
+        subject.list_sql_server_firewall_rules sql_server_name
+      end
+
+      it 'returns a list of firewall of given sql servers' do
+        results = subject.list_sql_server_firewall_rules sql_server_name
+        results.must_be_kind_of Array
+        results.length.must_equal 4
+        results.first.must_be_kind_of Hash
+      end
+    end
+
+    describe '#create_server' do
+      let(:response_xml) { Fixtures['create_sql_database_server'] }
+      let(:method) { :post }
+      let(:request_path) { '/servers' }
+      let(:password) { 'User@123' }
+      let(:login) { 'ms_open_tech' }
+      let(:location) { 'West US' }
+
+      before do
+        SqlManagementHttpRequest.stubs(:new).with(
+          method,
+          request_path,
+          anything
+        ).returns(mock_request)
+
+        mock_request.stubs(:headers).returns(response_headers)
+        mock_request.expects(:call).returns(
+          Nokogiri::XML response_xml
+        ).at_least(0)
+      end
+
+      it 'create sql server' do
+        sql_server = subject.create_server(login, password, location)
+        sql_server.name.must_equal 'gxyfzrhx2c'
+        sql_server.administrator_login.must_equal login
+        sql_server.location.must_equal location
+      end
+    end
+
+    describe '#set_sql_server_firewall_rule' do
+      it 'create sql server' do
+        ip_range = { start_ip_address: '0.0.0.1', end_ip_address: '0.0.0.5' }
+        exception = assert_raises(RuntimeError) do
+          subject.set_sql_server_firewall_rule('zv2nfoah2t1', ip_range)
+        end
+        assert_match(/Missing parameter server_name or rule_name/i,
+                     exception.message)
+      end
+    end
+  end
+
+  describe 'Management Certificate authentication Endpoint' do
+    before do
+      Loggerx.expects(:puts).returns(nil).at_least(0)
+      mock_request.stubs(:headers).returns(response_headers)
+      mock_request.expects(:call).returns(Nokogiri::XML response_xml).at_least(0)
+      Azure.config.sql_database_authentication_mode = :management_certificate
+    end
+
+    describe '#list_servers' do
+      let(:response_xml) { Fixtures['list_sql_database'] }
+      let(:method) { :get }
+      let(:request_path) { '/servers' }
+
+      before do
+        SqlManagementHttpRequest.stubs(:new).with(
+          method,
+          request_path,
+          nil
+        ).returns(mock_request)
+      end
+
+      it 'assembles a URI for the request' do
+        subject.list_servers
+      end
+
+      it 'returns a list of sql servers for the account' do
+        results = subject.list_servers
+        results.must_be_kind_of Array
+        results.length.must_equal 3
+        sql_server = results.first
+        sql_server.must_be_kind_of Azure::SqlDatabaseManagement::SqlDatabase
+        sql_server.name.must_equal 'nn1koc2ney'
+        sql_server.administrator_login.must_equal 'SqlServer2'
+        sql_server.location.must_equal 'West US'
+        sql_server.feature_name.must_equal 'Premium Mode'
+        sql_server.feature_value.must_equal 'false'
+      end
+    end
+
+    describe '#delete_server' do
+      before do
+        Azure::SqlDatabaseManagementService.any_instance.stubs(
+          :list_servers
+        ).returns([])
+      end
+
+      it 'error if sql server does not exists' do
+        s_name = 'unknown-server'
+        exception = assert_raises(Azure::Error::Error) do
+          subject.delete_server s_name
+        end
+        s_id = Azure.config.subscription_id
+        assert_match(/Subscription #{s_id} does not have server #{s_name}./i,
+                     exception.message)
+      end
+
+    end
+
+    describe '#list_sql_server_firewall_rules' do
+      let(:response_xml) { Fixtures['list_firewall_management_endpoint'] }
+      let(:method) { :get }
+      let(:sql_server_name) { 'server1' }
+      let(:request_path) { "/servers/#{sql_server_name}/firewallrules" }
+
+      before do
+        sql_server = Azure::SqlDatabaseManagement::SqlDatabase.new do |server|
+          server.name = sql_server_name
+        end
+        Azure::SqlDatabaseManagementService.any_instance.stubs(
+          :list_servers
+        ).returns([sql_server])
+
+        SqlManagementHttpRequest.stubs(:new).with(
+          method,
+          request_path,
+          nil
+        ).returns(mock_request)
+      end
+
+      it 'assembles a URI for the sql server firewall request' do
+        subject.list_sql_server_firewall_rules sql_server_name
+      end
+
+      it 'returns a list of firewall of given sql servers' do
+        results = subject.list_sql_server_firewall_rules sql_server_name
+        results.must_be_kind_of Array
+        results.length.must_equal 4
+        results.first.must_be_kind_of Hash
+      end
+    end
+
+    describe '#create_server' do
+      let(:response_xml) { Fixtures['create_sql_database_server'] }
+      let(:method) { :post }
+      let(:request_path) { '/servers' }
+      let(:password) { 'User@123' }
+      let(:login) { 'ms_open_tech' }
+      let(:location) { 'West US' }
+
+      before do
+        SqlManagementHttpRequest.stubs(:new).with(
+          method,
+          request_path,
+          anything
+        ).returns(mock_request)
+
+        mock_request.stubs(:headers).returns(response_headers)
+        mock_request.expects(:call).returns(
+          Nokogiri::XML response_xml
+        ).at_least(0)
+      end
+
+      it 'create sql server' do
+        sql_server = subject.create_server(login, password, location)
+        sql_server.name.must_equal 'gxyfzrhx2c'
+        sql_server.administrator_login.must_equal login
+        sql_server.location.must_equal location
+      end
+    end
+
+    describe '#set_sql_server_firewall_rule' do
+      it 'create sql server' do
+        ip_range = { start_ip_address: '0.0.0.1', end_ip_address: '0.0.0.5' }
+        exception = assert_raises(RuntimeError) do
+          subject.set_sql_server_firewall_rule('zv2nfoah2t1', ip_range)
+        end
+        assert_match(/Missing parameter server_name or rule_name/i,
+                     exception.message)
+      end
+    end
+  end
+end