From 9253c4b40dfb690337848d9999466e5378029efc Mon Sep 17 00:00:00 2001 From: Emmanuel Rodriguez Date: Wed, 29 Jul 2009 22:28:24 +0200 Subject: [PATCH] Remove a TODO and test that clear can be called twice --- bindings/perl/Champlain/t/ChamplainPolygon.t | 16 ++++++++-------- 1 file 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"); } -- 2.39.5