workarea-mail_chimp 3.0.2

data/test/integration/workarea/storefront/mail_chimp_site_javascript_test.rb

@@ -0,0 +1,25 @@
+require 'test_helper'
+
+module Workarea
+  module Storefront
+    class MailChimpSiteJavascriptTest < Workarea::IntegrationTest
+      def test_connected_site_javascript
+        Workarea.with_config do |config|
+          config.mail_chimp.default_store = {
+            id: "qa_dummy_store_9",
+            list_id: "dd8f83a09e",
+            name: "QA dummy store 4",
+            email_address: "jyucis@weblinc.com",
+            domain: 'https://plugins-qa.demo.workarea.com/',
+            currency_code: "USD"
+          }
+          store = create_mail_chimp_store.reload
+
+          get storefront.root_path
+
+          assert_includes response.body, store.site_script_fragment
+        end
+      end
+    end
+  end
+end

data/test/lib/workarea/mailchimp/gateway/list_test.rb

@@ -0,0 +1,48 @@
+require "test_helper"
+
+module Workarea
+  module MailChimp
+    class Gateway::ListTest < Workarea::SystemTest
+      include Workarea::MailChimpApiConfig
+
+      setup :gateway
+
+      def gateway
+        @gateway ||= Workarea::MailChimp.gateway
+      end
+
+      def vcr_args
+        @vcr_args ||= { record: :once, match_requests_on: [:method, :uri, :body] }
+      end
+
+      def user
+        @user ||= Workarea::User.new(
+          id: "1",
+          first_name: "Michael",
+          last_name: "Dalton",
+          groups: []
+        )
+      end
+
+      def test_interests_when_looking_up_all_interest_groups
+        Workarea.with_config do |config|
+          config.mail_chimp.default_list_id = 'fcd2925136'
+          config.mail_chimp.email_interests_id = '443f5598e4'
+
+          response = VCR.use_cassette("interest_categories_read", vcr_args) do
+            @gateway.interests
+          end
+
+          # It behaves like a successful MailChimp API call
+          assert(response)
+
+          if response.is_a? Hash
+            refute(response.key?("error"))
+          end
+
+          assert(response.first.is_a?(Workarea::MailChimp::Group))
+        end
+      end
+    end
+  end
+end

data/test/lib/workarea/mailchimp/gateway_test.rb

@@ -0,0 +1,196 @@
+require "test_helper"
+
+class Workarea::MailChimp::GatewayTest < Workarea::SystemTest
+  include Workarea::MailChimpApiConfig
+
+  setup :gateway
+
+  def gateway
+    @gateway ||= Workarea::MailChimp.gateway
+  end
+
+  def vcr_args
+    @vcr_args ||= { record: :once, match_requests_on: [:method, :uri, :body] }
+  end
+
+  def user
+    @user ||= Workarea::User.new(
+      id: "1",
+      first_name: "Michael",
+      last_name: "Dalton",
+      groups: []
+    )
+  end
+
+  def test_new_subscriptions_when_subscribing_with_just_an_email_address
+    Workarea.with_config do |config|
+      config.mail_chimp.default_list_id = 'fcd2925136'
+      config.mail_chimp.email_interests_id = '443f5598e4'
+
+      email = "jyucis-mailchimp@workarea.com"
+
+      response = VCR.use_cassette("subscribe_to_default_list", vcr_args) do
+                   @gateway.subscribe email
+                 end
+
+      assert(response)
+
+      if response.is_a? Hash
+        refute(response.key?("error"))
+      end
+    end
+  end
+
+  def test_subscribing_with_just_an_email_address_adds_all_interest_groups
+    Workarea.with_config do |config|
+      config.mail_chimp.default_list_id = 'fcd2925136'
+      config.mail_chimp.email_interests_id = '443f5598e4'
+
+      email = "jyucis-mailchimp@workarea.com"
+
+      response = VCR.use_cassette("subscribe_to_default_list_interest_groups", vcr_args) do
+                   @gateway.subscribe email
+                 end
+
+      assert(response.body["interests"].present?)
+      assert(response.body["interests"].length == 4)
+    end
+  end
+
+  def test_new_subscriptions_when_subscribing_with_an_email_address_and_user_details
+    Workarea.with_config do |config|
+      config.mail_chimp.default_list_id = 'fcd2925136'
+      config.mail_chimp.email_interests_id = '443f5598e4'
+
+      email = "jyucis-mailchimp-2@workarea.com"
+
+      response = VCR.use_cassette("subscribe_to_default_list_with_user_details", vcr_args) do
+                   @gateway.subscribe email, user: user
+                 end
+
+      assert(response)
+
+      if response.is_a? Hash
+        refute(response.key?("error"))
+      end
+    end
+  end
+
+  def test_new_subscriptions_when_subscribing_with_an_email_address_and_groupings
+    Workarea.with_config do |config|
+      config.mail_chimp.default_list_id = 'fcd2925136'
+      config.mail_chimp.email_interests_id = '443f5598e4'
+
+      email = "jyucis-mailchimp-3@workarea.com"
+
+      response = VCR.use_cassette("subscribe_to_default_list_with_groupings", vcr_args) do
+                   @gateway.subscribe email, user: user
+                 end
+
+      assert(response)
+
+      if response.is_a? Hash
+        refute(response.key?("error"))
+      end
+    end
+  end
+
+  def test_udpates_to_subscriptions_when_updating_email_address
+    Workarea.with_config do |config|
+      config.mail_chimp.default_list_id = 'fcd2925136'
+      config.mail_chimp.email_interests_id = '443f5598e4'
+
+      current_email = "jyucis-mailchimp-2@workarea.com"
+      new_email = "jyucis-mailchimp-4@workarea.com"
+
+      response = VCR.use_cassette("update_member_on_default_list_change_email", vcr_args) do
+                   @gateway.subscribe current_email, new_email: new_email
+                 end
+
+      assert(response)
+
+      if response.is_a? Hash
+        refute(response.key?("error"))
+      end
+    end
+  end
+
+  def test_udpates_to_subscriptions_when_udpating_groupings
+    Workarea.with_config do |config|
+      config.mail_chimp.default_list_id = 'fcd2925136'
+      config.mail_chimp.email_interests_id = '443f5598e4'
+
+      email = "jyucis-mailchimp-3@workarea.com"
+
+      response = VCR.use_cassette("update_member_on_default_list_change_groupings", vcr_args) do
+                   @gateway.subscribe email, user: user
+                 end
+
+      assert(response)
+
+      if response.is_a? Hash
+        refute(response.key?("error"))
+      end
+    end
+  end
+
+  def test_unsubscribe_from_default_list
+    Workarea.with_config do |config|
+      config.mail_chimp.default_list_id = 'fcd2925136'
+      config.mail_chimp.email_interests_id = '443f5598e4'
+
+      email = "jyucis-mailchimp@workarea.com"
+
+      response = VCR.use_cassette("unsubscribe_from_default_list", vcr_args) do
+                   @gateway.unsubscribe email
+                 end
+
+      assert(response)
+
+      if response.is_a? Hash
+        refute(response.key?("error"))
+      end
+    end
+  end
+
+  def test_list_returns_groups
+    Workarea.with_config do |config|
+      config.mail_chimp.default_list_id = 'fcd2925136'
+      config.mail_chimp.email_interests_id = '443f5598e4'
+
+      groups = [Workarea::MailChimp::Group.new(email_all_interests_hash)]
+
+      response = VCR.use_cassette("get_default_list_interests", vcr_args) do
+                   @gateway.list.interests
+                 end
+
+      assert_match(groups.first[:name], response.first[:name])
+
+      assert_match(groups.first[:interests]["7ca6cc1d86"], response.first[:interests]["7ca6cc1d86"])
+      assert_match(groups.first[:interests]["8911545594"], response.first[:interests]["8911545594"])
+      assert_match(groups.first[:interests]["542a7ec7bb"], response.first[:interests]["542a7ec7bb"])
+      assert_match(groups.first[:interests]["6908d70674"], response.first[:interests]["6908d70674"])
+    end
+  end
+
+  def test_get_member_details_returns_nil_when_email_does_not_exist_in_mailchimp
+    Workarea.with_config do |config|
+      config.mail_chimp.default_list_id = 'fcd2925136'
+      config.mail_chimp.email_interests_id = '443f5598e4'
+
+      response = VCR.use_cassette("get_member_details_no_match", vcr_args) do
+                   @gateway.members.details("mdalton-doesnotexist@workarea.com")
+                 end
+
+      assert_nil(response)
+    end
+  end
+
+  def test_get_member_details_returns_nil_when_email_has_unsubscribed_in_mailchimp
+    response = VCR.use_cassette("get_member_details_unsubscribed", vcr_args) do
+                 @gateway.members.details("test-unsubscribed@workarea.com")
+               end
+
+    assert_nil(response)
+  end
+end

data/test/lib/workarea/mailchimp/tasks/ecommerce_test.rb

@@ -0,0 +1,40 @@
+require 'test_helper'
+require 'workarea/mail_chimp/tasks/ecommerce'
+
+module Workarea
+  module MailChimp
+    module Tasks
+      class EcommerceTest < Workarea::TestCase
+        include Workarea::MailChimpApiConfig
+
+        setup :setup_mail_chimp_config
+        teardown :reset_mail_chimp_config
+
+        def test_create_store
+          _response = VCR.use_cassette("mail_chimp/tasks/create_store-successful", vcr_args) do
+            MailChimp::Tasks::Ecommerce.create_store
+          end
+        end
+
+        private
+
+        def setup_mail_chimp_config
+          @_old_config = Workarea.config.mail_chimp
+
+          Workarea.config.mail_chimp.default_store = {
+            id: "qa_dummy_store_9",
+            list_id: "fcd2925136",
+            name: "QA dummy store 9",
+            email_address: "jyucis@weblinc.com",
+            domain: 'https://plugins-qa.demo.workarea.com',
+            currency_code: "USD"
+          }
+        end
+
+        def reset_mail_chimp_config
+          Workarea.config.mail_chimp = @_old_config
+        end
+      end
+    end
+  end
+end

data/test/services/workarea/mail_chimp/cart_test.rb

@@ -0,0 +1,44 @@
+require 'test_helper'
+
+module Workarea
+  module MailChimp
+    class CartTest < Workarea::TestCase
+      def test_to_h
+        order = create_placed_order
+        hsh = Cart.new(order, send_full_customer: true).to_h
+
+        assert_equal(order.id, hsh[:id])
+        assert_equal("USD", hsh[:currency_code])
+        assert_equal("11.00", hsh[:order_total])
+        assert_equal("1.00", hsh[:shipping_total])
+        assert_equal(1, hsh[:lines].size)
+        assert_equal(2, hsh[:lines].first[:quantity])
+        assert_equal("SKU", hsh[:lines].first[:product_variant_id])
+        assert_equal(expected_new_customer_hash, hsh[:customer])
+
+        assert_equal("http://www.example.com/cart/resume/#{order.token}", hsh[:checkout_url])
+
+        hsh = Cart.new(order, send_full_customer: false).to_h
+        assert_equal(expected_existing_customer_hash, hsh[:customer])
+      end
+
+      private
+
+        def expected_new_customer_hash
+          {
+            id: Digest::MD5.hexdigest("bcrouse-new@workarea.com"),
+            email_address: "bcrouse-new@workarea.com",
+            opt_in_status: false,
+            first_name: "Ben",
+            last_name: "Crouse"
+          }
+        end
+
+        def expected_existing_customer_hash
+          {
+            id: Digest::MD5.hexdigest("bcrouse-new@workarea.com")
+          }
+        end
+    end
+  end
+end

data/test/services/workarea/mail_chimp/order_test.rb

@@ -0,0 +1,50 @@
+require 'test_helper'
+
+module Workarea
+  module MailChimp
+    class OrderTest < Workarea::TestCase
+      def test_to_h
+        order = create_placed_order
+        hsh = Order.new(order).to_h
+
+        assert_equal(order.id, hsh[:id])
+        assert_equal("USD", hsh[:currency_code])
+        assert_equal("11.00", hsh[:order_total])
+        assert_equal("1.00", hsh[:shipping_total])
+        assert_equal(1, hsh[:lines].size)
+        assert_equal(2, hsh[:lines].first[:quantity])
+        assert_equal("SKU", hsh[:lines].first[:product_variant_id])
+        assert_equal(expected_address_hash, hsh[:shipping_address])
+        assert_equal(expected_address_hash, hsh[:billing_address])
+        assert_equal(expected_customer_hash, hsh[:customer])
+      end
+
+      private
+        def expected_address_hash
+          {
+            name:"Ben Crouse",
+            address1:"22 S. 3rd St.",
+            address2:"Second Floor",
+            city:"Philadelphia",
+            province:"PA",
+            postal_code:"19106",
+            country:"US",
+            phone:"",
+            company:""
+          }
+        end
+
+        def expected_customer_hash
+          {
+            id: Digest::MD5.hexdigest("bcrouse-new@workarea.com"),
+            email_address: "bcrouse-new@workarea.com",
+            opt_in_status: false,
+            orders_count: 1,
+            total_spent: "11.00",
+            first_name: "Ben",
+            last_name: "Crouse"
+          }
+        end
+    end
+  end
+end

data/test/services/workarea/mail_chimp/product_test.rb

@@ -0,0 +1,29 @@
+require 'test_helper'
+
+module Workarea
+  module MailChimp
+    class ProductTest < Workarea::TestCase
+      def test_to_h
+        product = create_product(id: "32F5411045")
+        hsh = Product.new(product).to_h
+
+        assert_equal(product.id, hsh[:id])
+        assert_equal(product.name, hsh[:title])
+        assert_equal(1, hsh[:variants].size)
+        assert_equal(expected_variant_hash, hsh[:variants].first)
+      end
+
+      private
+        def expected_variant_hash
+          {
+            id: "SKU",
+            title: "SKU",
+            sku: "SKU",
+            price: "5.0",
+            inventory_quantity: 99999,
+            visibility: "true"
+          }
+        end
+    end
+  end
+end

data/test/support/workarea/mail_chimp_api_config.rb

@@ -0,0 +1,33 @@
+module Workarea
+  module MailChimpApiConfig
+    def self.included(test)
+      super
+      test.setup :set_key
+      test.teardown :reset_key
+    end
+
+    def set_key
+      Rails.application.secrets.mail_chimp = { api_key: 'a' }
+    end
+
+    def reset_key
+      Rails.application.secrets.delete(:mail_chimp)
+    end
+
+    def vcr_args
+      @vcr_args ||= { record: :once, match_requests_on: [:method, :uri] }
+    end
+
+    private
+
+      def test_store_params
+        {
+          id: "test_store_1",
+          list_id: "fcd2925136",
+          name: "test_store_1",
+          email_address: "jyucis@weblinc.com",
+          currency_code: "USD"
+        }
+      end
+  end
+end