15 test01Contains8BitCharacters

    15 test01_access

    16     0 to:33 do:[:l |

    17         |str|

    18 

    19         str := String new:l.

    20         str atAllPut:(Character space).

    21         self assert:( str isBlank ).

    22 

    23         1 to:l do:[:pos |

    24             str at:pos put:$a.

    25             self assert:( str isBlank not ).

    26             str at:pos put:(Character space).

    27         ].

    28     ].

    29 

    30     "

    31      self new test01_access

    32     "

    33 !

    34 

    35 test02_subclassAccess

    36     |myStringClass str|

    37 

    38     Class withoutUpdatingChangesDo:[

    39         myStringClass := String 

    40                         subclass:#'MyString'

    41                         instanceVariableNames:'foo'

    42                         classVariableNames:''

    43                         poolDictionaries:nil.

    44     ].

    45 

    46     0 to:33 do:[:l |

    47         str := myStringClass new:l.

    48         str atAllPut:(Character space).

    49         self assert:( str isBlank ).

    50 

    51         1 to:l do:[:pos |

    52             str at:pos put:$a.

    53             self assert:( str isBlank not ).

    54             str at:pos put:(Character space).

    55         ].

    56     ].

    57 

    58     "

    59      self new test02_subclassAccess

    60     "

    61 !

    62 

    63 test10_Contains8BitCharacters

    31      self new test01Contains8BitCharacters

    79      self new test10_Contains8BitCharacters