rora 0.0.5

data/test/rora/model/rank_test.rb

@@ -0,0 +1,45 @@
+require File.expand_path("../../rora_test", File.dirname(__FILE__))
+
+class RankTest < ActiveSupport::TestCase
+
+  test "should return all ranks" do
+    assert_equal(13, Rank.values.size)
+  end
+
+  test "should return the correct rank for the given key" do
+    assert_equal(Rank::TWO, Rank.get("2"))
+    assert_equal(Rank::THREE, Rank.get("3"))
+    assert_equal(Rank::FOUR, Rank.get("4"))
+    assert_equal(Rank::FIVE, Rank.get("5"))
+  end
+
+  test "should perform a case insensitive key lookup" do
+    assert_equal(Rank::JACK, Rank.get("j"))
+    assert_equal(Rank::QUEEN, Rank.get("q"))
+    assert_equal(Rank::KING, Rank.get("k"))
+    assert_equal(Rank::ACE, Rank.get("a"))
+  end
+
+  test "should raise an error when performing a lookup with an invalid key" do
+    assert_raise 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("")
+    end
+  end
+
+  test "should raise an error when performing a lookup with a nil key" do
+    assert_raise TypeError do
+      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
+  end
+
+end

data/test/rora/model/starting_hand_test.rb

@@ -0,0 +1,71 @@
+require File.expand_path("../../rora_test", File.dirname(__FILE__))
+
+class StartingHandTest < ActiveSupport::TestCase
+
+  def setup
+    @hand = StartingHand.new "ASKS"
+  end
+
+  test "should raise an error when a starting hand is not created with 2 cards" do
+    assert_raise ArgumentError do
+      StartingHand.new [Card.new("AS"), Card.new("KS"), Card.new("QS")]
+    end
+  end
+
+  test "should raise an error when a starting hand is not created with 4 characters" do
+    assert_raise ArgumentError do
+      StartingHand.new "ASKSQSJS"
+    end
+  end
+
+  test "should raise an error when creating a starting hand with duplicate cards" do
+    assert_raise ArgumentError do
+      StartingHand.new "ASAS"
+    end
+  end
+
+  test "the starting hand should not be suited" do
+    assert_equal false, StartingHand.new("JHTS").suited?
+  end
+
+  test "the starting hand should be suited" do
+    assert_equal true, StartingHand.new("JHTH").suited?
+  end
+
+  test "the starting hand should have a value" do
+    assert_equal "AS,KS", StartingHand.new("ASKS").value
+  end
+
+  test "the starting hand should have a short value" do
+    assert_equal "AKs", StartingHand.new("ASKS").short_value
+  end
+
+  test "the hand should have a pocket pair" do
+    assert_equal true, StartingHand.new("ASAH").pocket_pair?
+  end
+
+  test "the hand should not have a pocket pair" do
+    assert_equal false, StartingHand.new("ASKH").pocket_pair?
+  end
+
+  test "the starting hand should have an id that is equal to the product of the card ids" do
+    assert_equal StartingHand.new("ASKH").id, (Card.new("AS").id * Card.new("KH").id)
+  end
+
+  test "the starting hand should have a key that is equal to the product of the card rank ids when the starting hand is unsuited" do
+    assert_equal StartingHand.new("ASKH").key, (Card.new("AS").rank.id * Card.new("KH").rank.id)
+  end
+
+  test "the starting hand should have a key that is equal to 67 times the product of the card rank ids when the starting hand is suited" do
+    assert_equal StartingHand.new("ASKS").key, (Card.new("AS").rank.id * Card.new("KS").rank.id * 67)
+  end
+
+  test "should return all starting hands" do
+    assert_equal 1326, StartingHand.all_starting_hands.size
+  end
+
+  test "should return distinct starting hands" do
+    assert_equal 169, StartingHand.distinct_starting_hands.size
+  end
+
+end

data/test/rora/model/suit_test.rb

@@ -0,0 +1,45 @@
+require File.expand_path("../../rora_test", File.dirname(__FILE__))
+
+class SuitTest < ActiveSupport::TestCase
+
+  test "should return all suits" do
+    assert_equal(4, Suit.values.size)
+  end
+
+  test "should return the correct suit for the given key" do
+    assert_equal(Suit::SPADE, Suit.get("S"))
+    assert_equal(Suit::HEART, Suit.get("H"))
+    assert_equal(Suit::DIAMOND, Suit.get("D"))
+    assert_equal(Suit::CLUB, Suit.get("C"))
+  end
+
+  test "should perform a case insensitive key lookup" do
+    assert_equal(Suit::SPADE, Suit.get("s"))
+    assert_equal(Suit::DIAMOND, Suit.get("d"))
+    assert_equal(Suit::CLUB, Suit.get("c"))
+    assert_equal(Suit::HEART, Suit.get("h"))
+  end
+
+  test "should raise an error when performing a lookup with an invalid key" do
+    assert_raise ArgumentError do
+      Suit.get("L")
+    end
+  end
+
+  test "should raise an error when performing a lookup with an empty key" do
+    assert_raise ArgumentError do
+      Suit.get("")
+    end
+  end
+
+  test "should raise an error when performing a lookup with a nil key" do
+    assert_raise TypeError do
+      Suit.get(nil)
+    end
+  end
+
+  test "should generate a readable string representation" do
+    assert_equal "Suit: id=47, key='S', value='Spade'", Suit::SPADE.to_s
+  end
+
+end

data/test/rora/repository/hand_repository_test.rb

@@ -0,0 +1,83 @@
+require File.expand_path("../../rora_test", File.dirname(__FILE__))
+
+class HandRepositoyTest < ActiveSupport::TestCase
+
+  def setup
+    @repository = HandRepository.instance
+  end
+
+  test "should be able to find a poker hand by id" do
+    result =  @repository.find 2101589603
+    assert_equal 1, result[0]
+    assert_equal "SF", result[1]
+    assert_equal "Royal Flush", result[2]
+    assert_equal 0.0015, result[3]
+  end
+
+  test "should raise an error when attempting to find a poker hand with an invalid id" do
+    assert_raise KeyError do
+      @repository.find 210158960345
+    end
+  end
+
+  test "should return every poker hand" do
+    assert_equal 2598960, @repository.list.size
+  end
+
+  test "should return every poker hand that can be made with the given starting hand" do
+    assert_equal 19600, @repository.list(:starting_hand => StartingHand.new("AS,KS")).size
+  end
+
+  test "should return every poker hand that can be made with the given starting hand and deck" do
+    deck = Deck.new.remove "AH,KH,AD,KD"
+    assert_equal 15180, @repository.list(:starting_hand => StartingHand.new("AS,KS"), :deck => deck).size
+  end
+
+  test "should return every poker hand that can be made with the given starting hand, flop, turn and river" do
+    assert_equal 21, @repository.list(:starting_hand => StartingHand.new("AS,KS"), :board => Board.new("QS,JS,TS,4H,3H")).size
+  end
+
+  test "should return every poker hand that can be made with the given starting hand, flop and turn" do
+    assert_equal 966, @repository.list(:starting_hand => StartingHand.new("AS,KS"), :board => Board.new("QS,JS,TS,4H")).size
+  end
+
+  test "should return every poker hand that can be made with the given starting hand and flop" do
+    assert_equal 22701, @repository.list(:starting_hand => StartingHand.new("AS,KS"), :board => Board.new("QS,JS,TS")).size
+  end
+
+  test "should return every poker hand that can be made with the given starting hand, flop and deck" do
+    deck = Deck.new.remove "AH,KH,AD,KD"
+    assert_equal 18963, @repository.list(:starting_hand => StartingHand.new("AS,KS"), :board => Board.new("QS,JS,TS"), :deck => deck).size
+  end
+
+  test "should return every distinct poker hand" do
+    assert_equal 7462, @repository.list_unique.size
+  end
+
+  test "should return every distinct poker hand that can be made with the given starting hand" do
+    assert_equal 620, @repository.list_unique(:starting_hand => StartingHand.new("AS,KS")).size
+  end
+
+  test "should return every distinct poker hand that can be made with the given starting hand and deck" do
+    deck = Deck.new.remove "AH,KH,AD,KD"
+    assert_equal 594, @repository.list_unique(:starting_hand => StartingHand.new("AS,KS"), :deck => deck).size
+  end
+
+  test "should return every distinct poker hand that can be made with the given starting hand, flop, turn and river" do
+    assert_equal 21, @repository.list_unique(:starting_hand => StartingHand.new("AS,KS"), :board => Board.new("QS,JS,TS,4H,3H")).size
+  end
+
+  test "should return every distinct poker hand that can be made with the given starting hand, flop and turn" do
+    assert_equal 212, @repository.list_unique(:starting_hand => StartingHand.new("AS,KS"), :board => Board.new("QS,JS,TS,4H")).size
+  end
+
+  test "should return every distinct poker hand that can be made with the given starting hand and flop" do
+    assert_equal 1042, @repository.list_unique(:starting_hand => StartingHand.new("AS,KS"), :board => Board.new("QS,JS,TS")).size
+  end
+
+  test "should return every distinct poker hand that can be made with the given starting hand, flop and deck" do
+    deck = Deck.new.remove "AH,KH,AD,KD"
+    assert_equal 1030, @repository.list_unique(:starting_hand => StartingHand.new("AS,KS"), :board => Board.new("QS,JS,TS"), :deck => deck).size
+  end
+
+end

data/test/rora/repository/starting_hand_repository_test.rb

@@ -0,0 +1,17 @@
+require File.expand_path("../../rora_test", File.dirname(__FILE__))
+
+class StartingHandRepositoyTest < ActiveSupport::TestCase
+
+  def setup
+    @repository = StartingHandRepository.instance
+  end
+
+  test "should return all starting hands" do
+    assert_equal 1326, @repository.all_starting_hands.size
+  end
+
+  test "should return distinct starting hands" do
+    assert_equal 169, @repository.distinct_starting_hands.size
+  end
+
+end

data/test/rora_test.rb

@@ -0,0 +1,5 @@
+$:.unshift File.join(File.dirname(__FILE__),'..','lib')
+
+require 'test/unit'
+require 'active_support'
+require 'rora'

metadata

@@ -0,0 +1,119 @@
+--- !ruby/object:Gem::Specification
+name: rora
+version: !ruby/object:Gem::Version
+  version: 0.0.5
+  prerelease: 
+platform: ruby
+authors:
+- Brandon John Grenier
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2012-04-29 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: rake
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: 0.9.0
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: 0.9.0
+- !ruby/object:Gem::Dependency
+  name: active_support
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: 3.0.0
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: 3.0.0
+description: A Ruby library for conducting poker experiments and simulations
+email: brandon@moralesce.com
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- lib/rora/hands.csv
+- lib/rora/model/board.rb
+- lib/rora/model/card.rb
+- lib/rora/model/deck.rb
+- lib/rora/model/game.rb
+- lib/rora/model/hand.rb
+- lib/rora/model/hand_type.rb
+- lib/rora/model/player.rb
+- lib/rora/model/pot.rb
+- lib/rora/model/rank.rb
+- lib/rora/model/starting_hand.rb
+- lib/rora/model/suit.rb
+- lib/rora/model/table.rb
+- lib/rora/repository/hand_repository.rb
+- lib/rora/repository/starting_hand_repository.rb
+- lib/rora.rb
+- LICENSE
+- README.md
+- Rakefile
+- test/rora/model/board_test.rb
+- test/rora/model/card_test.rb
+- test/rora/model/deck_test.rb
+- test/rora/model/hand_test.rb
+- test/rora/model/hand_type_test.rb
+- test/rora/model/pot_test.rb
+- test/rora/model/rank_test.rb
+- test/rora/model/starting_hand_test.rb
+- test/rora/model/suit_test.rb
+- test/rora/repository/hand_repository_test.rb
+- test/rora/repository/starting_hand_repository_test.rb
+- test/rora_test.rb
+homepage: http://www.moralesce.com
+licenses: []
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 1.8.21
+signing_key: 
+specification_version: 3
+summary: A Ruby poker library
+test_files:
+- test/rora/model/board_test.rb
+- test/rora/model/card_test.rb
+- test/rora/model/deck_test.rb
+- test/rora/model/hand_test.rb
+- test/rora/model/hand_type_test.rb
+- test/rora/model/pot_test.rb
+- test/rora/model/rank_test.rb
+- test/rora/model/starting_hand_test.rb
+- test/rora/model/suit_test.rb
+- test/rora/repository/hand_repository_test.rb
+- test/rora/repository/starting_hand_repository_test.rb
+- test/rora_test.rb