mosaic-lyris 1.0.1

data/test/demographic_test.rb

@@ -0,0 +1,176 @@
+require File.join(File.dirname(__FILE__),'test_helper')
+
+class TestDemographic < Test::Unit::TestCase
+  def test_add_duplicate
+    assert_raise Mosaic::Lyris::Error do
+      demographic = Mosaic::Lyris::Demographic.add :text, 'duplicate text', :list_id => 1
+    end
+  end
+
+  def test_add_checkbox
+    demographic = Mosaic::Lyris::Demographic.add :checkbox, 'new checkbox', :list_id => 1, :enabled => true
+    assert_instance_of Mosaic::Lyris::Demographic, demographic
+    assert_equal 1, demographic.list_id
+    assert_equal 12345, demographic.id
+    assert_equal :checkbox, demographic.type
+    assert_equal 'new checkbox', demographic.name
+    assert demographic.enabled, 'demographic is not enabled'
+  end
+
+  def test_add_date
+    demographic = Mosaic::Lyris::Demographic.add :date, 'new date', :list_id => 1, :enabled => true
+    assert_instance_of Mosaic::Lyris::Demographic, demographic
+    assert_equal 1, demographic.list_id
+    assert_equal 12345, demographic.id
+    assert_equal :date, demographic.type
+    assert_equal 'new date', demographic.name
+    assert demographic.enabled, 'demographic is not enabled'
+  end
+
+  def test_add_multiple_checkbox
+    demographic = Mosaic::Lyris::Demographic.add :multiple_checkbox, 'new multiple checkbox', :list_id => 1, :options => %w(one two three four five), :enabled => true
+    assert_instance_of Mosaic::Lyris::Demographic, demographic
+    assert_equal 1, demographic.list_id
+    assert_equal 12345, demographic.id
+    assert_equal :multiple_checkbox, demographic.type
+    assert_equal 'new multiple checkbox', demographic.name
+    assert demographic.enabled, 'demographic is not enabled'
+    assert_equal %w(one two three four five), demographic.options
+  end
+
+  def test_add_multiple_select_list
+    demographic = Mosaic::Lyris::Demographic.add :multiple_select_list, 'new multiple select list', :list_id => 1, :options => %w(one two three four five six seven eight nine ten), :size => 4, :enabled => true
+    assert_instance_of Mosaic::Lyris::Demographic, demographic
+    assert_equal 1, demographic.list_id
+    assert_equal 12345, demographic.id
+    assert_equal :multiple_select_list, demographic.type
+    assert_equal 'new multiple select list', demographic.name
+    assert demographic.enabled, 'demographic is not enabled'
+    assert_equal %w(one two three four five six seven eight nine ten), demographic.options
+    assert_equal 4, demographic.size
+  end
+
+  def test_add_radio_button
+    demographic = Mosaic::Lyris::Demographic.add :radio_button, 'new radio button', :list_id => 1, :options => %w(one two three), :enabled => true
+    assert_instance_of Mosaic::Lyris::Demographic, demographic
+    assert_equal 1, demographic.list_id
+    assert_equal 12345, demographic.id
+    assert_equal :radio_button, demographic.type
+    assert_equal 'new radio button', demographic.name
+    assert demographic.enabled, 'demographic is not enabled'
+    assert_equal %w(one two three), demographic.options
+  end
+
+  def test_add_select_list
+    demographic = Mosaic::Lyris::Demographic.add :select_list, 'new select list', :list_id => 1, :options => %w(one two three four five six seven eight), :size => 4, :enabled => true
+    assert_instance_of Mosaic::Lyris::Demographic, demographic
+    assert_equal 1, demographic.list_id
+    assert_equal 12345, demographic.id
+    assert_equal :select_list, demographic.type
+    assert_equal 'new select list', demographic.name
+    assert demographic.enabled, 'demographic is not enabled'
+    assert_equal %w(one two three four five six seven eight), demographic.options
+    assert_equal 4, demographic.size
+  end
+
+  def test_add_text
+    demographic = Mosaic::Lyris::Demographic.add :text, 'new text', :list_id => 1, :enabled => true
+    assert_instance_of Mosaic::Lyris::Demographic, demographic
+    assert_equal 1, demographic.list_id
+    assert_equal 12345, demographic.id
+    assert_equal :text, demographic.type
+    assert_equal 'new text', demographic.name
+    assert demographic.enabled, 'demographic is not enabled'
+  end
+
+  def test_add_textarea
+    demographic = Mosaic::Lyris::Demographic.add :textarea, 'new textarea', :list_id => 1, :enabled => true
+    assert_instance_of Mosaic::Lyris::Demographic, demographic
+    assert_equal 1, demographic.list_id
+    assert_equal 12345, demographic.id
+    assert_equal :textarea, demographic.type
+    assert_equal 'new textarea', demographic.name
+    assert demographic.enabled, 'demographic is not enabled'
+  end
+
+  def test_bad_query
+    assert_raise ArgumentError do
+      demographics = Mosaic::Lyris::Demographic.query(:bad, :list_id => 1)
+    end
+  end
+
+  def test_bad_type
+    assert_raise ArgumentError do
+      demographic = Mosaic::Lyris::Demographic.add :bad, 'bad type', :list_id => 1, :enabled => true
+    end
+  end
+
+  def test_invalid_options
+    assert_raise ArgumentError do
+      demographic = Mosaic::Lyris::Demographic.add :text, 'invalid options', :list_id => 1, :options => %w(one two three), :enabled => true
+    end
+  end
+
+  def test_invalid_size
+    assert_raise ArgumentError do
+      demographic = Mosaic::Lyris::Demographic.add :text, 'invalid options', :list_id => 1, :size => 3, :enabled => true
+    end
+  end
+
+  def test_missing_options
+    assert_raise ArgumentError do
+      demographic = Mosaic::Lyris::Demographic.add :select_list, 'missing options', :list_id => 1, :enabled => true
+    end
+  end
+
+  def test_query_all
+    demographics = Mosaic::Lyris::Demographic.query(:all, :list_id => 1)
+    assert_instance_of Array, demographics
+    assert_equal 16, demographics.size
+    demographics.each_with_index do |d,i|
+      assert_instance_of Mosaic::Lyris::Demographic, d
+      assert_equal 1, d.list_id
+      assert_equal [(1..8).to_a,(11..18).to_a].flatten[i], d.id
+      assert_equal [:checkbox, :date, :multiple_checkbox, :multiple_select_list, :radio_button, :select_list, :text, :textarea, :checkbox, :date, :multiple_checkbox, :multiple_select_list, :radio_button, :select_list, :text, :textarea][i], d.type
+      assert_equal ['enabled checkbox', 'enabled date', 'enabled multiple checkbox', 'enabled multiple select list', 'enabled radio button', 'enabled select list', 'enabled text', 'enabled textarea', 'disabled checkbox', 'disabled date', 'disabled multiple checkbox', 'disabled multiple select list', 'disabled radio button', 'disabled select list', 'disabled text', 'disabled textarea'][i], d.name
+      assert_equal i < 8, d.enabled
+      assert_equal 'Custom', d.group
+      assert_nil d.options
+      assert_nil d.size
+    end
+  end
+
+  def test_query_enabled
+    demographics = Mosaic::Lyris::Demographic.query(:enabled, :list_id => 1)
+    assert_instance_of Array, demographics
+    assert_equal 9, demographics.size
+    demographics.each_with_index do |d,i|
+      assert_instance_of Mosaic::Lyris::Demographic, d
+      assert_equal 1, d.list_id
+      assert_equal i, d.id
+      assert_equal [:email, :checkbox, :date, :multiple_checkbox, :multiple_select_list, :radio_button, :select_list, :text, :textarea, :checkbox, :date, :multiple_checkbox, :multiple_select_list, :radio_button, :select_list, :text, :textarea][i], d.type
+      assert_equal ['EMAIL_ADDRESS', 'enabled checkbox', 'enabled date', 'enabled multiple checkbox', 'enabled multiple select list', 'enabled radio button', 'enabled select list', 'enabled text', 'enabled textarea'][i], d.name
+      assert d.enabled, "'#{d.name}' demographic should be enabled"
+      assert_nil d.group
+      assert_nil d.options
+      assert_nil d.size
+    end
+  end
+
+  def test_query_enabled_details
+    demographics = Mosaic::Lyris::Demographic.query(:enabled_details, :list_id => 1)
+    assert_instance_of Array, demographics
+    assert_equal 8, demographics.size
+    demographics.each_with_index do |d,i|
+      assert_instance_of Mosaic::Lyris::Demographic, d
+      assert_equal 1, d.list_id
+      assert_equal i+1, d.id
+      assert_equal [:checkbox, :date, :multiple_checkbox, :multiple_select_list, :radio_button, :select_list, :text, :textarea][i], d.type
+      assert_equal ['enabled checkbox', 'enabled date', 'enabled multiple checkbox', 'enabled multiple select list', 'enabled radio button', 'enabled select list', 'enabled text', 'enabled textarea'][i], d.name
+      assert d.enabled, "'#{d.name}' demographic should be enabled"
+      assert_nil d.group
+      assert_equal [nil, nil, %w(one two three four five), %w(one two three four five six seven eight nine ten), %w(one two three), %w(one two three four five six seven eight)][i], d.options
+      assert_nil d.size
+    end
+  end
+end

data/test/filter_test.rb

@@ -0,0 +1,6 @@
+require File.join(File.dirname(__FILE__),'test_helper')
+
+class TestFilter < Test::Unit::TestCase
+  def test_stub
+  end
+end

data/test/http_responder.rb

@@ -0,0 +1,88 @@
+require 'net/http'
+
+module Net
+  class HTTPOK
+    def set_body(body)
+      @read = true
+      @body = body
+      self
+    end
+
+    def self.with_body(body)
+      new('1.1','200','OK').set_body(body)
+    end
+  end
+
+  class HTTP
+    def request_with_capture(req, body = nil, &block)
+      response = request_without_capture(req, body, &block)
+      File.open(@capture_response, "w") do |file|
+        file.write response.body
+      end if @capture_response
+      response
+    end
+    alias_method :request_without_capture, :request
+    alias_method :request, :request_with_capture
+
+    def request_with_http_fixtures(req, body = nil, &block)
+      if response_body = self.class.response_for(req.method, req.path, req.body)
+        HTTPOK.with_body(response_body)
+      else
+        raise "HTTP requests are blocked!" if self.class.block_requests?
+        request_without_http_fixtures(req, body, &block)
+      end
+    end
+    alias_method :request_without_http_fixtures, :request
+    alias_method :request, :request_with_http_fixtures
+
+    class << self
+      def block_requests(value = true)
+        @block_requests = value
+      end
+
+      def block_requests?
+        @block_requests
+      end
+
+      def capture_response(to = true)
+        @capture_response = (to == true) ? "capture.log" : to
+      end
+
+      def get_form_data(body)
+        body.split('&').inject({}) do |data,parameter|
+          name, value = parameter.split('=')
+          data[urldecode(name)] = urldecode(value)
+          data
+        end
+      end
+
+      def respond_to(method, path, response_file, request_conditions = nil)
+        responses_by_method_and_path(method, path) << [request_conditions,File.read(response_file)]
+      end
+
+      def response_for(method, path, body)
+        data = get_form_data(body)
+        responses_by_method_and_path(method, path).each do |request_conditions,response_body|
+          return response_body if request_conditions.nil? || request_conditions.all? { |(k,v)| v === data[k.to_s] }
+        end
+        nil
+      end
+
+      def responses
+        @responses ||= {}
+      end
+
+      def responses_by_method(method)
+        responses[method.to_s.upcase] ||= {}
+      end
+
+      def responses_by_method_and_path(method, path)
+        responses_by_method(method)[path.to_s.downcase] ||= []
+      end
+
+      def urldecode(str)
+        str.gsub(/%([0-9a-f]{2})/) { |s| $1.hex.chr }
+      end
+    end
+  end
+end

data/test/list_test.rb

@@ -0,0 +1,49 @@
+require File.join(File.dirname(__FILE__),'test_helper')
+
+class TestList < Test::Unit::TestCase
+  def test_add
+    list = Mosaic::Lyris::List.add 'new list'
+    assert_instance_of Mosaic::Lyris::List, list
+    assert_equal 12345, list.id
+    assert_equal 'new list', list.name
+  end
+
+  def test_add_duplicate
+    assert_raise Mosaic::Lyris::Error do
+      list = Mosaic::Lyris::List.add 'duplicate list'
+    end
+  end
+
+  def test_bad_query
+    assert_raise ArgumentError do
+      lists = Mosaic::Lyris::List.query(:bad)
+    end
+  end
+
+  def test_delete
+    list = Mosaic::Lyris::List.delete 12345
+    assert_instance_of Mosaic::Lyris::List, list
+    assert_equal 12345, list.id
+  end
+
+  def test_delete_not_found
+    assert_raise Mosaic::Lyris::Error do
+      Mosaic::Lyris::List.delete 99999
+    end
+  end
+
+  def test_query_all
+    lists = Mosaic::Lyris::List.query(:all)
+    assert_instance_of Array, lists
+    assert_equal 2, lists.size
+    lists.each_with_index do |l,i|
+      assert_instance_of Mosaic::Lyris::List, l
+      assert_equal i+1, l.id
+      assert_equal ['list one','list two'][i], l.name
+      assert_equal [Date.new(2001,1,1),Date.new(2002,2,2)][i], l.last_sent
+      assert_equal [1111,2222][i], l.members
+      assert_equal [11,22][i], l.messages
+      assert_equal [Time.utc(2001,1,1,1,1,1,0),Time.utc(2002,2,2,2,2,2,0)][i], l.cache_time
+    end
+  end
+end

data/test/message_test.rb

@@ -0,0 +1,6 @@
+require File.join(File.dirname(__FILE__),'test_helper')
+
+class TestMessage < Test::Unit::TestCase
+  def test_stub
+  end
+end

data/test/partner_test.rb

@@ -0,0 +1,6 @@
+require File.join(File.dirname(__FILE__),'test_helper')
+
+class TestPartner < Test::Unit::TestCase
+  def test_stub
+  end
+end

data/test/record_test.rb

@@ -0,0 +1,177 @@
+require File.join(File.dirname(__FILE__),'test_helper')
+
+class TestRecord < Test::Unit::TestCase
+  RECORDS = [
+    { :email => 'one@one.not', :proof => true, :trashed => false, :state => 'active' },
+    { :email => 'two@two.not', :proof => true, :trashed => false, :state => 'active' },
+    { :email => 'three@three.not', :proof => true, :trashed => false, :state => 'active' },
+    { :email => 'four@four.not', :proof => true, :trashed => false, :state => 'active' },
+    { :email => 'five@five.not', :trashed => false, :state => 'active' },
+    { :email => 'six@six.not', :trashed => true, :state => 'admin', :statedate => Date.new(2006,6,1) },
+    { :email => 'seven@seven.not', :trashed => true, :state => 'unsubscribed', :statedate => Date.new(2007,7,1) },
+    { :email => 'eight@eight.not', :trashed => true, :state => 'bounced', :statedate => Date.new(2008,8,1) },
+    { :email => 'nine@nine.not', :trashed => false, :state => 'active' },
+    { :email => 'ten@ten.not', :trashed => false, :state => 'active' }
+  ]
+
+  DEMOGRAPHICS = [
+    { 1 => 'on', 2 => '01/02/03', 3 => %w(one three), 4 => %w(two four), 5 => 'three', 6 => 'six', 7 => 'value for every demographic', 8 => 'the date value in demographic 2 should be Jan 2, 2003' },
+    { 1 => 'on', 2 => '02/22/22', 5 => 'three', 6 => 'six', 7 => 'no value for multiple selection demographics', 8 => 'the date value in demographic 2 should be Feb 22, 1922' },
+    { 1 => 'on', 2 => '03/03/33', 3 => %w(one three), 4 => %w(two four), 5 => 'three', 6 => 'six', 7 => 'every attribute enabled', 8 => 'the date value in demographic 2 should be Mar 3, 1933' },
+    nil,
+    { 7 => 'active' },
+    { 7 => 'trashed by administrator' },
+    { 7 => 'unsubscribed' },
+    { 7 => 'bounced' },
+  ]
+
+  def test_add
+    record = Mosaic::Lyris::Record.add 'new@email.not', :list_id => 1, :demographics => DEMOGRAPHICS[0]
+    assert_instance_of Mosaic::Lyris::Record, record
+    assert_equal 'abcdef1967', record.id
+    assert_equal 'new@email.not', record.email
+    assert_equal nil, record.proof
+    assert_equal false, record.trashed
+    assert_equal 'active', record.state
+    assert_equal nil, record.statedate
+    assert_equal DEMOGRAPHICS[0], record.demographics
+  end
+
+  def test_add_duplicate
+    assert_raise Mosaic::Lyris::Error do
+      record = Mosaic::Lyris::Record.add 'duplicate@email.not', :list_id => 1
+    end
+  end
+
+  def test_bad_query
+    assert_raise ArgumentError do
+      records = Mosaic::Lyris::Record.query(:bad, :list_id => 1)
+    end
+  end
+
+  def test_update
+    record = Mosaic::Lyris::Record.update 'active@email.not', :list_id => 1, :state => 'unsubscribed'
+    assert_instance_of Mosaic::Lyris::Record, record
+    assert_equal 'abcdef1111', record.id
+    assert_equal 'active@email.not', record.email
+    assert_equal true, record.trashed
+    assert_equal 'unsubscribed', record.state
+  end
+
+  def test_update_email
+    record = Mosaic::Lyris::Record.update 'active@email.not', :list_id => 1, :email => 'updated@email.not'
+    assert_instance_of Mosaic::Lyris::Record, record
+    assert_equal 'abcdef1111', record.id
+    assert_equal 'updated@email.not', record.email
+  end
+
+  def test_update_not_found
+    assert_raise Mosaic::Lyris::Error do
+      record = Mosaic::Lyris::Record.update 'missing@email.not', :list_id => 1
+    end
+  end
+
+  def test_query_all
+    records = Mosaic::Lyris::Record.query(:all, :list_id => 1)
+    assert_instance_of Array, records
+    assert_equal 10, records.size
+    records.each_with_index do |r,i|
+      assert_instance_of Mosaic::Lyris::Record, r
+      assert_equal 'abcdef%04d' % (i+1), r.id
+      assert_equal RECORDS[i][:email], r.email
+      assert_equal RECORDS[i][:proof], r.proof
+      assert_equal RECORDS[i][:trashed], r.trashed
+      assert_equal RECORDS[i][:state], r.state
+      assert_equal RECORDS[i][:statedate], r.statedate
+      assert_equal DEMOGRAPHICS[i], r.demographics
+    end
+  end
+
+  def test_query_all_empty
+    records = Mosaic::Lyris::Record.query(:all, :list_id => 2)
+    assert_instance_of Array, records
+    assert_equal 0, records.size
+  end
+
+  def test_query_all_paginated
+    i = 0
+    (1..3).each do |page|
+      records = Mosaic::Lyris::Record.query(:all, :list_id => 3, :page => page, :per_page => 4)
+      assert_instance_of Array, records
+      if page < 3
+        assert_equal 4, records.size
+      else
+        assert_equal 2, records.size
+      end
+      records.each do |r|
+        assert_instance_of Mosaic::Lyris::Record, r
+        assert_equal 'abcdef%04d' % (i+1), r.id
+        assert_equal RECORDS[i][:email], r.email
+        assert_equal RECORDS[i][:proof], r.proof
+        assert_equal RECORDS[i][:trashed], r.trashed
+        assert_equal RECORDS[i][:state], r.state
+        assert_equal RECORDS[i][:statedate], r.statedate
+        assert_equal DEMOGRAPHICS[i], r.demographics
+        i += 1
+      end
+    end
+  end
+
+  def test_query_active_email
+    record = Mosaic::Lyris::Record.query('active@email.not', :list_id => 1)
+    assert_instance_of Mosaic::Lyris::Record, record
+    assert_equal 'abcdef1111', record.id
+    assert_equal 'active@email.not', record.email
+    assert_equal true, record.proof
+    assert_equal false, record.trashed
+    assert_equal 'active', record.state
+    assert_equal Time.parse("2001-01-11 01:01:01 PST"), record.joindate
+    assert_equal nil, record.statedate
+    assert_equal({ 2 => '01/11/81', 7 => 'this email is active' }, record.demographics)
+  end
+
+  def test_query_admin_trashed_email
+    record = Mosaic::Lyris::Record.query('admin.trashed@email.not', :list_id => 1)
+    assert_instance_of Mosaic::Lyris::Record, record
+    assert_equal 'abcdef2222', record.id
+    assert_equal 'admin.trashed@email.not', record.email
+    assert_equal nil, record.proof
+    assert_equal true, record.trashed
+    assert_equal 'admin', record.state
+    assert_equal Time.parse("2002-02-12 02:02:02 PST"), record.joindate
+    assert_equal Date.new(2009,11,17), record.statedate
+    assert_equal({ 2 => '02/12/82', 7 => 'this email is admin trashed' }, record.demographics)
+  end
+
+  def test_query_bounced_email
+    record = Mosaic::Lyris::Record.query('bounced@email.not', :list_id => 1)
+    assert_instance_of Mosaic::Lyris::Record, record
+    assert_equal 'abcdef3333', record.id
+    assert_equal 'bounced@email.not', record.email
+    assert_equal nil, record.proof
+    assert_equal true, record.trashed
+    assert_equal 'bounced', record.state
+    assert_equal Time.parse("2003-03-13 03:03:03 PST"), record.joindate
+    assert_equal Date.new(2009,11,17), record.statedate
+    assert_equal({ 2 => '03/13/93', 7 => 'this email is bounced' }, record.demographics)
+  end
+
+  def test_query_unsubscribed_email
+    record = Mosaic::Lyris::Record.query('unsubscribed@email.not', :list_id => 1)
+    assert_instance_of Mosaic::Lyris::Record, record
+    assert_equal 'abcdef4444', record.id
+    assert_equal 'unsubscribed@email.not', record.email
+    assert_equal nil, record.proof
+    assert_equal true, record.trashed
+    assert_equal 'unsubscribed', record.state
+    assert_equal Time.parse("2004-04-14 04:04:04 PDT"), record.joindate
+    assert_equal Date.new(2009,11,17), record.statedate
+    assert_equal({ 2 => '04/14/94', 7 => 'this email is unsubscribed' }, record.demographics)
+  end
+
+  def test_query_email_not_found
+    assert_raise Mosaic::Lyris::Error do
+      record = Mosaic::Lyris::Record.query('missing@email.not', :list_id => 1)
+    end
+  end
+end