From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 26 Jan 2021 23:47:22 +0000 (+0000)
Subject: wdt: wip drag_end test
X-Git-Tag: otter-0.4.0~668
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=80ae28e4c41060fc81d5ad111e45119cbbd47aed;p=otter.git

wdt: wip drag_end test

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---

diff --git a/wdriver/wdt-simple.rs b/wdriver/wdt-simple.rs
index f2686378..67cd6181 100644
--- a/wdriver/wdt-simple.rs
+++ b/wdriver/wdt-simple.rs
@@ -86,6 +86,47 @@ impl Ctx {
     pc
   }
 
+  #[throws(AE)]
+  fn drag_off(&mut self, pc: &'static str) {
+    let su = &mut self.su;
+
+    let chk = |w: &WindowGuard<'_>| {
+      Ok::<_,AE>(())
+    };
+
+    let table_size = self.spec.table_size
+      .ok_or(anyhow!("table size missing from spec"))?;
+
+    {
+      let mut w = su.w(&self.alice)?;
+      let p = w.find_piece(pc)?;
+      let start = p.posg()?;
+      let (sx,sy) = w.posg2posw(start)?;
+      let end = |d| { let mut e = start; e.0[1] = table_size.0[1] + d; e };
+      let try_end = end(10);
+      let exp_end = end(0);
+      let (ex,ey) = w.posg2posw(try_end)?;
+      w.action_chain()
+        .move_to(sx,sy)
+        .click_and_hold()
+        .move_to(ex,ey)
+        .release()
+        .perform()
+        .always_context("drag off")?;
+
+      chk(&w)?;
+      w.synch()?;
+    }
+
+    {
+      let mut w = su.w(&self.bob)?;
+      w.synch()?;
+      chk(&w)?;
+    }
+
+    pc
+  }
+
   #[throws(AE)]
   fn unselect(&mut self, pc: &'static str) {
     let su = &mut self.su;
@@ -135,6 +176,7 @@ fn main(){
 
     c.drag().always_context("drag")?;
     let pc = c.rotate().always_context("rotate")?;
+    c.drag_off(pc).always_context("drag off")?;
     c.unselect(pc).always_context("unselect")?;
 
     debug!("finishing");