> On 16.04.2020, at 09:41, Fabio Niephaus <lists at fniephaus.com> wrote:
> 
> This change causes "Cannot allocate memory" errors in the 32bit VM during testing (and therefore fails trunk builds):
> https://travis-ci.org/github/squeak-smalltalk/squeak-app/jobs/675293747#L6063
> 

> Please fix,

Well, it exposes a bug in trunk, right?
This test case merely documents this :)

-t

> Fabio
> 
> Excerpt of stack trace:
> ........
> 0xfe9d53a8 s [] in CaseErrorTest(Object)>printStringLimitedTo:
> 0xfe9d5430 s String class(SequenceableCollection class)>streamContents:limitedTo:
> 0xfe9d5538 s CaseErrorTest(Object)>printStringLimitedTo:
> 0xfe9d5598 s CaseErrorTest(Object)>printString
> 0xfe9d55f8 s CaseErrorTest(Object)>caseError
> 0xfe9d5658 s CaseErrorTest>printOn:
> 0xfe9d56b8 s [] in CaseErrorTest(Object)>printStringLimitedTo:
> 0xfe9d5740 s String class(SequenceableCollection class)>streamContents:limitedTo:
> 0xfe9d5848 s CaseErrorTest(Object)>printStringLimitedTo:
> 0xfe9d58a8 s CaseErrorTest(Object)>printString
> 0xfe9d5908 s CaseErrorTest(Object)>caseError
> 0xfe9d5968 s CaseErrorTest>printOn:
> ........
> 
> On Sat, Mar 14, 2020 at 12:09 AM <commits at source.squeak.org> wrote:
> Chris Muller uploaded a new version of Tests to project The Trunk:
> http://source.squeak.org/trunk/Tests-cmm.428.mcz
> 
> ==================== Summary ====================
> 
> Name: Tests-cmm.428
> Author: cmm
> Time: 13 March 2020, 6:09:37.220407 pm
> UUID: cd4af6d7-7fed-44c1-bfe7-64a2de3cb7ee
> Ancestors: Tests-nice.427
> 
> Tests for #caseError.
> 
> =============== Diff against Tests-nice.427 ===============
> 
> Item was added:
> + TestCase subclass: #CaseErrorTest
> +       instanceVariableNames: ''
> +       classVariableNames: ''
> +       poolDictionaries: ''
> +       category: 'Tests-Bugs'!
> 
> Item was added:
> + ----- Method: CaseErrorTest>>printOn: (in category 'tests') -----
> + printOn: aStream
> +       3 caseOf: 
> +               { [1] -> [aStream nextPutAll: 'option 1'].
> +               [2] -> [aStream nextPutAll: 'option 2'] }
> +       "caseError in printOn:"!
> 
> Item was added:
> + ----- Method: CaseErrorTest>>testCaseError (in category 'tests') -----
> + testCaseError
> +       self
> +               should:
> +                       [2 caseOf:
> +                               { [1] -> ['option 1'] }]
> +               raise: Error!
> 
> Item was added:
> + ----- Method: CaseErrorTest>>testCaseErrorInPrintOn (in category 'tests') -----
> + testCaseErrorInPrintOn
> +       self should: [ self printString ] raise: Error!
> 
> 
>