Add a TODO to the bugs in libchamplain

diff --git a/bindings/perl/Champlain/t/ChamplainPolygon.t b/bindings/perl/Champlain/t/ChamplainPolygon.t
index d9beb6b75e4c4bc1034b6ef13508cd0cf31c38a3..ff2fea6fa9a363aeffa19b5fe8a22bce23c761d8 100644 (file)
--- a/bindings/perl/Champlain/t/ChamplainPolygon.t
+++ b/bindings/perl/Champlain/t/ChamplainPolygon.t
@@ -173,11 +173,14 @@ sub test_points {
        );
 
        # Clear the polygon (it should be empty after)
-       $polygon->clear_points();
-       is_polygon($polygon, [], "clear_points()");
-       
-       $polygon->append_point(100, 200);
-       is_polygon($polygon, [100, 200], "add_point on a cleared polygon");
+       TODO: {
+               local $TODO = "Bug in libchamplain";
+               $polygon->clear_points();
+               is_polygon($polygon, [], "clear_points()");
+
+               $polygon->append_point(100, 200);
+               is_polygon($polygon, [100, 200], "add_point on a cleared polygon");
+       }
 }