[libchamplain] Remove a TODO and test that clear can be called twice

[Pierre-Luc Beaudoin <plbeaudoin src gnome org>]

commit 9253c4b40dfb690337848d9999466e5378029efc
Author: Emmanuel Rodriguez <emmanuel rodriguez gmail com>
Date:   Wed Jul 29 22:28:24 2009 +0200

    Remove a TODO and test that clear can be called twice

 bindings/perl/Champlain/t/ChamplainPolygon.t |   16 ++++++++--------
 1 files changed, 8 insertions(+), 8 deletions(-)
---
diff --git a/bindings/perl/Champlain/t/ChamplainPolygon.t b/bindings/perl/Champlain/t/ChamplainPolygon.t
index 4686eee..28b6216 100644
--- a/bindings/perl/Champlain/t/ChamplainPolygon.t
+++ b/bindings/perl/Champlain/t/ChamplainPolygon.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Clutter::TestHelper tests => 49;
+use Clutter::TestHelper tests => 50;
 
 use Champlain;
 
@@ -30,6 +30,9 @@ sub test_empty {
 	$polygon->clear_points();
 	is_deeply(\ points, [], "No points on a cleared polygon");
 	
+	$polygon->clear_points();
+	is_deeply(\ points, [], "No points on a cleared polygon (2 times)");
+
 	is_color($polygon->get_fill_color, $DEFAULT_FILL_COLOR, "fill_color is set on a new polygon");
 	is_color($polygon->get_stroke_color, $DEFAULT_STROKE_NAME, "stroke_color is set on a new polygon");
 	
@@ -190,14 +193,11 @@ sub test_points {
 
 
 	# Clear the polygon (it should be empty after)
-	TODO: {
-		local $TODO = "Bug in libchamplain";
-		$polygon->clear_points();
-		is_polygon($polygon, [], "clear_points()");
+	$polygon->clear_points();
+	is_polygon($polygon, [], "clear_points()");
 
-		$polygon->append_point(100, 200);
-		is_polygon($polygon, [100, 200], "add_point on a cleared polygon");
-	}
+	$polygon->append_point(100, 200);
+	is_polygon($polygon, [100, 200], "add_point on a cleared polygon");
 }