describe Pipio::HtmlLogParser do
  context '#parse' do
    it 'returns a Chat with the correct number of lines' do
      chat = build_chat do |b|
        b.first_line
        3.times { b.message }
      end

      expect(chat.messages.size).to eq(3)
    end

    it 'returns a Chat with the correct message type' do
      chat = build_chat do |b|
        b.first_line
        b.message 'first'
        b.message 'second'
      end

      expect(chat.messages.map(&:class)).to eq([Pipio::XMLMessage] * 2)
    end

    {
      'Gabe B-W logged in.' => 'online',
      'Gabe B-W logged out.' => 'offline',
      'Gabe B-W has signed on.' => 'online',
      'Gabe B-W has signed off.' => 'offline',
      'Gabe B-W has gone away.' => 'away',
      'Gabe B-W is no longer away.' => 'available',
      'Gabe B-W has become idle.' => 'idle',
      'Gabe B-W is no longer idle.' => 'available'
    }.each do |line, status|
      it "correctly detects status messages of format '#{line}'" do
        message = first_line_of_chat do |b|
          b.first_line
          b.status line
        end

        expect(message.status).to eq(status)
      end
    end

    it 'correctly detects libpurple events' do
      message = first_line_of_chat do |b|
        b.first_line
        b.status 'Starting transfer of kitten.jpg from Gabe B-W'
      end

      expect(message.event_type).to eq('libpurpleEvent')
    end

    it 'correctly detects non-libpurple events' do
      message = first_line_of_chat do |b|
        b.first_line
        b.status 'You missed 8 messages from Gabe B-W because they were too large'
      end

      expect(message.event_type).to eq('chat-error')
    end

    it 'does not build Messages for ignored events' do
      chat = build_chat do |b|
        b.first_line
        b.status 'Gabe B-W is now known as gbw.'
      end

      expect(chat.messages).to eq([nil])
    end

    it 'correctly detects auto-reply messages' do
      message = first_line_of_chat do |b|
        b.first_line
        b.auto_reply 'I ran out for a bit'
      end

      expect(message).to be_instance_of(Pipio::AutoReplyMessage)
      expect(message.body).to eq('I ran out for a bit')
    end

    it 'parses out the screen name for the user who is doing the logging' do
      message = first_line_of_chat('Gabe B-W') do |b|
        b.first_line from: 'from', to: 'to'
        b.message 'whatever', from: 'from', from_alias: 'Gabe B-W'
      end

      expect(message.sender_screen_name).to eq('from')
    end

    it 'parses out the alias for the user who is doing the logging' do
      message = first_line_of_chat do |b|
        b.first_line from: 'from', to: 'to'
        b.message 'whatever', from_alias: 'Jack Alias'
      end

      expect(message.sender_alias).to eq('Jack Alias')
    end

    it 'parses out the screen name for the user on the other end' do
      message = first_line_of_chat('my-alias') do |b|
        b.first_line from: 'from'
        b.message 'whatever', from: 'from', from_alias: 'my-alias'
      end

      expect(message.sender_screen_name).to eq('from')
    end

    it 'parses out the alias for the user on the other end' do
      message = first_line_of_chat('my-alias') do |b|
        b.first_line from: 'from'
        b.message 'whatever', from: 'from', from_alias: 'my-alias'
      end

      expect(message.sender_alias).to eq('my-alias')
    end

    it 'parses out the time' do
      message = first_line_of_chat do |b|
        b.first_line
        b.message 'whatever', time: '2008-01-15 07:14:45'
      end

      expect(message.time).to eq(Time.parse('2008-01-15 07:14:45'))
    end

    it 'parses out the body' do
      message = first_line_of_chat do |b|
        b.first_line
        b.message 'body'
      end

      expect(message.body).to eq('body')
    end

    it 'double quotes hrefs in the body' do
      body_with_link = %q(<a href='http://google.com'>first</a>)
      message = first_line_of_chat do |b|
        b.first_line
        b.message body_with_link
      end

      expect(message.body).to eq(body_with_link.gsub("'", '"'))
    end

    it 'has access to the screen name of the other person' do
      chat = build_chat do |b|
        b.first_line to: 'person_on_the_other_end'
      end

      expect(chat.their_screen_name).to eq('person_on_the_other_end')
    end
  end

  def build_chat(aliases = 'Gabe B-W', &block)
    file = create_chat_file('file.html', &block)
    Pipio::HtmlLogParser.new(file.path, aliases).parse
  end

  def first_line_of_chat(aliases = 'Gabe B-W', &block)
    build_chat(aliases, &block).messages.first
  end
end