# Spec helper (must include first to track code coverage with SimpleCov)
require_relative 'support/spec_helper'

require 'acpc_dealer'
require 'acpc_poker_types/acpc_dealer_data/poker_match_data'
require 'dmorrill10-utils'

require 'acpc_poker_types/player'
require 'acpc_poker_types/poker_action'
require 'acpc_poker_types/hand'
require 'acpc_poker_types/match_state'

describe AcpcPokerTypes::Player do
  NAME = 'p1'
  SEAT = '1'
  INITIAL_CHIP_STACK = 100000
  BLIND = 100

  before(:each) do
    @name = NAME
    @seat = SEAT.to_i - 1
    @chip_stack = INITIAL_CHIP_STACK
    @chip_balance = 0
    @hole_cards = nil
    @actions_taken_this_hand = [[]]
    @has_folded = false
    @is_all_in = false
    @is_active = true
    @round = 0
    @chip_contributions = [0]

    init_patient!
  end

  describe '::create_players' do
    it "raises an exception if the number of player names doesn't match the number of players from the game definition" do
      game_def = mock 'GameDefinition'
      various_numbers_of_players do |number_of_players|
        game_def.stubs(:number_of_players).returns(number_of_players)

        -> do
          AcpcPokerTypes::Player.create_players(
            ((number_of_players-1).times.inject([]) do |names, i|
               names << "p#{i}"
             end
             ),
            game_def
          )
        end.must_raise(AcpcPokerTypes::Player::IncorrectNumberOfPlayerNames)
        -> do
          AcpcPokerTypes::Player.create_players(
            ((number_of_players+1).times.inject([]) do |names, i|
               names << "p#{i}"
             end
             ),
            game_def
          )
        end.must_raise(AcpcPokerTypes::Player::IncorrectNumberOfPlayerNames)
      end
    end
    it 'works properly' do
      game_def = mock 'GameDefinition'
      various_numbers_of_players do |number_of_players|
        game_def.stubs(:number_of_players).returns(number_of_players)
        game_def.expects(:chip_stacks).times(number_of_players).returns(INITIAL_CHIP_STACK)

        patients = AcpcPokerTypes::Player.create_players(
          (number_of_players.times.inject([]) do |names, i|
             names << "p#{i}"
          end),
          game_def
        )

        patients.length.must_equal number_of_players
        patients.each do |patient|
          patient.class.must_equal AcpcPokerTypes::Player
        end
      end
    end
  end
  describe '#join_match' do
    it 'initializes properly' do
      check_patient
    end
  end
  describe '#take_action!' do
    describe 'updates player state properly' do
      it 'given the player did not fold' do
        test_sequence_of_non_fold_actions
      end
    end
  end
  describe '#start_new_hand!' do
    describe 'resets player data properly after taking actions' do
      it "in Doyle's game" do
        i = 0
        various_hands do |hand|
          init_patient!
          @position_relative_to_dealer = i

          test_sequence_of_non_fold_actions hand

          i += 1
        end
      end
      it 'in a continuous game' do
        i = 0
        various_hands do |hand|
          init_patient!
          @position_relative_to_dealer = i

          test_sequence_of_non_fold_actions hand

          i += 1
        end
      end
    end
  end
  describe 'reports it is not active if' do
    it 'it has folded' do
      action = AcpcPokerTypes::PokerAction.new AcpcPokerTypes::PokerAction::FOLD

      @patient.start_new_hand! BLIND, INITIAL_CHIP_STACK
      @patient.take_action! action

      @chip_stack = INITIAL_CHIP_STACK - BLIND
      @chip_balance = -BLIND
      @chip_contributions = [BLIND]
      @hole_cards = AcpcPokerTypes::Hand.new
      @actions_taken_this_hand = [[action]]
      @has_folded = true
      @is_all_in = false
      @is_active = false
      @round = 0

      check_patient
    end
    it 'it is all-in' do
      action = AcpcPokerTypes::PokerAction.new AcpcPokerTypes::PokerAction::RAISE, cost: INITIAL_CHIP_STACK - BLIND

      hand = default_hand
      @patient.start_new_hand! BLIND, INITIAL_CHIP_STACK, hand
      @patient.take_action! action

      @chip_stack = 0
      @chip_balance = -INITIAL_CHIP_STACK
      @chip_contributions = [INITIAL_CHIP_STACK]
      @hole_cards = hand
      @actions_taken_this_hand = [[action]]
      @has_folded = false
      @is_all_in = true
      @is_active = false
      @round = 0

      check_patient
    end
  end
  describe 'properly changes its state when it wins chips' do
    it 'when the number of chips is an integer' do
      @patient.chip_balance.must_equal 0

      pot_size = 22
      @patient.take_winnings! pot_size

      @patient.chip_stack.must_equal INITIAL_CHIP_STACK + pot_size
      @patient.chip_balance.must_equal pot_size
      @patient.chip_contributions.must_equal [0, -pot_size]
    end
    it 'when the number of chips is a rational' do
      @patient.chip_balance.must_equal 0

      pot_size = 22/3.to_r
      @patient.take_winnings! pot_size

      @patient.chip_stack.must_equal INITIAL_CHIP_STACK + pot_size
      @patient.chip_balance.must_equal pot_size
      @patient.chip_contributions.must_equal [0, -pot_size]
    end
  end
  it 'works properly over samples of data from the ACPC Dealer' do
    dealer_log_directory = File.expand_path('../support/dealer_logs', __FILE__)
    match_logs.each do |log_description|
      match =  AcpcPokerTypes::AcpcDealerData::PokerMatchData.parse_files(
        "#{dealer_log_directory}/#{log_description.actions_file_name}",
        "#{dealer_log_directory}/#{log_description.results_file_name}",
        log_description.player_names,
        AcpcDealer::DEALER_DIRECTORY,
        120
      )
      match.for_every_seat! do |seat|
        @patient = AcpcPokerTypes::Player.join_match(
          match.match_def.player_names[seat],
          seat,
          match.match_def.game_def.chip_stacks[seat]
        )

        match.for_every_hand! do

          @patient.start_new_hand!(
            match.match_def.game_def.blinds[seat],
            match.match_def.game_def.chip_stacks[seat],
            match.current_hand.data.first.state_messages[seat].users_hole_cards
          )
          match.for_every_turn! do
            if (
              match.current_hand.last_action &&
              @patient.seat == match.current_hand.last_action.seat
            )
              @patient.take_action!(match.current_hand.last_action.action)
            end

            match_state = match.current_hand.current_match_state
            last_match_state = match.current_hand.last_match_state

            if !match_state.first_state_of_first_round? && match_state.round > last_match_state.round
              @patient.start_new_round!
            end
            if match.current_hand.final_turn?
              @patient.take_winnings!(match.current_hand.chip_distribution[seat] + match.match_def.game_def.blinds[seat])
            end

            @patient.name.must_equal match.player.name
            @patient.seat.must_equal seat
            @patient.hole_cards.must_equal match.player.hole_cards
            @patient.actions_taken_this_hand.reject_empty_elements.must_equal match.player.actions_taken_this_hand.reject_empty_elements

            @patient.folded?.must_equal match.player.folded?
            @patient.all_in?.must_equal match.player.all_in?
            @patient.active?.must_equal match.player.active?
            @patient.round.must_equal match.current_hand.current_match_state.round
          end

          @patient.chip_balance.must_equal match.player.chip_balance
        end
      end
    end
  end

  def check_patient
    @patient.name.must_equal @name
    @patient.seat.must_equal @seat
    @patient.chip_stack.must_equal @chip_stack
    @patient.chip_contributions.must_equal @chip_contributions
    @patient.chip_balance.must_equal @chip_balance
    if @hole_cards
      (@patient.hole_cards.map { |card| card.to_s} ).must_equal @hole_cards.map { |card| card.to_s }
    else
      @patient.hole_cards.must_be_nil
    end

    @patient.actions_taken_this_hand.must_equal @actions_taken_this_hand
    @patient.folded?.must_equal @has_folded
    @patient.all_in?.must_equal @is_all_in
    @patient.active?.must_equal @is_active
    @patient.round.must_equal @round
  end
  def various_numbers_of_players
    (1..100).each do |number_of_players|
      yield number_of_players
    end
  end

class Array
  def reject_empty_elements
    reject do |elem|
      elem.empty?
    end
  end
end

  MatchLog = Struct.new(
    :results_file_name,
    :actions_file_name,
    :player_names
  )

  def match_logs
    [
      MatchLog.new(
        '2p.limit.h1000.r0.log',
        '2p.limit.h1000.r0.actions.log',
        ['p1', 'p2']
      ),
      MatchLog.new(
        '2p.nolimit.h1000.r0.log',
        '2p.nolimit.h1000.r0.actions.log',
        ['p1', 'p2']
      ),
      MatchLog.new(
        '3p.limit.h1000.r0.log',
        '3p.limit.h1000.r0.actions.log',
        ['p1', 'p2', 'p3']
      ),
      MatchLog.new(
        '3p.nolimit.h1000.r0.log',
        '3p.nolimit.h1000.r0.actions.log',
        ['p1', 'p2', 'p3']
      )
    ]
  end

  def various_actions
    various_amounts_to_put_in_pot do |amount|
      with_and_without_a_modifier do |modifier|
        instantiate_each_action_from_symbols(amount, modifier) do |action|
          yield action
        end
      end
    end
  end
  def default_modifier
    modifier_amount = 9001
    modifier = mock 'ChipStack'
    modifier.stubs(:to_s).returns(modifier_amount.to_s)
    modifier
  end
  def various_amounts_to_put_in_pot
    [0, 9002, -9002].each do |amount|
      yield amount
    end
  end
  def with_and_without_a_modifier
    [nil, default_modifier].each do |modifier|
      yield modifier
    end
  end
  def instantiate_each_action_from_symbols(
    cost=0, modifier=nil
  )
    AcpcPokerTypes::PokerAction::CANONICAL_ACTIONS.each do |action|
      modifier = if AcpcPokerTypes::PokerAction::MODIFIABLE_ACTIONS.include? action
        modifier
      else
        nil
      end

      yield AcpcPokerTypes::PokerAction.new(action, cost: cost, modifier: modifier)
    end
  end
  def test_sequence_of_non_fold_actions(hole_cards=default_hand)
    @hole_cards = hole_cards
    @has_folded = false

    @patient.start_new_hand! BLIND, INITIAL_CHIP_STACK, @hole_cards

    init_new_hand_data!

    number_of_rounds = 4
    number_of_rounds.times do |round|
      @round = round

      unless 0 == round
        @patient.start_new_round!
        @chip_contributions << 0
        @actions_taken_this_hand << []
      end

      various_actions do |action|
        next if AcpcPokerTypes::PokerAction::FOLD == action.to_s

        chip_stack_adjustment = if @chip_stack - action.cost >= 0
          action.cost
        else @chip_stack end

        @chip_balance -= chip_stack_adjustment
        @chip_stack -= chip_stack_adjustment
        @chip_contributions[-1] += chip_stack_adjustment

        @is_all_in = 0 == @chip_stack
        @is_active = !@is_all_in

        @actions_taken_this_hand.last << action

        @patient.take_action! action

        check_patient
      end
    end
  end
  def various_hands
    ([default_hand] * 10).each do |hole_cards|
      yield hole_cards
    end
  end
  def default_hand
    hidden_cards = AcpcPokerTypes::Hand.new

    hidden_cards
  end
  def init_patient!
    @patient = AcpcPokerTypes::Player.join_match @name, @seat, @chip_stack
  end
  def init_new_hand_data!
    @actions_taken_this_hand = [[]]
    init_new_hand_chip_data!
  end
  def init_new_hand_chip_data!
    # @todo Assumes Doyle's Game
    @chip_contributions = [BLIND]
    @chip_balance = -@chip_contributions.first
    @chip_stack = INITIAL_CHIP_STACK - @chip_contributions.first
  end
end