nytimes-articles 0.4.0

data/test/nytimes/articles/test_base.rb

@@ -0,0 +1,120 @@
+require File.dirname(__FILE__) + '/../../test_helper.rb'
+
+class TestNytimes::TestArticles::TestBase < Test::Unit::TestCase
+	include Nytimes::Articles
+	context "Base.build_request_url" do
+		should "call v1 of the API" do
+			assert_match %r{v1}, api_url_for 
+		end
+		
+		should "be of the form /svc/search/VERSION/article" do
+			assert_match %r{/svc/search/[^/]+/article}, api_url_for
+		end
+	end
+	
+	context "Base.invoke" do
+		setup do
+			init_test_key
+		end
+		
+		context "when the API key has not been set" do
+			setup do
+				Base.api_key = nil
+			end
+			
+			should "raise an AuthenticationError" do
+				assert_raise(AuthenticationError) do
+					Base.invoke
+				end
+			end			
+		end
+		
+		context "when the Articles API returns a 403 forbidden error (API key issue)" do
+			setup do
+				FakeWeb.register_uri(api_url_for, :status => ["403", "Forbidden"])
+			end
+			
+			should "raise an AuthenticationError" do
+				assert_raise(AuthenticationError) do
+					Base.invoke
+				end
+			end
+		end
+		
+		context "when the Articles API returns a 400 bad request error" do
+			setup do
+				FakeWeb.register_uri(api_url_for, :status => ["400", "Bad Request"])
+			end
+			
+			should "raise an BadRequestError" do
+				assert_raise(BadRequestError) do
+					Base.invoke
+				end
+			end
+		end
+		
+		context "When calling the Articles API returns a 500 server error" do
+			setup do
+				FakeWeb.register_uri(api_url_for, :status => ["500", "Server Error"])
+			end
+			
+			should "raise an ServerError" do
+				assert_raise(ServerError) do
+					Base.invoke
+				end
+			end
+		end
+		
+		context "when the Articles API returns any other HTTP error" do
+			setup do
+				FakeWeb.register_uri(api_url_for, :status => ["502", "Random Error"])
+			end
+			
+			should "raise an ConnectionError" do
+				assert_raise(ConnectionError) do
+					Base.invoke
+				end
+			end
+		end
+		
+		context "When the Articles API returns JSON that can't be parsed" do
+			setup do
+				FakeWeb.register_uri(api_url_for, :text => "e2131421212121221 => 3i109sdfvinp;2 112")
+			end
+			
+			should "raise an BadResponseError" do
+				assert_raise(BadResponseError) do
+					Base.invoke
+				end
+			end
+		end
+		
+		context "when passing Integer for offset" do
+		  # note Article.search requries integer for offset
+		  setup do
+				FakeWeb.register_uri(api_url_for('offset' => '1'), :status => ['200', 'OK'], :string => '{}')
+			end
+		  
+		  should "not raise NoMethodError" do
+		    assert_nothing_raised(NoMethodError) { Base.invoke('offset' => 1) }
+	    end
+	  end
+	end
+	
+	context "Base#text_field" do
+    context "when decode_html_entities == true" do
+      should "decode HTML entities in text fields" do
+        assert_equal "foó", Base.text_field("fo&oacute;")
+      end
+    end
+    
+    context "when decode_html_entities == false" do
+      setup { Base.decode_html_entities = false }
+      teardown { Base.decode_html_entities = true }
+      
+      should "not decode HTML entities in text fields" do
+        assert_equal "fo&oacute;", Base.text_field("fo&oacute;")
+      end
+    end
+  end
+end

data/test/nytimes/articles/test_facet.rb

@@ -0,0 +1,109 @@
+require File.dirname(__FILE__) + '/../../test_helper.rb'
+
+class TestNytimes::TestArticles::TestFacet < Test::Unit::TestCase
+	include Nytimes::Articles
+	
+	context "read-only attributes" do
+		setup do
+			@facet = Facet.new("facet_type", "term", 103)
+		end
+		
+		%w(term count facet_type).each do |field|
+			should "have a #{field} attribute" do
+				assert @facet.respond_to?(field)
+			end
+			
+			should "be read-only for the #{field} attribute" do
+				assert_raise(NoMethodError) do
+					@facet.send "#{field}=", "new value"
+				end
+			end
+		end
+	end
+	
+	context "Facet.init_from_api" do
+		setup do
+			@hash = {"date" => [{"count" => 36 , "term" => "19960630"} , {"count" => 36 , "term" => "19990523"}]}
+			@facets = Facet.init_from_api(@hash)
+		end
+		
+		should "return nil if reply from API has no facets section" do
+			assert_nil Facet.init_from_api(nil)
+		end
+		
+		should "return a hash indexed by the facet name from the API" do
+			assert_kind_of(Hash, @facets)
+			assert_same_elements @hash.keys, @facets.keys
+		end
+		
+		should "return an array of Facet objects as the value for a key" do
+			first_key = @facets.keys.first
+			assert_kind_of Array, @facets[first_key]
+			assert @facets[first_key].all? {|f| f.is_a? Facet }
+			assert @facets[first_key].all? {|f| f.facet_type == first_key }
+		end
+	end
+	
+	context "Facet.symbol_name" do
+		[:geo, :geography].each do |sym|
+			should "return Facet::GEO for #{sym}" do
+				assert_equal Facet::GEO, Facet.symbol_name(sym)
+			end
+		end
+
+		[:org, :orgs, :organization, :organizations].each do |sym|
+			should "return Facet::ORGANIZATION for #{sym}" do
+				assert_equal Facet::ORGANIZATION, Facet.symbol_name(sym)
+			end
+		end
+		
+		[:people, :person, :persons].each do |sym|
+			should "return Facet::PERSON for #{sym}" do
+				assert_equal Facet::PERSON, Facet.symbol_name(sym)
+			end
+		end
+		
+		[:nytd_geo, :nytd_geography].each do |sym|
+			should "return Facet::NYTD_GEO for #{sym}" do
+				assert_equal Facet::NYTD_GEO, Facet.symbol_name(sym)
+			end
+		end
+
+		[:nytd_org, :nytd_orgs, :nytd_organization, :nytd_organizations].each do |sym|
+			should "return Facet::NYTD_ORGANIZATION for #{sym}" do
+				assert_equal Facet::NYTD_ORGANIZATION, Facet.symbol_name(sym)
+			end
+		end
+		
+		[:nytd_people, :nytd_person, :nytd_persons].each do |sym|
+			should "return Facet::NYTD_PERSON for #{sym}" do
+				assert_equal Facet::NYTD_PERSON, Facet.symbol_name(sym)
+			end
+		end
+		
+		should "look for a matching constant and use that value" do
+			assert_equal Facet::SOURCE, Facet.symbol_name(:source)
+		end
+		
+		should "singularize the symbol when looking for a constant if no match for the plural form" do
+			assert_equal Facet::PAGE, Facet.symbol_name(:pages)
+		end
+		
+		should "return the string passed in if passed a string" do
+			assert_equal "FOOBAR", Facet.symbol_name('FOOBAR')
+		end
+		
+		should "return the facet's facet_type if passed a Facet object" do
+			f = Facet.new(Facet::ORGANIZATION, 'THE NEW YORK TIMES', nil)
+			assert_equal Facet::ORGANIZATION, Facet.symbol_name(f)
+		end
+		
+		should "raise an ArgumentError if not passed a symbol" do
+			assert_raise(ArgumentError) { Facet.symbol_name(23) }
+		end
+		
+		should "raise an ArgumentError if unable to find a matching Facet constant" do
+			assert_raise(ArgumentError) { Facet.symbol_name(:clown) }
+		end
+	end
+end

data/test/nytimes/articles/test_query.rb

@@ -0,0 +1,89 @@
+require File.dirname(__FILE__) + '/../../test_helper.rb'
+
+class TestNytimes::TestArticles::TestQuery < Test::Unit::TestCase
+	include Nytimes::Articles
+
+  def setup
+    Base.stubs(:invoke)
+    @query = Query.new
+  end
+
+  def assert_has_accessor(obj, name, value='foo')
+    assert_nothing_raised { obj.send("#{name}=", value) }
+    assert_equal value, obj.send(name)
+  end
+
+  def expect_search_with(hsh)
+    Article.expects(:search).with(has_entry(hsh))
+  end
+
+  def self.should_proxy_search_param(name, value)
+    should "provide accessor for :#{name}" do
+      assert_has_accessor(@query, name, value)
+    end
+
+    should "pass :#{name} to Article#search" do
+      @query.send("#{name}=", value)
+      expect_search_with name => value
+      @query.perform      
+    end
+  end
+
+  context "proxying named parameters to Article.search" do
+    (Article::TEXT_FIELDS + [:query]).each do |name|
+      should_proxy_search_param name.to_sym, 'some text field'
+    end
+
+    [:only_facets, :except_facets].each do |name|
+      should_proxy_search_param name, {'geo_facet' => 'NEW YORK CITY'}
+    end
+
+    [:begin_date, :end_date, :since, :before].each do |name|
+      should_proxy_search_param name, Time.now
+    end
+
+    [:fee, :has_thumbnail].each do |name|
+      should_proxy_search_param name, true
+    end
+
+    should_proxy_search_param :facets, ['geo_facet', 'org_facet', 'per_facet']
+    should_proxy_search_param :fields, ['title', 'abstract']
+    should_proxy_search_param :offset, 99
+    
+    should "not pass nil parameters" do
+      @query.query = 'foo'
+      Article.expects(:search).with(:query => 'foo')
+      @query.perform
+    end
+  end
+  
+  context "generating hash" do
+    # not sure how one would test this exhaustively, going for coverage + non-regression...
+    
+    should "produce the same hash for identical queries" do
+      q0 = Query.new
+      q0.query = 'foo bar baz'
+      q0.only_facets = {'geo_facet' => 'NEW YORK CITY'}
+      
+      q1 = Query.new
+      q1.query = 'foo bar baz'
+      q1.only_facets = {'geo_facet' => 'NEW YORK CITY'}
+      
+      assert_equal q0.hash, q1.hash
+    end
+    
+    should "not produce the same hash for non-identical queries" do
+      q0 = Query.new; q0.query = 'foo'
+      q1 = Query.new; q1.query = 'bar'
+      assert_not_equal q0.hash, q1.hash
+      
+      q0 = Query.new; q0.facets = {'geo_facet' => 'NEW YORK CITY'}
+      q1 = Query.new; q1.facets = {'geo_facet' => 'CALIFORNIA'}
+      assert_not_equal q0.hash, q1.hash
+      
+      q0 = Query.new; q0.since = Date.parse('1/1/2009')
+      q1 = Query.new; q1.since = Date.parse('1/2/2009')
+      assert_not_equal q0.hash, q1.hash
+    end
+  end
+end

data/test/nytimes/articles/test_result_set.rb

@@ -0,0 +1,62 @@
+require File.dirname(__FILE__) + '/../../test_helper.rb'
+
+RESULT_SET_HASH = {"results"=>[{"lead_paragraph"=>"", "classifiers_facet"=>["Top/News/Business", "Top/Classifieds/Job Market/Job Categories/Banking, Finance and Insurance", "Top/News/Business/Markets"], "title"=>"Wall Street on Even Keel After Sell-Off", "nytd_title"=>"Wall Street on Even Keel After Sell-Off", "byline"=>"By JACK HEALY and MATTHEW SALTMARSH", "body"=>"A day after fleeing stocks in a fierce sell-off, investors on Wall Street stayed mostly at bay on Wednesday. Shares on Wall Street were hovering slightly higher at midday Wednesday as investors tried to get a better grip on Washington’s newly announced plans to stabilize the shaky banking system with up to $2.5 trillion in public and private", "material_type_facet"=>["News"], "url"=>"http://www.nytimes.com/2009/02/12/business/12markets.html", "publication_month"=>"02", "date"=>"20090212", "publication_year"=>"2009", "source_facet"=>"The New York Times", "desk_facet"=>"Business", "publication_day"=>"12", "des_facet"=>["STOCKS AND BONDS"], "day_of_week_facet"=>"Thursday"}, {"page_facet"=>"8", "lead_paragraph"=>"", "classifiers_facet"=>["Top/News/Business", "Top/Classifieds/Job Market/Job Categories/Banking, Finance and Insurance", "Top/News/Business/Markets"], "title"=>"Wall St. Treads Water as It Waits on Washington", "nytd_title"=>"Wall St. Treads Water as It Waits on Washington", "byline"=>"By JACK HEALY", "body"=>"Wall Street held its breath on Monday as it awaited details on a banking bailout from Washington. Investors had expected to start the week with an announcement from the Treasury Department outlining its latest plans to stabilize the financial system. But the Obama administration delayed releasing the details until at least Tuesday to keep the focus", "material_type_facet"=>["News"], "url"=>"http://www.nytimes.com/2009/02/10/business/10markets.html", "publication_month"=>"02", "date"=>"20090210", "publication_year"=>"2009", "source_facet"=>"The New York Times", "desk_facet"=>"Business", "publication_day"=>"10", "des_facet"=>["STOCKS AND BONDS"], "day_of_week_facet"=>"Tuesday"}, {"lead_paragraph"=>"", "geo_facet"=>["WALL STREET (NYC)"], "classifiers_facet"=>["Top/Opinion/Opinion/Letters", "Top/Opinion", "Top/Opinion/Opinion", "Top/Features/Travel/Guides/Destinations/North America", "Top/Features/Travel/Guides/Destinations/North America/United States/New York", "Top/Features/Travel/Guides/Destinations/North America/United States"], "title"=>"LETTER; Wall Street Blues", "nytd_title"=>"Wall Street Blues", "body"=>"To the Editor: Re “Wall St., a Financial Epithet, Stirs Outrage and Punch Lines” (front page, Feb. 3): I have some news for the Wall Street worker who ponders working for a nonprofit from 8 to 4 instead of on Wall Street, where long hours are the norm. I was a college administrator and English teacher for 15 years. Every night and all", "material_type_facet"=>["Letter"], "url"=>"http://www.nytimes.com/2009/02/09/opinion/lweb09econ.html", "publication_month"=>"02", "date"=>"20090209", "column_facet"=>"Letter", "publication_year"=>"2009", "source_facet"=>"The New York Times", "desk_facet"=>"Opinion", "publication_day"=>"09", "des_facet"=>["NONPROFIT ORGANIZATIONS", "EXECUTIVE COMPENSATION"], "day_of_week_facet"=>"Monday"}, {"page_facet"=>"29", "lead_paragraph"=>"", "geo_facet"=>["WALL STREET (NYC)"], "small_image_width"=>"75", "classifiers_facet"=>["Top/News/New York and Region", "Top/Classifieds/Job Market/Job Categories/Education", "Top/Features/Travel/Guides/Destinations/North America", "Top/Classifieds/Job Market/Job Categories/Banking, Finance and Insurance", "Top/Features/Travel/Guides/Destinations/North America/United States/New York", "Top/Features/Travel/Guides/Destinations/North America/United States", "Top/News/Education"], "title"=>"OUR TOWNS; As Pipeline to Wall Street Narrows, Princeton Students Adjust Sights", "nytd_title"=>"As Pipeline to Wall Street Narrows, Princeton Students Adjust Sights", "byline"=>"By PETER APPLEBOME", "body"=>"Princeton, N.J. There must be a screenplay in the fabulous Schoppe twins, Christine and Jennifer, Princeton University juniors from Houston. They had the same G.P.A. and SATs in high school, where they became Gold Award Girl Scouts , sort of the female version of Eagle Scouts. They live together and take all the same courses, wear identical", "material_type_facet"=>["News"], "url"=>"http://www.nytimes.com/2009/02/08/nyregion/08towns.html", "publication_month"=>"02", "small_image_height"=>"75", "date"=>"20090208", "column_facet"=>"Our Towns", "small_image"=>"Y", "publication_year"=>"2009", "source_facet"=>"The New York Times", "org_facet"=>["PRINCETON UNIVERSITY"], "desk_facet"=>"New York Region", "publication_day"=>"08", "small_image_url"=>"http://graphics8.nytimes.com/images/2009/02/08/nyregion/08towns.751.jpg", "des_facet"=>["EDUCATION AND SCHOOLS", "BANKS AND BANKING"], "day_of_week_facet"=>"Sunday"}, {"page_facet"=>"1", "lead_paragraph"=>"", "geo_facet"=>["WALL STREET (NYC)"], "classifiers_facet"=>["Top/News/Business", "Top/News/Business/Markets", "Top/Features/Travel/Guides/Destinations/North America", "Top/Classifieds/Job Market/Job Categories/Banking, Finance and Insurance", "Top/Features/Travel/Guides/Destinations/North America/United States/New York", "Top/Features/Travel/Guides/Destinations/North America/United States"], "title"=>"Wall St. Pay Is Cyclical. Guess Where We Are Now.", "nytd_title"=>"Wall St. Pay Is Cyclical. Guess Where We Are Now.", "byline"=>"By STEVE LOHR", "body"=>"To most people, a salary cap of $500,000 would be anything but punishment. But in Wall Street’s executive suites, it amounts to a humbling pay cut — and, just maybe, the beginning of a cultural shift. True, the rich always seem to find new ways to get richer. But in the sweep of history, high pay on Wall Street comes and goes through", "material_type_facet"=>["News"], "url"=>"http://www.nytimes.com/2009/02/05/business/05bonus.html", "publication_month"=>"02", "date"=>"20090205", "publication_year"=>"2009", "source_facet"=>"The New York Times", "desk_facet"=>"Business", "publication_day"=>"05", "des_facet"=>["BONUSES", "BANKS AND BANKING", "SUBPRIME MORTGAGE CRISIS", "EXECUTIVE COMPENSATION"], "day_of_week_facet"=>"Thursday"}, {"page_facet"=>"26", "lead_paragraph"=>"", "geo_facet"=>["WALL STREET (NYC)"], "small_image_width"=>"75", "classifiers_facet"=>["Top/Opinion/Opinion/Letters", "Top/Opinion", "Top/Opinion/Opinion", "Top/Features/Travel/Guides/Destinations/North America", "Top/Features/Travel/Guides/Destinations/North America/United States/New York", "Top/Features/Travel/Guides/Destinations/North America/United States"], "title"=>"LETTERS; Wall St. and the $500,000 Question", "nytd_title"=>"Wall St. and the $500,000 Question", "body"=>"To the Editor: Re “Amid Fury, U.S. Is Set to Curb Executives’ Pay After Bailouts” (front page, Feb. 4): It may be that the $500,000 cap is a bit extreme, but America should celebrate that there is at last some mechanism to rein in top corporate compensation. Public outrage and shareholder revolts have not managed to do so, since", "material_type_facet"=>["Letter"], "url"=>"http://www.nytimes.com/2009/02/05/opinion/l05econ.html", "publication_month"=>"02", "small_image_height"=>"75", "date"=>"20090205", "column_facet"=>"Letters", "small_image"=>"Y", "publication_year"=>"2009", "source_facet"=>"The New York Times", "desk_facet"=>"Opinion", "publication_day"=>"05", "small_image_url"=>"http://graphics8.nytimes.com/images/2009/02/05/opinion/05letter.75.gif", "des_facet"=>["EMERGENCY ECONOMIC STABILIZATION ACT (2008)", "EXECUTIVES AND MANAGEMENT", "WAGES AND SALARIES", "SUBPRIME MORTGAGE CRISIS"], "day_of_week_facet"=>"Thursday"}, {"page_facet"=>"1", "lead_paragraph"=>"", "geo_facet"=>["UNITED STATES"], "classifiers_facet"=>["Top/News/World/Countries and Territories/United States", "Top/News/Business/Personal Finance", "Top/News/Front Page", "Top/Features/Travel/Guides/Destinations/North America", "Top/News/Business", "Top/News/Business/Markets", "Top/Classifieds/Job Market/Job Categories/Executive", "Top/News", "Top/Classifieds/Job Market/Job Categories/Banking, Finance and Insurance", "Top/Features/Travel/Guides/Destinations/North America/United States"], "title"=>"Wall St., a Financial Epithet, Stirs Outrage and Punch Lines", "nytd_title"=>"Wall St., a Financial Epithet, Stirs Outrage", "byline"=>"By DAVID SEGAL", "body"=>"Monday was the last day of Iris Chau's 11-year career at JPMorgan Chase and she says there's a lot she'll miss about the job, including her colleagues, her paycheck and her role managing a technical support team. But one thing she won't miss about JPMorgan: telling people that she works there. ''For a long time, it was kind of glamorous and I had", "material_type_facet"=>["News"], "word_count"=>"1472", "url"=>"http://www.nytimes.com/2009/02/03/business/03bankers.html", "publication_month"=>"02", "abstract"=>"Financial industry has become national pariah, as country fumes over billions spent on bailouts and bonuses; many workers feel they are unfairly singled out for blame for crisis that was created by numerous players; there has been huge loss of status and cultural cachet as industry has become target of rage, raw material for talk-show tirades and comedians; fall in stature has taken toll on those industry veterans who are even willing to discuss it and, when they do, they attribute much of financial crisis to others; photos (M)", "small_image_height"=>"75", "date"=>"20090203", "fee"=>"N", "small_image"=>"Y", "publication_year"=>"2009", "source_facet"=>"The New York Times", "nytd_lead_paragraph"=>"As investment bankers adjust to a new role as targets of scorn, they aren\342\200\231t expecting pity, or a sympathetic ear.", "desk_facet"=>"Business/Financial Desk", "publication_day"=>"03", "small_image_url"=>"http://graphics8.nytimes.com/images/2009/02/02/business/03bankers_75.jpg", "nytd_des_facet"=>["Executives and Management", "Investment Banking", "Personal Finances", "Layoffs and Job Reductions", "High Net Worth Individuals", "Bonuses", "Executive Compensation", "Banks and Banking"], "des_facet"=>["EXECUTIVES AND MANAGEMENT", "INVESTMENT BANKING", "PERSONAL FINANCES", "BANKS AND BANKING", "LAYOFFS AND JOB REDUCTIONS", "LABOR", "BONUSES", "STOCKS AND BONDS", "BUDGETS AND BUDGETING", "EXECUTIVE COMPENSATION", "HIGH NET WORTH INDIVIDUALS", "FINANCES"], "day_of_week_facet"=>"Tuesday"}, {"page_facet"=>"20", "lead_paragraph"=>"", "classifiers_facet"=>["Top/Opinion/Opinion/Letters", "Top/Opinion", "Top/Opinion/Opinion"], "title"=>"LETTERS; Wall St. Bonuses: Enough Is Enough", "body"=>"To the Editor: Re ''Money for Nothing,'' by Dave Krasne (Op-Ed, Jan. 27): In the discussion of regulating executive compensation, the question has been asked, ''Without the most significant of financial rewards, how will we attract the very best to occupy these lofty positions?'' The implicit assumption of this statement is that society's very best", "material_type_facet"=>["Letter"], "word_count"=>"760", "url"=>"http://query.nytimes.com/gst/fullpage.html?res=9401E3D91431F931A35751C0A96F9C8B63", "publication_month"=>"02", "date"=>"20090202", "column_facet"=>"LETTERS", "publication_year"=>"2009", "source_facet"=>"The New York Times", "desk_facet"=>"Editorial Desk", "publication_day"=>"02", "day_of_week_facet"=>"Monday"}, {"page_facet"=>"11", "lead_paragraph"=>"", "classifiers_facet"=>["Top/Opinion/Opinion/Editorials", "Top/Opinion", "Top/News/Washington/Campaign 2008/Candidates", "Top/News/Washington/Campaign 2008", "Top/Opinion/Opinion"], "title"=>"OP-ED COLUMNIST; Disgorge, Wall Street Fat Cats", "nytd_title"=>"Disgorge, Wall Street Fat Cats", "byline"=>"By MAUREEN DOWD", "body"=>"The president's disgust at Wall Street looters was good. But we need more. We need disgorgement. Disgorgement is when courts force wrongdoers to repay ill-gotten gains. And I'm ill at the gains gotten by scummy executives acting all Gordon Gekko while they're getting bailed out by us. With the equally laconic Tim Geithner beside him, Mr. Obama", "material_type_facet"=>["Editorial"], "word_count"=>"807", "url"=>"http://www.nytimes.com/2009/02/01/opinion/01dowd.html", "publication_month"=>"02", "date"=>"20090201", "column_facet"=>"OP-ED COLUMNIST", "fee"=>"N", "publication_year"=>"2009", "source_facet"=>"The New York Times", "nytd_lead_paragraph"=>"The president\342\200\231s disgust at Wall Street looters was good. But we need more. We need disgorgement. Disgorgement is when courts force wrongdoers to repay ill-gotten gains.", "desk_facet"=>"Editorial Desk", "publication_day"=>"01", "per_facet"=>["OBAMA, BARACK"], "nytd_des_facet"=>["United States Economy", "Executive Compensation", "Subprime Mortgage Crisis"], "des_facet"=>["UNITED STATES ECONOMY", "EXECUTIVE COMPENSATION", "SUBPRIME MORTGAGE CRISIS"], "day_of_week_facet"=>"Sunday"}, {"page_facet"=>"1", "lead_paragraph"=>"", "geo_facet"=>["WALL STREET (NYC)"], "classifiers_facet"=>["Top/News/Front Page", "Top/Features/Travel/Guides/Destinations/North America", "Top/News/Business", "Top/News/Business/Markets", "Top/News/Washington/Campaign 2008", "Top/News", "Top/Classifieds/Job Market/Job Categories/Banking, Finance and Insurance", "Top/News/Washington/Campaign 2008/Candidates", "Top/Features/Travel/Guides/Destinations/North America/United States/New York", "Top/Features/Travel/Guides/Destinations/North America/United States"], "title"=>"What Red Ink? Wall St. Paid Hefty Bonuses", "nytd_title"=>"What Red Ink? Wall Street Paid Hefty Bonuses", "byline"=>"By BEN WHITE; Paul J. Sullivan contributed reporting.", "body"=>"By almost any measure, 2008 was a complete disaster for Wall Street -- except, that is, when the bonuses arrived. Despite crippling losses, multibillion-dollar bailouts and the passing of some of the most prominent names in the business, employees at financial companies in New York, the now-diminished world capital of capital, collected an", "material_type_facet"=>["News"], "word_count"=>"992", "url"=>"http://www.nytimes.com/2009/01/29/business/29bonus.html", "publication_month"=>"01", "abstract"=>"Wall Street paid out estimated $18.4 billion in bonuses last year, despite crippling losses, multi-billion-dollar bailouts and veritable banishment of well-known heads of financial firms; New York State Comptroller Thomas DiNapoli reports that it is sixth largest amount on record, matching 2004 when Dow Jones industrial average was above 10,000; estimate is based on personal income-tax collections and excludes stock option awards that could push figure even higher; DiNapoli says it is unclear whether bailouts helped make bonuses possible and urges Obama administration to examine issue; graphs (M)", "date"=>"20090129", "fee"=>"N", "publication_year"=>"2009", "source_facet"=>"The New York Times", "nytd_lead_paragraph"=>"Despite crippling losses in 2008, financial employees in New York collected an estimated $18.4 billion in bonuses for the year.", "desk_facet"=>"Business/Financial Desk", "publication_day"=>"29", "nytd_geo_facet"=>["Wall Street (NYC)"], "per_facet"=>["OBAMA, BARACK", "DINAPOLI, THOMAS P"], "nytd_des_facet"=>["Executive Compensation", "High Net Worth Individuals", "Bonuses", "Subprime Mortgage Crisis", "Brokers and Brokerage Firms"], "des_facet"=>["STOCK OPTIONS AND PURCHASE PLANS", "SUBPRIME MORTGAGE CRISIS", "HIGH NET WORTH INDIVIDUALS", "BONUSES", "STOCKS AND BONDS", "WAGES AND SALARIES", "EXECUTIVE COMPENSATION", "ETHICS", "BROKERS AND BROKERAGE FIRMS"], "day_of_week_facet"=>"Thursday"}], "total"=>3292, "tokens"=>["title:wall", "street"], "offset"=>"0"}
+
+class TestNytimes::TestArticles::TestResultSet < Test::Unit::TestCase
+	include Nytimes::Articles
+	
+	context "ResultSet.init_from_api" do
+		setup do
+			@result_set = ResultSet.init_from_api(RESULT_SET_HASH)
+		end
+		
+		should "read the offset from the results hash @offset field" do
+			assert_equal RESULT_SET_HASH["offset"].to_i, @result_set.offset
+		end
+		
+		should "read the total_results from the results_hash total field" do
+			assert_equal RESULT_SET_HASH["total"].to_i, @result_set.total_results
+		end
+		
+		should "return results as an array of Article objects" do
+			assert_kind_of(Array, @result_set.results)
+			assert @result_set.results.all? {|r| r.is_a? Article }
+		end
+	end
+	
+	context "page_number" do
+		setup do
+			@result_set = ResultSet.init_from_api(RESULT_SET_HASH)
+		end
+		
+		should "be offset + 1" do
+			assert_equal 1, @result_set.page_number
+		end
+		
+		should "be 0 if total_results is 0" do
+			result_set = ResultSet.new(:total_results => 0)
+			assert_equal 0, result_set.page_number
+		end
+	end
+	
+	context "total_pages" do
+		should "be 1 if less than BATCH_SIZE results" do
+			result_set = ResultSet.new(:total_results => 7)
+			assert_equal 1, result_set.total_pages
+		end
+		
+		should "be 0 if 0 results returned" do
+			result_set = ResultSet.new(:total_results => 0)
+			assert_equal 0, result_set.total_pages
+		end
+		
+		should "be ceil(total_results / batch_size)" do
+			result_set = ResultSet.new(:total_results => 23)
+			assert_equal 3, result_set.total_pages
+			
+			result_set = ResultSet.new(:total_results => 20)
+			assert_equal 2, result_set.total_pages
+		end
+	end
+end
+	

data/test/nytimes/articles/test_thumbnail.rb

@@ -0,0 +1,47 @@
+require File.dirname(__FILE__) + '/../../test_helper.rb'
+
+class TestNytimes::TestArticles::TestThumbnail < Test::Unit::TestCase
+	include Nytimes::Articles
+	
+	context "read-only attributes" do
+		setup do
+			@thumbnail = Thumbnail.new("http://www.foo.com", 400, 600)
+		end
+		
+		%w(url width height).each do |field|
+			should "have a #{field} attribute" do
+				assert @thumbnail.respond_to?(field)
+			end
+			
+			should "be read-only for the #{field} attribute" do
+				assert_raise(NoMethodError) do
+					@thumbnail.send "#{field}=", "new value"
+				end
+			end
+		end
+	end
+	
+	context "Facet.init_from_api" do
+		setup do
+			@hash = {"small_image_url" => "http://foo.com/", 'small_image_width' => '400', 'small_image_height' => '600'}
+		end
+		
+		should "return nil if reply from API has no URL" do
+			assert_nil Thumbnail.init_from_api(nil)
+			assert_nil Thumbnail.init_from_api({})
+		end
+		
+		%w(width height).each do |dimension|
+			should "set to nil if it is nil in the array" do
+				@hash["small_image_#{dimension}"] = nil
+				thumbnail = Thumbnail.init_from_api(@hash)
+				assert_nil thumbnail.send(dimension)
+			end
+			
+			should "cast to an Integer value if passed a string" do
+				thumbnail = Thumbnail.init_from_api(@hash)
+				assert_equal @hash["small_image_#{dimension}"].to_i, thumbnail.send(dimension)
+			end
+		end
+	end
+end

data/test/test_helper.rb

@@ -0,0 +1,31 @@
+require 'rubygems'
+require 'test/unit'
+require 'shoulda'
+require 'mocha'
+gem 'chrisk-fakeweb'
+require 'fake_web'
+
+FakeWeb.allow_net_connect = false
+
+$LOAD_PATH.unshift(File.dirname(__FILE__))
+require 'nytimes_articles'
+
+API_KEY = '13e234323232222'
+
+def init_test_key
+	Nytimes::Articles::Base.api_key = API_KEY
+end
+
+def api_url_for(params = {})
+	full_params = params.merge 'api-key' => API_KEY
+	Nytimes::Articles::Base.build_request_url(full_params).to_s
+end
+
+module TestNytimes
+	module TestArticles
+	end
+end
+
+class Test::Unit::TestCase
+end
+