hostconnect 0.1.7

data/spec/builders/option_info_builder_spec.rb

@@ -0,0 +1,48 @@
+require File.dirname(__FILE__) + "/../spec_helper"
+
+describe HostConnect::OptionInfoBuilder do
+  before(:each) do
+  end
+  
+  it "should return xml for hotel search" do
+    @xml = File.read("./spec/fixtures/requests/option_info/hotel_search.xml")
+    
+    req = OptionInfoBuilder.new(
+      :agent_id => "EURTAT",
+      :password => "EURTAT",
+      :opt => "LONAC????????????",
+      :date_from => "2007-10-01",
+      :info => "GNRI"
+    )
+    
+    req.to_s.should == @xml
+  end
+  
+  it "should return xml for hotel search with a room config (total stay price)" do
+    @xml = File.read("./spec/fixtures/requests/option_info/hotel_search_total_stay_price.xml")
+    
+    room = RoomConfigBuilder.new(:adults => 2, :room_type => "TW")
+    req = OptionInfoBuilder.new(
+      :agent_id => "EURTAT",
+      :password => "EURTAT",
+      :opt => "LONAC????????????",
+      :info => "GS",
+      :room_configs => [ room ],
+      :date_from => "2007-10-03",
+      :date_to => "2007-10-06"
+    )
+    
+    req.to_s.should == @xml
+  end
+  
+  it "should return xml for option number search" do
+    @xml = File.read("./spec/fixtures/requests/option_info/option_number.xml")
+    
+    req = OptionInfoBuilder.new
+    req.agent_id = "EURTAT"
+    req.password = "EURTAT"
+    req.option_number = [ 10, 15 ]
+    
+    req.to_s.should == @xml
+  end
+end

data/spec/builders/pax_details_builder_spec.rb

@@ -0,0 +1,41 @@
+require File.dirname(__FILE__) + "/../spec_helper"
+
+describe HostConnect::PaxDetailsBuilder do
+  before(:each) do
+    @pax_xml = <<-END
+          <PaxDetails>
+            <Title>Mr</Title>
+            <Forename>Rob</Forename>
+            <Surname>Jardim</Surname>
+            <DateOfBirth>1980-12-24</DateOfBirth>
+            <PaxType>A</PaxType>
+          </PaxDetails>
+END
+  end
+
+  it "should return pure xml with the to_s method" do
+    pax = PaxDetailsBuilder.new(:title => "Mr", :forename => "Rob", :surname => "Jardim",
+      :pax_type => "A", :date_of_birth => "1980-12-24")
+
+    pax.to_s.should == @pax_xml
+  end
+
+  it "should be possible to set and change the attributes directly" do
+    pax = PaxDetailsBuilder.new
+    pax.title = "Mr"
+    pax.forename = "Rob"
+    pax.surname = "Jardim"
+    pax.pax_type = "A"
+    pax.date_of_birth = "1980-12-24"
+
+    pax.to_s.should == @pax_xml
+
+    pax.forename = "Pete"
+    pax.to_s.should_not == @pax_xml
+  end
+
+  it "should return a XML Builder object" do
+    pax = PaxDetailsBuilder.new({})
+    pax.to_xml.should respond_to(:target!)
+  end
+end

data/spec/builders/ping_builder_spec.rb

@@ -0,0 +1,23 @@
+require File.dirname(__FILE__) + "/../spec_helper"
+
+describe HostConnect::PingBuilder do
+  before(:each) do
+    @xml = File.read("./spec/fixtures/requests/ping.xml")
+    @req = PingBuilder.new
+  end
+  
+  it "should return pure xml with the to_s method" do
+    @req.to_s.should == @xml
+  end
+
+  it "should return a XML Builder object" do
+    @req.to_xml.should respond_to(:target!)
+  end
+  
+  it "should know how to submit itself" do
+    response = File.read("./spec/fixtures/responses/ping.xml")
+    Client.should_receive(:post_xml_request).with(@xml).and_return(response)
+    ping = @req.submit
+    ping.should be_an_instance_of(Ping)
+  end
+end

data/spec/builders/room_config_builder_spec.rb

@@ -0,0 +1,60 @@
+require File.dirname(__FILE__) + "/../spec_helper"
+
+describe HostConnect::RoomConfigBuilder do
+  it "should produce xml" do
+    @room_xml_1 = <<-END
+      <RoomConfig>
+        <Adults>1</Adults>
+        <RoomType>TW</RoomType>
+        <PaxList>
+          <PaxDetails>
+            <Title>Mr</Title>
+            <Forename>Rob</Forename>
+            <Surname>Jardim</Surname>
+            <DateOfBirth>1980-12-24</DateOfBirth>
+            <PaxType>A</PaxType>
+          </PaxDetails>
+        </PaxList>
+      </RoomConfig>
+END
+
+    @room_xml_2 = <<-END
+      <RoomConfig>
+        <Adults>2</Adults>
+        <RoomType>TW</RoomType>
+        <PaxList>
+          <PaxDetails>
+            <Title>Mr</Title>
+            <Forename>Rob</Forename>
+            <Surname>Jardim</Surname>
+            <DateOfBirth>1980-12-24</DateOfBirth>
+            <PaxType>A</PaxType>
+          </PaxDetails>
+          <PaxDetails>
+            <Title>Mrs</Title>
+            <Forename>Sally</Forename>
+            <Surname>Jardim</Surname>
+            <DateOfBirth>1980-12-24</DateOfBirth>
+            <PaxType>A</PaxType>
+          </PaxDetails>
+        </PaxList>
+      </RoomConfig>
+END
+
+    pax1 = PaxDetailsBuilder.new(:title => "Mr", :forename => "Rob", :surname => "Jardim",
+      :pax_type => "A", :date_of_birth => "1980-12-24")
+    pax2 = PaxDetailsBuilder.new(:title => "Mrs", :forename => "Sally", :surname => "Jardim",
+      :pax_type => "A", :date_of_birth => "1980-12-24")
+
+    room = RoomConfigBuilder.new(:adults => 1, :room_type => "TW", :pax_list => [ pax1 ])
+    room.to_s.should == @room_xml_1
+
+    room = RoomConfigBuilder.new(:adults => 2, :room_type => "TW", :pax_list => [ pax1, pax2 ])
+    room.to_s.should == @room_xml_2
+  end
+
+  it "should return a XML Builder object" do
+    room = RoomConfigBuilder.new
+    room.to_xml.should_be_an_instance_of Builder::XmlMarkup
+  end
+end

data/spec/client_spec.rb

@@ -0,0 +1,20 @@
+require File.dirname(__FILE__) + "/spec_helper"
+
+describe HostConnect::Client do
+  it "should have a http connection" do
+    Client.http_connection.should be_an_instance_of(Net::HTTP)
+  end
+  
+  it "should post xml requests" do
+    request = File.read("./spec/fixtures/requests/ping.xml")
+    response = File.read("./spec/fixtures/responses/ping.xml")
+    config = HostConnect.config
+    
+    Net::HTTP::Post.should_receive(:new).with(config.path).and_return({})
+    mock = mock("response", :null_object => true)
+    mock.stub!(:body).and_return(response)
+    Client.http_connection.should_receive(:request).and_return(mock)
+    
+    Client.post_xml_request(request).should == response
+  end
+end

data/spec/coercion_spec.rb

@@ -0,0 +1,85 @@
+require File.dirname(__FILE__) + "/spec_helper"
+
+describe HostConnect::Coercion do
+  it "should parse times" do
+    time = Coercion.time("2310")
+    time.should be_an_instance_of(Time)
+
+    lambda { Coercion.time("2410") }.should raise_error(ArgumentError)
+  end
+
+  it "should divide prices by 100" do
+    p = Coercion.price("10000")
+    p.should == 100
+  end
+
+  it "should parse times" do
+    time = Coercion.time("2310")
+    time.should be_an_instance_of(Time)
+
+    lambda { Coercion.time("2410") }.should raise_error(ArgumentError)
+  end
+
+  describe "Conversion of parameters from strings to Ruby objects" do
+    it "should return a date from a datestring" do
+      date = Coercion.from_hc("1985-10-24")
+      date.should be_an_instance_of(Date)
+      date.strftime("%m").should == "10"
+    end
+
+    it "should convert strings consisting of only numbers to integers" do
+      val = "12345"
+      res = Coercion.from_hc(val)
+      res.should == 12345
+
+      val = "12 34"
+      res = Coercion.from_hc(val)
+      res.should_not be_an_instance_of(Fixnum)
+    end
+
+    it "should return booleans for Y/N" do
+      Coercion.from_hc("Y").should be_true
+      Coercion.from_hc("N").should be_false
+    end
+
+    it "should return nil for strings consisting of only whitespace" do
+      Coercion.from_hc("").should be_nil
+      Coercion.from_hc("   ").should be_nil
+    end
+
+    it "should parse lists of integers" do
+      l1 = Coercion.from_hc("11 22 3 4")
+      l1.should be_an_instance_of(Array)
+      l1.size.should == 4
+      l1.first.should be_an_instance_of(Fixnum)
+      l1.last.should be_an_instance_of(Fixnum)
+
+      Coercion.from_hc("1 2 3 f 4").should be_an_instance_of(String)
+    end
+  end
+
+  describe "Conversion of parameters from Ruby objects to HC formatted strings" do
+    it "should turn dates into strings" do
+      date = Coercion.to_hc("1985-10-24")
+      date.should == "1985-10-24"
+
+      date = "1985-10-24".to_date
+      Coercion.to_hc(date).should == "1985-10-24"
+    end
+
+    it "should convert integers to strings" do
+      val = 12345
+      Coercion.to_hc(val).should == "12345"
+    end
+
+    it "should return Y/N for booleans" do
+      Coercion.to_hc(true).should == "Y"
+      Coercion.to_hc(false).should == "N"
+    end
+
+    it "should handle nil values and empty strings" do
+      Coercion.to_hc(nil).should == ""
+      Coercion.to_hc("   ").should == ""
+    end
+  end
+end

data/spec/core_extensions_spec.rb

@@ -0,0 +1,17 @@
+require File.dirname(__FILE__) + "/spec_helper"
+
+describe Symbol do
+  it "should camelize" do
+    :host_connect.classify.should == "HostConnect"
+  end
+  
+  it "should classify" do
+    :host_connect.classify.should == "HostConnect"
+  end
+end
+
+describe String do
+  it "should requestify" do
+    "AgentId".requestify.should == "AgentID"
+  end
+end

data/spec/fixtures/requests/add_service_request/hotel_booking.xml

@@ -0,0 +1,42 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE Request SYSTEM "http://www.tourplan.com/support/Connector/hostConnect_2_05_300.dtd">
+<Request>
+  <AddServiceRequest>
+    <AgentID>EURTAT</AgentID>
+    <Password>EURTAT</Password>
+    <NewBookingInfo>
+      <Name>Jessop Mr/Mrs</Name>
+      <QB>B</QB>
+    </NewBookingInfo>
+    <RoomConfigs>
+      <RoomConfig>
+        <Adults>2</Adults>
+        <RoomType>TW</RoomType>
+        <PaxList>
+          <PaxDetails>
+            <Title>Mr</Title>
+            <Forename>Rob</Forename>
+            <Surname>Jardim</Surname>
+            <DateOfBirth>1980-12-24</DateOfBirth>
+            <PaxType>A</PaxType>
+          </PaxDetails>
+          <PaxDetails>
+            <Title>Mrs</Title>
+            <Forename>Sally</Forename>
+            <Surname>Jardim</Surname>
+            <DateOfBirth>1980-12-24</DateOfBirth>
+            <PaxType>A</PaxType>
+          </PaxDetails>
+        </PaxList>
+      </RoomConfig>
+    </RoomConfigs>
+    <Opt>LONACCUMLONSTDBCB</Opt>
+    <DateFrom>2007-10-07</DateFrom>
+    <SCUqty>2</SCUqty>
+    <UDText1>+4799999999</UDText1>
+    <UDText2>contact@email.net</UDText2>
+    <UDText3>Norway</UDText3>
+    <UDText4>N</UDText4>
+    <UDText5>Smoking</UDText5>
+  </AddServiceRequest>
+</Request>

data/spec/fixtures/requests/agent_info.xml

@@ -0,0 +1,8 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE Request SYSTEM "http://www.tourplan.com/support/Connector/hostConnect_2_05_300.dtd">
+<Request>
+  <AgentInfoRequest>
+    <AgentID>EURTAT</AgentID>
+    <Password>EURTAT</Password>
+  </AgentInfoRequest>
+</Request>

data/spec/fixtures/requests/get_locations.xml

@@ -0,0 +1,8 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE Request SYSTEM "http://www.tourplan.com/support/Connector/hostConnect_2_05_300.dtd">
+<Request>
+  <GetLocationsRequest>
+    <AgentID>EURTAT</AgentID>
+    <Password>EURTAT</Password>
+  </GetLocationsRequest>
+</Request>

data/spec/fixtures/requests/option_info/hotel_search.xml

@@ -0,0 +1,11 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE Request SYSTEM "http://www.tourplan.com/support/Connector/hostConnect_2_05_300.dtd">
+<Request>
+  <OptionInfoRequest>
+    <AgentID>EURTAT</AgentID>
+    <Password>EURTAT</Password>
+    <Info>GNRI</Info>
+    <DateFrom>2007-10-01</DateFrom>
+    <Opt>LONAC????????????</Opt>
+  </OptionInfoRequest>
+</Request>

data/spec/fixtures/requests/option_info/hotel_search_total_stay_price.xml

@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE Request SYSTEM "http://www.tourplan.com/support/Connector/hostConnect_2_05_300.dtd">
+<Request>
+  <OptionInfoRequest>
+    <AgentID>EURTAT</AgentID>
+    <Password>EURTAT</Password>
+    <Info>GS</Info>
+    <DateFrom>2007-10-03</DateFrom>
+    <DateTo>2007-10-06</DateTo>
+    <Opt>LONAC????????????</Opt>
+    <RoomConfigs>
+      <RoomConfig>
+        <Adults>2</Adults>
+        <RoomType>TW</RoomType>
+      </RoomConfig>
+    </RoomConfigs>
+  </OptionInfoRequest>
+</Request>

data/spec/fixtures/requests/option_info/option_number.xml

@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE Request SYSTEM "http://www.tourplan.com/support/Connector/hostConnect_2_05_300.dtd">
+<Request>
+  <OptionInfoRequest>
+    <AgentID>EURTAT</AgentID>
+    <Password>EURTAT</Password>
+    <OptionNumber>10</OptionNumber>
+    <OptionNumber>15</OptionNumber>
+  </OptionInfoRequest>
+</Request>

data/spec/fixtures/requests/ping.xml

@@ -0,0 +1,5 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE Request SYSTEM "http://www.tourplan.com/support/Connector/hostConnect_2_05_300.dtd">
+<Request>
+  <PingRequest/>
+</Request>

data/spec/fixtures/responses/add_service.xml

@@ -0,0 +1,11 @@
+<?xml version="1.0" encoding="ISO-8859-1"?>
+<!DOCTYPE Reply SYSTEM "http://www.tourplan.com/support/connector/hostConnect_2_04_170.dtd">
+<Reply>
+  <AddServiceReply>
+    <BookingId>6050</BookingId>
+    <Ref>ASIN100101</Ref>
+    <ServiceLineId>55418</ServiceLineId>
+    <SequenceNumber>10</SequenceNumber>
+    <Status>RQ</Status>
+  </AddServiceReply>
+</Reply>

data/spec/fixtures/responses/agent_info.xml

@@ -0,0 +1,12 @@
+<?xml version="1.0" encoding="ISO-8859-1"?> 
+<!DOCTYPE Reply SYSTEM "http://217.206.100.98:8080/iComNew205/hostConnect_2_05_006.dtd"> 
+<Reply> 
+  <AgentInfoReply> 
+    <Currency>GBP</Currency> 
+    <Email></Email> 
+    <Name>European Tours &amp; Travel</Name> 
+    <PriceCodes>2ST</PriceCodes> 
+    <IsSubLogin>N</IsSubLogin> 
+    <HasBookingRights>N</HasBookingRights> 
+  </AgentInfoReply> 
+</Reply>

data/spec/fixtures/responses/agent_info_error.xml

@@ -0,0 +1,7 @@
+<?xml version="1.0" encoding="ISO-8859-1"?>
+<!DOCTYPE Reply SYSTEM "http://217.206.100.98:8080/iComNew205/hostConnect_2_05_006.dtd">
+<Reply>
+  <ErrorReply>
+    <Error>1051 SCN EURTAT</Error>
+  </ErrorReply>
+</Reply>

data/spec/fixtures/responses/get_booking.xml

@@ -0,0 +1,40 @@
+<?xml version="1.0" encoding="ISO-8859-1"?>
+<!DOCTYPE Reply SYSTEM "http://www.tourplan.com/support/connector/hostConnect_2_04_170.dtd">
+<Reply>
+  <GetBookingReply>
+    <BookingId>6051</BookingId>
+    <Ref>ASIN100102</Ref>
+    <BookingUpdateCount>61</BookingUpdateCount>
+    <Name>Jessop Mr/Mrs</Name>
+    <QB>B</QB>
+    <Consult></Consult>
+    <AgentRef></AgentRef>
+    <Email>Test av kontaktinfo</Email>
+    <TravelDate>2008-10-08</TravelDate>
+    <EnteredDate>2008-07-30</EnteredDate>
+    <BookingStatus>Internet Booking</BookingStatus>
+    <ReadOnly>N</ReadOnly>
+    <IsInternetBooking>Y</IsInternetBooking>
+    <Currency>EUR</Currency>
+    <TotalPrice>131800</TotalPrice>
+    <Remarks></Remarks>
+    <Dialogue></Dialogue>
+    <Services>
+      <Service>
+        <ServiceLineId>55440</ServiceLineId>
+        <ServiceLineUpdateCount>3</ServiceLineUpdateCount>
+        <Opt>OSLRTASFIPA10001O</Opt>
+        <OptionNumber>5614</OptionNumber>
+        <Date>2008-10-08</Date>
+        <SequenceNumber>10</SequenceNumber>
+        <Adults>2</Adults>
+        <Children>0</Children>
+        <RoomType>TW</RoomType>
+        <LinePrice>131800</LinePrice>
+        <SCUqty>1</SCUqty>
+        <Status>RQ</Status>
+      </Service>
+    </Services>
+  </GetBookingReply>
+</Reply>
+

data/spec/fixtures/responses/get_locations.xml

@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="ISO-8859-1"?>
+<!DOCTYPE Reply SYSTEM "http://217.206.100.98:8080/iComNew205/hostConnect_2_05_006.dtd">
+<Reply>
+  <GetLocationsReply>
+    <Locations>
+      <Location>
+        <Code>AAA</Code>
+        <Name>Andorra</Name>
+      </Location>
+      <Location>
+        <Code>AAB</Code>
+        <Name>Abu Dhabi</Name>
+      </Location>
+      <Location>
+        <Code>CAR</Code>
+        <Name>Co. Carlow</Name>
+      </Location>
+      <Location>
+        <Code>CAV</Code>
+        <Name>Co. Cavan</Name>
+      </Location>
+      <Location>
+        <Code>CLA</Code>
+        <Name>Co. Clare</Name>
+      </Location>
+      <Location>
+        <Code>COR</Code>
+        <Name>Co. Cork</Name>
+      </Location>
+      <Location>
+        <Code>DUB</Code>
+        <Name>Dublin</Name>
+      </Location>
+      <Location>
+        <Code>LON</Code>
+        <Name>London</Name>
+      </Location>
+      <Location>
+        <Code>MAD</Code>
+        <Name>Madrid</Name>
+      </Location>
+      <Location>
+        <Code>PAR</Code>
+        <Name>Paris</Name>
+      </Location>
+    </Locations>
+  </GetLocationsReply>
+</Reply>

data/spec/fixtures/responses/get_system_settings.xml

@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="ISO-8859-1"?>
+<!DOCTYPE Reply SYSTEM "http://217.206.100.98:8080/iComNew205/hostConnect_2_05_006.dtd">
+<Reply>
+  <GetSystemSettingsReply>
+    <QuotesEnabled>N</QuotesEnabled>
+    <QuotesAreDefault>N</QuotesAreDefault>
+    <AvailableMessages />
+    <IsAgentDialogueEnabled>N</IsAgentDialogueEnabled>
+    <Countries>
+      <Country>
+        <CountryName>(Unspecified)</CountryName>
+        <DestinationNames>
+          <DestinationName>Abu Dhabi</DestinationName>
+          <DestinationName>Andorra</DestinationName>
+          <DestinationName>Co. Carlow</DestinationName>
+          <DestinationName>Co. Cavan</DestinationName>
+          <DestinationName>Co. Clare</DestinationName>
+          <DestinationName>Co. Cork</DestinationName>
+          <DestinationName>Dublin</DestinationName>
+          <DestinationName>London</DestinationName>
+          <DestinationName>Madrid</DestinationName>
+          <DestinationName>Paris</DestinationName>
+        </DestinationNames>
+      </Country>
+    </Countries>
+    <BookingStatuses />
+  </GetSystemSettingsReply>
+</Reply>

data/spec/fixtures/responses/option_info/hotel_price.xml

@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="ISO-8859-1"?>
+<!DOCTYPE Reply SYSTEM "http://www.tourplan.com/support/connector/hostConnect_2_04_170.dtd">
+<Reply>
+  <OptionInfoReply>
+    <Option>
+      <Opt>BERACBERGRABB    </Opt>
+      <OptionNumber>4772</OptionNumber>
+      <OptStayResults>
+        <Availability>RQ</Availability>
+        <Currency>EUR</Currency>
+        <TotalPrice>34800</TotalPrice>
+        <RateName>Standard</RateName>
+        <RateText>Standard</RateText>
+      </OptStayResults>
+    </Option>
+  </OptionInfoReply>
+</Reply>