From: Emmanuel Rodriguez <emmanuel.rodriguez@gmail.com>
Date: Thu, 7 May 2009 21:05:43 +0000 (+0200)
Subject: Test set_decel_rate() and set_scroll_mode()
X-Git-Url: https://err.no/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=088d089ad78a100e029680747cd42efb68341f1f;p=libchamplain

Test set_decel_rate() and set_scroll_mode()
---

diff --git a/bindings/perl/Champlain/t/ChamplainView.t b/bindings/perl/Champlain/t/ChamplainView.t
index af64b1d..3d84ef7 100644
--- a/bindings/perl/Champlain/t/ChamplainView.t
+++ b/bindings/perl/Champlain/t/ChamplainView.t
@@ -70,6 +70,20 @@ sub test_generic {
 	}
 	$view->set_map_source($source_new);
 	is($view->get('map-source'), $source_new, "Change map source");
+
+	
+	# Change the decel rate
+	$view->set_decel_rate(0.5);
+	is($view->get('decel-rate'), 0.5, "set_decel_rate()");
+	$view->set_decel_rate(1.5);
+	is($view->get('decel-rate'), 1.5, "set_decel_rate()");
+
+	
+	# Change the decel rate
+	$view->set_scroll_mode('push');
+	is($view->get('scroll-mode'), 'push', "set_scroll_mode('push')");
+	$view->set_scroll_mode('kinetic');
+	is($view->get('scroll-mode'), 'kinetic', "set_scroll_mode('kinetic')");
 }