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 af64b1d583a6a5730caa0fdfeee9eeaa019a5eca..3d84ef7c00e82b9ff98844c1df22fe1cee3fc5b3 100644 (file)
--- 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')");
 }