1 "{ Package: 'stx:libview/tests' }"

     2 

     3 "{ NameSpace: Smalltalk }"

     4 

     5 TestCase subclass:#FormTests

     6 	instanceVariableNames:''

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'Compatibility-ST80-Graphics-Display Objects-Tests'

    10 !

    11 

    12 !FormTests methodsFor:'running'!

    13 

    14 setUp

    15     self skipIf: Display isNil description: 'Display connection not available'

    16 

    17     "Created: / 25-04-2016 / 20:30:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    18 ! !

    19 

    20 !FormTests methodsFor:'tests - regression'!

    21 

    22 test_issue_82

    23     "

    24     https://swing.fit.cvut.cz/projects/stx-jv/ticket/82

    25     "

    26     | f |

    27     f := Form width:8 height:8 depth:1.

    28     f colorMap:(Array with:Screen current blackColor with: Screen current whiteColor).

    29     f clear.

    30     f paint:(Color colorId:1).  

    31     self assert: (f bits allSatisfy:[:byte | byte = 0 ])

    32 

    33     "Created: / 25-04-2016 / 20:04:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    34 ! !

    35