From 612e51584b532e47a4f42b2abe1fba4ad8da602a Mon Sep 17 00:00:00 2001 From: Emmanuel Rodriguez Date: Sat, 28 Mar 2009 10:46:11 +0100 Subject: [PATCH] Remove the test $view->set("zoom-level", $min - 1); It gives a warning because the property zoom-level isn't allowed to be negative. --- bindings/perl/Champlain/t/ChamplainView.t | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/bindings/perl/Champlain/t/ChamplainView.t b/bindings/perl/Champlain/t/ChamplainView.t index 1eec8df..6391cbe 100644 --- a/bindings/perl/Champlain/t/ChamplainView.t +++ b/bindings/perl/Champlain/t/ChamplainView.t @@ -3,7 +3,7 @@ use strict; use warnings; -use Clutter::TestHelper tests => 46; +use Clutter::TestHelper tests => 44; use Champlain ':coords'; @@ -117,8 +117,9 @@ sub test_zoom_in_stage { $view->set_zoom_level($min - 1); is($view->get('zoom-level'), $middle, "set zoom (min - 1) has no effect"); - $view->set("zoom-level", $min - 1); - is($view->get('zoom-level'), $middle, "set('zoom-level', min - 1) has no effect"); + # NOTE: This gives a warning because -1 out of range for property `zoom-level' + #$view->set("zoom-level", $min - 1); + #is($view->get('zoom-level'), $middle, "set('zoom-level', min - 1) has no effect"); # Try to set directly the zoom level to a valu superior to max level $view->set_zoom_level($max + 1); @@ -184,8 +185,9 @@ sub test_zoom { $view->set_zoom_level($min - 1); is($view->get('zoom-level'), 0, "set zoom (min - 1) has no effect"); - $view->set("zoom-level", $min - 1); - is($view->get('zoom-level'), 0, "set('zoom-level', min -1) has no effect"); + # NOTE: This gives a warning because -1 out of range for property `zoom-level' + #$view->set("zoom-level", $min - 1); + #is($view->get('zoom-level'), 0, "set('zoom-level', min -1) has no effect"); # Try to set directly the zoom level to a valu superior to max level $view->set_zoom_level($max + 1); -- 2.39.5