1 "{ Package: 'stx:goodies/regression' }"

     3 "{ Package: 'stx:goodies/regression' }"

     2 

     4 

     3 "{ NameSpace: RegressionTests }"

     5 "{ NameSpace: RegressionTests }"

     4 

     6 

     5 TestCase subclass:#GraphicDrawingTest

     7 TestCase subclass:#GraphicDrawingTest

    15 _testDraw:drawBlock thenCheck:checkBlock

    17 _testDraw:drawBlock thenCheck:checkBlock

    16     |form|

    18     |form|

    17 

    19 

    18     form := Form width:30 height:30 depth:(Display depth) onDevice:Display.

    20     form := Form width:30 height:30 depth:(Display depth) onDevice:Display.

    19     form clear.

    21     form clear.

    20     drawBlock value:form.

    23     drawBlock value:form.

    21 

    24 

    22     checkBlock value:form.

    25     checkBlock value:form.

    23 !

    26 !

    24 

    27