require 'spec_helper'

describe Ably::Modules::EventEmitter do
  let(:options) { {} }
  let(:klass) do
    callback_opts = options
    Class.new do
      include Ably::Modules::EventEmitter
      configure_event_emitter callback_opts
      def logger
        @logger ||= Ably::Models::NilLogger.new
      end
    end
  end
  let(:obj) { double('example') }
  let(:msg) { double('message') }

  subject { klass.new }

  context '#emit event fan out' do
    it 'should emit an event for any number of subscribers' do
      2.times do
        subject.on(:message) { |msg| obj.received_message msg }
      end

      expect(obj).to receive(:received_message).with(msg).twice
      subject.emit :message, msg
    end

    it 'sends only messages to matching event names' do
      subject.on(:valid) { |msg| obj.received_message msg }

      expect(obj).to receive(:received_message).with(msg).once
      subject.emit :valid, msg
      subject.emit :ignored, msg
      subject.emit 'valid', msg
    end

    context 'with coercion', :api_private do
      let(:options) do
        { coerce_into: Proc.new { |event| String(event) } }
      end

      it 'calls the provided proc to coerce the event name' do
        subject.on('valid') { |msg| obj.received_message msg }

        expect(obj).to receive(:received_message).with(msg).once
        subject.emit :valid, msg
      end
    end

    context 'without coercion', :api_private do
      it 'only matches event names on type matches' do
        subject.on('valid') { |msg| obj.received_message msg }

        expect(obj).to_not receive(:received_message).with(msg)
        subject.emit :valid, msg
      end
    end

    context '#on subscribe to multiple events' do
      it 'with the same block' do
        subject.on(:click, :hover) { |msg| obj.received_message msg }

        expect(obj).to receive(:received_message).with(msg).twice

        subject.emit :click, msg
        subject.emit :hover, msg
      end
    end

    context 'event callback changes within the callback block' do
      context 'when new event callbacks are added' do
        before do
          2.times do
            subject.on(:message) do |msg|
              obj.received_message msg
              subject.on(:message) do |message|
                obj.received_message_from_new_callbacks message
              end
            end
          end
          allow(obj).to receive(:received_message)
        end

        it 'is unaffected and processes the prior event callbacks once (#RTE6b)' do
          expect(obj).to receive(:received_message).with(msg).twice
          expect(obj).to_not receive(:received_message_from_new_callbacks).with(msg)
          subject.emit :message, msg
        end

        it 'adds them for the next emitted event (#RTE6b)' do
          expect(obj).to receive(:received_message_from_new_callbacks).with(msg).twice

          # New callbacks are added in this emit
          subject.emit :message, msg

          # New callbacks are now called with second event emitted
          subject.emit :message, msg
        end
      end

      context 'when callbacks are removed' do
        before do
          2.times do
            subject.once(:message) do |msg|
              obj.received_message msg
              subject.off
            end
          end
        end

        it 'is unaffected and processes the prior event callbacks once (#RTE6b)' do
          expect(obj).to receive(:received_message).with(msg).twice
          subject.emit :message, msg
        end

        it 'removes them for the next emitted event (#RTE6b)' do
          expect(obj).to receive(:received_message).with(msg).twice

          # Callbacks are removed in this emit
          subject.emit :message, msg
          # No callbacks should exist now
          subject.emit :message, msg
        end
      end
    end
  end

  context '#on (#RTE3)' do
    context 'with event specified' do
      it 'calls the block every time an event is emitted only' do
        block_called = 0
        subject.on('event') { block_called += 1 }
        3.times { subject.emit 'event', 'data' }
        expect(block_called).to eql(3)
      end

      it 'catches exceptions in the provided block, logs the error and continues' do
        expect(subject.logger).to receive(:error) do |*args, &block|
          expect(args.concat([block ? block.call : nil]).join(',')).to match(/Intentional exception/)
        end
        subject.on(:event) { raise 'Intentional exception' }
        subject.emit :event
      end
    end

    context 'with no event specified' do
      it 'calls the block every time an event is emitted only' do
        block_called = 0
        subject.on { block_called += 1 }
        3.times { subject.emit 'event', 'data' }
        expect(block_called).to eql(3)
      end

      it 'catches exceptions in the provided block, logs the error and continues' do
        expect(subject.logger).to receive(:error) do |*args, &block|
          expect(args.concat([block ? block.call : nil]).join(',')).to match(/Intentional exception/)
        end
        subject.on { raise 'Intentional exception' }
        subject.emit :event
      end
    end
  end

  context '#unsafe_on', api_private: true do
    it 'calls the block every time an event is emitted only' do
      block_called = 0
      subject.unsafe_on('event') { block_called += 1 }
      3.times { subject.emit 'event', 'data' }
      expect(block_called).to eql(3)
    end

    it 'does not catch exceptions in provided blocks' do
      subject.unsafe_on(:event) { raise 'Intentional exception' }
      expect { subject.emit :event }.to raise_error(/Intentional exception/)
    end
  end

  context '#once (#RTE4)' do
    context 'with event specified' do
      it 'calls the block the first time an event is emitted only' do
        block_called = 0
        subject.once('event') { block_called += 1 }
        3.times { subject.emit 'event', 'data' }
        expect(block_called).to eql(1)
      end

      it 'does not remove other blocks after it is called' do
        block_called = 0
        subject.once('event') { block_called += 1 }
        subject.on('event')   { block_called += 1 }
        3.times { subject.emit 'event', 'data' }
        expect(block_called).to eql(4)
      end

      it 'catches exceptions in the provided block, logs the error and continues' do
        expect(subject.logger).to receive(:error) do |*args, &block|
          expect(args.concat([block ? block.call : nil]).join(',')).to match(/Intentional exception/)
        end
        subject.once(:event) { raise 'Intentional exception' }
        subject.emit :event
      end
    end

    context 'with no event specified' do
      it 'calls the block the first time an event is emitted only' do
        block_called = 0
        subject.once { block_called += 1 }
        3.times { subject.emit 'event', 'data' }
        expect(block_called).to eql(1)
      end

      it 'does not remove other blocks after it is called' do
        block_called = 0
        subject.once { block_called += 1 }
        subject.on   { block_called += 1 }
        3.times { subject.emit 'event', 'data' }
        expect(block_called).to eql(4)
      end

      it 'catches exceptions in the provided block, logs the error and continues' do
        expect(subject.logger).to receive(:error) do |*args, &block|
          expect(args.concat([block ? block.call : nil]).join(',')).to match(/Intentional exception/)
        end
        subject.once { raise 'Intentional exception' }
        subject.emit :event
      end
    end
  end

  context '#unsafe_once' do
    it 'calls the block the first time an event is emitted only' do
      block_called = 0
      subject.unsafe_once('event') { block_called += 1 }
      3.times { subject.emit 'event', 'data' }
      expect(block_called).to eql(1)
    end

    it 'does not catch exceptions in provided blocks' do
      subject.unsafe_once(:event) { raise 'Intentional exception' }
      expect { subject.emit :event }.to raise_error(/Intentional exception/)
    end
  end

  context '#off' do
    let(:callback) { Proc.new { |msg| obj.received_message msg } }

    context 'with event specified in on handler' do
      before do
        subject.on(:message, &callback)
      end

      after do
        subject.emit :message, msg
      end

      context 'with event names as arguments' do
        it 'deletes matching callbacks when a block is provided' do
          expect(obj).to_not receive(:received_message).with(msg)
          subject.off(:message, &callback)
        end

        it 'deletes all matching callbacks when a block is not provided' do
          expect(obj).to_not receive(:received_message).with(msg)
          subject.off(:message)
        end

        it 'continues if the block does not exist' do
          expect(obj).to receive(:received_message).with(msg)
          subject.off(:message) { true }
        end
      end

      context 'without any event names' do
        it 'deletes all matching callbacks' do
          expect(obj).to_not receive(:received_message).with(msg)
          subject.off(&callback)
        end

        it 'deletes all callbacks if not block given' do
          expect(obj).to_not receive(:received_message).with(msg)
          subject.off
        end
      end
    end

    context 'when on callback is configured for all events' do
      before do
        subject.on(&callback)
      end

      after do
        subject.emit :message, msg
      end

      context 'with event names as arguments' do
        it 'does not remove the all events callback when a block is provided' do
          expect(obj).to receive(:received_message).with(msg)
          subject.off(:message, &callback)
        end

        it 'does not remove the all events callback when a block is not provided' do
          expect(obj).to receive(:received_message).with(msg)
          subject.off(:message)
        end

        it 'does not remove the all events callback when the block does not match' do
          expect(obj).to receive(:received_message).with(msg)
          subject.off(:message) { true }
        end
      end

      context 'without any event names' do
        it 'deletes all matching callbacks' do
          expect(obj).to_not receive(:received_message).with(msg)
          subject.off(&callback)
        end

        it 'deletes all callbacks if not block given' do
          expect(obj).to_not receive(:received_message).with(msg)
          subject.off
        end
      end
    end

    context 'with unsafe_on subscribers' do
      before do
        subject.unsafe_on(&callback)
      end

      after do
        subject.emit :message, msg
      end

      it 'does not deregister them' do
        expect(obj).to receive(:received_message).with(msg)
        subject.off
      end
    end

    context 'with unsafe_once subscribers' do
      before do
        subject.unsafe_once(&callback)
      end

      after do
        subject.emit :message, msg
      end

      it 'does not deregister them' do
        expect(obj).to receive(:received_message).with(msg)
        subject.off
      end
    end
  end

  context '#unsafe_off' do
    let(:callback) { Proc.new { |msg| obj.received_message msg } }

    context 'with unsafe_on subscribers' do
      before do
        subject.unsafe_on(&callback)
      end

      after do
        subject.emit :message, msg
      end

      it 'deregisters them' do
        expect(obj).to_not receive(:received_message).with(msg)
        subject.unsafe_off
      end
    end

    context 'with unsafe_once subscribers' do
      before do
        subject.unsafe_once(&callback)
      end

      after do
        subject.emit :message, msg
      end

      it 'deregister them' do
        expect(obj).to_not receive(:received_message).with(msg)
        subject.unsafe_off
      end
    end

    context 'with on subscribers' do
      before do
        subject.on(&callback)
      end

      after do
        subject.emit :message, msg
      end

      it 'does not deregister them' do
        expect(obj).to receive(:received_message).with(msg)
        subject.unsafe_off
      end
    end

    context 'with once subscribers' do
      before do
        subject.once(&callback)
      end

      after do
        subject.emit :message, msg
      end

      it 'does not deregister them' do
        expect(obj).to receive(:received_message).with(msg)
        subject.unsafe_off
      end
    end
  end
end