gobstones 0.0.1.1

data/spec/lang/expressions/arithmetic_expressions_spec.rb

@@ -0,0 +1,108 @@
+describe "arithmetic expressions" do
+
+  describe Add do
+
+    it "should evaluate with two numbers" do
+      add = Add.new(42.to_gbs_num, 23.to_gbs_num)
+      expect(add.evaluate).to eq(65.to_gbs_num)
+    end
+
+    it "should evaluate nested add expressions" do
+      add_4_8 = Add.new 4.to_gbs_num, 8.to_gbs_num
+      add_12_15 = Add.new add_4_8, 15.to_gbs_num
+      add_27_16 = Add.new add_12_15, 16.to_gbs_num
+      add_43_23 = Add.new add_27_16, 23.to_gbs_num
+      add_66_42 = Add.new add_43_23, 42.to_gbs_num
+
+      expect(add_66_42.evaluate).to eq(108.to_gbs_num)
+    end
+
+  end
+
+  describe Sub do
+
+    it "should evaluate with two numbers" do
+      sub = Sub.new(42.to_gbs_num, 15.to_gbs_num)
+      expect(sub.evaluate).to eq(27.to_gbs_num)
+    end
+
+    it "should evaluate and return a negative result" do
+      sub = Sub.new(15.to_gbs_num, 42.to_gbs_num)
+      expect(sub.evaluate).to eq(-27.to_gbs_num)
+    end
+
+    it "should evaluate nested sub expressions" do
+      sub_n1_n2 = Sub.new 42.to_gbs_num, 15.to_gbs_num
+      sub = Sub.new sub_n1_n2, 8.to_gbs_num
+
+      expect(sub.evaluate).to eq(19.to_gbs_num)
+    end
+
+  end
+
+  describe Mul do
+
+    it "should evaluate a simple mul" do
+      mul = Mul.new(4.to_gbs_num, 8.to_gbs_num)
+      expect(mul.evaluate).to eq(32.to_gbs_num)
+    end
+
+    it "should evaluate a nested mul expression" do
+      mul = Mul.new(-2.to_gbs_num, 4.to_gbs_num)
+      expect(Mul.new(mul, 5.to_gbs_num).evaluate).to eq(-40.to_gbs_num)
+    end
+
+  end
+
+  describe Div do
+
+    it "should evaluate a simple div" do
+      div = Div.new(12.to_gbs_num, 3.to_gbs_num)
+      expect(div.evaluate).to eq(4.to_gbs_num)
+    end
+
+    it "should evaluate to an integer division" do
+      div = Div.new(10.to_gbs_num, 3.to_gbs_num)
+      expect(div.evaluate).to eq(3.to_gbs_num)
+    end
+
+    it "should raise an error when dividing by zero" do
+      expect {
+        Div.new(42.to_gbs_num, 0.to_gbs_num).evaluate
+      }.to raise_error(GobstonesRuntimeError, 'zero division')
+    end
+
+  end
+
+  describe Mod do
+
+    it "should evaluate a mod with result 0" do
+      mod = Mod.new(4.to_gbs_num, 4.to_gbs_num)
+      expect(mod.evaluate).to eq(0.to_gbs_num)
+    end
+
+    it "should evaluate a mod with result > 0" do
+      mod = Mod.new(10.to_gbs_num, 3.to_gbs_num)
+      expect(mod.evaluate).to eq(1.to_gbs_num)
+    end
+
+  end
+
+  describe Pow do
+
+    it "should give 1 as a result if the power is 0" do
+      pow_1 = Pow.new(1.to_gbs_num, 0.to_gbs_num)
+      pow_42 = Pow.new(42.to_gbs_num, 0.to_gbs_num)
+
+      expect(pow_1.evaluate).to eq(1.to_gbs_num)
+      expect(pow_42.evaluate).to eq(1.to_gbs_num)
+    end
+
+    it "should calculate 2 raised to 4" do
+      pow = Pow.new(2.to_gbs_num, 4.to_gbs_num)
+      expect(pow.evaluate).to eq(16.to_gbs_num)
+    end
+
+  end
+
+end

data/spec/lang/expressions/boolean_expressions_spec.rb

@@ -0,0 +1,56 @@
+describe "boolean expressions" do
+
+  let(:false_value) { False.new }
+  let(:true_value) { True.new }
+
+  # TODO test/implement short-circuit?
+
+  describe And do
+
+    it "should evaluate a simple and expression" do
+      expect(And.new(false_value, false_value).evaluate).to eq(false_value)
+      expect(And.new(false_value, true_value).evaluate).to eq(false_value)
+      expect(And.new(true_value, false_value).evaluate).to eq(false_value)
+      expect(And.new(true_value, true_value).evaluate).to eq(true_value)
+    end
+
+  end
+
+  describe Or do
+
+    it "should evaluate a simple or expression" do
+      expect(Or.new(false_value, false_value).evaluate).to eq(false_value)
+      expect(Or.new(false_value, true_value).evaluate).to eq(true_value)
+      expect(Or.new(true_value, false_value).evaluate).to eq(true_value)
+      expect(Or.new(true_value, true_value).evaluate).to eq(true_value)
+    end
+
+  end
+
+  describe Not do
+
+    it "should evaluate a simple not expression" do
+      expect(Not.new(false_value).evaluate).to eq(true_value)
+      expect(Not.new(true_value).evaluate).to eq(false_value)
+    end
+
+    it "should evaluate a not not expression" do
+      expect(Not.new(Not.new(false_value)).evaluate).to eq(false_value)
+      expect(Not.new(Not.new(true_value)).evaluate).to eq(true_value)
+    end
+
+  end
+
+  describe "nested" do
+
+    it "should evaluate and's and or's" do
+      expect(And.new(Or.new(false_value, true_value), true_value).evaluate).to eq(true_value)
+    end
+
+    it "should evaluate and's, or's, and not's" do
+      expect(Not.new(Or.new(false_value, And.new(true_value, true_value))).evaluate).to eq(false_value)
+    end
+
+  end
+
+end

data/spec/lang/expressions/comparison_expressions_spec.rb

@@ -0,0 +1,285 @@
+describe "comparison expressions" do
+
+  let(:false_value) { False.new }
+  let(:true_value) { True.new }
+
+  describe Equal do
+
+    it "should evaluate same booleans as equal" do
+      expect(Equal.new(false_value, false_value).evaluate).to eq(true_value)
+      expect(Equal.new(true_value, true_value).evaluate).to eq(true_value)
+      expect(Equal.new(false_value, true_value).evaluate).to eq(false_value)
+      expect(Equal.new(true_value, false_value).evaluate).to eq(false_value)
+    end
+
+    it "should evaluate same colors as equal" do
+      color_classes = [Azul, Negro, Rojo, Verde]
+      color_classes.each do |color_class|
+        expect(Equal.new(color_class.new, color_class.new).
+          evaluate).to eq(true_value)
+        (color_classes - [color_class]).each do |different_color_class|
+          expect(Equal.new(color_class.new, different_color_class.new).
+            evaluate).to eq(false_value)
+        end
+      end
+    end
+
+    it "should evaluate same directions as equal" do
+      dir_classes = [Norte, Sur, Este, Oeste]
+      dir_classes.each do |dir_class|
+        expect(Equal.new(dir_class.new, dir_class.new).
+          evaluate).to eq(true_value)
+        (dir_classes - [dir_class]).each do |different_dir_class|
+          expect(Equal.new(dir_class.new, different_dir_class.new).
+            evaluate).to eq(false_value)
+        end
+      end
+    end
+
+    it "should evaluate same numbers as equal" do
+      expect(Equal.new(42.to_gbs_num, 42.to_gbs_num).evaluate).to eq(true_value)
+      expect(Equal.new(42.to_gbs_num, 15.to_gbs_num).evaluate).to eq(false_value)
+    end
+
+  end
+
+  describe NotEqual do
+
+    it "should evaluate booleans as not equal" do
+      expect(NotEqual.new(false_value, false_value).evaluate).to eq(false_value)
+      expect(NotEqual.new(true_value, true_value).evaluate).to eq(false_value)
+      expect(NotEqual.new(false_value, true_value).evaluate).to eq(true_value)
+      expect(NotEqual.new(true_value, false_value).evaluate).to eq(true_value)
+    end
+
+    it "should evaluate same colors as equal" do
+      color_classes = [Azul, Negro, Rojo, Verde]
+      color_classes.each do |color_class|
+        expect(NotEqual.new(color_class.new, color_class.new).
+          evaluate).to eq(false_value)
+        (color_classes - [color_class]).each do |different_color_class|
+          expect(NotEqual.new(color_class.new, different_color_class.new).
+            evaluate).to eq(true_value)
+        end
+      end
+    end
+
+    it "should evaluate same directions as equal" do
+      dir_classes = [Norte, Sur, Este, Oeste]
+      dir_classes.each do |dir_class|
+        expect(NotEqual.new(dir_class.new, dir_class.new).
+          evaluate).to eq(false_value)
+        (dir_classes - [dir_class]).each do |different_dir_class|
+          expect(NotEqual.new(dir_class.new, different_dir_class.new).
+            evaluate).to eq(true_value)
+        end
+      end
+    end
+
+    it "should evaluate same numbers as equal" do
+      expect(NotEqual.new(42.to_gbs_num, 42.to_gbs_num).evaluate).to eq(false_value)
+      expect(NotEqual.new(42.to_gbs_num, 15.to_gbs_num).evaluate).to eq(true_value)
+    end
+
+  end
+
+  describe LessThan do
+
+    it "should evaluate for booleans" do
+      expect(LessThan.new(false_value, false_value).evaluate).to eq(false_value)
+      expect(LessThan.new(false_value, true_value).evaluate).to eq(true_value)
+      expect(LessThan.new(true_value, false_value).evaluate).to eq(false_value)
+      expect(LessThan.new(true_value, true_value).evaluate).to eq(false_value)
+    end
+
+    it "should evaluate for numbers" do
+      expect(LessThan.new(15.to_gbs_num, 42.to_gbs_num).evaluate).to eq(true_value)
+      expect(LessThan.new(42.to_gbs_num, 15.to_gbs_num).evaluate).to eq(false_value)
+      expect(LessThan.new(42.to_gbs_num, 42.to_gbs_num).evaluate).to eq(false_value)
+    end
+
+    it "should evaluate for colors" do
+      color_classes = Color.order
+      color_classes.each_with_index do |color_class, index|
+        # should not be less than itself
+        expect(LessThan.new(color_class.new, color_class.new).
+          evaluate).to eq(false_value)
+        color_classes.take(index).each do |previous_color_class|
+          # should not be less than any previous value
+          expect(LessThan.new(color_class.new, previous_color_class.new).
+            evaluate).to eq(false_value)
+        end
+        color_classes.drop(index+1).each do |next_color_class|
+          # should be less than any next value
+          expect(LessThan.new(color_class.new, next_color_class.new).
+            evaluate).to eq(true_value)
+        end
+      end
+    end
+
+    it "should evaluate for directions" do
+      dir_classes = Direction.order
+      dir_classes.each_with_index do |dir_class, index|
+        expect(LessThan.new(dir_class.new, dir_class.new).
+          evaluate).to eq(false_value)
+        dir_classes.take(index).each do |previous_dir_class|
+          expect(LessThan.new(dir_class.new, previous_dir_class.new).
+            evaluate).to eq(false_value)
+        end
+        dir_classes.drop(index+1).each do |next_dir_class|
+          expect(LessThan.new(dir_class.new, next_dir_class.new).
+            evaluate).to eq(true_value)
+        end
+      end
+    end
+
+  end
+
+  describe LessEqual do
+
+    it "should evaluate for booleans" do
+      expect(LessEqual.new(false_value, false_value).evaluate).to eq(true_value)
+      expect(LessEqual.new(false_value, true_value).evaluate).to eq(true_value)
+      expect(LessEqual.new(true_value, false_value).evaluate).to eq(false_value)
+      expect(LessEqual.new(true_value, true_value).evaluate).to eq(true_value)
+    end
+
+    it "should evaluate for numbers" do
+      expect(LessEqual.new(15.to_gbs_num, 42.to_gbs_num).evaluate).to eq(true_value)
+      expect(LessEqual.new(42.to_gbs_num, 15.to_gbs_num).evaluate).to eq(false_value)
+      expect(LessEqual.new(42.to_gbs_num, 42.to_gbs_num).evaluate).to eq(true_value)
+    end
+
+    it "should evaluate for colors" do
+      color_classes = Color.order
+      color_classes.each_with_index do |color_class, index|
+        expect(LessEqual.new(color_class.new, color_class.new).
+          evaluate).to eq(true_value)
+        color_classes.take(index).each do |previous_color_class|
+          expect(LessEqual.new(color_class.new, previous_color_class.new).
+            evaluate).to eq(false_value)
+        end
+        color_classes.drop(index+1).each do |next_color_class|
+          expect(LessEqual.new(color_class.new, next_color_class.new).
+            evaluate).to eq(true_value)
+        end
+      end
+    end
+
+    it "should evaluate for directions" do
+      dir_classes = Direction.order
+      dir_classes.each_with_index do |dir_class, index|
+        expect(LessEqual.new(dir_class.new, dir_class.new).
+          evaluate).to eq(true_value)
+        dir_classes.take(index).each do |previous_dir_class|
+          expect(LessEqual.new(dir_class.new, previous_dir_class.new).
+            evaluate).to eq(false_value)
+        end
+        dir_classes.drop(index+1).each do |next_dir_class|
+          expect(LessEqual.new(dir_class.new, next_dir_class.new).
+            evaluate).to eq(true_value)
+        end
+      end
+    end
+
+  end
+
+  describe GreaterThan do
+
+    it "should evaluate for booleans" do
+      expect(GreaterThan.new(false_value, false_value).evaluate).to eq(false_value)
+      expect(GreaterThan.new(false_value, true_value).evaluate).to eq(false_value)
+      expect(GreaterThan.new(true_value, false_value).evaluate).to eq(true_value)
+      expect(GreaterThan.new(true_value, true_value).evaluate).to eq(false_value)
+    end
+
+    it "should evaluate for numbers" do
+      expect(GreaterThan.new(15.to_gbs_num, 42.to_gbs_num).evaluate).to eq(false_value)
+      expect(GreaterThan.new(42.to_gbs_num, 15.to_gbs_num).evaluate).to eq(true_value)
+      expect(GreaterThan.new(42.to_gbs_num, 42.to_gbs_num).evaluate).to eq(false_value)
+    end
+
+    it "should evaluate for colors" do
+      color_classes = Color.order
+      color_classes.each_with_index do |color_class, index|
+        expect(GreaterThan.new(color_class.new, color_class.new).
+          evaluate).to eq(false_value)
+        color_classes.take(index).each do |previous_color_class|
+          expect(GreaterThan.new(color_class.new, previous_color_class.new).
+            evaluate).to eq(true_value)
+        end
+        color_classes.drop(index+1).each do |next_color_class|
+          expect(GreaterThan.new(color_class.new, next_color_class.new).
+            evaluate).to eq(false_value)
+        end
+      end
+    end
+
+    it "should evaluate for directions" do
+      dir_classes = Direction.order
+      dir_classes.each_with_index do |dir_class, index|
+        expect(GreaterThan.new(dir_class.new, dir_class.new).
+          evaluate).to eq(false_value)
+        dir_classes.take(index).each do |previous_dir_class|
+          expect(GreaterThan.new(dir_class.new, previous_dir_class.new).
+            evaluate).to eq(true_value)
+        end
+        dir_classes.drop(index+1).each do |next_dir_class|
+          expect(GreaterThan.new(dir_class.new, next_dir_class.new).
+            evaluate).to eq(false_value)
+        end
+      end
+    end
+
+  end
+
+  describe GreaterEqual do
+
+    it "should evaluate for booleans" do
+      expect(GreaterEqual.new(false_value, false_value).evaluate).to eq(true_value)
+      expect(GreaterEqual.new(false_value, true_value).evaluate).to eq(false_value)
+      expect(GreaterEqual.new(true_value, false_value).evaluate).to eq(true_value)
+      expect(GreaterEqual.new(true_value, true_value).evaluate).to eq(true_value)
+    end
+
+    it "should evaluate for numbers" do
+      expect(GreaterEqual.new(15.to_gbs_num, 42.to_gbs_num).evaluate).to eq(false_value)
+      expect(GreaterEqual.new(42.to_gbs_num, 15.to_gbs_num).evaluate).to eq(true_value)
+      expect(GreaterEqual.new(42.to_gbs_num, 42.to_gbs_num).evaluate).to eq(true_value)
+    end
+
+    it "should evaluate for colors" do
+      color_classes = Color.order
+      color_classes.each_with_index do |color_class, index|
+        expect(GreaterEqual.new(color_class.new, color_class.new).
+          evaluate).to eq(true_value)
+        color_classes.take(index).each do |previous_color_class|
+          expect(GreaterEqual.new(color_class.new, previous_color_class.new).
+            evaluate).to eq(true_value)
+        end
+        color_classes.drop(index+1).each do |next_color_class|
+          expect(GreaterEqual.new(color_class.new, next_color_class.new).
+            evaluate).to eq(false_value)
+        end
+      end
+    end
+
+    it "should evaluate for directions" do
+      dir_classes = Direction.order
+      dir_classes.each_with_index do |dir_class, index|
+        expect(GreaterEqual.new(dir_class.new, dir_class.new).
+          evaluate).to eq(true_value)
+        dir_classes.take(index).each do |previous_dir_class|
+          expect(GreaterEqual.new(dir_class.new, previous_dir_class.new).
+            evaluate).to eq(true_value)
+        end
+        dir_classes.drop(index+1).each do |next_dir_class|
+          expect(GreaterEqual.new(dir_class.new, next_dir_class.new).
+            evaluate).to eq(false_value)
+        end
+      end
+    end
+
+  end
+
+end