From: Emmanuel Rodriguez Date: Sat, 28 Mar 2009 09:46:11 +0000 (+0100) Subject: Remove the test $view->set("zoom-level", $min - 1); X-Git-Url: https://err.no/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=612e51584b532e47a4f42b2abe1fba4ad8da602a;p=libchamplain Remove the test $view->set("zoom-level", $min - 1); It gives a warning because the property zoom-level isn't allowed to be negative. --- 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);