point.rb in geometry-4

- old
+ new
@@ -1,103 +1,192 @@
-require_relative '../helper'
-require_relative '../../lib/geometry/point'
+require 'minitest/autorun'
+require 'geometry/point'
 
-Point = Geometry::Point
+describe Geometry::Point do
+    describe "constructor" do
+	it "must return the Point when constructed from a Point" do
+	    original_point = Point[3,4]
+	    point = Geometry::Point[original_point]
+	    point.must_be_same_as original_point
+	    point.size.must_equal 2
+	    point.x.must_equal 3
+	    point.y.must_equal 4
+	end
+    end
 
-class PointTest < Test::Unit::TestCase
-    must "create a Point object using list syntax" do
+    it "create a Point object using list syntax" do
 	point = Geometry::Point[2,1]
 	assert_equal(2, point.size)
 	assert_equal(2, point.x)
 	assert_equal(1, point.y)
     end
-    must "create a Point object from an array" do
+    it "create a Point object from an array" do
 	point = Geometry::Point[[3,4]]
 	assert_equal(2, point.size)
 	assert_equal(3, point.x)
 	assert_equal(4, point.y)
     end
-    must "create a Point object from individual parameters" do
+    it "create a Point object from individual parameters" do
 	point = Geometry::Point[3,4]
 	assert_equal(2, point.size)
 	assert_equal(3, point.x)
 	assert_equal(4, point.y)
     end
-    must "create a Point object from a Vector" do
+    it "create a Point object from a Vector" do
 	point = Geometry::Point[Vector[3,4]]
 	assert_equal(2, point.size)
 	assert_equal(3, point.x)
 	assert_equal(4, point.y)
     end
-    must "create a Point object from a Point" do
-	point = Geometry::Point[Geometry::Point[3,4]]
-	assert_equal(2, point.size)
-	assert_equal(3, point.x)
-	assert_equal(4, point.y)
-    end
-    must "create a Point object from a Vector using list syntax" do
+
+    it "create a Point object from a Vector using list syntax" do
 	point = Geometry::Point[Vector[3,4]]
 	assert_equal(2, point.size)
 	assert_equal(3, point.x)
 	assert_equal(4, point.y)
     end
-    must "create a Point object from a Point using list syntax" do
+    it "create a Point object from a Point using list syntax" do
 	point = Geometry::Point[Geometry::Point[13,14]]
 	assert_equal(2, point.size)
 	assert_equal(13, point.x)
 	assert_equal(14, point.y)
     end
-    must "allow indexed element access" do
+    it "allow indexed element access" do
 	point = Geometry::Point[5,6]
 	assert_equal(2, point.size)
 	assert_equal(5, point[0])
 	assert_equal(6, point[1])
     end
-    must "allow named element access" do
+    it "allow named element access" do
 	point = Geometry::Point[5,6,7]
 	assert_equal(3, point.size)
 	assert_equal(5, point.x)
 	assert_equal(6, point.y)
 	assert_equal(7, point.z)
     end
-    must "compare equal" do
-	point1 = Geometry::Point[1,2]
-	point2 = Geometry::Point[1,2]
-	point3 = Geometry::Point[3,4]
-	assert_equal(point1, point2)
-	assert_not_equal(point2, point3)
-    end
 
-    must "compare equal to an array with equal elements" do
-	point1 = Point[1,2]
-	assert_equal(point1, [1,2])
-    end
-
-    must "not compare equal to an array with unequal elements" do
-	point1 = Point[1,2]
-	assert_not_equal(point1, [3,2])
-    end
-
-    must "implement inspect" do
+    it "implement inspect" do
 	point = Geometry::Point[8,9]
 	assert_equal('Point[8, 9]', point.inspect)
     end
-    must "implement to_s" do
+    it "implement to_s" do
 	point = Geometry::Point[10,11]
 	assert_equal('Point[10, 11]', point.to_s)
     end
-end
 
-class PointArithmeticTest < Test::Unit::TestCase
-    def setup
-	@left = Point[1,2]
-	@right = Point[3,4]
+    it "must support array access" do
+	Point[1,2][0].must_equal 1
+	Point[1,2][1].must_equal 2
+	Point[1,2][2].must_equal nil
     end
 
-    must "return a Point when adding two Points" do
-	assert_kind_of(Point, @left+@right)
+    describe "arithmetic" do
+	let(:left) { Point[1,2] }
+	let(:right) { Point[3,4] }
+
+	it "must have +@" do
+	    (+left).must_equal Point[1,2]
+	    (+left).must_be_instance_of(Point)
+	end
+
+	it "must have unary negation" do
+	    (-left).must_equal Point[-1,-2]
+	    (-left).must_be_instance_of(Point)
+	end
+
+	describe "when adding" do
+	    it "return a Point when adding two Points" do
+		assert_kind_of(Point, left+right)
+	    end
+
+	    it "must return a Point when adding an array to a Point" do
+		(left + [5,6]).must_equal Point[6,8]
+	    end
+
+	    it "must raise TypeError when adding a scalar to a Point of dimension greater than 1" do
+		lambda { left + 1 }.must_raise Geometry::DimensionMismatch
+	    end
+
+	    it "must support adding a Numeric to a Point with a size of 1" do
+		(Point[1] + 2).must_equal Point[3]
+	    end
+
+	    it "must raise an exception when adding mismatched sizes" do
+		lambda { left + [1,2,3,4] }.must_raise Geometry::DimensionMismatch
+	    end
+	    
+	    it "must return a Point when adding a Vector" do
+		(left + Vector[5,6]).must_equal Point[6,8]
+		(Vector[5,6] + right).must_equal Vector[8,10]
+	    end
+
+	end
+
+	describe "when subtracting" do
+	    it "return a Point when subtracting two Points" do
+		assert_kind_of(Point, left-right)
+	    end
+
+	    it "must return a Point when subtracting an array from a Point" do
+		(left - [5,6]).must_equal Point[-4, -4]
+	    end
+
+	    it "must raise an exception when subtracting a scalar from a Vector" do
+		lambda { left - 1 }.must_raise Geometry::DimensionMismatch
+	    end
+
+	    it "must subtract a Numeric from a Point of size 1" do
+		(Point[3] - 2).must_equal Point[1]
+	    end
+
+	    it "must raise an exception when subtracting mismatched sizes" do
+		lambda { left - [1,2,3,4] }.must_raise Geometry::DimensionMismatch
+	    end
+	end
     end
 
-    must "return a Point when subtracting two Points" do
-	assert_kind_of(Point, @left-@right)
+    describe "coercion" do
+	it "must coerce Arrays into Points" do
+	    Point[1,2].coerce([3,4]).must_equal [Point[3,4], Point[1,2]]
+	end
+
+	it "must coerce Vectors into Points" do
+	    Point[1,2].coerce(Vector[3,4]).must_equal [Point[3,4], Point[1,2]]
+	end
+    end
+
+    describe "comparison" do
+	let(:point) { Point[1,2] }
+
+	it "must compare equal to an equal Array" do
+	    point.must_be :==, [1,2]
+	    point.must_be :eql?, [1,2]
+	    [1,2].must_equal point
+	end
+
+	it "must not compare equal to an unequal Array" do
+	    point.wont_equal [3,2]
+	    [3,2].wont_equal point
+	end
+
+	it "must compare equal to an equal Point" do
+	    point.must_be :==, Point[1,2]
+	    point.must_be :eql?, Point[1,2]
+	    Point[1,2].must_equal point
+	end
+	
+	it "must not compare equal to an unequal Point" do
+	    point.wont_equal Point[3,2]
+	    Point[3,2].wont_equal point
+	end
+
+	it "must compare equal to an equal Vector" do
+	    point.must_equal Vector[1,2]
+	    Vector[1,2].must_equal point
+	end
+
+	it "must not compare equal to an unequal Vector" do
+	    point.wont_equal Vector[3,2]
+	    Vector[3,2].wont_equal point
+	end
     end
 end