Added more specs, to check #3

specs/delaunay.lua

@@ -79,5 +79,23 @@ context("Delaunay", function()
     assert_equal(t[4].p2, p4)
     assert_equal(t[4].p3, p5)      
   end)
+
+	should('return 3 triangles for those 4 vertices', function()
+    local p1, p2, p3, p4 = Point(0,0), Point(200,1), Point(400,0), Point(300,5)
+    local t = Delaunay.triangulate(p1, p2, p3, p4)
+    assert_equal(#t, 3)
+    assert_equal(getmetatable(t[1]), Triangle)    
+    assert_equal(t[1].p1, p1)
+    assert_equal(t[1].p2, p2)
+    assert_equal(t[1].p3, p3)
+    assert_equal(getmetatable(t[2]), Triangle)    
+    assert_equal(t[2].p1, p3)
+    assert_equal(t[2].p2, p2)
+    assert_equal(t[2].p3, p4)
+    assert_equal(getmetatable(t[3]), Triangle)    
+    assert_equal(t[3].p1, p2)
+    assert_equal(t[3].p2, p1)
+    assert_equal(t[3].p3, p4)     
+  end)
   
 end)