--- a/RegressionTests__ElectronGraphicDeviceTest.st	Sun Dec 15 01:41:52 2019 +0100
+++ b/RegressionTests__ElectronGraphicDeviceTest.st	Sun Dec 15 02:07:46 2019 +0100
@@ -185,6 +185,28 @@
         test_07_WindowBackground;
         tearDown
     "
+!
+
+test_08_WindowPosition
+    |v|
+
+    v := StandardSystemView onDevice:display.
+    v origin:100@100.
+    v extent:300@300.
+    v realize.
+    Delay waitForSeconds:1.
+    v origin:600@100.
+    Delay waitForSeconds:1.
+    v origin:200@300.
+    Delay waitForSeconds:1.
+    v destroy.
+
+    "
+     self new 
+        setUp;
+        test_08_WindowPosition;
+        tearDown
+    "
 ! !
 
 !ElectronGraphicDeviceTest class methodsFor:'documentation'!