jschairb-rets4r 1.1.18

data/lib/tasks/coverage.rake

@@ -0,0 +1,13 @@
+begin
+  require 'rcov/rcovtask'
+  Rcov::RcovTask.new do |test|
+    test.libs << 'test'
+    test.pattern = "test/test_*.rb"
+    test.verbose = true
+    test.rcov_opts << ' --sort coverage'
+  end
+rescue LoadError
+  task :rcov do
+    abort "RCov is not available. In order to run rcov, you must: gem install rcov"
+  end
+end

data/rets4r.gemspec

@@ -0,0 +1,24 @@
+lib     = File.expand_path("../lib/rets4r.rb", __FILE__)
+version = File.read(lib)[/^\s*VERSION\s*=\s*(['"])(\d\.\d\.\d+)\1/, 2]
+
+Gem::Specification.new do |spec|
+  spec.name = 'jschairb-rets4r'
+  spec.authors = ["Scott Patterson", "John Wulff", "bgetting", "Jacob Basham", "Joseph Holsten"]
+  spec.email = ["scott.patterson@digitalaun.com", "john@johnwulff.com", "brian@terra-firma-design.com", "jacob@paperpigeons.net", "joseph@josephholsten.com"]
+  spec.homepage = 'http://rets4r.rubyforge.org/'
+  spec.rubyforge_project = 'rets4r'
+  spec.description = %q{RETS4R is a native Ruby interface to the RETS (Real Estate Transaction Standard). It currently is built for the 1.5 specification, but support for 1.7 and 2.0 are planned. It does not currently implement all of the specification, but the most commonly used portions. Specifically, there is no support for Update transactions.}
+  spec.extra_rdoc_files = %w[CHANGELOG CONTRIBUTORS LICENSE MANIFEST NEWS README.rdoc RUBYS TODO ]
+  spec.rdoc_options << "--charset=UTF-8" <<
+                       "--main" << "README.rdoc"
+  spec.version = version
+  spec.summary = spec.description.split(/\.\s+/).first
+  spec.files = File.read("MANIFEST").split(/\r?\n\r?/)
+  spec.test_files = spec.files.grep(/^test\/.*test_.*\.rb$/)
+
+  spec.add_runtime_dependency 'nokogiri', '~>1.4.0'
+  spec.add_development_dependency 'mocha'
+  spec.add_development_dependency 'shoulda'
+  spec.add_development_dependency 'activesupport'
+end
+

data/spec/rets4r_compact_data_parser_spec.rb

@@ -0,0 +1,7 @@
+require 'spec_helper'
+require 'rets4r/client/parsers/compact'
+
+describe RETS4R::Client::CompactDataParser do
+  it "should parse results without a delimiter in response"
+  it "should parse data without column names in response"
+end

data/test/data/1.5/bad_compact.xml

@@ -0,0 +1,7 @@
+<RETS ReplyCode="0" ReplyText="Operation Successful">
+<COUNT Records="38610" />
+<DELIMITER value="09" />
+<COLUMNS>	MLSNUM	AGENTLIST	AGENTLIST_FULLNAME	OFFICELIST	OFFICELIST_OFFICENAM1	INTERNETLIST_ALL	LISTSTATUSFLAG	PHOTOCOUNT	LISTSTATUS	BEDS	CARPORTCAP	NUMDININGAREAS	FIREPLACES	BATHSFULL	BATHSFULLLEVEL1	BATHSFULLLEVEL2	BATHSFULLLEVEL3	BATHSFULLBASEMENT	GARAGECAP	BATHSHALF	BATHSHALFLEVEL1	BATHSHALFLEVEL2	BATHSHALFLEVEL3	BATHSHALFBASEMENT	NUMLIVINGAREAS	NUMBARNS	NUMLAKES	NUMPONDS	NUMRESIDENCE	NUMSTOCKTANKS	STORIES	NUMWELLS	SCHOOLDISTRICT	AGENTSELL_FULLNAME	OFFICESELL_OFFICENAM2	STATE	STREETNAME	STREETTYPE	STREETNUM	STREETNUMDISPLAY	STREETDIRSUFFIX	STREETDIR	STYLE	SUBDIVISION	ACRES	INTERNETDISPLAYYN	ROOMBEDBATHDESC	STORIESBLDG	CITY	COMMONFEATURES	COUNTY	ACRESCULTIVATED	INTERIOR	LISTPRICE	SQFTPRICE	LOTNUM	LOTDESC	LOTDIM	LOTSIZE	LISTPRICELOW	ACRESPRICE	MAPBOOK	MAPCOORD	MAPPAGE	LISTPRICEORIG	GARAGEDESC	PROPTYPE	REMARKS	PROPSUBTYPE	PROPSUBTYPEDISPLAY	SQFTTOTAL	SQFTSOURCE	UTILITIES	UID	UIDPRP	TAXUNEXEMPT	UNITNUM	YEARBUILT	ZIPCODE	</COLUMNS>
+<DATA>	11322886	000533246	CD Boyd, II	FMAB	McClure, REALTORS	OMWS,immo,RCOM,SYND		8	act	4	0	2	1	3					2	0					2						2		Wylie ISD, Taylor Co.			TX	Thompson	PKWY	8317	8317			STYRANCH	Belle Vista Estates	0.361	Y	BBFJET-TUB,BBFLIN-CLO,BBFSEP-SHO,BBFW+I-CLO		Abilene		Taylor		INFBAY-WIN,INFCABLE-A,INFDECLTNG,INFHIGHSPD,INFLOFT,INFSOUND-W,INFVAUL-CL,INFWIND-CO	239000	84.6		LTDSUBDIV	87X182	LTS.5-.99A	0	662049	OT	none	9999	239000	PARATTACHE,PAROPENER,PARREAR,PARSIDE	RES	Custom home built in 05&apos;.  Growing neighborhood convienient to Wylie schools. Abundant living areas and and open space floor plan.Could be 5th BDRM, or upstair BDRM &amp; Bath could be another living area.  Perfect office next to Master. Gourmet sized kitchen, granite countertops, barell ceilings, wonderful storage space!!!!	S	RES-S	2825	TAX	STUASPHALT,UTLCITY-SE,UTLCITY-WA,STUCONCRET	3211078	3211078	5876		2005	79606-6652	</DATA>
+<MAXROWS />
+</RETS>

data/test/data/1.5/count_only_compact.xml

@@ -0,0 +1,3 @@
+<RETS ReplyCode="0" ReplyText="SUCCESS">
+<COUNT Records="1024"/>
+</RETS>

data/test/data/1.5/error.xml

@@ -0,0 +1 @@
+<RETS ReplyCode="20400" ReplyText="Invalid Invalidness." />

data/test/data/1.5/invalid_compact.xml

@@ -0,0 +1,4 @@
+<RETS ReplyCode="0" ReplyText="SUCCESS">
+<COUNT Records="4"/>
+<DELIMITER value="09" />
+<COLUMNS>	First	Second	Third	</COL

data/test/data/1.5/login.xml

@@ -0,0 +1,16 @@
+<RETS ReplyCode="0" ReplyText="Login Request">
+<RETS-RESPONSE>
+MemberName=Spiffy Realtor
+User=srealtor,1,11,11111
+Broker=1,2
+MetadataVersion=1.1.1
+MinMetadataVersion=1.0.0
+TimeoutSeconds=1200
+Action=/rets/ActionURL
+GetMetadata=/rets/GetMetadata
+GetObject=/rets/GetObject
+Login=/rets/Login
+Logout=/rets/Logout
+Search=/rets/Search
+</RETS-RESPONSE>
+</RETS>

data/test/data/1.5/search_compact.xml

@@ -0,0 +1,8 @@
+<RETS ReplyCode="0" ReplyText="SUCCESS">
+<COUNT Records="4"/>
+<DELIMITER value="09" />
+<COLUMNS>	First	Second	Third	</COLUMNS>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<MAXROWS/>
+</RETS>

data/test/data/1.5/search_compact_big.xml

@@ -0,0 +1,136 @@
+<RETS ReplyCode="0" ReplyText="SUCCESS">
+<COUNT Records="4"/>
+<DELIMITER value="09" />
+<COLUMNS>	First	Second	Third	</COLUMNS>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum1	Datum2	Datum3</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<DATA>	Datum4	Datum5	Datum6</DATA>
+<MAXROWS/>
+</RETS>

data/test/data/1.5/search_unescaped_compact.xml

@@ -0,0 +1,8 @@
+<RETS ReplyCode="0" ReplyText="SUCCESS">
+<COUNT Records="4"/>
+<DELIMITER value="09" />
+<COLUMNS>	First	Second	Third	</COLUMNS>
+<DATA>	Datum1	<Datum&2	Datum3</DATA>
+<DATA>	Datum4	D>atum5	Datum6</DATA>
+<MAXROWS/>
+</RETS>

data/test/data/listing_service.yml

@@ -0,0 +1,36 @@
+# This file specifies the access information for the listing service #
+# To access the standard RETS demo server, use:
+#
+test:
+ url: http://demo.crt.realtors.org:6103/rets/login
+ username: Joe
+ password: Schmoe
+ version: 1.7.2
+ resource: Property
+ class: RES
+ object_type: Photo
+ select:
+   ListingID: :mls
+   AgentID: :agent_id
+   ModificationTimestamp: :rets_update_at
+   Status: :status
+   # ListDate: :list_date
+   ListPrice: :list_price
+   # ClosePrice: :close_price
+   # ContractDate: :contract_date
+   StreetNumber: :street_number
+   StreetName: :street_name
+   StreetDirection: :street_direction
+   Unit: :unit_number
+   ZipCode: :zip_code
+   City: :city
+   County: :county
+   # Rooms: :rooms
+   # State: :state
+   # Board: :board
+   LivingArea: :living_area
+   Baths: :baths
+   Bedrooms: :beds
+   Garage: :garage
+   SqFt: :square_feet
+   YearBuilt: :year_built

data/test/test_auth.rb

@@ -0,0 +1,68 @@
+$:.unshift File.expand_path(File.join(File.dirname(__FILE__), "..", "lib"))
+
+require 'rets4r/auth'
+require 'test/unit'
+
+module RETS4R
+    class TestAuth < Test::Unit::TestCase
+        def setup
+            @useragent  = 'TestAgent/0.00'
+            @username   = 'username'
+            @password   = 'password'
+            @realm      = 'REALM'
+            @nonce      =  '2006-03-03T17:37:10'
+        end
+
+        def test_authenticate
+            response = {
+                'www-authenticate' => 'Digest qop="auth",realm="'+ @realm +'",nonce="'+ @nonce +'",opaque="",stale="false",domain="\my\test\domain"'
+                }
+
+            Auth.authenticate(response, @username, @password, '/my/rets/url', 'GET', Auth.request_id, @useragent)
+        end
+
+        # test without spacing
+        def test_parse_auth_header_without_spacing
+            header = 'Digest qop="auth",realm="'+ @realm +'",nonce="'+ @nonce +'",opaque="",stale="false",domain="\my\test\domain"'
+            check_header(header)
+        end
+
+        # test with spacing between each item
+        def test_parse_auth_header_with_spacing
+            header = 'Digest qop="auth", realm="'+ @realm +'", nonce="'+ @nonce +'", opaque="", stale="false", domain="\my\test\domain"'
+            check_header(header)
+        end
+
+        # used to check the that the header was processed properly.
+        def check_header(header)
+            results = Auth.parse_header(header)
+
+            assert_equal('auth', results['qop'])
+            assert_equal('REALM', results['realm'])
+            assert_equal('2006-03-03T17:37:10', results['nonce'])
+            assert_equal('', results['opaque'])
+            assert_equal('false', results['stale'])
+            assert_equal('\my\test\domain', results['domain'])
+        end
+
+        def test_calculate_digest
+            # with qop
+            assert_equal('c5f9ef280f0ca78ed7a488158fc2f4cc', Auth.calculate_digest(@username, \
+                @password, @realm, 'test', 'GET', '/my/rets/url', true, 'test'))
+
+            # without qop
+            assert_equal('bceafa34467a3519c2f6295d4800f4ea', Auth.calculate_digest(@username, \
+                @password, @realm, 'test', 'GET', '/my/rets/url', false))
+        end
+
+        def test_request_id
+            assert_not_nil(true, Auth.request_id)
+        end
+
+        def test_cnonce
+            # We call cnonce with a static request ID so that we have a consistent result with which
+            # to test against
+            assert_equal('d5cdfa1acffde590d263689fb40cf53c', Auth.cnonce(@useragent, @password, 'requestId', @nonce))
+        end
+    end
+end

data/test/test_client.rb

@@ -0,0 +1,342 @@
+#!/usr/bin/env ruby
+$:.unshift File.expand_path(File.join(File.dirname(__FILE__), "."))
+require 'test_helper'
+
+module RETS4R
+    class Client
+        public :process_content_type
+    end
+
+    class TestClientGetMetadata < Test::Unit::TestCase
+        RETS_PORT     = '9080'
+        RETS_URL      = "http://localhost:#{RETS_PORT}"
+        RETS_LOGIN    = 'login'
+        RETS_PASSWORD = 'password'
+
+        class CustomError < StandardError; end
+
+        def setup
+            @logfile = StringIO.open
+            @rets    = RETS4R::Client.new(RETS_URL)
+            @rets.logger = Logger.new(@logfile)
+            @rets.logger.level = Logger::DEBUG
+
+            @rets.stubs(:request).returns(@response = mock("response"))
+            @response.stubs(:body).returns(:body)
+            @rets.stubs(:parse).returns(@results = mock("results"))
+            Client::ResponseParser.any_instance.stubs(:parse_metadata).returns(@results = mock("results"))
+        end
+
+        def teardown
+            @logfile.close
+        end
+
+        def test_get_metadata_yields_the_results_if_given_a_block
+            in_block = false
+            @rets.get_metadata do |results|
+                in_block = true
+                assert_equal @results, results
+            end
+
+            assert in_block, "Block was never yielded to"
+        end
+
+        def test_useragent
+          assert_match /^rets4r/, RETS4R::Client::Requester::DEFAULT_USER_AGENT
+          assert_match /#{::RETS4R::VERSION}/, RETS4R::Client::Requester::DEFAULT_USER_AGENT
+        end
+
+        def test_get_metadata_returns_the_metadata_when_no_block_given
+            rval = @rets.get_metadata
+
+            assert_equal @results, rval
+        end
+
+        def test_get_metadata_returns_the_blocks_value_when_given_a_block
+            rval = @rets.get_metadata do |results|
+                :block_value
+            end
+
+            assert_equal :block_value, rval
+        end
+    end
+
+    class TestClientGetObject < Test::Unit::TestCase
+        RETS_PORT     = '9080'
+        RETS_URL      = "http://localhost:#{RETS_PORT}"
+        RETS_LOGIN    = 'login'
+        RETS_PASSWORD = 'password'
+
+        class CustomError < StandardError; end
+
+        def setup
+            @logfile = StringIO.open
+            @rets    = RETS4R::Client.new(RETS_URL)
+            @rets.logger = Logger.new(@logfile)
+            @rets.logger.level = Logger::DEBUG
+
+            @rets.stubs(:request).returns(@response = mock("response"))
+        end
+
+        def test_returns_multipart_parallel_objects_in_a_single_array(boundary = "1231")
+            @response.expects(:[]).with('content-type').at_least_once.returns("multipart/parallel; boundary=#{boundary}")
+            @response.expects(:body).returns("\r\n--1231\r\nContent-ID: 392103\r\nObject-ID: 1\r\nContent-Type: image/jpeg\r\n\r\n" + "\000"*120 + "\r\n--1231\r\nContent-ID: 392103\r\nObject-ID: 2\r\nContent-Type: image/gif\r\n\r\n" + "\000"*140 + "\r\n--1231--")
+            results = @rets.get_object("Property", "Photo", "392103:*")
+            assert_equal 2, results.size, "Client should parse two objects out of the request"
+            assert_kind_of RETS4R::Client::DataObject, results[0], "First result isn't a DataObject"
+            assert_kind_of RETS4R::Client::DataObject, results[1], "Second result isn't a DataObject"
+            assert_equal "image/jpeg", results[0].type["Content-Type"], "First object isn't an image/jpeg"
+            assert_equal 120, results[0].data.size, "First object isn't 120 bytes in length"
+            assert_equal "image/gif", results[1].type["Content-Type"], "Second object isn't an image/gif"
+            assert_equal 140, results[1].data.size, "Second object isn't 140 bytes in length"
+        end
+
+        def test_returns_multipart_parallel_objects_in_a_single_array_boundary_with_double_quotes
+            test_returns_multipart_parallel_objects_in_a_single_array('"1231"')
+        end
+
+        def test_returns_multipart_parallel_objects_in_a_single_array_boundary_with_single_quotes
+            test_returns_multipart_parallel_objects_in_a_single_array("'1231'")
+        end
+
+        def test_returns_single_entity_object_in_a_single_element_array
+            @response.expects(:[]).with('content-type').at_least_once.returns("image/jpeg")
+            @response.expects(:[]).with('Transfer-Encoding').at_least_once.returns("")
+            @response.expects(:[]).with('Content-Length').at_least_once.returns(241)
+            @response.expects(:[]).with('Object-ID').at_least_once.returns("25478")
+            @response.expects(:[]).with('Content-ID').at_least_once.returns("5589")
+            @response.expects(:body).returns("\000"*241)
+
+            results = @rets.get_object("Property", "Photo", "392103:*")
+            assert_equal 1, results.size, "Client parsed one object out of the request"
+            assert_kind_of RETS4R::Client::DataObject, results[0], "First result isn't a DataObject"
+            assert_equal "image/jpeg", results[0].type["Content-Type"], "Content-Type not copied"
+            assert_equal "5589", results[0].type["Content-ID"], "Content-ID not copied"
+            assert_equal "25478", results[0].type["Object-ID"], "Object-ID not copied"
+            assert_equal 241, results[0].data.size, "First object isn't 241 bytes in length"
+        end
+
+        def test_returns_single_entity_object_as_chunked_encoding_in_a_single_element_array
+            @response.expects(:[]).with('content-type').at_least_once.returns("image/jpeg")
+            @response.expects(:[]).with('Transfer-Encoding').at_least_once.returns("chunked")
+            @response.expects(:[]).with('Object-ID').at_least_once.returns("25478")
+            @response.expects(:[]).with('Content-ID').at_least_once.returns("5589")
+            @response.expects(:body).returns("\000"*241)
+
+            results = @rets.get_object("Property", "Photo", "392103:*")
+            assert_equal 1, results.size, "Client parsed one object out of the request"
+            assert_kind_of RETS4R::Client::DataObject, results[0], "First result isn't a DataObject"
+            assert_equal "image/jpeg", results[0].type["Content-Type"], "Content-Type not copied"
+            assert_equal "5589", results[0].type["Content-ID"], "Content-ID not copied"
+            assert_equal "25478", results[0].type["Object-ID"], "Object-ID not copied"
+            assert_equal 241, results[0].data.size, "First object isn't 241 bytes in length"
+        end
+
+        def test_yields_data_objects_to_block_and_returns_blocks_value
+            @response.expects(:[]).with('content-type').at_least_once.returns("image/jpeg")
+            @response.expects(:[]).with('Transfer-Encoding').at_least_once.returns("")
+            @response.expects(:[]).with('Content-Length').at_least_once.returns(241)
+            @response.expects(:[]).with('Object-ID').at_least_once.returns("25478")
+            @response.expects(:[]).with('Content-ID').at_least_once.returns("5589")
+            @response.expects(:body).returns("\000"*241)
+
+            yielded_count = 0
+
+            value = @rets.get_object("Property", "VRImage", "912:0") do |result|
+                assert_kind_of RETS4R::Client::DataObject, result
+                yielded_count += 1
+                :return_value
+            end
+
+            assert_equal yielded_count, value
+        end
+        def test_correcly_handles_location_header_url
+          @response.expects(:[]).with('content-type').at_least_once.returns("multipart/parallel; boundary='1231'")
+          @response.expects(:body).returns(
+"\r\n--1231\r\nContent-ID: 392103\r\nObject-ID: 1\r\nContent-Type: image/jpeg\r\nLocation: http://example.com/391203-1.jpg\r\n\r\n" +
+"\000"*120 +
+"\r\n--1231\r\nContent-ID: 392103\r\nObject-ID: 2\r\nContent-Type: image/gif\r\nLocation: http://example.com/391203-2.gif\r\n\r\n" +
+"\000"*140 +
+"\r\n--1231--"
+          )
+          results = @rets.get_object("Property", "Photo", "392103:*", true)
+
+          assert_equal 'http://example.com/391203-1.jpg', results.first.info['Location'], "incorrect location"
+          assert_equal 'http://example.com/391203-2.gif', results.last.info['Location'], "incorrect location"
+        end
+    end
+
+    class TestClientLogin < Test::Unit::TestCase
+        RETS_PORT     = '9080'
+        RETS_URL      = "http://localhost:#{RETS_PORT}"
+        RETS_LOGIN    = 'login'
+        RETS_PASSWORD = 'password'
+
+        class CustomError < StandardError; end
+
+        def setup
+            @logfile = StringIO.open
+            @rets    = RETS4R::Client.new(RETS_URL)
+            @rets.logger = Logger.new(@logfile)
+            @rets.logger.level = Logger::DEBUG
+
+            @rets.stubs(:request).returns(@response = mock("response"))
+            @response.stubs(:body).returns(:body)
+            Client::ResponseParser.any_instance.stubs(:parse_key_value).returns(@results = mock("results"))
+            @results.stubs(:success?).returns(true)
+            @results.stubs(:response).returns(Hash.new)
+            @results.stubs(:secondary_response=)
+        end
+
+        def teardown
+            @logfile.close
+        end
+
+        def test_successful_login_yields_the_results_to_the_block
+            @rets.expects(:request).with {|arg| arg.kind_of?(URI)}.returns(@response)
+            Client::ResponseParser.any_instance.expects(:parse_key_value).returns(@results)
+            @results.expects(:success?).returns(true)
+            @rets.expects(:logout)
+
+            in_block = false
+            @rets.login("user", "pass") do |results|
+                assert_equal @results, results
+                in_block = true
+            end
+
+            assert in_block, "Block was never yielded to"
+        end
+
+        def test_logout_called_after_block_execution_if_block_raises
+            assert_raises(CustomError) do
+                @rets.expects(:logout)
+                @rets.login("user", "pass") do |results|
+                    raise CustomError
+                end
+            end
+        end
+
+        def test_login_returns_the_blocks_value
+            rval = @rets.login("user", "pass") do |results|
+                :value
+            end
+
+            assert_equal :value, rval
+        end
+
+        def test_login_without_a_block_returns_the_results
+            results = @rets.login("user", "pass")
+            assert_equal @results, results
+        end
+    end
+
+    class TestClient < Test::Unit::TestCase
+        RETS_PORT     = '9080'
+        RETS_URL      = "http://localhost:#{RETS_PORT}"
+        RETS_LOGIN    = 'login'
+        RETS_PASSWORD = 'password'
+
+        def setup
+            @logfile = StringIO.open
+            @rets    = RETS4R::Client.new(RETS_URL)
+            @rets.logger = Logger.new(@logfile)
+            @rets.logger.level = Logger::DEBUG
+        end
+
+        def teardown
+            @logfile.close
+        end
+
+        def test_setup
+            assert_nothing_raised() { @rets.user_agent = 'ACK/2.1' }
+            assert_equal('ACK/2.1', @rets.user_agent)
+
+            assert_nothing_raised() { @rets.user_agent = 'SPRETS/0.1' }
+            assert_nothing_raised() { @rets.request_method = 'GET' }
+
+            assert_raise(RETS4R::Client::Unsupported) { @rets.rets_version = '1.4.0' }
+            assert_nothing_raised() { @rets.rets_version = '1.5' }
+            assert_equal("1.5", @rets.rets_version)
+            assert_equal("RETS/1.5", @rets.get_header("RETS-Version"))
+            assert_nothing_raised() { @rets.rets_version = '1.7' }
+            assert_equal("RETS/1.7", @rets.get_header("RETS-Version"))
+
+            assert_equal('SPRETS/0.1', @rets.user_agent)
+            assert_equal('GET', @rets.request_method)
+            assert_equal('1.7', @rets.rets_version)
+
+            assert_nothing_raised() { @rets.request_method = 'POST' }
+
+            assert_equal('POST', @rets.request_method)
+
+
+            # Check that our changes were logged when in debug mode
+            assert @logfile.length > 0
+        end
+
+        # Just to make sure that we're okay when we don't have a logger, we set it to nil and
+        # make a change that would trigger a debug mode log.
+        def test_without_logger
+            @rets.logger = nil
+
+            assert_nothing_raised() { @rets.request_method = 'GET' }
+        end
+
+        def test_content_type_parsing
+            ct = 'multipart/parallel; boundary=cc2631bb.0165.3b32.8a7d.a8453f662101; charset=utf-8'
+
+            results = @rets.process_content_type(ct)
+
+            assert_equal('cc2631bb.0165.3b32.8a7d.a8453f662101', results['boundary'])
+            assert_equal('multipart/parallel', results['content-type'])
+            assert_equal('utf-8', results['charset'])
+        end
+
+        def test_performs_get_request
+            assert_nothing_raised() {@rets.request_method = 'GET'}
+            assert_equal('GET', @rets.request_method)
+
+            http     = mock('http')
+            response = mock('response')
+            response.stubs(:to_hash).returns({})
+            response.stubs(:code).returns('500')
+            response.stubs(:message).returns('Move along, nothing to see here.')
+
+            http.expects(:get).with('', {'User-Agent' => @rets.user_agent, 'RETS-Version' => "RETS/#{@rets.rets_version}", 'Accept' => '*/*'}).at_least_once.returns(response)
+            http.expects(:post).never
+            Net::HTTP.any_instance.expects(:start).at_least_once.yields(http)
+
+            assert_raises(RETS4R::Client::HTTPError) {@rets.login('user', 'pass')}
+        end
+
+        def test_performs_post_request
+            assert_nothing_raised() {@rets.request_method = 'POST'}
+            assert_equal('POST', @rets.request_method)
+
+            http     = mock('http')
+            response = mock('response')
+            response.stubs(:to_hash).returns({})
+            response.stubs(:code).returns('500')
+            response.stubs(:message).returns('Move along, nothing to see here.')
+
+            http.expects(:post).with('', '', {'User-Agent' => @rets.user_agent, 'RETS-Version' => "RETS/#{@rets.rets_version}", 'Accept' => '*/*'}).at_least_once.returns(response)
+            http.expects(:get).never
+            Net::HTTP.any_instance.expects(:start).at_least_once.yields(http)
+
+            assert_raises(RETS4R::Client::HTTPError) {@rets.login('user', 'pass')}
+        end
+
+        def test_search_without_query_should_not_raise_no_metho_error
+            client = RETS4R::Client.new('http://demo.crt.realtors.org:6103/rets/login')
+            client.login('Joe', 'Schmoe')
+            begin
+              client.search('', '', nil)
+              # search_uri = URI.parse("http://demo.crt.realtors.org:6103/rets/search")
+              # client.send :request, search_uri,
+              #   {"Query"=>nil, "Format"=>"COMPACT", "Count"=>"0", "QueryType"=>"DMQL2", "Class"=>"", "SearchType"=>""}
+            rescue Exception => e
+              assert_not_equal "NoMethodError", e.class.to_s
+            end
+        end
+    end
+end