From bd08e3fa497e94a0bea238cb5ccfdd30a1b9ec7f Mon Sep 17 00:00:00 2001 From: Emmanuel Rodriguez Date: Mon, 15 Jun 2009 22:45:39 +0200 Subject: [PATCH] Add a TODO to the bugs in libchamplain --- bindings/perl/Champlain/t/ChamplainPolygon.t | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/bindings/perl/Champlain/t/ChamplainPolygon.t b/bindings/perl/Champlain/t/ChamplainPolygon.t index d9beb6b..ff2fea6 100644 --- 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"); + } } -- 2.39.5