--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/RegressionTests__ElectronGraphicDeviceTest.st	Thu Aug 15 19:56:10 2019 +0200
@@ -0,0 +1,119 @@
+"{ Package: 'stx:goodies/regression' }"
+
+"{ NameSpace: RegressionTests }"
+
+TestCase subclass:#ElectronGraphicDeviceTest
+	instanceVariableNames:'display'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'tests-Regression-Graphics-Basic'
+!
+
+!ElectronGraphicDeviceTest class methodsFor:'documentation'!
+
+documentation
+"
+    documentation to be added.
+
+    class:
+        <a short class summary here, describing what instances represent>
+
+    responsibilities:    
+        <describing what my main role is>
+
+    collaborators:    
+        <describing with whom and how I talk to>
+
+    API:
+        <public api and main messages>
+        
+    example:
+        <a one-line examples on how to use - can also be in a separate example method>
+
+    implementation:
+        <implementation points>
+
+    [author:]
+        exept MBP
+
+    [instance variables:]
+
+    [class variables:]
+
+    [see also:]
+
+"
+! !
+
+!ElectronGraphicDeviceTest methodsFor:'tests'!
+
+setUp
+    display := ElectronWorkstation newFor:'localhost:8588'.
+!
+
+tearDown
+    display notNil ifTrue:[
+        display close
+    ].
+
+!
+
+test_01_ConnectDisconnect
+    self assert:(display notNil).
+    self assert:(display isOpen).
+    display close.
+    self assert:(display isOpen not).
+
+    "
+     self new test_01_ConnectDisconnect
+    "
+!
+
+test_02_Properties
+    self assert:(display visualType notNil).
+    display visualType == #TrueColor ifTrue:[
+        self assert:(display hasColors).
+        self assert:(display hasGreyscales).
+    ].
+
+    self assert:(display depth notNil).
+    self assert:(display shiftRed notNil).
+    self assert:(display shiftGreen notNil).
+    self assert:(display shiftBlue notNil).
+
+    self assert:(display blackpixel == 0).
+    self assert:(display whitepixel == 16rFFFFFF).
+
+    "
+     self new test_02_Properties
+    "
+!
+
+test_03_WindowCreation
+    |v|
+
+    v := TopView onDevice:display.
+    
+    "
+     self new test_03_WindowCreation
+    "
+!
+
+test_04_WindowCreateAndMap
+    |v|
+
+    v := TopView onDevice:display.
+    v realize.
+    v destroy.
+
+    "
+     self new test_04_WindowCreateAndMap
+    "
+! !
+
+!ElectronGraphicDeviceTest class methodsFor:'documentation'!
+
+version_CVS
+    ^ '$Header$'
+! !
+