bitly-oauth 0.1.0

data/test/integration/test_user.rb

@@ -0,0 +1,97 @@
+require 'test_helper'
+
+class TestUser < Test::Unit::TestCase
+  context "with an access_token" do
+    setup do
+      client       = BitlyOAuth::Client.new('client_id', 'client_secret')
+      access_token = client.get_access_token_from_token('token')
+      @user        = BitlyOAuth::User.new(access_token)
+    end
+
+    context 'referrers' do
+      setup do
+        stub_get(/https:\/\/api-ssl\.bit\.ly\/v3\/user\/referrers\?(access|oauth)_token=token/, 'user_referrers.json')
+        @referrers = @user.referrers
+      end
+
+      should 'return an array of arrays of referrers' do
+        assert_kind_of Array, @referrers
+        assert_kind_of Array, @referrers.first
+        assert_kind_of BitlyOAuth::Referrer, @referrers.first.first
+      end
+
+      should 'return data about the referrer' do
+        referrer = @referrers.first.first
+        assert_equal 'direct', referrer.referrer
+        assert_equal 1, referrer.clicks
+      end
+    end
+
+    context 'countries' do
+      setup do
+        stub_get(/https:\/\/api-ssl\.bit\.ly\/v3\/user\/countries\?(access|oauth)_token=token/, 'user_countries.json')
+        @countries = @user.countries
+      end
+
+      should 'return an array of arrays of countries' do
+        assert_kind_of Array, @countries
+        assert_kind_of Array, @countries.first
+        assert_kind_of BitlyOAuth::Country, @countries.first.first
+      end
+
+      should 'return data about the country' do
+        country = @countries.first.first
+        assert_equal "US", country.country
+        assert_equal 4, country.clicks
+      end
+    end
+
+    context 'clicks' do
+      setup do
+        stub_get(/https:\/\/api-ssl\.bit\.ly\/v3\/user\/clicks\?(access|oauth)_token=token/, 'user_clicks.json')
+        @clicks = @user.clicks
+      end
+
+      should 'return an array of days' do
+        assert_kind_of Array, @clicks
+        assert_kind_of BitlyOAuth::Day, @clicks.first
+      end
+
+      should 'return data about the day' do
+        day = @clicks.first
+        assert_equal 4, day.clicks
+      end
+
+      should 'get total clicks' do
+        assert_equal 29, @user.total_clicks
+      end
+    end
+
+    context 'total clicks' do
+      setup do
+        stub_get(/https:\/\/api-ssl\.bit\.ly\/v3\/user\/clicks\?(access|oauth)_token=token/, 'user_clicks.json')
+      end
+
+      should 'get total clicks' do
+        assert_equal 29, @user.total_clicks
+      end
+    end
+
+    context 'realtime links' do
+      setup do
+        stub_get(/https:\/\/api-ssl\.bit\.ly\/v3\/user\/realtime_links\?(access|oauth)_token=token/, 'user_realtime_links.json')
+        @realtime_links = @user.realtime_links
+      end
+
+      should 'get an array of realtime links' do
+        assert_kind_of Array, @realtime_links
+        assert_kind_of BitlyOAuth::RealtimeLink, @realtime_links.first
+      end
+
+      should 'get the data for the realtime links' do
+        assert_equal 15, @realtime_links.first.clicks
+        assert_equal "i7JWw0", @realtime_links.first.user_hash
+      end
+    end
+  end
+end

data/test/test_helper.rb

@@ -0,0 +1,54 @@
+require 'rubygems'
+require 'test/unit'
+require 'shoulda'
+require 'mocha'
+require 'fakeweb'
+require 'ruby-debug'
+
+$LOAD_PATH.unshift(File.join(File.dirname(__FILE__), '..', 'lib'))
+$LOAD_PATH.unshift(File.dirname(__FILE__))
+require 'bitly_oauth'
+
+FakeWeb.allow_net_connect = false
+
+def fixture_file(filename)
+  return '' if filename == ''
+  file_path = File.expand_path(File.dirname(__FILE__) + '/fixtures/' + filename)
+  File.read(file_path)
+end
+
+def stub_get(path, filename)
+  if filename.is_a?(Array)
+    response = filename.map { |f| { :body => fixture_file(f), :content_type => 'text/json' } }
+  else
+    response = { :body => fixture_file(filename), :content_type => 'text/json' }
+  end
+  FakeWeb.register_uri(:get, path, response)
+end
+
+def stub_post(path, filename)
+  response = { :body => fixture_file(filename), :content_type => 'text/json' }
+  FakeWeb.register_uri(:post, path, response)
+end
+
+def api_key_fixture
+  'test_key'
+end
+def login_fixture
+  'test_account'
+end
+def client_id_fixture
+  'client_id'
+end
+def client_secret_fixture
+  'client_secret'
+end
+def fixture_token
+  'token'
+end
+
+class Test::Unit::TestCase
+  def teardown
+    FakeWeb.clean_registry
+  end
+end

data/test/unit/core_ext/test_hash.rb

@@ -0,0 +1,69 @@
+require 'test_helper'
+
+class TestHash < Test::Unit::TestCase
+  context "calling #to_params" do
+    setup do
+      @hash = { :one => 1, :two => 2 }
+    end
+    should "return a string of key=value&" do
+      assert_equal @hash.to_query, "one=1&two=2"
+    end
+  end
+
+  context "calling #stringify_keys!" do
+    setup do
+      @hash = { :one => 1, :two => 2 }
+    end
+    should "return a hash with string keys" do
+      assert_equal @hash.stringify_keys!.keys.map(&:class).uniq.size, 1
+      assert_equal @hash.stringify_keys!.keys.map(&:class).uniq.first, String
+    end
+    should "should alter the original hash" do
+      @hash.stringify_keys!
+      assert_equal @hash.keys.map(&:class).uniq.size, 1
+      assert_equal @hash.keys.map(&:class).uniq.first, String
+    end
+  end
+  context "calling #stringify_keys" do
+    setup do
+      @hash = { :one => 1, :two => 2 }
+    end
+    should "return a hash with string keys" do
+      assert_equal @hash.stringify_keys.keys.map(&:class).uniq.size, 1
+      assert_equal @hash.stringify_keys.keys.map(&:class).uniq.first, String
+    end
+    should "should return a new hash" do
+      @hash.stringify_keys
+      assert_equal @hash.keys.map(&:class).uniq.size, 1
+      assert_equal @hash.keys.map(&:class).uniq.first, Symbol
+    end
+  end
+  context "calling #symbolize_keys!" do
+    setup do
+      @hash = { 'one' => 1, 'two' => 2 }
+    end
+    should "return a hash with string keys" do
+      assert_equal @hash.symbolize_keys!.keys.map(&:class).uniq.size, 1
+      assert_equal @hash.symbolize_keys!.keys.map(&:class).uniq.first, Symbol
+    end
+    should "should alter the original hash" do
+      @hash.symbolize_keys!
+      assert_equal @hash.keys.map(&:class).uniq.size, 1
+      assert_equal @hash.keys.map(&:class).uniq.first, Symbol
+    end
+  end
+  context "calling #symbolize_keys" do
+    setup do
+      @hash = { 'one' => 1, 'two' => 2 }
+    end
+    should "return a hash with string keys" do
+      assert_equal @hash.symbolize_keys.keys.map(&:class).uniq.size, 1
+      assert_equal @hash.symbolize_keys.keys.map(&:class).uniq.first, Symbol
+    end
+    should "should alter the original hash" do
+      @hash.symbolize_keys
+      assert_equal @hash.keys.map(&:class).uniq.size, 1
+      assert_equal @hash.keys.map(&:class).uniq.first, String
+    end
+  end
+end

data/test/unit/core_ext/test_string.rb

@@ -0,0 +1,14 @@
+require 'test_helper'
+
+class TestString < Test::Unit::TestCase
+  context "Ruby String" do
+    setup do
+      @string = "string"
+    end
+    context "calling to_params" do
+      should "return a string of key=value&" do
+        assert_equal @string.to_a, [ @string ]
+      end
+    end
+  end
+end

data/test/unit/test_bitly_oauth.rb

@@ -0,0 +1,19 @@
+require 'test_helper'
+
+class TestBitlyOAuth < Test::Unit::TestCase
+  context "bitly oauth module" do
+    context "with a client id and client secret" do
+      should "create a new client" do
+        client = BitlyOAuth.new("client_id", "client_secret")
+        assert client.is_a?(BitlyOAuth::Client)
+      end
+    end
+    context "with bad information" do
+      should "raise an error" do
+        assert_raise ArgumentError do
+          BitlyOAuth.new
+        end
+      end
+    end
+  end
+end

data/test/unit/test_client.rb

@@ -0,0 +1,87 @@
+require 'test_helper'
+
+class TestClient < Test::Unit::TestCase
+  context "creating a new client" do
+    should "initialize with clinet id and secret" do
+      assert_nothing_raised do
+        BitlyOAuth::Client.new('client_id', 'client_secret')
+      end
+    end
+    should "raise an exception when bad arguments are used" do
+      assert_raise ArgumentError do
+        BitlyOAuth::Client.new("Something Else")
+      end
+    end
+  end
+  context "with a new client" do
+    setup do
+      @client = BitlyOAuth.new('client_id', 'client_secret')
+    end
+    should 'get the oauth authorize url' do
+      redirect_url = 'http://localhost.local/'
+      authorize_url = @client.authorize_url(redirect_url)
+      assert_match %r{https://bitly.com/oauth/authorize\?.*client_id=client_id.*}, authorize_url
+      assert_match %r{https://bitly.com/oauth/authorize\?.*redirect_uri=#{CGI.escape(redirect_url)}.*}, authorize_url
+    end
+    context "get an access token" do
+      setup do
+        ::OAuth2::Client.stubs(:new => stub(:auth_code => stub(:get_token => true)))
+      end
+      should 'return an access token from a code' do
+        response = @client.get_access_token_from_code('code', 'redirect_url')
+        assert response.is_a?(BitlyOAuth::AccessToken)
+      end
+      should 'set an access token from a code' do
+        response = @client.set_access_token_from_code('code', 'redirect_url')
+        assert response.is_a?(BitlyOAuth::AccessToken)
+        assert (@client.send(:access_token)).is_a?(BitlyOAuth::AccessToken)
+      end
+      should 'return an access token from a token' do
+        response = @client.get_access_token_from_token('token')
+        assert response.is_a?(BitlyOAuth::AccessToken)
+      end
+      should 'set an access token from a token' do
+        response = @client.set_access_token_from_token('token')
+        assert response.is_a?(BitlyOAuth::AccessToken)
+        assert (@client.send(:access_token)).is_a?(BitlyOAuth::AccessToken)
+      end
+    end
+    context "requests to the bitly api" do
+      setup do
+        token = stub(:get => { 'bitly_pro_domain' => true },
+                     :token   => 'token' )
+        BitlyOAuth::AccessToken.stubs(:new => token)
+        @client.set_access_token_from_token('token')
+      end
+      context "bitly_pro_domain" do
+        should 'return true when it is a bitly pro domain' do
+          assert @client.bitly_pro_domain('http://pro.domain/')
+        end
+      end
+      context "bitly_pro_domain" do
+        should 'return true when it is a bitly pro domain' do
+          assert @client.pro?('http://pro.domain/')
+        end
+      end
+    end
+  end
+  context "#referring_domains" do
+    setup do
+      token = stub(:get => { "referring_domains" => [ {'domain' => 'direct', 'clicks' => 700} ] } )
+      BitlyOAuth::AccessToken.stubs(:new => token)
+      @client = BitlyOAuth::Client.new('id', 'secret')
+      @client.set_access_token_from_token('token')
+    end
+    should "return an array" do
+      assert @client.referring_domains('http://bit.ly/somelink/').is_a?(Array)
+      assert_equal 1, @client.referring_domains('http://bit.ly/somelink/').map(&:class).uniq.size
+      assert @client.referring_domains('http://bit.ly/somelink/').first.is_a?(BitlyOAuth::ReferringDomain)
+    end
+    should "all be the same class" do
+      assert_equal 1, @client.referring_domains('http://bit.ly/somelink/').map(&:class).uniq.size
+    end
+    should "all be referring domains" do
+      assert @client.referring_domains('http://bit.ly/somelink/').first.is_a?(BitlyOAuth::ReferringDomain)
+    end
+  end
+end

data/test/unit/test_country.rb

@@ -0,0 +1,19 @@
+require 'test_helper'
+
+class TestCountry < Test::Unit::TestCase
+  context "a country" do
+    setup do
+      @country = BitlyOAuth::Country.new
+    end
+
+    [:clicks, :country].each do |method|
+      should "respond to #{method}" do
+        assert_respond_to @country, method
+      end
+      should "set #{method} when initializing" do
+        country = BitlyOAuth::Country.new(method.to_s => 'test')
+        assert_equal 'test', country.send(method)
+      end
+    end
+  end
+end

data/test/unit/test_day.rb

@@ -0,0 +1,22 @@
+require 'test_helper'
+
+class TestDay < Test::Unit::TestCase
+  context "a day" do
+    setup do
+      @day = BitlyOAuth::Day.new
+    end
+    [:clicks, :day_start].each do |method|
+      should "respond to #{method}" do
+        assert_respond_to @day, method
+      end
+    end
+    should "set clicks when initializing" do
+      day = BitlyOAuth::Day.new('clicks' => 12)
+      assert_equal 12, day.clicks
+    end
+    should "set day to a time object when initialising" do
+      day = BitlyOAuth::Day.new('day_start' => 1290488400)
+      assert_equal Time.parse('2010/11/23'), day.day_start
+    end
+  end
+end

data/test/unit/test_error.rb

@@ -0,0 +1,11 @@
+require 'test_helper'
+
+class TestError < Test::Unit::TestCase
+  should "create a new bitly-oauth client" do
+    res = mock(:status => 'code', :reason => 'message')
+    error = BitlyOAuth::Error.new(res)
+    assert_equal "message - 'code'", error.message
+    assert_equal "message - 'code'", error.msg
+    assert_equal "code", error.code
+  end
+end

data/test/unit/test_missing.rb

@@ -0,0 +1,34 @@
+require 'test_helper'
+
+class TestMissingUrl < Test::Unit::TestCase
+  context "a url" do
+    setup do
+      @url = BitlyOAuth::MissingUrl.new
+    end
+    [:short_url, :user_hash, :long_url, :error].each do |method|
+      should "respond to #{method}" do
+        assert_respond_to @url, method
+      end
+    end
+  end
+  context "#new" do
+    setup do
+      @url = BitlyOAuth::MissingUrl.new({ 'short_url' => 'short url',
+                                          'hash'      => 'hash',
+                                          'long_url'  => 'long url',
+                                          'error'     => 'error' })
+    end
+    should "return the short url" do
+      assert_equal 'short url', @url.short_url
+    end
+    should "return the user hash" do
+      assert_equal 'hash', @url.user_hash
+    end
+    should "return the long url" do
+      assert_equal 'long url', @url.long_url
+    end
+    should "return the error" do
+      assert_equal 'error', @url.error
+    end
+  end
+end

data/test/unit/test_realtime_link.rb

@@ -0,0 +1,30 @@
+require 'test_helper'
+
+class TestRealtimeLink < Test::Unit::TestCase
+  context "a realtime link" do
+    setup do
+      @realtime_link = BitlyOAuth::RealtimeLink.new
+    end
+    [:clicks, :user_hash].each do |method|
+      should "respond to #{method}" do
+        assert_respond_to @realtime_link, method
+      end
+    end
+    should "set clicks when initializing" do
+      realtime_link = BitlyOAuth::RealtimeLink.new('clicks' => 12)
+      assert_equal 12, realtime_link.clicks
+    end
+    should "set user_hash when initializing" do
+      realtime_link = BitlyOAuth::RealtimeLink.new('user_hash' => 'sdfidn')
+      assert_equal 'sdfidn', realtime_link.user_hash
+    end
+    should 'create a url when supplied with a client' do
+      realtime_link = BitlyOAuth::RealtimeLink.new('user_hash' => 'sdfidn', 'clicks' => 12)
+      client = BitlyOAuth::Client.new('client_id', 'client_secret')
+      url = realtime_link.create_url(client)
+      assert_kind_of BitlyOAuth::Url, url
+      assert_equal 12, url.user_clicks
+      assert_equal 'sdfidn', url.user_hash
+    end
+  end
+end