aweber 1.0.0

data/spec/oauth_spec.rb

@@ -0,0 +1,96 @@
+require File.expand_path(File.dirname(__FILE__) + '/spec_helper')
+
+describe AWeber::OAuth do
+  
+  it "initialize with consumer token and secret" do
+    aweber = AWeber::OAuth.new('token', 'secret')
+    aweber.consumer.key.should == 'token'
+    aweber.consumer.secret.should == 'secret'
+  end
+  
+  it "should create a consumer" do
+    OAuth::Consumer.should_receive(:new).with('token', 'secret', {
+      :site               => AWeber.auth_endpoint,
+      :request_token_path => "/1.0/oauth/request_token",
+      :authorize_path     => "/1.0/oauth/authorize",
+      :access_token_path  => "/1.0/oauth/access_token",
+      :scheme             => :query_string
+    })
+    
+    AWeber::OAuth.new('token', 'secret').consumer
+  end
+
+  it "should set the request token path to /1.0/oauth/request_token" do
+    aweber = AWeber::OAuth.new('token', 'secret')
+    aweber.consumer.request_token_path.should == "/1.0/oauth/request_token"
+  end
+
+  it "should set the authorize path to /1.0/oauth/authorize" do
+    aweber = AWeber::OAuth.new('token', 'secret')
+    aweber.consumer.authorize_path.should == "/1.0/oauth/authorize"
+  end
+
+  it "should set the access token path to /1.0/oauth/access_token" do
+    aweber = AWeber::OAuth.new('token', 'secret')
+    aweber.consumer.access_token_path.should == "/1.0/oauth/access_token"
+  end
+  
+  it "should get a request token from the consumer" do
+    consumer = double('oauth consumer')
+    rtoken   = double('request token')
+    consumer.stub(:get_request_token) { rtoken }
+    OAuth::Consumer.stub(:new) { consumer }
+    
+    aweber = AWeber::OAuth.new('token', 'secret')
+    aweber.request_token.should == rtoken
+  end
+  
+  it "should set the callback url" do
+    oauth = AWeber::OAuth.new('token', 'secret', :callback_url => "http://example.com")
+    oauth.callback_url.should == "http://example.com"
+  end
+  
+  it "should be able to authorize with a verifier code" do
+    consumer = double('oauth consumer')
+    rtoken   = double('request token')
+    atoken   = double('access token', :token => 'fake', :secret => 'fake')
+    
+    consumer.stub(:get_request_token) { rtoken }
+    rtoken.stub(:get_access_token)    { atoken }
+    OAuth::Consumer.stub(:new)        { consumer }
+    OAuth::AccessToken.stub(:new)     { atoken }
+    
+    rtoken.should_receive(:get_access_token).with({ :oauth_verifier => 'fake' })
+    aweber = AWeber::OAuth.new('token', 'secret')
+    aweber.authorize_with_verifier('fake')
+    aweber.access_token.should == atoken
+  end
+  
+  it "should able to create access tokens from access token key and secret" do
+    aweber = AWeber::OAuth.new('token', 'secret')
+    aweber.authorize_with_access('atoken', 'asecret')
+    
+    aweber.access_token.should be_an OAuth::AccessToken
+    aweber.access_token.token.should == 'atoken'
+    aweber.access_token.secret.should == 'asecret'
+  end
+  
+  it "should delegate get to access token" do
+    atoken = double('access token')
+    aweber = AWeber::OAuth.new('token', 'secret')
+    aweber.stub(:access_token) { atoken }
+    
+    atoken.should_receive(:get).and_return(nil)
+    aweber.get("/foo")
+  end
+  
+  it "should delegate post to access token" do
+    atoken = double('access token')
+    aweber = AWeber::OAuth.new('token', 'secret')
+    aweber.stub(:access_token) { atoken }
+    
+    atoken.should_receive(:post).and_return(nil)
+    aweber.post("/foo")
+  end
+
+end

data/spec/resource_spec.rb

@@ -0,0 +1,61 @@
+require File.expand_path(File.dirname(__FILE__) + '/spec_helper')
+
+class FakeResource < AWeber::Resource
+  attr_accessor :foo
+  alias_attribute :bar, :foo
+  has_many :lists
+end
+
+describe AWeber::Resource do
+  
+  before :each do
+    @oauth  = AWeber::OAuth.new("token", "secret")
+    @aweber = AWeber::Base.new(@oauth)
+  end
+  
+  it "should alias attributes" do
+    fake = FakeResource.new(@aweber)
+    fake.foo = "abc"
+    fake.bar.should == "abc"
+  end
+  
+  it "should create collections" do
+    @aweber.stub(:expand) { "https://api.aweber.com/1.0/accounts/1/lists" }
+    fake = FakeResource.new(@aweber)
+    fake.lists.should be_an AWeber::Collection
+  end
+  
+  it "should have the standard resource attributes" do
+    fake = FakeResource.new(@aweber)
+    fake.should respond_to :id
+    fake.should respond_to :http_etag
+    fake.should respond_to :self_link
+    fake.should respond_to :resource_type_link
+  end
+  
+  it "should be creatable from data" do
+    fake = FakeResource.new @aweber, :id => 1, :http_etag => "a1b2c3", 
+      :self_link => "foo", :resource_type_link => "bar"
+    fake.id.should == 1
+    fake.http_etag.should == "a1b2c3"
+    fake.self_link.should == "foo"
+    fake.resource_type_link.should == "bar"
+  end
+  
+  it "should have simpler aliases for the standard attributes" do
+    fake = FakeResource.new @aweber, :id => 1, :http_etag => "a1b2c3",
+      :self_link => "foo", :resource_type_link => "bar"
+    fake.etag.should == "a1b2c3"
+    fake.link.should == "foo"
+    fake.resource_type.should == "bar"
+  end
+  
+  it "should be comparable to other resources based on id" do
+    fake1 = FakeResource.new @aweber, :id => 1
+    fake2 = FakeResource.new @aweber, :id => 1
+    fake3 = FakeResource.new @aweber, :id => 2
+    fake1.should == fake2
+    fake1.should_not == fake3
+  end
+  
+end

data/spec/resources/account_spec.rb

@@ -0,0 +1,13 @@
+require File.expand_path(File.dirname(__FILE__) + '/../spec_helper')
+
+describe AWeber::Resources::Account do
+  include BaseObjects
+  subject { aweber.account }
+  
+  it { should respond_to :id }
+  it { should respond_to :http_etag }
+  it { should respond_to :self_link }
+  it { should respond_to :resource_type_link }
+  it { should respond_to :lists_collection_link }
+  it { should respond_to :integrations_collection_link }
+end

data/spec/resources/campaign_spec.rb

@@ -0,0 +1,14 @@
+require File.expand_path(File.dirname(__FILE__) + '/../spec_helper')
+
+describe "AWeber::Resources::Campaign" do
+  include BaseObjects
+  subject { aweber.account.lists[1].campaigns[50000047] }
+  
+  it { should respond_to :click_tracking_enabled }
+  it { should respond_to :content_type }
+  it { should respond_to :spam_assassin_score }
+  it { should respond_to :subject }
+  it { should respond_to :total_spam_complaints }
+  it { should respond_to :total_undelivered }
+  it { should respond_to :total_unsubscribes }
+end

data/spec/resources/click_spec.rb

@@ -0,0 +1,14 @@
+require File.expand_path(File.dirname(__FILE__) + '/../spec_helper')
+
+describe AWeber::Resources::Click do
+  include BaseObjects
+  subject { aweber.account.lists[1].campaigns[50000047].links[136340].clicks[129530] }
+  
+  it { should respond_to :event_time }
+  it { should respond_to :http_etag }
+  it { should respond_to :id }
+  it { should respond_to :is_earliest }
+  it { should respond_to :resource_type_link }
+  it { should respond_to :self_link }
+  it { should respond_to :subscriber_link }
+end

data/spec/resources/integration_spec.rb

@@ -0,0 +1,13 @@
+require File.expand_path(File.dirname(__FILE__) + '/../spec_helper')
+
+describe AWeber::Resources::Integration do
+  include BaseObjects
+  subject { aweber.account.integrations[8076] }
+  
+  it { should respond_to :http_etag }
+  it { should respond_to :id }
+  it { should respond_to :login }
+  it { should respond_to :resource_type_link }
+  it { should respond_to :self_link }
+  it { should respond_to :service_name }
+end

data/spec/resources/link_spec.rb

@@ -0,0 +1,15 @@
+require File.expand_path(File.dirname(__FILE__) + '/../spec_helper')
+
+describe AWeber::Resources::Link do
+  include BaseObjects
+  subject { aweber.account.lists[1].campaigns[50000047].links[136340] }
+  
+  it { should respond_to :clicks_collection_link }
+  it { should respond_to :http_etag }
+  it { should respond_to :id }
+  it { should respond_to :resource_type_link }
+  it { should respond_to :self_link }
+  it { should respond_to :total_clicks }
+  it { should respond_to :total_unique_clicks }
+  it { should respond_to :url }
+end

data/spec/resources/list_spec.rb

@@ -0,0 +1,26 @@
+require File.expand_path(File.dirname(__FILE__) + '/../spec_helper')
+
+describe AWeber::Resources::Message do
+  include BaseObjects
+  subject { aweber.account.lists[1] }
+  
+  it { should respond_to :campaigns_collection_link }
+  it { should respond_to :http_etag }
+  it { should respond_to :id }
+  it { should respond_to :name }
+  it { should respond_to :resource_type_link }
+  it { should respond_to :self_link }
+  it { should respond_to :subscribers_collection_link }
+  it { should respond_to :web_form_split_tests_collection_link }
+  it { should respond_to :web_forms_collection_link }
+  it { should respond_to :broadcasts }
+  it { should respond_to :followups }
+  
+  it "should should have a collection of broadcasts" do
+    subject.broadcasts.map { |id, b| b.self_link }.all? { |b| b =~ /b\d+$/ }.should be_true
+  end
+  
+  it "should should have a collection of followups" do
+    subject.followups.map { |id, f| f.self_link }.all? { |f| f =~ /f\d+$/ }.should be_true
+  end
+end

data/spec/resources/message_spec.rb

@@ -0,0 +1,17 @@
+require File.expand_path(File.dirname(__FILE__) + '/../spec_helper')
+
+describe AWeber::Resources::Message do
+  include BaseObjects
+  subject { aweber.account.lists[1].campaigns[50000047].messages[11839] }
+  
+  it { should respond_to :event_time }
+  it { should respond_to :http_etag }
+  it { should respond_to :id }
+  it { should respond_to :resource_type_link }
+  it { should respond_to :self_link }
+  it { should respond_to :last_opened }
+  it { should respond_to :opens_collection_link }
+  it { should respond_to :subscriber_link }
+  it { should respond_to :total_opens }
+  it { should respond_to :tracked_events_collection_link }
+end

data/spec/resources/open_spec.rb

@@ -0,0 +1,13 @@
+require File.expand_path(File.dirname(__FILE__) + '/../spec_helper')
+
+describe AWeber::Resources::Open do
+  include BaseObjects
+  subject { aweber.account.lists[1].campaigns[50000047].messages[11839].opens[11721] }
+  
+  it { should respond_to :event_time }
+  it { should respond_to :http_etag }
+  it { should respond_to :id }
+  it { should respond_to :resource_type_link }
+  it { should respond_to :self_link }
+  it { should respond_to :subscriber_link }
+end

data/spec/resources/subscriber_spec.rb

@@ -0,0 +1,25 @@
+require File.expand_path(File.dirname(__FILE__) + '/../spec_helper')
+
+describe AWeber::Resources::Subscriber do
+  include BaseObjects
+  subject { aweber.account.lists[1].subscribers[50723026] }
+  
+  it { should respond_to :ad_tracking }
+  it { should respond_to :email }
+  it { should respond_to :http_etag }
+  it { should respond_to :id }
+  it { should respond_to :ip_address }
+  it { should respond_to :is_verified }
+  it { should respond_to :last_followup_sent_at }
+  it { should respond_to :last_followup_sent_link }
+  it { should respond_to :misc_notes }
+  it { should respond_to :name }
+  it { should respond_to :resource_type_link }
+  it { should respond_to :self_link }
+  it { should respond_to :status }
+  it { should respond_to :subscribed_at }
+  it { should respond_to :subscription_method }
+  it { should respond_to :subscription_url }
+  it { should respond_to :unsubscribed_at }
+  it { should respond_to :verified_at }
+end

data/spec/resources/tracked_event_spec.rb

@@ -0,0 +1,14 @@
+require File.expand_path(File.dirname(__FILE__) + '/../spec_helper')
+
+describe AWeber::Resources::TrackedEvent do
+  include BaseObjects
+  subject { aweber.account.lists[1].campaigns[50000047].messages[11839].tracked_events[11839] }
+  
+  it { should respond_to :event_time }
+  it { should respond_to :http_etag }
+  it { should respond_to :id }
+  it { should respond_to :resource_type_link }
+  it { should respond_to :self_link }
+  it { should respond_to :subscriber_link }
+  it { should respond_to :type }
+end

data/spec/resources/web_form_spec.rb

@@ -0,0 +1,19 @@
+require File.expand_path(File.dirname(__FILE__) + '/../spec_helper')
+
+describe AWeber::Resources::WebForm do
+  include BaseObjects
+  subject { aweber.account.lists[1].web_forms[1911952229] }
+  
+  it { should respond_to :conversion_percentage }
+  it { should respond_to :http_etag }
+  it { should respond_to :id }
+  it { should respond_to :is_active }
+  it { should respond_to :name }
+  it { should respond_to :resource_type_link }
+  it { should respond_to :self_link }
+  it { should respond_to :total_displays }
+  it { should respond_to :total_submissions }
+  it { should respond_to :total_unique_displays }
+  it { should respond_to :type }
+  it { should respond_to :unique_conversion_percentage }
+end

data/spec/resources/web_form_split_test_component_spec.rb

@@ -0,0 +1,20 @@
+require File.expand_path(File.dirname(__FILE__) + '/../spec_helper')
+
+describe AWeber::Resources::WebFormSplitTestComponent do
+  include BaseObjects
+  subject { aweber.account.lists[1].web_form_split_tests[1242668124].components["612763163-513600765"] }
+  
+  it { should respond_to :conversion_percentage }
+  it { should respond_to :http_etag }
+  it { should respond_to :id }
+  it { should respond_to :is_active }
+  it { should respond_to :name }
+  it { should respond_to :resource_type_link }
+  it { should respond_to :self_link }
+  it { should respond_to :total_displays }
+  it { should respond_to :total_submissions }
+  it { should respond_to :type }
+  it { should respond_to :unique_conversion_percentage }
+  it { should respond_to :web_form_link }
+  it { should respond_to :weight }
+end

data/spec/resources/web_form_split_test_spec.rb

@@ -0,0 +1,14 @@
+require File.expand_path(File.dirname(__FILE__) + '/../spec_helper')
+
+describe AWeber::Resources::WebFormSplitTest do
+  include BaseObjects
+  subject { aweber.account.lists[1].web_form_split_tests[1242668124] }
+  
+  it { should respond_to :components_collection_link }
+  it { should respond_to :http_etag }
+  it { should respond_to :id }
+  it { should respond_to :is_active }
+  it { should respond_to :name }
+  it { should respond_to :resource_type_link }
+  it { should respond_to :self_link }
+end

data/spec/spec_helper.rb

@@ -0,0 +1,52 @@
+$LOAD_PATH.unshift(File.dirname(__FILE__))
+$LOAD_PATH.unshift(File.join(File.dirname(__FILE__), "..", "lib"))
+require "aweber"
+require "fakeweb"
+require 'rspec'
+
+FakeWeb.allow_net_connect = false
+
+def aweber_url(url)
+  url =~ /https/ ? url : File.join(AWeber.api_endpoint, "1.0", url)
+end
+
+def route(method, uri, response)
+  FakeWeb.register_uri(method, uri, :body => response)
+end
+
+def fixture(filename)
+  return "" if filename.empty?
+  path = File.expand_path(File.dirname(__FILE__) + "/fixtures/" + filename)
+  File.read(path).gsub /\s/, ''
+end
+
+def stub_get(uri, response)
+  route(:get, uri, fixture(response))
+end
+
+module BaseObjects
+  def oauth
+    @oauth ||= AWeber::OAuth.new("token", "secret")
+  end
+  
+  def aweber
+    @aweber ||= AWeber::Base.new(oauth)
+  end
+end
+
+route :any, "https://auth.aweber.com/1.0/request_token", "oauth_token=fake&oauth_token_secret=fake"
+route :any, "https://auth.aweber.com/1.0/access_token",  "oauth_token=fake&oauth_token_secret=fake"
+
+route :get, %r[/accounts\?], fixture("accounts.json")
+route :get, %r[/accounts/\d+/lists\?], fixture("lists.json")
+route :get, %r[/accounts/\d+/lists/\d+/subscribers\?], fixture("subscribers.json")
+route :get, %r[/accounts/\d+/lists/\d+/web_forms\?], fixture("web_forms.json")
+route :get, %r[/accounts/\d+/lists/\d+/web_form_split_tests\?], fixture("web_form_split_tests.json")
+route :get, %r[/accounts/\d+/lists/\d+/web_form_split_tests/\d+/components\?], fixture("web_form_split_test_components.json")
+route :get, %r[/accounts/\d+/integrations\?], fixture("integrations.json")
+route :get, %r[/accounts/\d+/lists/\d+/campaigns\?], fixture("campaigns.json")
+route :get, %r[/accounts/\d+/lists/\d+/campaigns/[\d\w]+/links\?], fixture("links.json")
+route :get, %r[/accounts/\d+/lists/\d+/campaigns/[\d\w]+/links/\d+/clicks\?], fixture("clicks.json")
+route :get, %r[/accounts/\d+/lists/\d+/campaigns/[\d\w]+/messages\?], fixture("messages.json")
+route :get, %r[/accounts/\d+/lists/\d+/campaigns/[\d\w]+/messages/\d+/opens\?], fixture("opens.json")
+route :get, %r[/accounts/\d+/lists/\d+/campaigns/[\d\w]+/messages/\d+/tracked_events\?], fixture("tracked_events.json")