icontrol 0.0.2

data/spec/fixtures/endpoint_helper.rb

@@ -0,0 +1,14 @@
+class EndpointHelper
+  # returns an endpoint to be passed to fakeweb
+  def self.wsdl_endpoint(class_name)
+    fqn = class_name.split("::")
+    return self.soap_endpoint + "?WSDL=#{fqn[1]}.#{fqn[2]}"
+  end
+
+  def self.soap_endpoint
+    icontrol_base = IControl.config[:base_url].split("://")
+    return icontrol_base[0] + "://" + IControl.config[:user] + ":" + IControl.config[:password] + "@" + icontrol_base[1..-1].join 
+  end
+
+end
+  

data/spec/fixtures/soap/soap_fixture.rb

@@ -0,0 +1,14 @@
+require "yaml"
+require "erb"
+
+class SOAPFixture
+  
+  @@responses = {}
+
+  def self.response(operation)
+    return @@responses[operation] if @@responses[operation]
+    file = File.read File.dirname(__FILE__) + "/xml/#{operation}_response.xml"
+    @@responses[operation] = file
+  end
+
+end

data/spec/fixtures/wsdl/wsdl_fixture.rb

@@ -0,0 +1,15 @@
+require "yaml"
+require "erb"
+
+class WSDLFixture
+  
+  @@wsdl = {}
+
+  def self.wsdl(wsdl)
+    return @@wsdl[wsdl] if @@wsdl[wsdl]
+    file = File.read File.dirname(__FILE__) + "/xml/#{wsdl}.xml"
+    @@wsdl[wsdl] = file
+  end
+
+end
+

data/spec/icontrol_local_lb_pool_spec.rb

@@ -0,0 +1,119 @@
+require File.expand_path(File.dirname(__FILE__) + '/spec_helper')
+describe IControl::LocalLB::Pool do 
+
+  before do 
+    @pool = IControl::LocalLB::Pool.find("pool_test1")
+  end
+
+  describe "constructor" do
+    it "has an initializer that the attributes" do
+      pool = IControl::LocalLB::Pool.new(:id => "pool_test1")
+      pool.class.should be(IControl::LocalLB::Pool)
+    end
+  end
+
+  describe "find method" do
+
+    describe "when pool is not found" do 
+      it "should return nil" do       
+        IControl::LocalLB::Pool.find("none").should be(nil)
+      end
+    end
+    
+    describe "when pool is found" do
+      it "has to return a Pool Object" do
+        @pool.class.should be(IControl::LocalLB::Pool)
+      end
+    end
+
+  end
+
+
+  describe "create method" do 
+    
+    it "should return the created object if the creation was successful" do
+      @pools = IControl::LocalLB::Pool.find(:all)
+      @pools.map(&:id).include?("new_test_pool").should be(false)
+      new_created = IControl::LocalLB::Pool.create(
+                                                   :id => "new_test_pool",
+                                                   :lb_method => "LB_METHOD_ROUND_ROBIN",
+                                                   :members =>  [
+                                                                 IControl::Common::IPPortDefinition.new(:address => "192.168.6.122",:port=>"4036"),
+                                                                 IControl::Common::IPPortDefinition.new(:address => "192.168.6.123",:port=>"4036")
+                                                                ]
+                                                   )
+      
+      new_created.id.should == "new_test_pool"
+      new_created.lb_method.should  == "LB_METHOD_ROUND_ROBIN"
+      new_created.members.class.should be(Array)
+      new_created.members[0].class.should be(IControl::Common::IPPortDefinition)
+#      @pools = IControl::LocalLB::Pool.find(:all)
+#      @pools.map(&:id).include?("new_test_pool").should be(true)
+    end
+
+
+    it "should raise an exception when the pool already existed" do
+      lambda{
+        IControl::LocalLB::Pool.create(
+                                       :id => "new_test_pool",
+                                       :lb_method => "LB_METHOD_ROUND_ROBIN",
+                                       :members =>  [IControl::Common::IPPortDefinition.new(:address => "192.168.6.122",:port=>"4036")]
+                                       )
+      }.should raise_exception
+
+    end
+    
+  end
+
+  describe "status_for method" do 
+    it "should return the status of a given pool member given its address and port" do
+      status = @pool.status_for IControl::LocalLB::PoolMember.new(:address => "192.168.6.3",:port => "5050")
+      status.class.should be(Hash)
+    end
+
+    it "should return nil if the member is not found in the pool" do
+      status = @pool.status_for IControl::LocalLB::PoolMember.new(:address => "112.168.6.111",:port => "5050")
+      status.should be(nil)
+    end
+
+  end
+
+  
+  describe "monitor_rule method" do
+    it "should return an instance of MonitorRule" do
+      monitor_rule = @pool.monitor_rule
+      monitor_rule.class.should be(IControl::LocalLB::MonitorRule)
+    end
+  end
+
+
+  describe "monitor_rule= method" do
+    it "should allow the assignment of a monitor rule to a pool" do
+      @monitor_rule_before = @pool.monitor_rule
+      monitor_rule = IControl::LocalLB::MonitorRule.new(:monitor_templates => ["tcp"])
+      @pool.monitor_rule = monitor_rule
+      @monitor_rule_after = @pool.monitor_rule
+      # A state should exists in the mock in order to make these tests
+      #      @monitor_rule_after.monitor_templates.should_not == @monitor_rule_before.monitor_templates
+    end
+  end
+
+
+  describe "member method" do 
+
+    it "should exists" do    
+      @pool.member.should_not be(nil)
+    end
+
+    it "should return an array of PoolMembers" do
+      @pool.member.class.should be(Array)
+      @pool.member.first.class.should be(IControl::LocalLB::PoolMember)
+    end
+  end
+  
+  describe "lb_method method" do
+    it "should return a String with a valid lb_method constant" do
+      @pool.lb_method.class.should be(String)
+    end
+  end
+end

data/spec/icontrol_local_lb_profile_http_class_spec.rb

@@ -0,0 +1,271 @@
+require File.expand_path(File.dirname(__FILE__) + '/spec_helper')
+
+describe IControl::LocalLB::ProfileHttpClass do
+
+  before do
+    @profile = IControl::LocalLB::ProfileHttpClass.find("test_profile1")
+    @profile2 = IControl::LocalLB::ProfileHttpClass.find("test_profile2")
+    @arguments = {"host" => "test.com","cookie" => "test_cookie","header" => "test_header", "path" => "/test/path"}
+  end
+  
+  describe "find method" do
+
+    it "should have a find class method called find" do 
+      IControl::LocalLB::ProfileHttpClass.methods.should include(:find)
+    end
+
+    it "should return an array of IControl::LocalLB::ProfileHttpClass instances when find(:all) is called" do
+      profiles = IControl::LocalLB::ProfileHttpClass.find(:all)
+      profiles.class.should be(Array)
+      profiles[0].class.should be(IControl::LocalLB::ProfileHttpClass)
+    end
+
+    it "should return the first element when called with :first argument" do
+      @profile.class.should be(IControl::LocalLB::ProfileHttpClass)
+    end
+
+  end
+
+  describe "path_match_pattern" do
+
+    it "should allow retreive its associated path_match_patterns" do
+      @profile.path_match_pattern.class.should be(Array)
+    end
+
+
+    it "should allow retreive its associated path_match_patterns" do
+      @profile.host_match_pattern.class.should be(Array)
+    end
+  end
+
+
+  describe "base_profile? method" do
+
+    it "should return a boolean value" do 
+      @profile.base_profile?.should be_equal(false)
+    end
+
+  end
+
+  describe "default_profile method" do 
+
+    it "should exist" do
+      @profile.default_profile.should_not be_nil
+    end
+
+    it "should result another profile" do 
+      @profile.default_profile.class.should be(IControl::LocalLB::ProfileHttpClass)
+    end
+
+    it "should return a base profile" do
+      @profile.default_profile.base_profile?.should be_equal(true)
+    end
+
+  end
+
+  ["host","cookie","header","path"].each do |type|
+    
+    describe "#{type}_match_pattern method" do 
+      
+      it "should exist" do
+        @profile2.methods.should include("#{type}_match_pattern".to_sym)
+      end
+      
+      it "should return an Array" do
+        @profile2.send("#{type}_match_pattern").class.should be(Array)      
+      end
+      
+      it "should not contents any nil value in the Array" do
+        @profile2.send("#{type}_match_pattern").should_not include(nil)
+      end
+      
+      it "should return valid values" do
+        patterns = @profile2.send("#{type}_match_pattern")
+        patterns.length.should be_>(1)
+        patterns.first[:pattern].should_not be nil      
+      end
+    end
+    
+    describe "set_default_#{type}_match_pattern method" do 
+
+      it "should exist" do
+        @profile2.methods.should include("set_default_#{type}_match_pattern".to_sym)
+      end
+      
+      it "should return an empty array" do 
+        value = @profile2.send("set_default_#{type}_match_pattern")
+        value.class.should be(Array)
+      end
+
+      it "should empty the contents of the array after called" do
+        register_conversation ["IControl.LocalLB.ProfileHttpClass_before_deletion.get_#{type}_match_pattern",
+                               "IControl.LocalLB.ProfileHttpClass_after_deletion.get_#{type}_match_pattern"]
+        pattern = @profile.send"get_#{type}_match_pattern"
+        pattern.length.should_not be 0
+        pattern = @profile.send("set_default_#{type}_match_pattern")
+        pattern.length.should be 0
+      end
+    end
+
+    ["add","remove"].each do |op|
+            
+      describe "#{op}_#{type}_host_match_pattern method" do 
+      
+        it "should exist" do
+          @profile2.methods.should include("#{op}_#{type}_match_pattern".to_sym)
+        end
+      
+        it "sould return the recently created pattern if it correctly adds it" do
+          pattern = "test_#{type}"
+          result = @profile2.send("#{op}_#{type}_match_pattern",pattern,true)
+          result["pattern"].should ==(pattern)
+          result["is_glob"].should be(true)
+        end
+        
+        it "sould allow the addition of string patterns as well" do
+          pattern = "test_#{type}-regexp"
+          result = @profile2.send("#{op}_#{type}_match_pattern",pattern)
+          result["pattern"].should ==(pattern)
+          result["is_glob"].should be(false)
+        end    
+        
+        it "should #{op} a new #{type} pattern" do
+          register_conversation ["IControl.LocalLB.ProfileHttpClass_before_#{op}.get_#{type}_match_pattern",
+                                 "IControl.LocalLB.ProfileHttpClass_after_#{op}.get_#{type}_match_pattern"]
+          match_pattern =  @profile.send("#{type}_match_pattern")
+          case op
+          when "add" then 
+            match_pattern.length.should be 0 
+          when "remove" then  
+            match_pattern.length.should > 0
+            match_pattern.first[:pattern].should ==@arguments[type]
+          end
+          lambda { @profile.send("#{op}_#{type}_match_pattern",@arguments[type])}.should_not raise_exception
+          match_pattern =  @profile.send("#{type}_match_pattern")
+          case op
+          when "add" then 
+            match_pattern.length.should_not be 0
+            match_pattern.first[:pattern].should ==@arguments[type]
+          when "remove" then 
+            match_pattern.length.should be 0
+          end
+        end
+      end
+      
+    end
+  end
+  
+  describe "default_profile= method" do 
+
+    it "should exist" do
+      @profile.methods.should include(:default_profile=)
+    end
+
+    it "should allow asignment of another profile " do
+      @profile.default_profile = IControl::LocalLB::ProfileHttpClass.find("anythingelse")
+    end
+
+  end
+
+  describe "pool method" do
+
+    it "should return a Pool instance or nil if none found" do
+
+      @profile.pool.should be(nil)
+
+    end
+
+  end
+
+
+  describe "pool assignment" do
+    it "should allow to assign a new pool overwriting the one before" do
+      first_pool = nil
+      first_pool = IControl::LocalLB::Pool.find("test_pool1")
+      before_pool = @profile.pool
+      before_pool.should be(nil)
+      after_pool = nil
+      after_pool = @profile.pool = first_pool
+      after_pool.class.should be(IControl::LocalLB::Pool)
+    end
+    
+    it "should raise an exception when then pool does not exist" do
+      lambda{
+        @profile.pool = IControl::LocalLB::Pool.new(:id => "I-Dont-Exist")
+      }.should raise_exception
+    end
+  end
+  
+  describe "rewrite_url method" do
+    it "should exist" do
+      @profile.methods.should include("rewrite_url".to_sym)
+    end
+
+    it "should return a hash containing the rewritting rule and the " do
+      rewrite_url = @profile2.rewrite_url
+      rewrite_url.class.should be(Hash)
+      rewrite_url[:rule].class.should be(String)
+    end
+  end
+
+  describe "unset_rewrite_url" do 
+    it "should exist" do
+      @profile.methods.should include("unset_rewrite_url".to_sym)
+    end
+
+    it "should leave the field empty" do
+      @profile.unset_rewrite_url.should be(nil)
+    end
+    
+  end
+
+  describe "set_rewrite_url method" do
+
+    it "should exist" do
+      @profile.methods.should include("set_rewrite_url".to_sym)
+    end
+
+    it "should allow the assignment of a new rewrite url" do
+      rewrite_url = @profile2.set_rewrite_url "/new_url_test"
+      rewrite_url[:rule].class.should be(String)
+    end
+
+  end
+
+  describe "redirect_location method" do
+    it "should exist" do
+      @profile.methods.should include("redirect_location".to_sym)
+    end
+
+    it "should return a hash containing the redirect_location " do
+      rewrite_url = @profile2.redirect_location
+      rewrite_url.class.should be(Hash)
+      rewrite_url[:rule].class.should be(String)
+    end
+  end
+
+
+  describe "set_redirect_location method" do
+
+    it "should exist" do
+      @profile.methods.should include("set_redirect_location".to_sym)
+    end
+
+    it "should allow the assignment of a new redirect_location" do
+      rewrite_url = @profile2.set_redirect_location "new_host"
+      rewrite_url[:rule].class.should be(String)
+    end
+
+  end
+
+  describe "create method" do 
+    it "should exist" do
+      IControl::LocalLB::ProfileHttpClass.methods.should include(:create!)
+    end
+
+    it "should return the created Profile" do
+      IControl::LocalLB::ProfileHttpClass.create!("new_created_profile")
+    end
+  end
+
+end

data/spec/icontrol_local_lb_rule_spec.rb

@@ -0,0 +1,22 @@
+require File.expand_path(File.dirname(__FILE__) + '/spec_helper')
+
+describe IControl::LocalLB::Rule do 
+
+  before do
+    @rule = IControl::LocalLB::Rule.find(:first)
+  end
+
+  describe "find method" do
+
+    it "should have a find class method called find" do
+      IControl::LocalLB::Rule.methods.should include(:find)
+    end
+
+    it "should have retreive an object when find is call with id or nil it the object does not exists" do
+      IControl::LocalLB::Rule.find("irule_test").class.should be(IControl::LocalLB::Rule)
+      IControl::LocalLB::VirtualServer.find("unknown_rule").class.should_not be(IControl::LocalLB::Rule)
+      IControl::LocalLB::VirtualServer.find("unknown_rule").should be(nil)
+    end
+  end
+
+end