Support option for dragging

Author: swanson

lib/capybara/cuprite/browser.rb

@@ -112,24 +112,24 @@ def source
         raise NotImplementedError
       end
 
-      def drag(node, other)
+      def drag(node, other, steps)
         x1, y1 = node.find_position
         x2, y2 = other.find_position
 
         mouse.move(x: x1, y: y1)
         mouse.down
-        mouse.move(x: x2, y: y2)
+        mouse.move(x: x2, y: y2, steps: steps)
         mouse.up
       end
 
-      def drag_by(node, x, y)
+      def drag_by(node, x, y, steps)
         x1, y1 = node.find_position
         x2 = x1 + x
         y2 = y1 + y
 
         mouse.move(x: x1, y: y1)
         mouse.down
-        mouse.move(x: x2, y: y2)
+        mouse.move(x: x2, y: y2, steps: steps)
         mouse.up
       end
 

lib/capybara/cuprite/node.rb

@@ -159,12 +159,16 @@ def hover
         command(:hover)
       end
 
-      def drag_to(other)
-        command(:drag, other.node)
+      def drag_to(other, **options)
+        options[:steps] ||= 1
+
+        command(:drag, other.node, options[:steps])
       end
 
-      def drag_by(x, y)
-        command(:drag_by, x, y)
+      def drag_by(x, y, **options)
+        options[:steps] ||= 1
+
+        command(:drag_by, x, y, options[:steps])
       end
 
       def trigger(event)