"{ Encoding: utf8 }"

"{ 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 := StandardSystemView onDevice:display.
    Delay waitForSeconds:3.
    v destroy.

    "
     self new test_03_WindowCreation
    "
!

test_04_WindowCreateAndMap
    |v|

    v := StandardSystemView onDevice:display.
    v realize.
    Delay waitForSeconds:1.
    v destroy.

    "
     self new test_04_WindowCreateAndMap
    "
!

test_05_WindowResize
    |v|

    v := StandardSystemView onDevice:display.
    v extent:300@300.
    v origin:100@100.
    v realize.
    Delay waitForSeconds:1.
    "/ display bridge callFunction:'test1' withArguments:#().
    "/ Delay waitForSeconds:1.
    "/ display bridge callFunction:'test2' withArguments:#().
    "/ Delay waitForSeconds:1.
    "/ display bridge callFunction:'test3' withArguments:#().

    v extent:600@100.
    "/ display testResize:v id.
    "/ v extent:(500@500).
    "/ Delay waitForSeconds:1.
    "/ v extent:(200@200).
    Delay waitForSeconds:1.
    v destroy.

    "
     self new 
        setUp;
        test_05_WindowResize;
        tearDown
    "
!

test_06_WindowTitle
    |v|

    v := StandardSystemView onDevice:display.
    v extent:300@300.
    v realize.
    Delay waitForSeconds:1.
    v label:'AAAA'.
    Delay waitForSeconds:1.
    v label:'BBBB'.
    Delay waitForSeconds:1.
    v label:'CCCC'.
    v destroy.

    "
     self new 
        setUp;
        test_06_WindowTitle;
        tearDown
    "
!

test_07_WindowBackground
    |v|

    v := StandardSystemView onDevice:display.
    v extent:300@300.
    v realize.
    Delay waitForSeconds:1.
    v viewBackground:(Color red).
    Delay waitForSeconds:1.
    v viewBackground:(Color green).
    Delay waitForSeconds:1.
    v destroy.

    "
     self new 
        setUp;
        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
    "
!

test_10_Subview
    "fails: subViews are NOT browserwindows,
     but must be created as DIV in the renderer!!"

    |top v|

    top := StandardSystemView onDevice:display.
    top origin:100@100 extent:300@300.
    top viewBackground:(Color green).

    top addSubView:(v := View new).
    v origin:50@50 extent:100@100.
    v viewBackground:(Color red).

    top realize.
    Delay waitForSeconds:2.
    top destroy.

    "
     self new 
        setUp;
        test_10_Subview;
        tearDown
    "
! !

!ElectronGraphicDeviceTest class methodsFor:'documentation'!

version_CVS
    ^ '$Header$'
! !