rora 0.0.5 → 0.0.6

data/lib/rora/model/table.rb

@@ -1,14 +1,86 @@
 #
-#
+# A poker table where players compete for pots.
 #
 class Table
-  attr_reader :board, :deck, :pot, :seats
+  attr_reader :board, :deck, :pot
 
   def initialize seats=nil
-    @seats = Array.new(seats.nil? ? 9 : seats)
+    seats = seats.nil? ? 9 : seats
+    raise ArgumentError, "A table must have at least two seats" if seats < 2
+    @seats = Array.new seats
     @board = Board.new
     @pot = Pot.new
     @deck = Deck.new
+
+    @seats.each_index {|index| @seats[index] = Seat.new(index + 1)}
+    @seats.each_index do |index|
+      @seats[index].next = @seats[index == (seats - 1) ? 0 : index + 1]
+      @seats[index].prev = @seats[index == 0 ? seats - 1 : index - 1]
+    end
+  end
+
+  def pass_the_buck
+    index = the_button.number - 1
+    @seats[index].button = nil
+    the_seat_after(@seats[index]).button = true
+  end
+
+  def the_button
+    raise RuntimeError, "There are fewer than two players at the table" if players.size < 2
+    @seats.each_index do |x|
+      return @seats[x] if @seats[x].button?
+    end
+    @seats.each_index do |x|
+      return @seats[x] if @seats[x].taken?
+    end
+  end
+
+  def the_small_blind
+    raise RuntimeError, "There are fewer than two players at the table" if players.size < 2
+    players.size == 2 ? the_button : the_seat_after(the_button)
+  end
+
+  def the_big_blind
+    raise RuntimeError, "There are fewer than two players at the table" if players.size < 2
+    the_seat_after the_small_blind
+  end
+
+  def under_the_gun
+    raise RuntimeError, "There are fewer than two players at the table" if players.size < 2
+    the_seat_after(the_big_blind)
+  end
+
+  def the_seat_after seat
+    raise RuntimeError, "There are fewer than two players at the table" if players.size < 2
+    this_seat = seat.next
+    return this_seat.taken? ? this_seat : the_seat_after(this_seat)
+  end
+
+  def the_seat_before seat
+    raise RuntimeError, "There are fewer than two players at the table" if players.size < 2
+    this_seat = seat.prev
+    return this_seat.taken? ? this_seat : the_seat_before(this_seat)
+  end
+
+  def with argument
+    if argument.kind_of? Deck
+      @deck = argument
+    end
+    if argument.kind_of? Pot
+      @pot = argument
+    end
+    if argument.kind_of? Board
+      @board = argument
+    end
+    self
+  end
+
+  def seat i
+    @seats[i - 1]
+  end
+
+  def size
+    @seats.size
   end
 
   def reset
@@ -17,24 +89,45 @@ class Table
     @deck = Deck.new
   end
 
+  def players
+    players = []
+    @seats.each do |seat|
+      players << seat.player if seat.taken?
+    end
+    players
+  end
+
+  def full?
+    @seats.select{|x| !x.taken?}.empty?
+  end
+
+  def empty?
+    @seats.select{|x| x.taken?}.empty?
+  end
+
   def add player, seat_number=nil
-    if !location.nil?
-      raise ArgumentException, "Seat #{seat_number} is already taken by another player." if @seats[seat_number - 1] != nil
-      @seats[seat_number - 1] = player
-    else
-      @seats.each_index do |x|
-        if @seats[x].nil?
-          @seats[x] = player
-          return
-        end
+    raise RuntimeError, "Cannot add player, the table is full" if full?
+    if !seat_number.nil?
+      raise ArgumentError, "Seat number #{seat_number} does not exist at this table" if seat_number > @seats.size || seat_number < 1
+      raise ArgumentError, "Seat number #{seat_number} is already taken by another player" if @seats[seat_number - 1].taken?
+      @seats[seat_number - 1].player = player
+      return self
+    end
+    @seats.each_index do |x|
+      if !@seats[x].taken?
+        @seats[x].player = player
+        return self
       end
     end
     self
   end
 
   def remove player
-    @seats.delete player
-    self
+    @seats.each_index do |x|
+      if @seats[x].player == player
+        @seats[x].player = nil
+      end
+    end
   end
 
 end

data/lib/rora/utils/game_logger.rb

@@ -0,0 +1,19 @@
+class GameLogger
+
+  def initialize
+    @log = Logger.new(STDOUT)
+    @log.sev_threshold = Logger::INFO
+    @log.formatter = proc do |severity, datetime, progname, msg|
+      "#{datetime}: #{msg}\n"
+    end
+  end
+
+  def debug message
+    @log.debug(message)
+  end
+
+  def info message
+    @log.info(message)
+  end
+
+end

data/lib/rora.rb

@@ -1,12 +1,17 @@
+require 'rora/utils/game_logger'
 require 'rora/model/board'
 require 'rora/model/card'
 require 'rora/model/deck'
+require 'rora/model/game'
 require 'rora/model/hand'
 require 'rora/model/hand_type'
+require 'rora/model/player'
 require 'rora/model/pot'
 require 'rora/model/rank'
+require 'rora/model/seat'
 require 'rora/model/starting_hand'
 require 'rora/model/suit'
-
+require 'rora/model/table'
 require 'rora/repository/hand_repository'
-require 'rora/repository/starting_hand_repository'
+require 'rora/repository/starting_hand_repository'
+require 'logger'

data/test/rora/model/board_test.rb

@@ -2,6 +2,10 @@ require File.expand_path("../../rora_test", File.dirname(__FILE__))
 
 class BoardTest < ActiveSupport::TestCase
 
+  def setup
+    @board = Board.new "AS,KS,QS,JS,TS"
+  end
+
   test "should raise an error when a board is created with less than 3 cards" do
     assert_raise ArgumentError do
       Board.new "AS,KS"
@@ -26,6 +30,8 @@ class BoardTest < ActiveSupport::TestCase
 
   test "the board should have three cards if the board was initialized with the flop" do
     assert_equal 3, Board.new("AS,KS,QS").cards.size
+    b = Board.new("AS,KS,QS")
+    puts b.flop
   end
 
   test "the board should have four cards if the board was initialized with the flop and turn" do
@@ -111,27 +117,23 @@ class BoardTest < ActiveSupport::TestCase
   end
 
   test "should return false if the board does not contain the given card" do
-    board = Board.new "AS,KS,QS,JS,TS"
-    assert_equal false, board.contains?("3D")
-    assert_equal false, board.contains?(Card.new("3D"))
+    assert_equal false, @board.contains?("3D")
+    assert_equal false, @board.contains?(Card.new("3D"))
   end
 
   test "should return true if the boad does contain the given card" do
-    board = Board.new "AS,KS,QS,JS,TS"
-    assert_equal true, board.contains?("TS")
-    assert_equal true, board.contains?(Card.new("AS"))
+    assert_equal true, @board.contains?("TS")
+    assert_equal true, @board.contains?(Card.new("AS"))
   end
 
   test "should return false if the board does not contain any of the given cards" do
-    board = Board.new "AS,KS,QS,JS,TS"
-    assert_equal false, board.contains_any?(Card.to_cards("AH,KH,QH"))
-    assert_equal false, board.contains_any?("AH,KH,QH")
+    assert_equal false, @board.contains_any?(Card.to_cards("AH,KH,QH"))
+    assert_equal false, @board.contains_any?("AH,KH,QH")
   end
 
   test "should return true if the board contains at least one of the given cards" do
-    board = Board.new "AS,KS,QS,JS,TS"
-    assert_equal true, board.contains_any?(Card.to_cards("AH,KH,QH,JH,KS"))
-    assert_equal true, board.contains_any?("AH,KH,QH,JH,KS")
+    assert_equal true, @board.contains_any?(Card.to_cards("AH,KH,QH,JH,KS"))
+    assert_equal true, @board.contains_any?("AH,KH,QH,JH,KS")
   end
 
 end

data/test/rora/model/card_test.rb

@@ -2,6 +2,10 @@ require File.expand_path("../../rora_test", File.dirname(__FILE__))
 
 class CardTest < ActiveSupport::TestCase
 
+  def setup
+    @card = Card.new("AS")
+  end
+
   test "should be able to create a card with the specified rank and suit" do
     card = Card.new(Rank::ACE, Suit::SPADE)
     assert_equal card.rank, Rank::ACE
@@ -18,20 +22,25 @@ class CardTest < ActiveSupport::TestCase
     assert_raise ArgumentError do
       card = Card.new("A")
     end
+    assert_raise ArgumentError do
+      card = Card.new("ASK")
+    end
+  end
+
+  test "a card should have an id" do
+    assert_equal 1927, @card.id
   end
 
   test "a card id should be equal to the product of the card suit id and rank id" do
-    card = Card.new(Rank::ACE, Suit::SPADE)
-    assert_equal card.id, (Rank::ACE.id * Suit::SPADE.id)
+    assert_equal @card.id, (Rank::ACE.id * Suit::SPADE.id)
   end
 
-  test "a card value should be equal to the concatenation of the card suit value and rank value" do
-    card = Card.new(Rank::ACE, Suit::SPADE)
-    assert_equal card.value, (Rank::ACE.value + Suit::SPADE.value)
+  test "a card should have a key" do
+    assert_equal "AS", @card.key
   end
 
   test "a card key should be equal to the concatenation of the card suit key and rank key" do
-    assert_equal "AS", Card.new("AS").key
+    assert_equal "AS", (Rank::ACE.key + Suit::SPADE.key)
   end
 
   test "a card should have a name" do
@@ -39,7 +48,7 @@ class CardTest < ActiveSupport::TestCase
   end
 
   test "should generate a readable string representation" do
-    assert_equal "Card: name='Ace of Spades' value='AS' id=1927", Card.new("AS").to_s
+    assert_equal "Card: Ace of Spades", Card.new("AS").to_s
   end
 
   test "should convert an arbitrarily long string of characters into an array of cards" do

data/test/rora/model/game_test.rb

@@ -0,0 +1,23 @@
+require File.expand_path("../../rora_test", File.dirname(__FILE__))
+
+class GameTest < ActiveSupport::TestCase
+
+  def setup
+    @game = Game.new
+  end
+
+  test "play the game" do
+    for i in 0..5 do
+      player = Player.new("Player #{i}", 100000)
+      @game.add player
+      player.start_session
+    end
+
+    @game.shuffle_deck
+    @game.assign_button
+    @game.post_small_blind
+    @game.post_big_blind
+    @game.deal_pocket_cards
+    @game.run_preflop_betting_round
+  end
+end

data/test/rora/model/hand_type_test.rb

@@ -16,19 +16,19 @@ class HandTypeTest < ActiveSupport::TestCase
 
   test "should raise an error when performing a lookup with an invalid key" do
     assert_raise ArgumentError do
-      HandType.get("L")
+      HandType.get "L"
     end
   end
 
   test "should raise an error when performing a lookup with an empty key" do
     assert_raise ArgumentError do
-      HandType.get("")
+      HandType.get ""
     end
   end
 
   test "should raise an error when performing a lookup with a nil key" do
     assert_raise TypeError do
-      HandType.get(nil)
+      HandType.get nil
     end
   end
 

data/test/rora/model/player_test.rb

@@ -0,0 +1,108 @@
+require File.expand_path("../../rora_test", File.dirname(__FILE__))
+
+class PlayerTest < ActiveSupport::TestCase
+
+  def setup
+    @game = Game.new
+    @player = Player.new "Frank", 100000
+    RSpec::Mocks::setup(self)
+  end
+
+  test "a player should have a name" do
+    assert_equal "foo", Player.new("foo", 999).name
+  end
+
+  test "a player should have a stack" do
+    assert_equal 1000, Player.new("feff", 1000).stack
+  end
+
+  test "should raise an error if the player name is nil" do
+    assert_raise_message "The player name cannot be nil", ArgumentError do
+      Player.new nil, 2000
+    end
+  end
+
+  test "a player should be able to join a poker game" do
+    @player.join_game @game
+    assert_equal @player, @game.table.seat(1).player
+  end
+
+  test "a player should be able to join a poker game at a seat of their choosing" do
+    @player.join_game @game, 3
+    assert_equal @player, @game.table.seat(3).player
+  end
+
+  test "a player should not be able to join a poker game when the poker table is full" do
+    @game.table.stub(:full?).and_return(true)
+    assert_raise_message "Frank cannot join this game, the table is full", ArgumentError do
+      @player.join_game @game
+    end
+  end
+
+  test "a player should not be able to join more than one game" do
+    @player.join_game @game
+    assert_raise_message "Frank cannot join this game, this player is already playing another game", ArgumentError do
+      @player.join_game @game
+    end
+  end
+
+  test "a player should not be able to start a session at a table if they do not have a seat at the table" do
+    assert_raise_message "Frank is not sitting at a table", ArgumentError do
+      @player.start_session
+    end
+  end
+
+  test "a player should be able to start a session at the poker table" do
+    @player.join_game @game
+    @player.start_session
+    assert_equal false, @player.sitting_out?
+  end
+
+  test "a player should be able to leave a game" do
+    @player.join_game @game
+    @player.start_session
+    @player.leave_game
+    assert_equal nil, @player.game
+  end
+
+  test "a player should not be able to post a small blind if the player has not joined a game" do
+    assert_raise_message "Frank has not joined a game, cannot post the small blind", ArgumentError do
+      @player.post_small_blind
+    end
+  end
+
+  test "a player should not be able to post a big blind if the player has not joined a game" do
+    assert_raise_message "Frank has not joined a game, cannot post the big blind", ArgumentError do
+      @player.post_big_blind
+    end
+  end
+
+  test "a player should not be able to post a small blind if the player is sitting out" do
+    @player.join_game @game
+    assert_raise_message "Frank is sitting out, cannot post the small blind", ArgumentError do
+      @player.post_small_blind
+    end
+  end
+
+  test "a player should not be able to post a big blind if the player is sitting out" do
+    @player.join_game @game
+    assert_raise_message "Frank is sitting out, cannot post the big blind", ArgumentError do
+      @player.post_big_blind
+    end
+  end
+
+  test "a player should be able to post a small blind" do
+    @player.join_game @game
+    @player.start_session
+    @player.post_small_blind
+    assert_equal 0.25, @game.pot.value
+  end
+
+  test "a player should be able to post a big blind" do
+    @player.join_game @game
+    @player.start_session
+    @player.post_big_blind
+    assert_equal 0.50, @game.pot.value
+  end
+
+end

data/test/rora/model/pot_test.rb

@@ -2,27 +2,34 @@ require File.expand_path("../../rora_test", File.dirname(__FILE__))
 
 class PotTest < ActiveSupport::TestCase
 
+  def setup
+    @pot = Pot.new
+  end
+
   test "a new post should have a total of 0 dollars" do
-    assert_equal 0, Pot.new.total
+    assert_equal 0, @pot.value
+  end
+
+  test "should raise an error when attempting to add a negative value to the pot" do
+    assert_raise ArgumentError do
+      @pot.add -0.50
+    end
   end
 
   test "should be able to add money to the pot" do
-    pot = Pot.new.add 5
-    assert_equal 5, pot.total
+    assert_equal 5, @pot.add(5).value
   end
 
   test "should be able to add money with decimals to the pot" do
-    pot = Pot.new.add 5.75
-    assert_equal 5.75, pot.total
+    assert_equal 5.75, @pot.add(5.75).value
   end
 
   test "should be able to perform compound addtion operations" do
-    pot = Pot.new.add(2).add(2.25).add(2)
-    assert_equal 6.25, pot.total
+    assert_equal 6.25, @pot.add(2).add(2.25).add(2).value
   end
 
   test "should return a string representation of the pot" do
-    assert_equal "Pot: $300.00", Pot.new().add(300.00).to_s
+    assert_equal "Pot: $300.00", @pot.add(300.00).to_s
   end
 
 end

data/test/rora/model/rank_test.rb

@@ -21,25 +21,25 @@ class RankTest < ActiveSupport::TestCase
   end
 
   test "should raise an error when performing a lookup with an invalid key" do
-    assert_raise ArgumentError do
-      Rank.get("L")
+    assert_raise_message "No rank exists for key 'L'", ArgumentError do
+      Rank.get "L"
     end
   end
 
   test "should raise an error when performing a lookup with an empty key" do
-    assert_raise ArgumentError do
-      Rank.get("")
+    assert_raise_message  "No rank exists for key ''", ArgumentError do
+      Rank.get ""
     end
   end
 
   test "should raise an error when performing a lookup with a nil key" do
     assert_raise TypeError do
-      Rank.get(nil)
+      Rank.get nil
     end
   end
 
   test "should generate a readable string representation" do
-    assert_equal "Rank: id=41, key='A', value='Ace'", Rank::ACE.to_s
+    assert_equal "Rank: Ace", Rank::ACE.to_s
   end
 
 end

data/test/rora/model/seat_test.rb

@@ -0,0 +1,41 @@
+require File.expand_path("../../rora_test", File.dirname(__FILE__))
+
+class SeatTest < ActiveSupport::TestCase
+
+  def setup
+    @seat = Seat.new 2
+  end
+
+  test "should raise an error when a seat is created with a seat number less than 1" do
+    assert_raise ArgumentError do
+      Seat.new 0
+    end
+  end
+
+  test "the seat should have a seat number" do
+    assert_equal 2, @seat.number
+  end
+
+  test "the seat should not be taken when a player is not sitting in it" do
+    assert_equal false, @seat.taken?
+  end
+
+  test "the seat should  be taken when a player is  sitting in it" do
+    @seat.player = "player"
+    assert_equal true, @seat.taken?
+  end
+
+  test "the seat should not have the dealer button" do
+    assert_equal false, @seat.button?
+  end
+
+  test "the seat should have the dealer button" do
+    @seat.button = true
+    assert_equal true, @seat.button?
+  end
+
+  test "should return a string representation of the seat" do
+    assert_equal "Seat: 2", @seat.to_s
+  end
+
+end

data/test/rora/model/suit_test.rb

@@ -39,7 +39,7 @@ class SuitTest < ActiveSupport::TestCase
   end
 
   test "should generate a readable string representation" do
-    assert_equal "Suit: id=47, key='S', value='Spade'", Suit::SPADE.to_s
+    assert_equal "Suit: Spades", Suit::SPADE.to_s
   end
 
 end