1 "

     2 COPYRIGHT (c) 2022 Patrik Svestka

     3 

     4               All Rights Reserved

     5 

     6  This software is furnished under a license and may be used

     7  only in accordance with the terms of that license and with the

     8  inclusion of the above copyright notice.   This software may not

     9  be provided or otherwise made available to, or used by, any

    10  other person.  No title to or ownership of the software is

    11  hereby transferred.

    12 "

    13 "{ Package: 'stx:libwidg/tests' }"

    14 

    15 "{ NameSpace: Smalltalk }"

    16 

    17 TestCase subclass:#FontPanelTests

    18 	instanceVariableNames:''

    19 	classVariableNames:''

    20 	poolDictionaries:''

    21 	category:'Views-Text-Tests'

    22 !

    23 

    24 !FontPanelTests class methodsFor:'documentation'!

    25 

    26 copyright

    27 "

    28 COPYRIGHT (c) 2022 Patrik Svestka

    29 

    30               All Rights Reserved

    31 

    32  This software is furnished under a license and may be used

    33  only in accordance with the terms of that license and with the

    34  inclusion of the above copyright notice.   This software may not

    35  be provided or otherwise made available to, or used by, any

    36  other person.  No title to or ownership of the software is

    37  hereby transferred.

    38 "

    39 ! !

    40 

    41 !FontPanelTests methodsFor:'tests'!

    42 

    43 testFontPanelInit

    44     "Testing initialization of a Font Panel with incomplete font information"

    45     |aFont labelTitle aFontSettingsPanel |

    46 

    47     aFont := Font family:'courier' face:nil style:nil size:14 sizeUnit:#pt encoding:nil.

    48     labelTitle := 'Font for Edited Text'.

    49 

    50     aFontSettingsPanel := FontPanel new.

    51     self shouldnt: [

    52         aFontSettingsPanel initialFont: aFont.

    53         aFontSettingsPanel label: labelTitle.                    

    54         aFontSettingsPanel encodingFilter: nil

    55     ] raise: Error.

    56 

    57     "Created: / 08-06-2022 / 13:51:07 / Patrik Svestka <patrik.svestka@gmail.com>"

    58 ! !

    59 

    60 !FontPanelTests class methodsFor:'documentation'!

    61 

    62 version_HG

    63 

    64     ^ '$Changeset: <not expanded> $'

    65 ! !

    66