feat: mouse

2023-11-06 16:48:55 -06:00
parent 087073e052
commit 33c0299bb8
8 changed files with 324 additions and 10 deletions
--- a/test/Puppeteer.Mouse.Spec.purs
+++ b/test/Puppeteer.Mouse.Spec.purs
@@ -0,0 +1,208 @@
+module Puppeteer.Mouse.Spec where
+
+import Prelude
+
+import Control.Monad.Error.Class (liftMaybe)
+import Data.Array as Array
+import Data.Map as Map
+import Data.Maybe (Maybe(..))
+import Data.Newtype (wrap)
+import Data.Time.Duration (Milliseconds(..))
+import Effect (Effect)
+import Effect.Aff (Aff, delay)
+import Effect.Class (liftEffect)
+import Effect.Exception (error)
+import Puppeteer as Pup
+import Puppeteer.Base (timeout')
+import Puppeteer.Browser as Pup.Browser
+import Puppeteer.Handle as Pup.Handle
+import Puppeteer.Handle.HTML as Pup.Handle.HTML
+import Puppeteer.Keyboard as Pup.Keyboard
+import Puppeteer.Mouse as Mouse
+import Puppeteer.Page as Pup.Page
+import Puppeteer.Page.Event (connectPageConsole)
+import Puppeteer.Page.Event.Spec as Spec.Page.Event
+import Puppeteer.Page.WaitFor as Pup.Page.WaitFor
+import Test.Spec (SpecT, afterAll, beforeAll, beforeWith, describe)
+import Test.Spec.Assertions (shouldEqual)
+import Test.Util (failOnPageError, test)
+
+content :: String
+content =
+  """
+<!DOCTYPE html>
+<html>
+  <head>
+    <title>Simple Page</title>
+    <script>
+      window.addEventListener('load', () => {
+        document.querySelector('#foo').addEventListener('mouseenter', () => {
+          const div = document.createElement('div')
+          div.classList.add('foo-mouseenter')
+          document.body.append(div)
+        })
+  
+        document.querySelector('#bar').addEventListener(
+          'mouseenter',
+          () => {
+            const div = document.createElement('div')
+            div.classList.add('bar-mouseenter')
+            document.body.append(div)
+          },
+        )
+  
+        document.querySelector('#foo').addEventListener('wheel', () => {
+          const div = document.createElement('div')
+          div.classList.add('foo-wheel')
+          document.body.append(div)
+        })
+  
+        document.querySelector('#bar').addEventListener('wheel', () => {
+          const div = document.createElement('div')
+          div.classList.add('bar-wheel')
+          document.body.append(div)
+        })
+  
+        document.querySelector('#foo').addEventListener('mousedown', () => {
+          const div = document.createElement('div')
+          div.classList.add('foo-mousedown')
+          document.body.append(div)
+        })
+  
+        document.querySelector('#bar').addEventListener('mousedown', () => {
+          const div = document.createElement('div')
+          div.classList.add('bar-mousedown')
+          document.body.append(div)
+        })
+
+        document.querySelector('#foo').addEventListener('mouseup', () => {
+          const div = document.createElement('div')
+          div.classList.add('foo-mouseup')
+          document.body.append(div)
+        })
+  
+        document.querySelector('#bar').addEventListener('mouseup', () => {
+          const div = document.createElement('div')
+          div.classList.add('bar-mouseup')
+          document.body.append(div)
+        })
+      })
+    </script>
+  </head>
+  <body>
+    <div id="foo" style="width: 100px; height: 100px; position: fixed; top: 200px; left: 100px;"></div>
+    <div id="bar" style="width: 100px; height: 100px; position: fixed; left: 100px;"></div>
+  </body>
+</html>
+"""
+
+spec :: SpecT Aff Unit Effect Unit
+spec = beforeAll (Pup.launch_ =<< Pup.new)
+  $ afterAll Pup.Browser.close
+  $ describe "Mouse" do
+      test "move" \b -> do
+        p <- Pup.Page.new b
+
+        liftEffect $ connectPageConsole p
+        failOnPageError p do
+          Pup.Page.setContent content Pup.Load p
+          mouse <- liftEffect $ Pup.Page.mouse p
+          { x: fooX, y: fooY } <- liftMaybe (error "#foo does not have bounding box")
+            =<< Pup.Handle.boundingBox
+            =<< liftMaybe (error "#foo not found")
+            =<< Pup.Page.findFirst "div#foo" p
+          { x: barX, y: barY } <- liftMaybe (error "#bar does not have bounding box")
+            =<< Pup.Handle.boundingBox
+            =<< liftMaybe (error "#bar not found")
+            =<< Pup.Page.findFirst "div#bar" p
+
+          shouldEqual 0 =<< Array.length <$> Pup.Page.findAll "div.foo-mouseenter" p
+          shouldEqual 0 =<< Array.length <$> Pup.Page.findAll "div.bar-mouseenter" p
+
+          Mouse.moveTo { steps: 10.0 } mouse { x: fooX + 1.0, y: fooY + 1.0 }
+          shouldEqual 1 =<< Array.length <$> Pup.Page.findAll "div.foo-mouseenter" p
+          shouldEqual 0 =<< Array.length <$> Pup.Page.findAll "div.bar-mouseenter" p
+
+          Mouse.moveTo { steps: 10.0 } mouse { x: barX + 1.0, y: barY + 1.0 }
+          shouldEqual 1 =<< Array.length <$> Pup.Page.findAll "div.foo-mouseenter" p
+          shouldEqual 1 =<< Array.length <$> Pup.Page.findAll "div.bar-mouseenter" p
+
+      test "up / down" \b -> do
+        p <- Pup.Page.new b
+
+        liftEffect $ connectPageConsole p
+        failOnPageError p do
+          Pup.Page.setContent content Pup.Load p
+          mouse <- liftEffect $ Pup.Page.mouse p
+          { x: fooX, y: fooY } <- liftMaybe (error "#foo does not have bounding box")
+            =<< Pup.Handle.boundingBox
+            =<< liftMaybe (error "#foo not found")
+            =<< Pup.Page.findFirst "div#foo" p
+          { x: barX, y: barY } <- liftMaybe (error "#bar does not have bounding box")
+            =<< Pup.Handle.boundingBox
+            =<< liftMaybe (error "#bar not found")
+            =<< Pup.Page.findFirst "div#bar" p
+
+          shouldEqual 0 =<< Array.length <$> Pup.Page.findAll "div.foo-mousedown" p
+          shouldEqual 0 =<< Array.length <$> Pup.Page.findAll "div.foo-mouseup" p
+          shouldEqual 0 =<< Array.length <$> Pup.Page.findAll "div.bar-mousedown" p
+          shouldEqual 0 =<< Array.length <$> Pup.Page.findAll "div.bar-mouseup" p
+
+          Mouse.moveTo { steps: 10.0 } mouse { x: fooX + 1.0, y: fooY + 1.0 }
+          Mouse.down Mouse.MouseLeft mouse
+          shouldEqual 1 =<< Array.length <$> Pup.Page.findAll "div.foo-mousedown" p
+          shouldEqual 0 =<< Array.length <$> Pup.Page.findAll "div.foo-mouseup" p
+          shouldEqual 0 =<< Array.length <$> Pup.Page.findAll "div.bar-mousedown" p
+          shouldEqual 0 =<< Array.length <$> Pup.Page.findAll "div.bar-mouseup" p
+
+          Mouse.up Mouse.MouseLeft mouse
+          shouldEqual 1 =<< Array.length <$> Pup.Page.findAll "div.foo-mousedown" p
+          shouldEqual 1 =<< Array.length <$> Pup.Page.findAll "div.foo-mouseup" p
+          shouldEqual 0 =<< Array.length <$> Pup.Page.findAll "div.bar-mousedown" p
+          shouldEqual 0 =<< Array.length <$> Pup.Page.findAll "div.bar-mouseup" p
+
+          Mouse.moveTo { steps: 10.0 } mouse { x: barX + 1.0, y: barY + 1.0 }
+          Mouse.down Mouse.MouseLeft mouse
+          shouldEqual 1 =<< Array.length <$> Pup.Page.findAll "div.foo-mousedown" p
+          shouldEqual 1 =<< Array.length <$> Pup.Page.findAll "div.foo-mouseup" p
+          shouldEqual 1 =<< Array.length <$> Pup.Page.findAll "div.bar-mousedown" p
+          shouldEqual 0 =<< Array.length <$> Pup.Page.findAll "div.bar-mouseup" p
+
+          Mouse.up Mouse.MouseLeft mouse
+          shouldEqual 1 =<< Array.length <$> Pup.Page.findAll "div.foo-mousedown" p
+          shouldEqual 1 =<< Array.length <$> Pup.Page.findAll "div.foo-mouseup" p
+          shouldEqual 1 =<< Array.length <$> Pup.Page.findAll "div.bar-mousedown" p
+          shouldEqual 1 =<< Array.length <$> Pup.Page.findAll "div.bar-mouseup" p
+
+      test "click" \b -> do
+        p <- Pup.Page.new b
+
+        liftEffect $ connectPageConsole p
+        failOnPageError p do
+          Pup.Page.setContent content Pup.Load p
+          mouse <- liftEffect $ Pup.Page.mouse p
+          { x: fooX, y: fooY } <- liftMaybe (error "#foo does not have bounding box")
+            =<< Pup.Handle.boundingBox
+            =<< liftMaybe (error "#foo not found")
+            =<< Pup.Page.findFirst "div#foo" p
+          { x: barX, y: barY } <- liftMaybe (error "#bar does not have bounding box")
+            =<< Pup.Handle.boundingBox
+            =<< liftMaybe (error "#bar not found")
+            =<< Pup.Page.findFirst "div#bar" p
+
+          shouldEqual 0 =<< Array.length <$> Pup.Page.findAll "div.foo-mousedown" p
+          shouldEqual 0 =<< Array.length <$> Pup.Page.findAll "div.foo-mouseup" p
+          shouldEqual 0 =<< Array.length <$> Pup.Page.findAll "div.bar-mousedown" p
+          shouldEqual 0 =<< Array.length <$> Pup.Page.findAll "div.bar-mouseup" p
+
+          Mouse.click {} mouse { x: fooX + 1.0, y: fooY + 1.0 }
+          shouldEqual 1 =<< Array.length <$> Pup.Page.findAll "div.foo-mousedown" p
+          shouldEqual 1 =<< Array.length <$> Pup.Page.findAll "div.foo-mouseup" p
+          shouldEqual 0 =<< Array.length <$> Pup.Page.findAll "div.bar-mousedown" p
+          shouldEqual 0 =<< Array.length <$> Pup.Page.findAll "div.bar-mouseup" p
+
+          Mouse.click {} mouse { x: barX + 1.0, y: barY + 1.0 }
+          shouldEqual 1 =<< Array.length <$> Pup.Page.findAll "div.foo-mousedown" p
+          shouldEqual 1 =<< Array.length <$> Pup.Page.findAll "div.foo-mouseup" p
+          shouldEqual 1 =<< Array.length <$> Pup.Page.findAll "div.bar-mousedown" p
+          shouldEqual 1 =<< Array.length <$> Pup.Page.findAll "div.bar-mouseup" p
--- a/test/Puppeteer.Spec.purs
+++ b/test/Puppeteer.Spec.purs
@@ -8,6 +8,7 @@ import Effect.Aff (Aff)
 import Effect.Class (liftEffect)
 import Puppeteer as Pup
 import Puppeteer.Browser as Pup.Browser
+import Puppeteer.Mouse.Spec as Spec.Mouse
 import Puppeteer.Browser.Spec as Spec.Browser
 import Puppeteer.Handle.Spec as Spec.Handle
 import Puppeteer.Page.Spec as Spec.Page
@@ -37,6 +38,7 @@ spec = describe "Puppeteer" do
    b2 <- Pup.connect (Pup.connectDefault $ Pup.BrowserWebsocket ws) pup
    Pup.Browser.close b2

+  Spec.Mouse.spec
  Spec.Browser.spec
  Spec.Page.spec
  Spec.Handle.spec