tundengine 0.0.1

data/lib/tundengine/strategies/automatic.rb

@@ -0,0 +1,27 @@
+module Tundengine
+  module Strategies
+    class Automatic < Base
+
+      def play!(player_in_turn, card)
+        selected_card = card.self_or_yield do
+          play(player_in_turn)
+        end
+
+        player_in_turn.after_playing!(selected_card)
+      end
+
+      def declare!(player_in_round, declaration)
+        selected_declaration = declaration.self_or_yield do
+          declare(player_in_round)
+        end
+
+        player_in_round.after_declaring!(selected_declaration)
+      end
+
+      def on_winning_trick!(player_in_round)
+        player_in_round.declare!
+      end
+
+    end
+  end
+end

data/lib/tundengine/strategies/base.rb

@@ -0,0 +1,8 @@
+module Tundengine
+  module Strategies
+    class Base
+
+
+    end
+  end
+end

data/lib/tundengine/strategies/manual.rb

@@ -0,0 +1,33 @@
+module Tundengine
+  module Strategies
+    class Manual < Base
+
+      def play!(player_in_turn, card)
+        card.yield_self_or_lock!(player_in_turn.turn) do |c|
+          do_play!(player_in_turn, c)
+        end
+      end
+
+      def declare!(player_in_round, declaration)
+        declaration.yield_self_or_lock!(player_in_round.round) do |d|
+          do_declare!(player_in_round, d)
+        end
+      end
+
+      def on_winning_trick!(player_in_round)
+        # do nothing
+      end
+
+      protected
+
+      def do_play!(player_in_turn, card)
+        player_in_turn.after_playing!(card)
+      end
+
+      def do_declare!(player_in_round, declaration)
+        player_in_round.after_declaring!(declaration)
+      end
+
+    end
+  end
+end

data/lib/tundengine/strategies/random.rb

@@ -0,0 +1,15 @@
+module Tundengine
+  module Strategies
+    class Random < Automatic
+
+      def play(player_in_turn)
+        player_in_turn.hand.playable_cards(player_in_turn.turn.trick).first.first
+      end
+
+      def declare(player_in_round)
+        Declarations::Void.instance
+      end
+
+    end
+  end
+end

data/lib/tundengine/stringifiable_by_class.rb

@@ -0,0 +1,9 @@
+module Tundengine
+  module StringifiableByClass
+
+    def to_s
+      self.class.name.split('::').last
+    end
+
+  end
+end

data/lib/tundengine/suits/base.rb

@@ -0,0 +1,19 @@
+module Tundengine
+  module Suits
+    class Base
+
+      include Singleton
+      include StringifiableByClass
+      include CardPercolator
+
+      protected
+
+      def is_of_this_suit?(card)
+        card.suit == self
+      end
+      alias_method :passes_card_percolator?, :is_of_this_suit?
+
+    end
+  end
+
+end

data/lib/tundengine/suits/basto.rb

@@ -0,0 +1,7 @@
+module Tundengine
+  module Suits
+    class Basto < Base
+
+    end
+  end
+end

data/lib/tundengine/suits/copa.rb

@@ -0,0 +1,7 @@
+module Tundengine
+  module Suits
+    class Copa < Base
+
+    end
+  end
+end

data/lib/tundengine/suits/espada.rb

@@ -0,0 +1,7 @@
+module Tundengine
+  module Suits
+    class Espada < Base
+
+    end
+  end
+end

data/lib/tundengine/suits/null.rb

@@ -0,0 +1,14 @@
+module Tundengine
+  module Suits
+    class Null < Base
+
+      protected
+
+      def is_of_this_suit?(card)
+        true
+      end
+      alias_method :passes_card_percolator?, :is_of_this_suit?
+
+    end
+  end
+end

data/lib/tundengine/suits/oro.rb

@@ -0,0 +1,7 @@
+module Tundengine
+  module Suits
+    class Oro < Base
+
+    end
+  end
+end

data/lib/tundengine/tute_values/base.rb

@@ -0,0 +1,17 @@
+module Tundengine
+  module TuteValues
+    class Base
+
+      include StringifiableByClass
+
+      def has_effect?
+        true
+      end
+
+      def finishes_round?
+        false
+      end
+
+    end
+  end
+end

data/lib/tundengine/tute_values/capotes.rb

@@ -0,0 +1,22 @@
+module Tundengine
+  module TuteValues
+    class Capotes < Base
+
+      include AlgebraicDataType
+
+      def initialize(points)
+        @points = points
+        super()
+      end
+
+      def points_for_loser(loser, max_points)
+        [@points, max_points].min
+      end
+
+      def identifier
+        [@points]
+      end
+
+    end
+  end
+end

data/lib/tundengine/tute_values/nothing.rb

@@ -0,0 +1,13 @@
+module Tundengine
+  module TuteValues
+    class Nothing < Base
+
+      include Singleton
+
+      def has_effect?
+        false
+      end
+
+    end
+  end
+end

data/lib/tundengine/tute_values/victory.rb

@@ -0,0 +1,17 @@
+module Tundengine
+  module TuteValues
+    class Victory < Base
+
+      include Singleton
+
+      def finishes_round?
+        true
+      end
+
+      def points_for_loser(loser, max_points)
+        max_points - loser.match_points
+      end
+
+    end
+  end
+end

data/lib/tundengine/version.rb

@@ -0,0 +1,17 @@
+module Tundengine
+  class Version
+    MAJOR = 0
+    MINOR = 0
+    PATCH = 1
+    PRE = nil
+
+    class << self
+
+      def to_s
+        [MAJOR, MINOR, PATCH, PRE].compact.join('.')
+      end
+
+    end
+
+  end
+end

data/test/test_card_strength.rb

@@ -0,0 +1,58 @@
+require 'minitest/autorun'
+require 'tundengine'
+
+class TestCardStrength < Minitest::Test
+
+  def setup
+    @all_suits = Tundengine::Deck::SUITS
+    @all_cards = Tundengine::Deck::CARDS
+  end
+
+  def test_that_null_always_loses
+
+    null_card = Tundengine::Cards::Null.instance
+
+    @all_suits.each do |trump_suit|
+      @all_cards.each do |card|
+        assert_equal(true,  card.beats?(null_card, trump_suit))
+        assert_equal(false, null_card.beats?(card, trump_suit))
+      end
+    end
+
+  end
+
+  def test_that_trump_always_wins_against_no_trump
+
+    @all_suits.each do |trump_suit|
+      trump_cards, no_trump_cards = trump_suit.percolate(@all_cards, :partition)
+      pairs = trump_cards.product(no_trump_cards)
+
+      pairs.each do |trump_card, no_trump_card|
+        assert_equal(true,  trump_card.beats?(no_trump_card, trump_suit))
+        assert_equal(false, no_trump_card.beats?(trump_card, trump_suit))
+      end
+    end
+
+  end
+
+  def test_strength_with_no_trumps
+
+    @all_suits.each do |trump_suit|
+      _, no_trump_cards = trump_suit.percolate(@all_cards, :partition)
+      pairs = no_trump_cards.product(no_trump_cards)
+      same_suit, different_suits = pairs.partition { |c1, c2| c1.suit == c2.suit }
+
+      same_suit.each do |c1, c2|
+        assert_equal(c1.rank > c2.rank, c1.beats?(c2, trump_suit))
+        assert_equal(c1.rank < c2.rank, c2.beats?(c1, trump_suit))
+      end
+
+      different_suits.each do |c1, c2|
+        assert_equal(false, c1.beats?(c2, trump_suit))
+        assert_equal(false, c2.beats?(c1, trump_suit))
+      end
+    end
+
+  end
+
+end

data/test/test_helper.rb

@@ -0,0 +1,35 @@
+require 'tundengine'
+
+module TestHelper
+
+  def setup!(strategies = :all_automatic)
+    strategy = Tundengine::Strategies::Random.new if strategies == :all_automatic
+    strategy = Tundengine::Strategies::Manual.new if strategies == :all_manual
+
+    @@all_ranks = Tundengine::Deck::RANKS
+    @@all_suits = Tundengine::Deck::SUITS
+    @@all_cards = Tundengine::Deck::CARDS
+
+    @@players = %w(Mati Mar Pablito Mary Euge).map do |name|
+      Tundengine::Player::InMatch.new(name, strategy)
+    end
+
+    @@tournament_options = {
+      max_matches: 1,
+      match_settings: {
+        max_points: 4,
+        tute_value: Tundengine::TuteValues::Nothing.instance,
+        losing_position: :second # the alternative is :not_first_or_last
+      }
+    }
+
+    @@new_tournament = Tundengine::Stages::Tournament.new(@@players, @@tournament_options)
+    @@new_match      = @@new_tournament.current_match
+    @@new_round      = @@new_match.current_round
+    @@new_trick      = @@new_round.current_trick
+    @@new_turn       = @@new_trick.current_turn
+    @@new_player     = @@new_turn.player
+    @@new_hand       = @@new_player.hand
+  end
+
+end

data/test/test_playable_cards.rb

@@ -0,0 +1,66 @@
+require 'minitest/autorun'
+require 'tundengine'
+require_relative './test_helper'
+
+class TestPlayableCards < Minitest::Test
+
+  include TestHelper
+
+  def test_starting_first_trick
+
+    setup!
+
+    expected = [@@new_hand, true]
+    actual   = @@new_hand.playable_cards(@@new_trick)
+
+    assert_equal expected, actual
+  end
+
+  def test_starting_last_trick
+
+    setup!
+
+    @@all_cards.each do |card|
+      hand = Tundengine::Hand.new([card])
+
+      expected = [hand, true]
+      actual   = hand.playable_cards(@@new_trick)
+
+      assert_equal expected, actual
+    end
+
+  end
+
+  def test_in_trick_with_one_card
+
+    setup!(:all_manual)
+
+    trick = @@new_trick
+
+    hand = Tundengine::Hand.new([
+      Tundengine::Ranks::Cinco.de(Tundengine::Suits::Oro),
+      Tundengine::Ranks::Diez .de(Tundengine::Suits::Oro),
+      Tundengine::Ranks::Cinco.de(Tundengine::Suits::Copa),
+      Tundengine::Ranks::Diez .de(Tundengine::Suits::Copa),
+      Tundengine::Ranks::Cinco.de(Tundengine::Suits::Espada),
+      Tundengine::Ranks::Diez .de(Tundengine::Suits::Espada),
+      Tundengine::Ranks::Cinco.de(Tundengine::Suits::Basto),
+      Tundengine::Ranks::Diez. de(Tundengine::Suits::Basto)
+    ])
+
+    @@new_hand << Tundengine::Ranks::Dos.de(Tundengine::Suits::Copa)
+    trick.play!(  Tundengine::Ranks::Dos.de(Tundengine::Suits::Copa))
+
+    expected = [Tundengine::Hand.new([
+      Tundengine::Ranks::Cinco.de(Tundengine::Suits::Copa),
+      Tundengine::Ranks::Diez .de(Tundengine::Suits::Copa)
+    ]), true]
+
+    actual = hand.playable_cards(trick)
+
+    assert_equal expected, actual
+  end
+
+
+
+end

data/test/test_random_tournaments.rb

@@ -0,0 +1,31 @@
+require 'minitest/autorun'
+require 'tundengine'
+require_relative './test_helper'
+
+class TestRandomTournaments < Minitest::Test
+
+  include TestHelper
+
+  def test_three_players
+    play_with 3
+  end
+
+  def test_four_players
+    play_with 4
+  end
+
+  def test_five_players
+    play_with 5
+  end
+
+  protected
+
+  def play_with(number_of_players)
+    setup!
+
+    players    = @@players.take number_of_players
+    tournament = Tundengine::Stages::Tournament.new(players, @@tournament_options)
+    tournament.play!
+  end
+
+end