Packages June 2022

packages@lists.squeakfoundation.org

1 participants
168 discussions

The Trunk: System-mt.1355.mcz
by commits＠source.squeak.org 08 Jun '22

08 Jun '22

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1355.mcz ==================== Summary ==================== Name: System-mt.1355 Author: mt Time: 8 June 2022, 9:29:18.447101 am UUID: fddf7561-4fb7-1a4d-9040-3007d78dedf2 Ancestors: System-mt.1354 Quickfix for making image-segment loading work again for image formats 68533 and 7033. See commentary. =============== Diff against System-mt.1354 =============== Item was changed: ----- Method: NativeImageSegment>>loadSegmentFrom:outPointers: (in category 'read/write segment primitives') ----- loadSegmentFrom: segmentWordArray outPointers: outPointerArray "Load segmentWordArray into the memory. Adapt the primitive to the new API, which is to answer the array of loaded objects, the first of which should be the array of roots. The primitive will install a binary image segment and return as its value the array of roots of the tree of objects represented. Upon successful completion, the wordArray will have been becomed into anArray of the loaded objects. So simply answer the segmentWordArray which will have becommed." | segmentFormat | segmentFormat := self segmentFormatFrom: segmentWordArray first. + self flag: #discuss. "mt: Should the version for image segments consider or ignore that extra flag for multiple byte-code sets? See primitive 98 or #storeSegmentFor:into:outPointers:." + segmentFormat = (Smalltalk imageFormatVersion bitClear: 512 "MultipleBytecodeSetsBitmask") ifTrue: - segmentFormat = Smalltalk imageFormatVersion ifTrue: [^(self primitiveLoadSegmentFrom: segmentWordArray outPointers: outPointerArray) ifNil: [self error: 'segment load failed'] ifNotNil: [segmentWordArray]]. segmentFormat >= 68000 ifTrue: [Smalltalk wordSize = 4 ifTrue: [^(Spur64BitImageSegmentLoader new loadSegmentFrom: segmentWordArray outPointers: outPointerArray)]] ifFalse: [Smalltalk wordSize = 8 ifTrue: [^(Spur32BitImageSegmentLoader new loadSegmentFrom: segmentWordArray outPointers: outPointerArray)]]. self error: 'segment version unrecognized'!

1 0

The Trunk: Network-tonyg.262.mcz
by commits＠source.squeak.org 07 Jun '22

07 Jun '22

Tony Garnock-Jones uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-tonyg.262.mcz ==================== Summary ==================== Name: Network-tonyg.262 Author: tonyg Time: 7 June 2022, 9:32:58.541461 am UUID: 510fd136-5da5-43a8-93c3-d5adbe439d14 Ancestors: Network-mt.261 I missed a case in Network-tonyg.260. This change fixes connectTo:waitForConnectionFor: in the same way as the previous fix to connectTo:port:waitForConnectionFor:. =============== Diff against Network-mt.261 =============== Item was changed: ----- Method: Socket>>connectTo:waitForConnectionFor: (in category 'ipv6') ----- connectTo: aSocketAddress waitForConnectionFor: timeout self connectNonBlockingTo: aSocketAddress. self waitForConnectionFor: timeout + ifTimedOut: [ConnectionTimedOut signal: ('Cannot connect to {1}' translated format: {aSocketAddress printString})] + ifRefused: [ConnectionRefused signal: ('Cannot connect to {1}' translated format: {aSocketAddress printString})]! - ifTimedOut: [ConnectionTimedOut signal: ('Cannot connect to {1}' translated format: {aSocketAddress})] - ifRefused: [ConnectionRefused signal: ('Cannot connect to {1}' translated format: {aSocketAddress})]!

1 0

The Trunk: Network-mt.261.mcz
by commits＠source.squeak.org 03 Jun '22

03 Jun '22

Marcel Taeumel uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-mt.261.mcz ==================== Summary ==================== Name: Network-mt.261 Author: mt Time: 3 June 2022, 4:28:26.033722 pm UUID: e2303990-dde9-f04f-9767-dd55f4146a66 Ancestors: Network-tonyg.260 Reset recognized MIME types during a clean-up. =============== Diff against Network-tonyg.260 =============== Item was added: + ----- Method: MIMEDocument class>>cleanUp (in category 'initialize-release') ----- + cleanUp + + self resetMIMEdatabase.! Item was changed: + (PackageInfo named: 'Network') postscript: 'MIMEDocument cleanUp. "Reset recognized MIME types."'! - (PackageInfo named: 'Network') postscript: '"Enable IPv6 and new network support by default" - NetNameResolver enableIPv6: true - '!

1 0

The Trunk: Morphic-mt.1999.mcz
by commits＠source.squeak.org 03 Jun '22

03 Jun '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1999.mcz ==================== Summary ==================== Name: Morphic-mt.1999 Author: mt Time: 3 June 2022, 3:57:17.981722 pm UUID: fa65a07a-3d2b-8544-b5a9-9ad67f734549 Ancestors: Morphic-mt.1998 Somewhat fixes the UI issue with "Find Workspace..." sub-menu in the "Windows" menu by delegation the choice to an extra dialog window. (I proposed this alternative approach to Eliot (eem) a few weeks ago to which he agreed. I also bumped the label size from 128 to 512 characters.) =============== Diff against Morphic-mt.1998 =============== Item was added: + ----- Method: TheWorldMainDockingBar>>findWorkspace (in category 'submenu - windows') ----- + findWorkspace + + | allWorkspaces labels values | + allWorkspaces := Set new. + Project allMorphicProjects do: + [:project| + (self allVisibleWindowsIn: project world) do: + [:window| + (window model isKindOf: Workspace) ifTrue: + [allWorkspaces add: + { window model. + window. + project. + window model contents ifEmpty: + [(window model dependents detect: [:d| d isTextView] ifNone: nil) textMorph contents] }]]]. + allWorkspaces isEmpty ifTrue: + [^ self inform: 'No workspaces found.' translated]. + "Sort workspaces with non-empty ones first..." + labels := OrderedCollection new. + values := OrderedCollection new. + (allWorkspaces sorted: + [:t1 :t2| + t1 last isEmpty == t2 last isEmpty + ifTrue: [t1 second label <= t2 second label] + ifFalse: [t1 last notEmpty]]) do: + [:tuple| + labels add: tuple second label, ': ', ((tuple last asString contractTo: 512) ifEmpty: ['(empty)']). + values add: (MessageSend receiver: self selector: #selectWorkspace:window:inProject:contents: arguments: tuple)]. + (Project uiManager + chooseFrom: labels + values: values + title: 'Find Workspace' translated) value.! Item was changed: ----- Method: TheWorldMainDockingBar>>listWindowsOn: (in category 'submenu - windows') ----- listWindowsOn: menu | windows | menu addLine; add: 'Collapse all windows' target: (Project current world) selector: #collapseAllWindows; addItem: [:item | item contents: 'Find Workspace...'; + target: self; + selector: #findWorkspace]; - subMenuUpdater: self - selector: #workspacesMenuFor: - arguments: #()]; addLine; add: 'Close all windows' target: self selector: #closeAllWindowsUnsafe; addItem: [:item | item contents: 'Close all windows without changes'; target: self; icon: MenuIcons smallBroomIcon; selector: #closeAllWindows]; add: 'Close all windows but workspaces' target: self selector: #closeAllWindowsButWorkspaces; addLine. windows := self allVisibleWindows sorted: [:winA :winB | ((winA model isNil or: [winB model isNil]) or: [winA model name = winB model name]) ifTrue: [winA label < winB label] ifFalse: [winA model name < winB model name]]. windows ifEmpty: [ menu addItem: [ :item | item contents: 'No Windows' translated; isEnabled: false ] ]. windows do: [ :each | | windowColor | windowColor := (each model respondsTo: #windowColorToUse) ifTrue: [each model windowColorToUse] ifFalse: [UserInterfaceTheme current get: #uniformWindowColor for: Model]. menu addItem: [ :item | item contents: (self windowMenuItemLabelFor: each); icon: (self colorIcon: windowColor); target: each; selector: #comeToFront; subMenuUpdater: self selector: #windowMenuFor:on: arguments: { each }; action: [ each beKeyWindow; expand ] ] ].! Item was removed: - ----- Method: TheWorldMainDockingBar>>workspacesMenuFor: (in category 'submenu - windows') ----- - workspacesMenuFor: anUpdatingMenuMorph - - | allWorkspaces | - allWorkspaces := Set new. - Project allMorphicProjects do: - [:project| - (self allVisibleWindowsIn: project world) do: - [:window| - (window model isKindOf: Workspace) ifTrue: - [allWorkspaces add: - { window model. - window. - project. - window model contents ifEmpty: - [(window model dependents detect: [:d| d isTextView] ifNone: nil) textMorph contents] }]]]. - allWorkspaces isEmpty ifTrue: - [^anUpdatingMenuMorph addItem: - [:item | item - contents: 'no workspaces found']]. - "Sort workspaces with non-empty ones first..." - (allWorkspaces sorted: - [:t1 :t2| - t1 last isEmpty == t2 last isEmpty - ifTrue: [t1 second label <= t2 second label] - ifFalse: [t1 last notEmpty]]) do: - [:tuple| - anUpdatingMenuMorph addItem: - [:item | item - contents: tuple second label, ': ', ((tuple last asString contractTo: 128) ifEmpty: ['(empty)']); - target: self; - selector: #selectWorkspace:window:inProject:contents:; - arguments: tuple]]! Item was changed: + (PackageInfo named: 'Morphic') postscript: 'TheWorldMainDockingBar updateInstances. "Updates menu for Windows > Find Workspace ..."'! - (PackageInfo named: 'Morphic') postscript: 'Preferences maxBalloonHelpLineLength: 45. - - "See commentary in MorphicProject >> #startUpActions." - WorldState disableDeferredUpdates: Smalltalk platformName = ''Mac OS''.'!

1 0

The Trunk: TrueType-mt.93.mcz
by commits＠source.squeak.org 03 Jun '22

03 Jun '22

Marcel Taeumel uploaded a new version of TrueType to project The Trunk: http://source.squeak.org/trunk/TrueType-mt.93.mcz ==================== Summary ==================== Name: TrueType-mt.93 Author: mt Time: 3 June 2022, 3:11:24.198722 pm UUID: 2bee8ec1-dd1a-7342-8fc7-66675359bf0b Ancestors: TrueType-mt.92 Fixes issue with image-local fonts folder. Fixes issue around non-existent class-var AllFontsAndFiles. Removes redundant specialization in TTRemoteFontDescription. =============== Diff against TrueType-mt.92 =============== Item was changed: ----- Method: TTFontReader class>>allFontsAndFiles (in category 'font paths') ----- allFontsAndFiles "Answer a dictionary of all known family names and their corresponding file names." | result | result := Dictionary new. + Cursor wait showWhile: [ + self allFontNamesDo: [ :familyName :subfamilyName :fileName | + | names | + names := result at: familyName ifAbsentPut: [ OrderedCollection new ]. + names add: fileName ]]. - Cursor wait showWhile:[self allFontNamesDo:[:familyName :subfamilyName :fileName | - | names | - names := AllFontsAndFiles at: familyName - ifAbsentPut:[OrderedCollection new]. - names add: fileName]]. ^ result! Item was changed: ----- Method: TTFontReader>>fileName (in category 'reading - support') ----- fileName + ^ fileName ifNil: [ + | localPath | + fileName := (stream respondsTo: #file) + ifTrue: ["Probably a MultiByteBinaryOrTextStream" + stream name "full path"] + ifFalse: ["Probably an RWBinaryOrTextStream" + ^ nil]. + (fileName beginsWith: (localPath := Smalltalk imagePath)) + ifTrue: ["Support copying image-local fonts folder along with .image file." + fileName := fileName copyFrom: localPath size + 1 to: fileName size. + fileName first = FileDirectory pathNameDelimiter + ifTrue: [fileName := fileName allButFirst]]. + fileName]! - ^ fileName ifNil: [fileName := (stream respondsTo: #file) - ifTrue: ["Probably a MultiByteBinaryOrTextStream" - stream name "full path"] - ifFalse: ["Probably an RWBinaryOrTextStream" - ^ nil]]! Item was removed: - ----- Method: TTRemoteFontDescription>>setFileName:fileOffset: (in category 'initialize-release') ----- - setFileName: aString fileOffset: byteOffset - - fileName := aString. - fileOffset := byteOffset.!

1 0

The Trunk: Graphics-mt.519.mcz
by commits＠source.squeak.org 03 Jun '22

03 Jun '22

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.519.mcz ==================== Summary ==================== Name: Graphics-mt.519 Author: mt Time: 3 June 2022, 11:46:00.379122 am UUID: 617a1b80-ce28-3146-8ddd-1544e6042cc8 Ancestors: Graphics-mt.518 To avoid graphics glitches when drawing text selections, adjust #lineHeight instead of #bottomMargin to realize #lineSpacing during text composition. =============== Diff against Graphics-mt.518 =============== Item was changed: ----- Method: CompositionScanner>>composeFrom:inRectangle:firstLine:leftSide:rightSide: (in category 'scanning') ----- composeFrom: startIndex inRectangle: lineRectangle firstLine: firstLine leftSide: leftSide rightSide: rightSide "Answer an instance of TextLineInterval that represents the next line in the paragraph." | runLength stopCondition lineSpacing | "Set up margins" leftMargin := lineRectangle left. leftSide ifTrue: [leftMargin := leftMargin + (firstLine ifTrue: [textStyle firstIndent] ifFalse: [textStyle restIndent])]. destX := spaceX := leftMargin. rightMargin := lineRectangle right. rightSide ifTrue: [rightMargin := rightMargin - textStyle rightIndent]. lastIndex := startIndex. "scanning sets last index" destY := lineRectangle top. lineHeight := baseline := 0. "Will be increased by setFont" lineGap := lineGapSlice := -9999. "Will be increased by setFont; allow negative to show all effects of a custom #extraGap value. See TTFontDescription." topMargin := bottomMargin := 0. line := (TextLine start: lastIndex stop: 0 internalSpaces: 0 paddingWidth: 0) rectangle: lineRectangle. self setStopConditions. "also sets font" runLength := text runLengthFor: startIndex. runStopIndex := (lastIndex := startIndex) + (runLength - 1). nextIndexAfterLineBreak := spaceCount := 0. lastBreakIsNotASpace := false. self handleIndentation. leftMargin := destX. line leftMargin: leftMargin. [stopCondition := self scanCharactersFrom: lastIndex to: runStopIndex in: text string rightX: rightMargin. "See setStopConditions for stopping conditions for composing." self perform: stopCondition] whileFalse. lineHeight := lineHeight + lineGap. baseline := baseline + lineGapSlice. + (lineSpacing := textStyle lineSpacing) = 0.0 ifFalse: [ + "Modify lineHeight to realize lineSpacing instead of bottomMargin to avoid + rendering glitches for lineSpacing values < 0.0." + lineHeight := lineHeight + (lineSpacing * lineHeight) truncated. + "ALT: bottomMargin := bottomMargin + (lineSpacing * lineHeight) truncated"]. - "TODO: Allow special characters or text attributes to accumulate extra top or bottom margin." - (lineSpacing := textStyle lineSpacing) = 0.0 - ifFalse: [bottomMargin := bottomMargin + (lineSpacing * lineHeight) truncated]. line lineHeight: lineHeight baseline: baseline. + "TODO: Allow special characters or text attributes to accumulate extra top or bottom margin." line topMargin: topMargin bottomMargin: bottomMargin. ^ line!

1 0

The Trunk: Morphic-mt.1998.mcz
by commits＠source.squeak.org 03 Jun '22

03 Jun '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1998.mcz ==================== Summary ==================== Name: Morphic-mt.1998 Author: mt Time: 3 June 2022, 10:03:38.000381 am UUID: 50a6fd6c-1405-403a-a99b-7944c2f6ce0a Ancestors: Morphic-tonyg.1997 For macOS platform, fixes the preference "Legacy keyboard shortcuts (US/UK only)". Thanks to Tim (tcj) for the pointer! =============== Diff against Morphic-tonyg.1997 =============== Item was changed: ----- Method: LegacyShortcutsFilter class>>filterEvent:for: (in category 'event filter') ----- filterEvent: aKeyboardEvent for: textMorph + aKeyboardEvent isKeystroke ifFalse: [^ aKeyboardEvent]. aKeyboardEvent commandKeyPressed ifFalse: [^ aKeyboardEvent]. Preferences cmdKeysInText ifFalse: [^ aKeyboardEvent]. + + (Smalltalk platformName = 'Mac OS' and: [aKeyboardEvent shiftPressed]) + ifTrue: ["Work around an issue in the VM where SHIFT is not honored + in the KeyChar event's character. This should only be the case for + KeyDown events to encode virtual-key presses. The VM should not + do this for KeyChar events. Works for U.S. keyboard layout only." + aKeyboardEvent keyValue: ( + aKeyboardEvent keyCharacter caseOf: { + [$9] -> [$(]. [$0] -> [$)]. + [$,] -> [$<]. [$.] -> [$>]. + [$[] -> [${]. [$]] -> [$}]. + [$'] -> [$"] } + otherwise: [aKeyboardEvent keyCharacter]) asInteger]. + - ('()[]{}|''"<>' includes: aKeyboardEvent keyCharacter) ifTrue: [textMorph handleInteraction: [(textMorph editor enclose: aKeyboardEvent) ifTrue: [aKeyboardEvent ignore]] fromEvent: aKeyboardEvent]. ^ aKeyboardEvent " Preferences cmdKeysInText Preferences cmdGesturesEnabled Preferences honorDesktopCmdKeys PasteUpMorph globalCommandKeysEnabled. "!

1 0

The Treated Inbox: Installer-Core-tcj.440.mcz
by commits＠source.squeak.org 02 Jun '22

02 Jun '22

Marcel Taeumel uploaded a new version of Installer-Core to project The Treated Inbox: http://source.squeak.org/treated/Installer-Core-tcj.440.mcz ==================== Summary ==================== Name: Installer-Core-tcj.440 Author: tcj Time: 5 August 2020, 10:21:54.954624 pm UUID: b6ac0eda-4db6-4313-b760-50dcdd1dc584 Ancestors: Installer-Core-mt.439 Be more tolerant of a partially-installed or mis-installed Metacello. =============== Diff against Installer-Core-mt.439 =============== Item was changed: ----- Method: Installer class>>ensureRecentMetacello (in category 'scripts') ----- ensureRecentMetacello "Copied and adapted from https://github.com/Metacello/metacello/blob/master/README.md" | metacello | ((Smalltalk classNamed: #WebClient) ifNil: [ false ] ifNotNil: [ :webClient | [ (webClient httpHead: 'https://github.com') isSuccess ] on: Error do: [ false ] ]) ifFalse: [ ^self inform: 'Could not connect to "https://github.com".\\You need an internet connection and SSL support\to install (or update) Metacello.\\Please fix those issues and try again.' translated withCRs ]. self isMetacelloInstalled ifFalse: [ "Prepare a clean environment for it." + Smalltalk globals removeKey: #Metacello ifAbsent: []. - Smalltalk globals removeKey: #Metacello. "Get the Metacello configuration (for Squeak users)" Installer gemsource project: 'metacello'; addPackage: 'ConfigurationOfMetacello'; install. "Bootstrap Metacello Preview, using mcz files (#'previewBootstrap' symbolic version" ((Smalltalk classNamed: #ConfigurationOfMetacello) project version: #'previewBootstrap') load]. metacello := Smalltalk classNamed: #Metacello. "Now load latest version of Metacello" metacello new baseline: 'Metacello'; repository: 'github://Metacello/metacello:master/repository'; get. metacello new baseline: 'Metacello'; repository: 'github://Metacello/metacello:master/repository'; load: #('default' 'Metacello-Help'). ! Item was changed: ----- Method: Installer class>>isMetacelloInstalled (in category 'scripts') ----- isMetacelloInstalled + "Squeak is shipped with the global #Metacello referring to lightweight MetacelloStub. After the first message is sent, the latest Metacello is installed, replacing the stub. + Be tolerant of a partially-installed Metacello." + ^ (Smalltalk includesKey: #Metacello) + and: [(Smalltalk at: #Metacello) ~= MetacelloStub]! - "Squeak is shipped with the global #Metacello referring to lightweight MetacelloStub. After the first message is sent, the latest Metacello is installed, replacing the stub." - ^ (Smalltalk at: #Metacello) ~= MetacelloStub!

1 0

The Treated Inbox: Installer-Core-lrnp.447.mcz
by commits＠source.squeak.org 02 Jun '22

02 Jun '22

Marcel Taeumel uploaded a new version of Installer-Core to project The Treated Inbox: http://source.squeak.org/treated/Installer-Core-lrnp.447.mcz ==================== Summary ==================== Name: Installer-Core-lrnp.447 Author: lrnp Time: 23 May 2022, 9:42:06.780598 pm UUID: 329797ae-a3e0-4567-a259-ab491943a3e5 Ancestors: Installer-Core-cmm.446 harden code to recover Metacello in case of error In #ensureRecentMetacello, Metacello can become removed from the global dictionary if the process is aborted during load, such as by error or user interrupt. This patch handles absent dictionary lookup exceptions to recover from this state. =============== Diff against Installer-Core-cmm.446 =============== Item was changed: ----- Method: Installer class>>ensureRecentMetacello (in category 'scripts') ----- ensureRecentMetacello "Copied and adapted from https://github.com/Metacello/metacello/blob/master/README.md" | metacello | ((Smalltalk classNamed: #WebClient) ifNil: [ false ] ifNotNil: [ :webClient | [ (webClient httpHead: 'https://github.com') isSuccess ] on: Error do: [ false ] ]) ifFalse: [ ^self inform: 'Could not connect to "https://github.com".\\You need an internet connection and SSL support\to install (or update) Metacello.\\Please fix those issues and try again.' translated withCRs ]. self isMetacelloInstalled ifFalse: [ "Prepare a clean environment for it." + Smalltalk at: #Metacello ifPresent: [Smalltalk globals removeKey: #Metacello]. - Smalltalk globals removeKey: #Metacello. "Get the Metacello configuration (for Squeak users)" Installer gemsource project: 'metacello'; addPackage: 'ConfigurationOfMetacello'; install. "Bootstrap Metacello Preview, using mcz files (#'previewBootstrap' symbolic version" ((Smalltalk classNamed: #ConfigurationOfMetacello) project version: #'previewBootstrap') load]. metacello := Smalltalk classNamed: #Metacello. "Now load latest version of Metacello" metacello new baseline: 'Metacello'; repository: 'github://Metacello/metacello:master/repository'; get. metacello new baseline: 'Metacello'; repository: 'github://Metacello/metacello:master/repository'; load: #('default' 'Metacello-Help'). ! Item was changed: ----- Method: Installer class>>isMetacelloInstalled (in category 'scripts') ----- isMetacelloInstalled "Squeak is shipped with the global #Metacello referring to lightweight MetacelloStub. After the first message is sent, the latest Metacello is installed, replacing the stub." + ^ (Smalltalk at: #Metacello ifAbsent: [^ false]) ~= MetacelloStub! - ^ (Smalltalk at: #Metacello) ~= MetacelloStub!

1 0

The Trunk: KernelTests-cmm.423.mcz
by commits＠source.squeak.org 02 Jun '22

02 Jun '22

Marcel Taeumel uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-cmm.423.mcz ==================== Summary ==================== Name: KernelTests-cmm.423 Author: cmm Time: 31 May 2022, 5:53:42.444296 pm UUID: a504f011-37fb-4d93-ae2f-c3e1fc832b49 Ancestors: KernelTests-nice.422 #testOutOfMemorySignalExtreme can be stressful on a system that running the Squeak VM unconstrained (which is the default). Therefore, only run it if the vm is explicitly constrained. Note this requires =============== Diff against KernelTests-nice.422 =============== Item was changed: ----- Method: AllocationTest>>testOutOfMemorySignalExtreme (in category 'tests') ----- testOutOfMemorySignalExtreme + "Try to allocate more memory than permitted by the -memory vm argument, and check whether the expected error is signaled. Note that current (2017) Spur VMs fail in #new: and #basicNew: with #'bad argument' if given other than a non-negative SmallInteger." + Smalltalk heapMemoryLimit ifNotNil: + [ : bytes | + self + should: [ Array new: (bytes // Smalltalk wordSize) + 100 ] + raise: OutOfMemory, Error + withExceptionDo: + [:ex| + ex class == Error ifTrue: + [self assert: [ex messageText includesSubstring: 'basicNew: with invalid argument' ]]]]! - "Try to allocate a ridiculous amount of memory and check whether the expected error is signaled. Call Eliot when this test fails, he want your machine. :-) - - Note that current (2017) Spur VMs fail in #new: and #basicNew: with #'bad argument' if given other than a non-negative SmallInteger. - - Also note that this test can be quite stressful to your machine depending on how your operating system allocates the required memory behind the curtains. Better not triggering some robot fetching a tape from somewhere..." - - | sz | - sz := 1024*1024*1024*1024. "= 1 TiB" - self should: [Array new: sz] - raise: OutOfMemory, Error - withExceptionDo: - [:ex| - ex class == Error ifTrue: - [self assert: [ex messageText includesSubstring: 'basicNew: with invalid argument']]]!

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages June 2022