gobstones 0.0.2 → 0.0.3

data/lib/gobstones/lang/commands/sacar_cmd.rb

@@ -1,33 +0,0 @@
-require 'gobstones/lang/expressions/one_arg_expression'
-require 'gobstones/lang/commands/poner_cmd'
-require 'gobstones/runner/errors/gobstones_type_error'
-
-module Gobstones
-
-  module Lang
-
-    class Sacar < OneArgExpression
-
-      def evaluate(context)
-        with_evaluated_argument_in(context) do |result|
-          context.head.take_out result
-        end
-      rescue RuntimeError => e
-        raise Gobstones::Runner::GobstonesTypeError, e.message
-      end
-
-      def undo(context)
-        with_evaluated_argument_in(context) do |result|
-          context.head.put result
-        end
-      end
-
-      def opposite
-        Poner.new argument
-      end
-
-    end
-
-  end
-
-end

data/lib/gobstones/lang/commands/skip_cmd.rb

@@ -1,19 +0,0 @@
-require 'gobstones/modules/equal_by_class'
-
-module Gobstones
-
-  module Lang
-
-    class Skip
-
-      include Gobstones::EqualByClass
-
-      def evaluate(context)
-        # do nothing, that's my job :-)
-      end
-
-    end
-
-  end
-
-end

data/lib/gobstones/lang/commands/vaciar_tablero_cmd.rb

@@ -1,19 +0,0 @@
-require 'gobstones/modules/equal_by_class'
-
-module Gobstones
-
-  module Lang
-
-    class VaciarTablero
-
-      include Gobstones::EqualByClass
-
-      def evaluate(context)
-        context.board.empty!
-      end
-
-    end
-
-  end
-
-end

data/lib/gobstones/lang/commands/while_cmd.rb

@@ -1,25 +0,0 @@
-require 'gobstones/lang/commands/conditional_cmd'
-require 'gobstones/runner/errors/gobstones_runtime_error'
-
-module Gobstones
-
-  module Lang
-
-    class WhileCmd < ConditionalCmd
-
-      STACK_LIMIT = 10000
-
-      def evaluate(context)
-        stack_acc = 0
-        while evaluate_condition(context).is_true?
-          raise Gobstones::Runner::GobstonesRuntimeError, 'stack overflow' if stack_acc == STACK_LIMIT
-          then_block.evaluate context
-          stack_acc += 1
-        end
-      end
-
-    end
-
-  end
-
-end

data/lib/gobstones/modules/equal_by_class.rb

@@ -1,13 +0,0 @@
-module Gobstones
-
-  module EqualByClass
-
-    def ==(other)
-      self.class == other.class
-    end
-
-    alias_method :eql?, :==
-
-  end
-
-end

data/spec/lang/commands/boom_cmd_spec.rb

@@ -1,8 +0,0 @@
-describe Boom do
-
-  it "raises an error when evaluating, with the message specified" do
-    msg = 'This is a program error'
-    expect { Boom.new(msg).evaluate(clean_context) }.to raise_error(BoomError, msg)
-  end
-
-end

data/spec/lang/commands/cmd_block_spec.rb

@@ -1,21 +0,0 @@
-describe CommandBlock do
-
-  let(:context) { clean_context }
-
-  it "evaluates all inner commands" do
-    cmd_block = CommandBlock.new [
-      Poner.new(rojo), Poner.new(verde),
-      Poner.new(negro), Poner.new(azul)]
-    cmd_block.evaluate context
-    expect(context.head.are_there_balls?(azul)).to be true
-    expect(context.head.are_there_balls?(negro)).to be true
-    expect(context.head.are_there_balls?(rojo)).to be true
-    expect(context.head.are_there_balls?(verde)).to be true
-  end
-
-  it "builds an empty command block" do
-    expect(CommandBlock.new []).to be_empty
-    expect(CommandBlock.empty).to be_empty
-  end
-
-end

data/spec/lang/commands/if_cmd_spec.rb

@@ -1,50 +0,0 @@
-describe "if command" do
-
-  let(:context) { clean_context }
-  let(:then_block) { CommandBlock.new [Poner.new(verde)] }
-  let(:else_block) { CommandBlock.new [Poner.new(rojo)] }
-
-  describe "if-then" do
-
-    it "evaluates the 'then' command block if the condition is true" do
-      if_cmd = IfCmd.new true_value, then_block
-      if_cmd.evaluate context
-      expect(context.head.are_there_balls?(verde)).to be true
-    end
-
-    it "does not evaluate the 'then' command block if the condition is false" do
-      if_cmd = IfCmd.new false_value, then_block
-      if_cmd.evaluate context
-      expect(context.head.are_there_balls?(verde)).to be false
-    end
-
-    it "raises a type error if the condition is not boolean" do
-      [42.to_gbs_num, norte, verde].each do |value|
-        if_cmd = IfCmd.new value, then_block
-        expect { if_cmd.evaluate context }
-          .to raise_error(GobstonesTypeError, /is not a boolean/)
-      end
-
-    end
-
-  end
-
-  describe "if-then-else" do
-
-    it "evaluates the 'then' block and it does not evaluate the 'else' block" do
-      if_cmd = IfElseCmd.new true_value, then_block, else_block
-      if_cmd.evaluate context
-      expect(context.head.are_there_balls?(verde)).to be true
-      expect(context.head.are_there_balls?(rojo)).to be false
-    end
-
-    it "does not evaluate the 'then' block and it evaluates the 'else' block" do
-      if_cmd = IfElseCmd.new false_value, then_block, else_block
-      if_cmd.evaluate context
-      expect(context.head.are_there_balls?(verde)).to be false
-      expect(context.head.are_there_balls?(rojo)).to be true
-    end
-
-  end
-
-end

data/spec/lang/commands/ir_al_origen_cmd_spec.rb

@@ -1,16 +0,0 @@
-describe IrAlOrigen do
-
-  let(:context) { clean_context }
-
-  it "puts the head in 0, 0 when evaluating" do
-    context.head.move_north
-    context.head.move_east
-    ir_al_origen = IrAlOrigen.new
-
-    ir_al_origen.evaluate context
-
-    expect(context.head.x_pos).to eq(0)
-    expect(context.head.y_pos).to eq(0)
-  end
-
-end

data/spec/lang/commands/mover_cmd_spec.rb

@@ -1,36 +0,0 @@
-describe Mover do
-
-  let(:context) { clean_context }
-
-  it "moves the head to the specified direction when evaluating" do
-    Mover.new(norte).evaluate(context)
-
-    expect(context.head.x_pos).to eq(0)
-    expect(context.head.y_pos).to eq(1)
-  end
-
-  it "undoes the given movement" do
-    cmd = Mover.new norte
-
-    cmd.evaluate context
-    cmd.undo context
-
-    expect(context.head.x_pos).to eq(0)
-    expect(context.head.y_pos).to eq(0)
-  end
-
-  it "returns the opposite command" do
-    expect(Mover.new(norte).opposite).to eq(Mover.new(sur))
-  end
-
-  it "fails if the argument is not a direction" do
-    expect { Mover.new(verde).evaluate(context) }.
-      to raise_error(GobstonesTypeError, /is not a direction/)
-  end
-
-  it "fails when the resulting position is out of board" do
-    expect { Mover.new(sur).evaluate(context) }.
-      to raise_error(OutOfBoardError)
-  end
-
-end

data/spec/lang/commands/poner_cmd_spec.rb

@@ -1,28 +0,0 @@
-describe Poner do
-
-  let(:context) { clean_context }
-
-  it "puts a ball of the given color in the current cell when evaluating" do
-    Poner.new(verde).evaluate(context)
-
-    expect(context.head.number_of_balls(verde)).to eq(1)
-  end
-
-  it "undoes the command" do
-    context.head.put verde
-
-    Poner.new(verde).undo context
-
-    expect(context.head.number_of_balls(verde)).to eq(0)
-  end
-
-  it "returns the opposite command" do
-    expect(Poner.new(verde).opposite).to eq(Sacar.new(verde))
-  end
-
-  it "fails if the argument is not a color" do
-    expect { Poner.new(norte).evaluate(context) }.
-      to raise_error(GobstonesTypeError, /is not a color/)
-  end
-
-end

data/spec/lang/commands/repeat_with_cmd_spec.rb

@@ -1,60 +0,0 @@
-describe RepeatWithCmd do
-
-  let(:context) { clean_context }
-  let(:var_name) { 'var'.to_var_name }
-
-  it "iterates over numbers when evaluating" do
-    command_block = CommandBlock.new [Poner.new(rojo)]
-    repeat_with = RepeatWithCmd.new var_name, 1.to_gbs_num, 10.to_gbs_num, command_block
-
-    repeat_with.evaluate context
-
-    expect(context.head.number_of_balls(rojo)).to eq(10)
-  end
-
-  it "raises an error if the range values have not the same type" do
-    repeat_with = RepeatWithCmd.new var_name, 1.to_gbs_num, este, empty_body
-
-    expect { repeat_with.evaluate context }
-      .to raise_error(GobstonesTypeError, /types don't match in range values/)
-  end
-
-  it "raises an error if the index variable is previously defined" do
-    repeat_with = RepeatWithCmd.new var_name, 1.to_gbs_num, 5.to_gbs_num, empty_body
-
-    context.set var_name, 42.to_gbs_num
-
-    expect { repeat_with.evaluate context }
-      .to raise_error(GobstonesRuntimeError, /index variable can't be used because it's already defined/)
-  end
-
-  it "removes the index variable assignment after execution" do
-    repeat_with = RepeatWithCmd.new var_name, azul, verde, empty_body
-
-    repeat_with.evaluate context
-
-    expect(context.has_variable_named?('var')).to be false
-  end
-
-  it "allows to use the index variable inside the command block" do
-    cmd_block = CommandBlock.new [Poner.new(var_name)]
-    repeat_with = RepeatWithCmd.new var_name, azul, verde, cmd_block
-
-    repeat_with.evaluate context
-
-    expect(context.head.are_there_balls?(azul)).to be true
-    expect(context.head.are_there_balls?(negro)).to be true
-    expect(context.head.are_there_balls?(rojo)).to be true
-    expect(context.head.are_there_balls?(verde)).to be true
-  end
-
-  it "does no iterations if the from is higher than the to" do
-    cmd_block = CommandBlock.new [Poner.new(verde)]
-    repeat_with = RepeatWithCmd.new var_name, 8.to_gbs_num, 4.to_gbs_num, cmd_block
-
-    repeat_with.evaluate context
-
-    expect(context.head.are_there_balls?(verde)).to be false
-  end
-
-end

data/spec/lang/commands/sacar_cmd_spec.rb

@@ -1,35 +0,0 @@
-describe Sacar do
-
-  let(:context) { clean_context }
-
-  it "take off balls from the board when evaluating" do
-    3.times { context.head.put rojo }
-
-    Sacar.new(rojo).evaluate context
-
-    expect(context.head.number_of_balls(rojo)).to eq(2)
-  end
-
-  it "undoes a command" do
-    Sacar.new(rojo).undo context
-
-    expect(context.head.number_of_balls(rojo)).to eq(1)
-  end
-
-  it "returns the opposite command" do
-    opposite_command = Sacar.new(rojo).opposite
-
-    expect(opposite_command).to eq(Poner.new(rojo))
-  end
-
-  it "fails if there are no balls in the board" do
-    expect { Sacar.new(rojo).evaluate(context) }.
-      to raise_error(EmptyCellError)
-  end
-
-  it "fails if the argument is not a color" do
-    expect { Sacar.new(true_value).evaluate(context) }.
-      to raise_error(GobstonesTypeError, /is not a color/)
-  end
-
-end

data/spec/lang/commands/skip_cmd_spec.rb

@@ -1,12 +0,0 @@
-describe Skip do
-
-  let(:context) { clean_context }
-
-  it "evaluates and does nothing" do
-    Skip.new.evaluate context
-    expect(context.head.x_pos).to eq(0)
-    expect(context.head.y_pos).to eq(0)
-    expect(context.head.board).to be_empty
-  end
-
-end

data/spec/lang/commands/vaciar_tablero_cmd_spec.rb

@@ -1,14 +0,0 @@
-describe VaciarTablero do
-
-  let(:context) { clean_context }
-
-  it "empties the board in the context" do
-    context.head.put rojo
-    vaciar_tablero = VaciarTablero.new
-
-    vaciar_tablero.evaluate context
-
-    expect(context.board.empty?).to be true
-  end
-
-end

data/spec/lang/commands/while_cmd_spec.rb

@@ -1,43 +0,0 @@
-describe WhileCmd do
-
-  let(:context) { clean_context }
-  let(:while_block) { CommandBlock.new [Poner.new(verde)] }
-
-  def condition(times)
-    double('while condition').tap do |condition|
-      expected_values = [true_value] * times + [false_value]
-      allow(condition).to receive(:evaluate).and_return(*expected_values)
-    end
-  end
-
-  it "evaluates the command block until the condition is not satisfied" do
-    while_cmd = WhileCmd.new condition(3), while_block
-
-    while_cmd.evaluate context
-
-    expect(context.head.number_of_balls(verde)).to eq(3)
-  end
-
-  it "does not evaluate the command block if the condition is false" do
-    while_cmd = WhileCmd.new condition(0), while_block
-
-    while_cmd.evaluate context
-
-    expect(context.head.are_there_balls?(verde)).to be false
-  end
-
-  it "fails by type error if the condition is not boolean" do
-    while_cmd = WhileCmd.new sur, while_block
-
-    expect { while_cmd.evaluate context }
-      .to raise_error(GobstonesTypeError, /is not a boolean/)
-  end
-
-  it "fails by stack overflow if the condition is always true" do
-    while_cmd = WhileCmd.new true_value, while_block
-
-    expect { while_cmd.evaluate context }
-      .to raise_error(GobstonesRuntimeError, /stack overflow/)
-  end
-
-end