From 088d089ad78a100e029680747cd42efb68341f1f Mon Sep 17 00:00:00 2001 From: Emmanuel Rodriguez Date: Thu, 7 May 2009 23:05:43 +0200 Subject: [PATCH] Test set_decel_rate() and set_scroll_mode() --- bindings/perl/Champlain/t/ChamplainView.t | 14 ++++++++++++++ 1 file changed, 14 insertions(+) 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')"); } -- 2.39.5