From: Emmanuel Rodriguez <emmanuel.rodriguez@gmail.com>
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);