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 1eec8df9367dcc6abca600e0bc86c7c2988ff72c..6391cbe99c4fb8f2014b12c936fb40f3e9f45df9 100644 (file)
--- 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);