virility 0.0.6 → 0.1.0

data/lib/virility/strategy.rb

@@ -0,0 +1,98 @@
+module Virility
+	class Strategy
+  	include HTTParty
+		include Virility::Supporter
+
+		attr_accessor :url, :response, :results
+
+		def initialize url
+			@url = encode url
+			@results = {}
+		end
+		
+		#
+		# Abstract Methods - Delete eventually
+		#
+
+		def census
+			raise "Abstract Method census called on #{self.class} - Please define this method"
+		end
+
+		def count
+			raise "Abstract Method count called on #{self.class} - Please define this method"
+		end
+		
+		#
+		# Poll
+		#
+		
+		def poll
+			call_strategy
+			collect_results
+		end
+		
+		#
+		# Call Strategy
+		#
+		
+		def call_strategy
+			@response = census
+		end
+
+		#
+		# Results
+		#
+		
+		def collect_results
+			if respond_to?(:outcome)
+				@results = valid_response_test ? outcome : {}
+			else
+				@results = valid_response_test ? @response.parsed_response : {}
+			end
+		end
+
+		def results
+			if @results.empty?
+				begin
+					poll
+				rescue => e
+					puts "[virility#poll] #{self.class.to_s} => #{e}"
+				end
+			end
+			@results
+		end
+
+		#
+		# Dynamic Methods
+		#
+
+		def get_result key
+			if result_exists?(key)
+				results[key.to_s]
+			else
+				0
+			end
+		end
+
+		def result_exists? key
+			!results[key.to_s].nil?
+		end
+
+		def method_missing(name, *args, &block)
+			if result_exists?(name)
+				get_result(name)
+			else
+				0
+			end
+		end
+
+		#
+		# Parsed Response Test - Overwrite if needed
+		#
+
+		def valid_response_test
+			@response.respond_to?(:parsed_response) and @response.parsed_response.is_a?(Hash)
+		end
+
+	end
+end

data/lib/virility/supporter.rb

@@ -0,0 +1,55 @@
+module Virility
+	module Supporter
+
+		#
+		# URL Encoding / Decoding Methods
+		#
+
+		def encode url
+			CGI.escape url
+		end
+
+		def url
+			CGI.unescape @url
+		end
+
+		def escaped_url
+			@url
+		end
+
+		#
+		# Camelize / Underscore
+		#
+
+		def camelize(lower_case_and_underscored_word, first_letter_in_uppercase = true)
+		  if first_letter_in_uppercase
+		    lower_case_and_underscored_word.to_s.gsub(/\/(.?)/) { "::" + $1.upcase }.gsub(/(^|_)(.)/) { $2.upcase }
+		  else
+		    lower_case_and_underscored_word.first + camelize(lower_case_and_underscored_word)[1..-1]
+		  end
+		end
+
+		def underscore(camel_cased_word)
+			word = camel_cased_word.to_s.dup
+			word.gsub!(/::/, '/')
+			word.gsub!(/([A-Z]+)([A-Z][a-z])/,'\1_\2')
+			word.gsub!(/([a-z\d])([A-Z])/,'\1_\2')
+			word.tr!("-", "_")
+			word.downcase!
+			word
+		end
+
+		#
+		# Convert Class Name To Appropriate Key Symbol
+		#
+
+		def symbolize_for_key(klass)
+			underscore(klass.class.to_s.gsub(/Virility::/, '')).to_sym
+		end
+
+		def get_class_string(klass)
+			File.basename(klass).gsub(/\.rb/,'')
+		end
+
+	end
+end

data/lib/virility/version.rb

@@ -1,3 +1,3 @@
 module Virility
-  VERSION = "0.0.6"
+  VERSION = "0.1.0"
 end

data/spec/excitation_spec.rb

@@ -2,9 +2,9 @@ require File.expand_path(File.dirname(__FILE__) + '/spec_helper')
 
 describe "Excitation" do
 	before(:each) do
-		@url = "http://www.dzone.com/snippets/uri-encoding-ruby"
+		@url = "http://creativeallies.com"
 	end
-	
+
 	#
 	# Initialization
 	#
@@ -13,12 +13,8 @@ describe "Excitation" do
 		it "should raise an error if a URL is not set" do
 			lambda {Virility::Excitation.new}.should raise_error
 		end
-
-		it "should automatically encode the url" do
-			Virility::Excitation.new(@url).attributes[:url].should == "http%3A%2F%2Fwww.dzone.com%2Fsnippets%2Furi-encoding-ruby"
-		end
 	end
-	
+
 	#
 	# Get Virility
 	#
@@ -37,11 +33,11 @@ describe "Excitation" do
 		it "should assign a hash to the strategies variable" do
 			Virility::Excitation.new(@url).strategies.should be_a_kind_of Hash
 		end
-		
-		it "strategies should be inherited from the Context" do
-			Virility::Excitation.new(@url).strategies.first.last.should be_a_kind_of Virility::Context
+
+		it "strategies should be inherited from the Strategy" do
+			Virility::Excitation.new(@url).strategies.first.last.should be_a_kind_of Virility::Strategy
 		end
-		
+
 		it "should load all of the strategies" do
 			Virility::Excitation.new(@url).strategies.count.should == Dir[File.join('lib', 'virility', 'strategies', '**', '*')].count { |file| File.file?(file) }
 		end
@@ -54,38 +50,67 @@ describe "Excitation" do
 	context "encode" do
 		it "should encode the url" do
 			v = Virility::Excitation.new(@url)
-			v.encode(@url).should == "http%3A%2F%2Fwww.dzone.com%2Fsnippets%2Furi-encoding-ruby"
+			v.encode(@url).should == "http%3A%2F%2Fcreativeallies.com"
 		end
 	end
-	
+
 	#
-	# URL
+	# Symbolize For Key
 	#
 
-	context "url" do
-		it "should return the unencoded url" do
-			Virility::Excitation.new(@url).url.should == @url
+	context "symbolize_for_key" do
+		it "should return a symbol with the name of the class" do
+			Virility::Excitation.new(@url).symbolize_for_key(Virility::Excitation.new(@url)).should == :excitation
 		end
 	end
-	
+
 	#
-	# Escaped URL
+	# Dynamic Methods
 	#
 
-	context "escaped_url" do
-		it "should return the encoded url" do
-			Virility::Excitation.new(@url).escaped_url.should == "http%3A%2F%2Fwww.dzone.com%2Fsnippets%2Furi-encoding-ruby"
+	describe "dynamic methods" do
+		context "overall testing" do
+			Virility::TESTING_STRATEGIES.each do |method, klass|
+				it "should return a #{klass} object when the method #{method} is called" do
+					Virility::Excitation.new(@url).send(method).should be_a_kind_of klass
+				end
+			end
+
+			Virility::FAKE_TESTING_STRATEGIES.each do |method|
+				it "should raise an error if the strategy (#{method}) does not exist" do
+					lambda { Virility::Excitation.new(@url).send(method) }.should raise_error(Virility::UnknownStrategy, "#{method} Is Not A Known Strategy")
+				end
+			end
+		end
+
+		context "strategy_exists?" do
+			Virility::TESTING_STRATEGIES.keys.each do |strategy|
+				it "should return true for #{strategy}" do
+					Virility::Excitation.new(@url).strategy_exists?(strategy).should be true
+				end
+			end
+
+			Virility::FAKE_TESTING_STRATEGIES.each do |strategy|
+				it "should return false for #{strategy}" do
+					Virility::Excitation.new(@url).strategy_exists?(strategy).should be false
+				end
+			end
+		end
+
+		context "get_strategy" do
+			Virility::TESTING_STRATEGIES.each do |method, klass|
+				it "should return a #{klass} object when get_strategy is called with #{method}" do
+					Virility::Excitation.new(@url).get_strategy(method).should be_a_kind_of klass
+				end
+			end
+
+			Virility::FAKE_TESTING_STRATEGIES.each do |method|
+				it "should raise an error if the strategy (#{method}) does not exist" do
+					lambda { Virility::Excitation.new(@url).get_strategy(method) }.should raise_error(Virility::UnknownStrategy, "#{method} Is Not A Known Strategy")
+				end
+			end
 		end
-	end
 
-	#
-	# Symbolize For Key
-	#
-	
-	context "symbolize_for_key" do
-		it "should return a symbol with the name of the class" do
-			Virility::Excitation.new(@url).symbolize_for_key(Virility::Excitation.new(@url)).should == :excitation
-		end		
 	end
- 
-end
+
+end

data/spec/spec_helper.rb

@@ -11,4 +11,31 @@ RSpec.configure do |config|
   config.filter_run :focus => true
   config.run_all_when_everything_filtered = true
   config.mock_with :rspec 
+end
+
+#
+# Constants for Testing
+#
+
+module Virility
+	TESTING_STRATEGIES = {:facebook => Virility::Facebook, :twitter => Virility::Twitter, :delicious => Virility::Delicious, :pinterest => Virility::Pinterest, :plus_one => Virility::PlusOne, :stumble_upon => Virility::StumbleUpon}
+	FAKE_TESTING_STRATEGIES = [:digg, :reddit, :linked_in, :instagram, :tumblr]
+	
+	FB_RESULTS = {"like_count"=>"19", "click_count"=>"0", "share_count"=>"3", "comment_count"=>"0", "commentsbox_count"=>"0", "total_count"=>"22"}
+	FAKE_FB_RESULTS = [:face_count, :pages, :friends]
+end
+
+
+#
+# Example Groups
+#
+
+share_examples_for "no context results" do
+	it "should not raise an error" do
+		lambda { @virility.poll }.should_not raise_error
+	end
+
+	it "should return 0 for count" do
+		@virility.count.should == 0
+	end
 end

data/spec/strategies/delicious_spec.rb

@@ -0,0 +1,66 @@
+require File.expand_path(File.dirname(__FILE__) + '/../spec_helper')
+
+describe "Virility::Delicious" do
+	before(:each) do
+		@url = "http://creativeallies.com"
+	end
+	
+	describe "poll" do
+		context "when there is not a valid result" do
+			before(:each) do
+				response = double("HTTParty::Response", :parsed_response => {"fake_return_value"=> "OICU812"})
+				Virility::Delicious.stub(:get).and_return(response)
+				@virility = Virility::Delicious.new(@url)
+			end
+
+			it_should_behave_like "no context results"
+		end
+
+		context "when there is no result" do
+			before(:each) do
+				response = double("HTTParty::Response")
+				Virility::Delicious.stub(:get).and_return(response)
+				@virility = Virility::Delicious.new(@url)
+			end
+
+			it_should_behave_like "no context results"
+		end
+
+		context "when there is a result but no specific hash value" do
+			before(:each) do
+				response = double("HTTParty::Response", :parsed_response => {})
+				Virility::Delicious.stub(:get).and_return(response)
+				@virility = Virility::Delicious.new(@url)
+			end
+
+			it_should_behave_like "no context results"
+		end
+
+		context "when there is a result but parsed_response is weird" do
+			before(:each) do
+				response = double("HTTParty::Response", :parsed_response => Object.new)
+				Virility::Delicious.stub(:get).and_return(response)
+				@virility = Virility::Delicious.new(@url)
+			end
+
+			it_should_behave_like "no context results"
+		end
+
+		context "when there is a valid result" do
+			before(:each) do
+				response = double("HTTParty::Response", :parsed_response => {"url"=>"http://creativeallies.com/", "total_posts"=>50, "top_tags"=>{"graphic"=>1, "art"=>1, "contest"=>1, "photography"=>1, "creativity"=>1, "design"=>1, "online"=>1, "music"=>1, "contests"=>1, "freelance"=>1}, "hash"=>"f9468b2d2842d4a9685af46e1b8e9349", "title"=>"Creative Allies | Create Art For Rockstars"})
+				Virility::Delicious.stub(:get).and_return(response)
+				@virility = Virility::Delicious.new(@url)
+			end
+
+			it "should not raise an error" do
+				lambda { @virility.poll }.should_not raise_error
+			end
+
+			it "should return 50 for the count" do
+				@virility.count.should == 50
+			end
+		end
+	end
+
+end

data/spec/strategies/facebook_spec.rb

@@ -0,0 +1,98 @@
+require File.expand_path(File.dirname(__FILE__) + '/../spec_helper')
+
+describe "Virility::Facebook" do
+	before(:each) do
+		@url = "http://creativeallies.com"
+	end
+	
+	share_examples_for "no facebook results" do
+		it "should not raise an error" do
+			lambda { @virility.poll }.should_not raise_error
+		end
+
+		["like_count", "click_count", "share_count", "comment_count", "commentsbox_count", "total_count"].each do |attribute|
+			it "should return 0 for #{attribute}" do
+				@virility.send(attribute.to_sym).should == 0
+			end
+		end	
+	end
+
+	describe "poll" do
+		context "when there is not a valid result" do
+			before(:each) do
+				response = double("HTTParty::Response", :parsed_response => {"fql_query_response"=>{"list"=>"true"}})
+				Virility::Facebook.stub(:get).and_return(response)
+				@virility = Virility::Facebook.new(@url)
+			end
+
+			it_should_behave_like "no facebook results"
+		end
+
+		context "when there is no result" do
+			before(:each) do
+				response = double("HTTParty::Response")
+				Virility::Facebook.stub(:get).and_return(response)
+				@virility = Virility::Facebook.new(@url)
+			end
+
+			it_should_behave_like "no facebook results"
+		end
+
+		context "when there is a result but no fql_query_response" do
+			before(:each) do
+				response = double("HTTParty::Response", :parsed_response => {})
+				Virility::Facebook.stub(:get).and_return(response)
+				@virility = Virility::Facebook.new(@url)
+			end
+
+			it_should_behave_like "no facebook results"
+		end
+
+		context "when there is a result but parsed_response is weird" do
+			before(:each) do
+				response = double("HTTParty::Response", :parsed_response => Object.new)
+				Virility::Facebook.stub(:get).and_return(response)
+				@virility = Virility::Facebook.new(@url)
+			end
+
+			it_should_behave_like "no facebook results"
+		end
+
+		context "when there is a valid result" do
+			before(:each) do
+				response = double("HTTParty::Response", :parsed_response => {"fql_query_response"=>{"list"=>"true", "link_stat"=>{"like_count"=>"977662", "click_count"=>"265614", "share_count"=>"3020040", "comment_count"=>"1118601", "commentsbox_count"=>"0", "total_count"=>"5116303"}}})
+				Virility::Facebook.stub(:get).and_return(response)
+				@virility = Virility::Facebook.new(@url)
+			end
+
+			it "should not raise an error" do
+				lambda { @virility.poll }.should_not raise_error
+			end
+
+			{"like_count"=>"977662", "click_count"=>"265614", "share_count"=>"3020040", "comment_count"=>"1118601", "commentsbox_count"=>"0", "total_count"=>"5116303"}.each do |key, value|
+				it "should return #{value} for #{key}" do
+					@virility.send(key.to_sym).should == value
+				end
+			end
+		end
+
+		context "when there is a valid result, but not all fields are present" do
+			before(:each) do
+				response = double("HTTParty::Response", :parsed_response => {"fql_query_response"=>{"list"=>"true", "link_stat"=>{"like_count"=>"977662", "comment_count"=>"1118601", "commentsbox_count"=>"0", "total_count"=>"5116303"}}})
+				Virility::Facebook.stub(:get).and_return(response)
+				@virility = Virility::Facebook.new(@url)
+			end
+
+			it "should not raise an error" do
+				lambda { @virility.poll }.should_not raise_error
+			end
+
+			{"like_count"=>"977662", "click_count"=>0, "share_count"=>0, "comment_count"=>"1118601", "commentsbox_count"=>"0", "total_count"=>"5116303"}.each do |key, value|
+				it "should return #{value} for #{key}" do
+					@virility.send(key.to_sym).should == value
+				end
+			end
+		end
+	end
+
+end