Packages May 2023

packages@lists.squeakfoundation.org

1 participants
55 discussions

The Trunk: CollectionsTests-ct.390.mcz
by commits＠source.squeak.org 20 May '23

20 May '23

Christoph Thiede uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-ct.390.mcz ==================== Summary ==================== Name: CollectionsTests-ct.390 Author: ct Time: 20 May 2023, 5:43:42.758462 pm UUID: 19992341-2597-2d40-9a1d-d9d5b54680d5 Ancestors: CollectionsTests-ct.389, CollectionsTests-ct.356, CollectionsTests-ct.357 Complements Collections-ct.1036 (miscellaneous parsing improvements to HtmlReadWriter). Deduplicates and extends tests. =============== Diff against CollectionsTests-ct.389 =============== Item was changed: ----- Method: HtmlReadWriterTest>>setUp (in category 'running') ----- setUp super setUp. + self setUpReadWriter. - readWriter := HtmlReadWriter new. html := ''. text := '' asText.! Item was added: + ----- Method: HtmlReadWriterTest>>setUpReadWriter (in category 'running') ----- + setUpReadWriter + + ^ readWriter := HtmlReadWriter new! Item was changed: ----- Method: HtmlReadWriterTest>>test01Emphasis (in category 'tests') ----- test01Emphasis + self testReadAndWrite: { - { '<b>Hello, World!!</b>'. 'Hello, World!!' asText addAttribute: TextEmphasis bold. '<b>Hello</b>, World!!'. 'Hello, World!!' asText addAttribute: TextEmphasis bold from: 1 to: 5. + }. + + self testRead: { + '<B>Hello</b>, World!!'. + 'Hello, World!!' asText addAttribute: TextEmphasis bold from: 1 to: 5. - } pairsDo: [:expectedHtml :expectedText | + '<b>Hello</B>, World!!'. + 'Hello, World!!' asText addAttribute: TextEmphasis bold from: 1 to: 5. + }.! - self convertHtml: expectedHtml. - self assert: expectedText string equals: text string. - self assert: expectedText runs equals: text runs. - - self convertText: expectedText. - self assert: expectedHtml equals: html].! Item was changed: ----- Method: HtmlReadWriterTest>>test02Mixed (in category 'tests') ----- test02Mixed - "At the moment, the html code generation is kind of verbose..." + self testReadAndWrite: { - { '<b>Hello, </b><b><i>World!!</i></b>!!'. 'Hello, World!!!!' asText addAttribute: TextEmphasis bold from: 1 to: 13; addAttribute: TextEmphasis italic from: 8 to: 13. + }.! - } pairsDo: [:expectedHtml :expectedText | - - self convertHtml: expectedHtml. - self assert: expectedText string equals: text string. - self assert: expectedText runs equals: text runs. - - self convertText: expectedText. - self assert: expectedHtml equals: html].! Item was changed: ----- Method: HtmlReadWriterTest>>test03FontTag (in category 'tests') ----- test03FontTag + self testReadAndWrite: { - { '<font color="#FFFF00">Hello, World!!</font>'. 'Hello, World!!' asText addAttribute: (TextColor color: Color yellow). '<font face="Accula" size="10.5">Hello, World!!</font>'. 'Hello, World!!' asText addAttribute: (TextFontReference toFont: (StrikeFont familyName: 'Accula' pointSize: 10.5)). "Note that we cannot directly use both face/size and color in the same font tag because of how #openHtmlOn: works in fonts. Works in general, but just not in this test setup." '<font face="Accula" size="10.5"><font color="#FFFF00">Hello, World!!</font></font>'. 'Hello, World!!' asText addAttribute: (TextFontReference toFont: (StrikeFont familyName: 'Accula' pointSize: 10.5)); addAttribute: (TextColor color: Color yellow). + }. + + self testRead: { + '<font + color = "reD" >Hello, World!!</font>'. + 'Hello, World!!' asText + addAttribute: (TextColor color: Color red). + '<font color="reD">Hello, World!!</font>'. + 'Hello, World!!' asText + addAttribute: (TextColor color: Color red). - } pairsDo: [:expectedHtml :expectedText | + '<Font face=Accula size="10.5" color="#FFFF00">Hello, World!!</font>'. + 'Hello, World!!' asText + addAttribute: (TextColor color: Color yellow); + addAttribute: (TextFontReference toFont: (StrikeFont familyName: 'Accula' pointSize: 10.5)). - self convertHtml: expectedHtml. - self assert: expectedText string equals: text string. - self assert: expectedText runs equals: text runs. + '<font color="rgb(var(--r),1000,0)">Hello, World!!</span>'. + 'Hello, World!!' asText. + }! - self convertText: expectedText. - self assert: expectedHtml equals: html].! Item was changed: ----- Method: HtmlReadWriterTest>>test04LineBreaks (in category 'tests') ----- test04LineBreaks { 'Hello, World!!<br> '. 'Hello, World!! ' asText. 'Hello, <b>World!!<br> </b>'. 'Hello, World!! ' asText addAttribute: TextEmphasis bold from: 8 to: 14. - } pairsDo: [:expectedHtml :expectedText | + 'Hello, <b>World<br> + !!</b>'. + 'Hello, World + !!' asText + addAttribute: TextEmphasis bold from: 8 to: 14. + } pairsDo: [:givenHtml :givenText | - self convertHtml: expectedHtml. - self assert: expectedText string equals: text string. - self assert: expectedText runs equals: text runs. + self testRead: givenHtml as: givenText. + self testWrite: givenText as: givenHtml. - self convertText: expectedText. - self assert: expectedHtml equals: html. self convertHtml: html. self convertText: text. + self assert: givenHtml equals: html]. + + self testRead: { + 'Hello<BR>World'. + 'Hello + World' asText + }.! - self assert: expectedHtml equals: html. - - - ].! Item was changed: ----- Method: HtmlReadWriterTest>>test05Escaping (in category 'tests') ----- test05Escaping + self testReadAndWrite: { - { '<b>Morph>>#drawOn:</b>'. 'Morph>>#drawOn:' asText addAttribute: TextEmphasis bold. + }.! - } pairsDo: [:expectedHtml :expectedText | - - self convertHtml: expectedHtml. - self assert: expectedText string equals: text string. - self assert: expectedText runs equals: text runs. - - self convertText: expectedText. - self assert: expectedHtml equals: html].! Item was changed: ----- Method: HtmlReadWriterTest>>test08MultilineCode (in category 'tests') ----- test08MultilineCode + self testReadAndWrite: { '<code> - { '<code> <pre>3 + 7. 3 > 4.</pre></code>' . Text string: '3 + 7. 3 > 4.' runs: (RunArray runs: #(13) values: { {TextDoIt evalString: '3 + 7. + 3 > 4. + ' } } ) + }.! - 3 > 4.' } } ) - } pairsDo: [:expectedHtml :expectedText | - - self convertHtml: expectedHtml. - self assert: expectedText string equals: text string. - self assert: expectedText runs equals: text runs. - - self convertText: expectedText. - self assert: expectedHtml equals: html].! Item was changed: ----- Method: HtmlReadWriterTest>>test09StruckOut (in category 'tests') ----- test09StruckOut + self testReadAndWrite: { - { '<s>Hello, World!!</s>'. 'Hello, World!!' asText addAttribute: TextEmphasis struckOut. '<s>Hello</s>, World!!'. 'Hello, World!!' asText addAttribute: TextEmphasis struckOut from: 1 to: 5. + }.! - } pairsDo: [:expectedHtml :expectedText | - - self convertHtml: expectedHtml. - self assert: expectedText string equals: text string. - self assert: expectedText runs equals: text runs. - - self convertText: expectedText. - self assert: expectedHtml equals: html].! Item was changed: ----- Method: HtmlReadWriterTest>>test10Underline (in category 'tests') ----- test10Underline + self testReadAndWrite: { - { '<u>Hello, World!!</u>'. 'Hello, World!!' asText addAttribute: TextEmphasis underlined. '<u>Hello</u>, World!!'. 'Hello, World!!' asText addAttribute: TextEmphasis underlined from: 1 to: 5. + }.! - } pairsDo: [:expectedHtml :expectedText | - - self convertHtml: expectedHtml. - self assert: expectedText string equals: text string. - self assert: expectedText runs equals: text runs. - - self convertText: expectedText. - self assert: expectedHtml equals: html].! Item was changed: ----- Method: HtmlReadWriterTest>>test11Alignment (in category 'tests') ----- test11Alignment + self testReadAndWrite: { - { " '<center>Hello, World!!</center>'. 'Hello, World!!' asText addAttribute: TextAlignment centered. " '<div align=left>Hello, World!!</div>'. 'Hello, World!!' asText addAttribute: TextAlignment leftFlush. '<div align=right>Hello, World!!</div>'. 'Hello, World!!' asText addAttribute: TextAlignment rightFlush. '<div align=justify>Hello, World!!</div>'. 'Hello, World!!' asText addAttribute: TextAlignment justified. + }. + + self testRead: { + '<DIV ALIGN=RIGHT>Hello, World!!</DIV>'. + 'Hello, World!!' asText addAttribute: TextAlignment rightFlush. - } pairsDo: [:expectedHtml :expectedText | + '<div align="right">Hello, World!!</div>'. + 'Hello, World!!' asText addAttribute: TextAlignment rightFlush. + + '<div align = "justify">Hello, World!!</div>'. + 'Hello, World!!' asText addAttribute: TextAlignment justified. - self convertHtml: expectedHtml. - self assert: expectedText string equals: text string. - self assert: expectedText runs equals: text runs. + '<div align="center">Hello, World!!</div>'. + 'Hello, World!!' asText addAttribute: TextAlignment centered. + }.! - self convertText: expectedText. - self assert: expectedHtml equals: html].! Item was changed: ----- Method: HtmlReadWriterTest>>test12AlignmentMixed (in category 'tests') ----- test12AlignmentMixed + self testReadAndWrite: { - { '<center>Hello, <i>World!!</i></center>'. 'Hello, World!!' asText addAttribute: TextAlignment centered; addAttribute: TextEmphasis italic from: 8 to: 13. + }.! - } pairsDo: [:expectedHtml :expectedText | - - self convertHtml: expectedHtml. - self assert: expectedText string equals: text string. - self assert: expectedText runs equals: text runs. - - self convertText: expectedText. - self assert: expectedHtml equals: html].! Item was changed: ----- Method: HtmlReadWriterTest>>test13SpanTag (in category 'tests') ----- test13SpanTag + self testRead: { + '<span style="width: 100px;color:#FFFF00; font-style : bold; font-size: 10px">Hello, World!!</span>'. - { - '<span style="width: 100px;color:#FFFF00; font-style: bold; font-size: 10px">Hello, World!!</span>'. 'Hello, World!!' asText addAttribute: (TextColor color: Color yellow); + addAttribute: TextEmphasis bold. - addAttribute: (TextEmphasis bold). - } pairsDo: [:expectedHtml :expectedText | + '<span style="width: 100px; incorrectly-empty-tag:; font-style: bold">Hello, World!!</span>'. + 'Hello, World!!' asText + addAttribute: TextEmphasis bold. + + '<span style="width: 100px; color:rgb(var(--r),1000,0); font-style: bold">Hello, World!!</span>'. + 'Hello, World!!' asText + addAttribute: TextEmphasis bold. + + '<span style="Color:Red">Hello, World!!</span>'. + 'Hello, World!!' asText + addAttribute: (TextColor color: Color red). + + '<span style="">Hello, World!!</span>'. + 'Hello, World!!' asText. + + '<span style=>Hello, World!!</span>'. + 'Hello, World!!' asText. + + '<span style>Hello, World!!</span>'. + 'Hello, World!!' asText. + + '<SPAN STYLE = "font-style: bold">Hello, World!!</SPAN>'. + 'Hello, World!!' asText + addAttribute: TextEmphasis bold. + }! - self convertHtml: expectedHtml. - self assert: expectedText string equals: text string. - self assert: expectedText runs equals: text runs]! Item was changed: ----- Method: HtmlReadWriterTest>>test14NumericalHtmlEntities (in category 'tests') ----- test14NumericalHtmlEntities + self testRead: { - { '.!'. '.!!' asText. + }.! - } pairsDo: [:expectedHtml :expectedText | - - self convertHtml: expectedHtml. - self assert: expectedText string equals: text string]! Item was changed: ----- Method: HtmlReadWriterTest>>test15NestedTagsStillEndBefore (in category 'tests') ----- test15NestedTagsStillEndBefore + self testRead: { - { '<span><i>Hallo</i> welt</span>'. 'Hallo welt' asText addAttribute: TextEmphasis italic from: 1 to: 5. + }.! - } pairsDo: [:expectedHtml :expectedText | - self convertHtml: expectedHtml. - self assert: expectedText string equals: text string. - self assert: expectedText runs equals: text runs]! Item was changed: ----- Method: HtmlReadWriterTest>>test16ImgTag (in category 'tests') ----- test16ImgTag <timeout: 10> | imgUrl imgExpression formFromUrl formFromExpression | imgUrl := 'https://squeak.org/img/downloads/image.png'. imgExpression := 'Form dotOfSize: 12@12 color: Color green'. self ensureSecureInternetConnection. formFromUrl := (Smalltalk classNamed: 'WebClient') ifNotNil: [:client | Form fromBinaryStream: (client httpGet: imgUrl) content asByteArray readStream]. formFromExpression := Compiler evaluate: imgExpression. RealEstateAgent scaleFactor = 1.0 ifFalse: [ formFromUrl := formFromUrl scaledToSize: (formFromUrl extent * RealEstateAgent scaleFactor). formFromExpression := formFromExpression scaledToSize: (formFromExpression extent * RealEstateAgent scaleFactor)]. + ({ + []. imgUrl. formFromUrl. + []. 'fantasy:wonderland/alice'. readWriter imagePlaceholder. + + []. 'code://' , imgExpression. formFromExpression. + []. 'code://Object'. readWriter imagePlaceholder. + []. 'code://' , imgExpression , ';'. readWriter imagePlaceholder. + } groupsCollect: [:prepareBlock :src :expectedForm | { + 'Hello <img src="{1}"> World' format: { src }. - { - 'Hello <img src="{1}"> World' format: { imgUrl }. ('Hello {1} World' format: { Character startOfHeader }) asText + addAttribute: expectedForm asTextAnchor from: 7 to: 7; - addAttribute: formFromUrl asTextAnchor from: 7 to: 7; addAttribute: (TextColor color: Color transparent) from: 7 to: 7. + prepareBlock}]) + + , ({ + 'Hello <img src="code://{1}"></img> World' format: { imgExpression }. - - 'Hello <img src="code://{1}"> World' format: { imgExpression }. ('Hello {1} World' format: { Character startOfHeader }) asText addAttribute: formFromExpression asTextAnchor from: 7 to: 7; addAttribute: (TextColor color: Color transparent) from: 7 to: 7. + 'Hello <img src="code://{1}"/> World' format: { imgExpression }. + ('Hello {1} World' format: { Character startOfHeader }) asText + addAttribute: formFromExpression asTextAnchor from: 7 to: 7; + addAttribute: (TextColor color: Color transparent) from: 7 to: 7. - } pairsDo: [:expectedHtml :expectedText | + 'Hello <IMG SRC = "code://{1}"> World' format: { imgExpression }. + ('Hello {1} World' format: { Character startOfHeader }) asText + addAttribute: formFromExpression asTextAnchor from: 7 to: 7; + addAttribute: (TextColor color: Color transparent) from: 7 to: 7. + + } pairsCollect: [:html :expectedText | {html. expectedText}]) + collect: [:spec | + | html expectedText prepareBlock | + html := spec first. + expectedText := spec second. + prepareBlock := spec at: 3 ifAbsent: []. + + self setUpReadWriter. + prepareBlock value. + self convertHtml: html. - self convertHtml: expectedHtml. self assert: expectedText string equals: text string. expectedText runs with: text runs do: [:expectedAttributes :actualAttributes | expectedAttributes with: actualAttributes do: [:expectedAttribute :actualAttribute | self assert: (expectedAttribute = actualAttribute or: [ ((expectedAttribute respondsTo: #anchoredMorph) and: [actualAttribute respondsTo: #anchoredMorph]) and: [(expectedAttribute anchoredMorph "aForm" unhibernate; bits) = (actualAttribute anchoredMorph "aForm" unhibernate; bits)] ]) ]]].! Item was added: + ----- Method: HtmlReadWriterTest>>test19ExcludedTags (in category 'tests') ----- + test19ExcludedTags + + { + 'A<b>B<script>C<i>D</i>E</script>F</b>G'. + 'A<b>BF</b>G' asTextFromHtml. + + 'A<script>B<style>C</style>D</script>E'. + 'AE' asText. + } pairsDo: [:expectedHtml :expectedText | + + self convertHtml: expectedHtml. + self assert: expectedText string equals: text string. + self assert: expectedText runs equals: text runs]! Item was added: + ----- Method: HtmlReadWriterTest>>test20Link (in category 'tests') ----- + test20Link + + self testReadAndWrite: { + '<a href="https://squeak.org">hErE</a>'. + 'hErE' asText addAttribute: (TextURL url: 'https://squeak.org'). + + '<a href="code://World explore">hErE</a>'. + 'hErE' asText addAttribute: (TextURL url: 'code://World explore'). + }. + + self testRead: { + '<a href = + "https://squeak.org">hErE</a>'. + 'hErE' asText addAttribute: (TextURL url: 'https://squeak.org'). + + '<a href=https://squeak.org>hErE</a>'. + 'hErE' asText addAttribute: (TextURL url: 'https://squeak.org'). + + '<a href="https://www.google.com/search?q="modern, open-source Smalltalk"">hErE</a>'. + 'hErE' asText addAttribute: (TextURL url: 'https://www.google.com/search?q="modern, open-source Smalltalk"'). + + '<alt href="https://squeak.org">hi</alt>'. "also begins with <a" + 'hi' asText. + }.! Item was added: + ----- Method: HtmlReadWriterTest>>test21BreakLines (in category 'tests') ----- + test21BreakLines + + { + ' a b '. + 'a b' asText. + ' a b ' asText. + + ' a + + <b> b </b> + '. + 'a b' asText addAttribute: TextEmphasis bold from: 3 to: 3. + ' a + + b + ' asText addAttribute: TextEmphasis bold from: 6 to: 8. + + "breakLines is preserved after <pre> tag" + ' a <pre> b + </pre> c '. + 'a + b + + c' asText. + ' a + b + + c ' asText. + + "linebreaks in tags are NOT ignored" + 'a<s + pan>b</span>c'. + 'abc' asText addAttribute: TextEmphasis struckOut from: 2 to: 2. + 'abc' asText addAttribute: TextEmphasis struckOut from: 2 to: 2. + } groupsDo: [:givenHtml :expectedBreakLines :expectedNoBreakLines | + + self setUpReadWriter breakLines: true. + self testRead: givenHtml as: expectedBreakLines. + self setUpReadWriter breakLines: false. + self testRead: givenHtml as: expectedNoBreakLines].! Item was added: + ----- Method: HtmlReadWriterTest>>test22LinebreakAcceptance (in category 'tests') ----- + test22LinebreakAcceptance + + self testRead: { + '<div>Hi all!!<div></div><div><br></div><div><span>Squeak.</span></div><div><span>Is.</span><br></div><div><span><b>Great.</b></span></div></div>'. + 'Hi all!! + + Squeak. + Is. + Great.' asText addAttribute: TextEmphasis bold from: 22 to: 27. + + '<html> + <head> + <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> + </head> + <body> + <div class="WordSection1"> + <p>Hi all,</p> + <p><o:p> </o:p></p> + <p>You are <i>so</i> right!!</p> + </div> + </body>'. + 'Hi all, + + You are so right!!' asText addAttribute: TextEmphasis italic from: 19 to: 20. + + '<div> + <p>I agree!!</p> + <p><br> + </p> + <p>Best,</p> + <p>Everyone</p> + </div> + <hr> + <div>signature</div>'. + 'I agree!! + + Best, + Everyone + + signature' asText + }.! Item was added: + ----- Method: HtmlReadWriterTest>>testRead: (in category 'running') ----- + testRead: pairs + + pairs pairsDo: [:givenHtml :expectedText | + self testRead: givenHtml as: expectedText].! Item was added: + ----- Method: HtmlReadWriterTest>>testRead:as: (in category 'running') ----- + testRead: givenHtml as: expectedText + + self convertHtml: givenHtml. + self assert: expectedText string equals: text string. + self assert: expectedText runs equals: text runs.! Item was added: + ----- Method: HtmlReadWriterTest>>testReadAndWrite: (in category 'running') ----- + testReadAndWrite: pairs + + pairs pairsDo: [:givenHtml :givenText | + self testRead: givenHtml as: givenText. + self testWrite: givenText as: givenHtml].! Item was added: + ----- Method: HtmlReadWriterTest>>testWrite:as: (in category 'running') ----- + testWrite: givenText as: expectedHtml + + self convertText: givenText. + self assert: expectedHtml equals: html.!

1 0

The Trunk: CollectionsTests-ct.389.mcz
by commits＠source.squeak.org 20 May '23

20 May '23

Christoph Thiede uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-ct.389.mcz ==================== Summary ==================== Name: CollectionsTests-ct.389 Author: ct Time: 20 May 2023, 5:17:15.932462 pm UUID: def11a9e-a326-6c4e-b43d-a1141be4a6fc Ancestors: CollectionsTests-ct.388 Complements Collections-ct.1035 (adds SequenceableCollection>>groupsCollect:). =============== Diff against CollectionsTests-ct.388 =============== Item was added: + ----- Method: SequenceableCollectionTest>>testGroupsCollect (in category 'tests - copying') ----- + testGroupsCollect + + | array | + array := (1 to: 12) asArray. + self shouldRaiseError: [array groupsCollect: []]. + self assert: array * 2 equals: + (array groupsCollect: [:each | each * 2]). + self assert: #((1 2) (3 4) (5 6) (7 8) (9 10) (11 12)) equals: + (array groupsCollect: [:a :b | { a. b }]). + self assert: #((1 2 3) (4 5 6) (7 8 9) (10 11 12)) equals: + (array groupsCollect: [:a :b :c | { a. b. c }]). + self assert: #() equals: + (#(1 2 3) groupsCollect: [:a :b :c :d | { a. b. c. d } ]).!

1 0

The Trunk: Collections-ct.1035.mcz
by commits＠source.squeak.org 20 May '23

20 May '23

Christoph Thiede uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ct.1035.mcz ==================== Summary ==================== Name: Collections-ct.1035 Author: ct Time: 20 May 2023, 5:16:35.545462 pm UUID: c36b5e22-b60e-7148-ba41-35c553fb023a Ancestors: Collections-ct.1034 Adds SequenceableCollection>>groupsCollect: (analogously to #groupsDo: and #pairsCollect:). Especially useful for tests. =============== Diff against Collections-ct.1034 =============== Item was added: + ----- Method: SequenceableCollection>>groupsCollect: (in category 'enumerating') ----- + groupsCollect: aBlock + "Evaluate aBlock with my elements taken n at a time, where n is the number of arguments of aBlock, and asnwer an Array with the results. Ignore any leftovers at the end." + + | index argumentArray results numArgs endIndex | + numArgs := aBlock numArgs. + numArgs + caseOf: { + [ 0 ] -> [ ^self error: 'At least one block argument expected.' ]. + [ 1 ] -> [ ^self collect: aBlock ]. + [ 2 ] -> [ ^self pairsCollect: aBlock ] } + otherwise: []. + argumentArray := Array new: numArgs. + results := (Array new: self size // numArgs) writeStream. + index := 1. + endIndex := self size - numArgs + 1. + [ index <= endIndex ] whileTrue: [ + argumentArray + replaceFrom: 1 + to: numArgs + with: self + startingAt: index. + results nextPut: (aBlock valueWithArguments: argumentArray). + index := index + numArgs ]. + ^ results contents!

1 0

The Trunk: CollectionsTests-ct.388.mcz
by commits＠source.squeak.org 20 May '23

20 May '23

Christoph Thiede uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-ct.388.mcz ==================== Summary ==================== Name: CollectionsTests-ct.388 Author: ct Time: 20 May 2023, 1:34:12.322278 pm UUID: 39970f78-2332-344d-91eb-3e592cf07dfb Ancestors: CollectionsTests-ct.387 Complements Collections-ct.1034 (String>>#beginsWith:caseSensitive: and #endsWith:caseSensitive:). =============== Diff against CollectionsTests-ct.387 =============== Item was added: + ----- Method: StringTest>>testBeginsWithCaseSensitive (in category 'tests - finding') ----- + testBeginsWithCaseSensitive + + self assert: ('Elvis' beginsWith: 'Elv' caseSensitive: true). + self deny: ('Elvis' beginsWith: 'elv' caseSensitive: true). + + self assert: ('Elvis' beginsWith: 'Elvis' caseSensitive: false). + self assert: ('Elvis' beginsWith: 'elvis' caseSensitive: false). + self assert: ('Elvis' beginsWith: 'E' caseSensitive: false). + self assert: ('Elvis' beginsWith: 'e' caseSensitive: false). + self deny: ('Elvis' beginsWith: 'Elvis ' caseSensitive: false). + self assert: ('' beginsWith: '' caseSensitive: false). + self assert: ('abc' beginsWith: '' caseSensitive: false)! Item was added: + ----- Method: StringTest>>testEndsWithCaseSensitive (in category 'tests - finding') ----- + testEndsWithCaseSensitive + + self assert: ('Elvis' endsWith: 'vis' caseSensitive: true). + self deny: ('Elvis' endsWith: 'viS' caseSensitive: true). + + self assert: ('Elvis' endsWith: 'vis' caseSensitive: false). + self assert: ('Elvis' endsWith: 'viS' caseSensitive: false). + self assert: ('Elvis' endsWith: 'Elvis' caseSensitive: false). + self assert: ('Elvis' endsWith: 's' caseSensitive: false). + self assert: ('Elvis' endsWith: 'S' caseSensitive: false). + self deny: ('Elvis' endsWith: ' Elvis' caseSensitive: false). + self assert: ('' endsWith: '' caseSensitive: false). + self assert: ('abc' endsWith: '' caseSensitive: false)!

1 0

The Trunk: Collections-ct.1034.mcz
by commits＠source.squeak.org 20 May '23

20 May '23

Christoph Thiede uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ct.1034.mcz ==================== Summary ==================== Name: Collections-ct.1034 Author: ct Time: 20 May 2023, 1:33:29.111278 pm UUID: e23dc425-a4b4-de4c-91bc-19772d83f449 Ancestors: Collections-ct.1033 Adds String>>#beginsWith:caseSensitive: and #endsWith:caseSensitive:. =============== Diff against Collections-ct.1033 =============== Item was added: + ----- Method: String>>beginsWith:caseSensitive: (in category 'testing') ----- + beginsWith: sequence caseSensitive: caseSensitive + "Answer if the receiver starts with the argument collection." + + | index sequenceSize | + caseSensitive ifTrue: [^ self beginsWith: sequence]. + sequenceSize := sequence size. + self size < sequenceSize ifTrue: [ ^false ]. + index := 0. + [ (index := index + 1) <= sequenceSize ] whileTrue: [ + ((sequence at: index) sameAs: (self at: index)) ifFalse: [ ^false ] ]. + ^true! Item was added: + ----- Method: String>>endsWith:caseSensitive: (in category 'testing') ----- + endsWith: sequence caseSensitive: caseSensitive + "Answer if the receiver ends with the argument collection." + + | index sequenceSize offset | + caseSensitive ifTrue: [^ self endsWith: sequence]. + sequence isString ifFalse: [ ^super endsWith: sequence ]. + sequenceSize := sequence size. + (offset := self size - sequenceSize) < 0 ifTrue: [ ^false ]. + index := 0. + [ (index := index + 1) <= sequenceSize ] whileTrue: [ + ((sequence at: index) sameAs: (self at: index + offset)) ifFalse: [ ^false ] ]. + ^true! Item was changed: ----- Method: String>>linesDo: (in category 'accessing') ----- linesDo: aBlock + "Execute aBlock with each line in the receiver. The terminating line delimiters CR, LF or CRLF pairs are not included in what is passed to aBlock." - "Execute aBlock with each line in this string. The terminating line delimiters CR, LF or CRLF pairs are not included in what is passed to aBlock" self lineIndicesDo: [:start :endWithoutDelimiters :end | aBlock value: (self copyFrom: start to: endWithoutDelimiters)]!

1 0

The Trunk: CollectionsTests-ct.387.mcz
by commits＠source.squeak.org 20 May '23

20 May '23

Christoph Thiede uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-ct.387.mcz ==================== Summary ==================== Name: CollectionsTests-ct.387 Author: ct Time: 20 May 2023, 1:07:09.075278 pm UUID: dc388405-b9b6-ea40-a634-454f362bfbb7 Ancestors: CollectionsTests-mt.386 Complements Collections-ct.1033 (complements Text protocols). =============== Diff against CollectionsTests-mt.386 =============== Item was added: + ----- Method: TextTest>>testLineCorrespondingToIndex (in category 'tests -lines ') ----- + testLineCorrespondingToIndex + + | sampleText | + sampleText := '<i>F<b>red<br>t</b>he<br><u>Bear</u></i>' asTextFromHtml. + + self flag: #forLater. "do not re- and enable common attributes in HtmlReadWriter" + self assert: '<i><b>t</b></i><i>he</i>' equals: + (sampleText lineCorrespondingToIndex: (sampleText indexOf: $h)) + printHtmlString. + self assert: '<i><u>Bear</u></i>' equals: + (sampleText lineCorrespondingToIndex: (sampleText indexOf: $B)) + printHtmlString. + self assert: '<i>F</i><i><b>red</b></i>' equals: + (sampleText lineCorrespondingToIndex: (sampleText indexOf: $d)) + printHtmlString.! Item was added: + ----- Method: TextTest>>testLineCount (in category 'tests -lines ') ----- + testLineCount + + | sampleText | + sampleText := '<i>F<b>red<br>t</b>he<br><u>Bear</u></i>' asTextFromHtml. + self assert: 3 equals: sampleText lineCount.! Item was added: + ----- Method: TextTest>>testLineNumber (in category 'tests -lines ') ----- + testLineNumber + + | sampleText | + sampleText := '<i>F<b>red<br>t</b>he<br><u>Bear</u></i>' asTextFromHtml. + self flag: #forLater. "do not re- and enable common attributes in HtmlReadWriter" + self assert: '<i><b>t</b></i><i>he</i>' equals: (sampleText lineNumber: 2) printHtmlString.! Item was added: + ----- Method: TextTest>>testLines (in category 'tests -lines ') ----- + testLines + + | html text lines | + html := '<u>F<b>red</b>', String cr , '<i>the' , String lf , 'Bear</i>'. + text := (HtmlReadWriter on: html readStream) + breakLines: false; + nextText. + + lines := text lines. + self + assert: + (#('F<b>red</b>' '<i>the</i>' '<i>Bear</i>') collect: #asTextFromHtml) + equals: lines.!

1 0

The Trunk: Collections-ct.1033.mcz
by commits＠source.squeak.org 20 May '23

20 May '23

Christoph Thiede uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ct.1033.mcz ==================== Summary ==================== Name: Collections-ct.1033 Author: ct Time: 20 May 2023, 1:04:49.847278 pm UUID: 52d747d7-dbb4-464d-b619-ba629ff9e2ec Ancestors: Collections-mt.1032 Complements Text protocols for #findString:, #lines, #empty, and #withoutTrailingBlanks. Revises #withBlanksTrimmed and #withoutLeadingBlanks to answer an empty text rather than an empty string when no separator was found. See https://lists.squeakfoundation.org/archives/list/squeak-dev@lists.squeakfou…. =============== Diff against Collections-mt.1032 =============== Item was added: + ----- Method: Text class>>empty (in category 'instance creation') ----- + empty + + ^ self new! Item was added: + ----- Method: Text>>findString: (in category 'accessing') ----- + findString: subString + "Answer the index of subString within the receiver, starting at start. If the receiver does not contain subString, answer 0." + + ^ self findString: subString startingAt: 1! Item was added: + ----- Method: Text>>lineCorrespondingToIndex: (in category 'accessing') ----- + lineCorrespondingToIndex: anIndex + "Answer a text containing the line at the given character position." + + self lineIndicesDo: [:start :endWithoutDelimiters :end | + anIndex <= end ifTrue: [^ self copyFrom: start to: endWithoutDelimiters]]. + ^ Text empty! Item was added: + ----- Method: Text>>lineIndicesDo: (in category 'accessing') ----- + lineIndicesDo: aBlock + "execute aBlock with 3 arguments for each line: + - start index of line + - end index of line without line delimiter + - end index of line including line delimiter(s) CR, LF or CRLF" + + ^ self string lineIndicesDo: aBlock! Item was added: + ----- Method: Text>>lineNumber: (in category 'accessing') ----- + lineNumber: anIndex + "Answer a text containing the characters in the given line number." + + | lineCount | + lineCount := 0. + self lineIndicesDo: [:start :endWithoutDelimiters :end | + (lineCount := lineCount + 1) = anIndex ifTrue: [ + ^ self copyFrom: start to: endWithoutDelimiters]]. + ^ nil! Item was added: + ----- Method: Text>>lines (in category 'accessing') ----- + lines + "Answer an array of lines composing this receiver without the line ending delimiters." + + ^ Array new: (self size // 60 max: 16) streamContents: [:lines | + self linesDo: [:aLine | lines nextPut: aLine]]! Item was added: + ----- Method: Text>>linesDo: (in category 'accessing') ----- + linesDo: aBlock + "Execute aBlock with each line in the receiver. The terminating line delimiters CR, LF or CRLF pairs are not included in what is passed to aBlock." + + self lineIndicesDo: [:start :endWithoutDelimiters :end | + aBlock value: (self copyFrom: start to: endWithoutDelimiters)].! Item was changed: ----- Method: Text>>withBlanksTrimmed (in category 'converting') ----- withBlanksTrimmed "Return a copy of the receiver from which leading and trailing blanks have been trimmed." | first last | first := string indexOfAnyOf: CharacterSet nonSeparators startingAt: 1. + first = 0 ifTrue: [ ^Text empty ]. "no non-separator character" - first = 0 ifTrue: [ ^'' ]. "no non-separator character" last := string lastIndexOfAnyOf: CharacterSet nonSeparators startingAt: self size ifAbsent: [self size]. (first = 1 and: [ last = self size ]) ifTrue: [ ^self copy ]. ^self copyFrom: first to: last ! Item was changed: ----- Method: Text>>withoutLeadingBlanks (in category 'converting') ----- withoutLeadingBlanks "Return a copy of the receiver from which leading blanks have been trimmed." | first | first := string indexOfAnyOf: CharacterSet nonSeparators startingAt: 1. + first = 0 ifTrue: [ ^Text empty ]. "no non-separator character" - first = 0 ifTrue: [ ^'' ]. "no non-separator character" first = 1 ifTrue: [ ^self copy ]. ^self copyFrom: first to: self size ! Item was added: + ----- Method: Text>>withoutTrailingBlanks (in category 'converting') ----- + withoutTrailingBlanks + "Answer a copy of the receiver from which trailing blanks have been trimmed." + + | last | + last := self findLast: [:c | c isSeparator not]. + last = 0 ifTrue: [^ Text empty]. "no non-separator character" + ^ self copyFrom: 1 to: last!

1 0

The Trunk: Tools-mt.1206.mcz
by commits＠source.squeak.org 19 May '23

19 May '23

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1206.mcz ==================== Summary ==================== Name: Tools-mt.1206 Author: mt Time: 19 May 2023, 2:38:44.437883 pm UUID: 5656edf0-b59a-e24c-a00e-61abbf874e76 Ancestors: Tools-ct.1205 Fixes sorting in '-- core --' message category. =============== Diff against Tools-ct.1205 =============== Item was changed: ----- Method: TreeBrowser>>messageList (in category 'message list') ----- messageList "Overwritten to show all extensions when the '-- extensions --' category is selected." self selectedMessageCategoryName = self class coreCategory ifTrue: [ + ^ (Array streamContents: [:coreSelectors | - ^ Array streamContents: [:coreSelectors | self classOrMetaClassOrganizer categories reject: [:cat | cat first == $*] + thenDo: [:coreCat | (self classOrMetaClassOrganizer listAtCategoryNamed: coreCat) + do: [:coreSel | coreSelectors nextPut: (self formattedLabel: coreSel)]]]) sort]. - thenDo: [:extCat | (self classOrMetaClassOrganizer listAtCategoryNamed: extCat) - do: [:extSel | coreSelectors nextPut: (self formattedLabel: extSel)]]]]. ^ self selectedMessageCategoryName = self class extensionCategory ifFalse: [super messageList] ifTrue: [ Array streamContents: [:extensionSelectors | self classOrMetaClassOrganizer categories select: [:cat | cat first == $*] thenDo: [:extCat | (self classOrMetaClassOrganizer listAtCategoryNamed: extCat) do: [:extSel | extensionSelectors nextPut: (self formattedLabel: extSel)]]]]!

1 0

The Trunk: Morphic-ct.2108.mcz
by commits＠source.squeak.org 19 May '23

19 May '23

Christoph Thiede uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.2108.mcz ==================== Summary ==================== Name: Morphic-ct.2108 Author: ct Time: 19 May 2023, 2:12:13.929069 pm UUID: 6a5d7c0a-b332-3a4b-a3e8-d39454db7b07 Ancestors: Morphic-mt.2107 Immediately update ClockMorph contents after changing its configuration. This fixes the issue of seeing a 12hr time in the docking bar during an update stream update which updates the docking bar through a script. =============== Diff against Morphic-mt.2107 =============== Item was changed: ----- Method: ClockMorph>>show24hr: (in category '24hr') ----- show24hr: aBoolean + show24hr := aBoolean. + self step.! - show24hr := aBoolean! Item was changed: ----- Method: ClockMorph>>showSeconds: (in category 'seconds') ----- showSeconds: aBoolean + showSeconds := aBoolean. + self step.! - showSeconds := aBoolean!

1 0

The Trunk: NetworkTests-ct.66.mcz
by commits＠source.squeak.org 19 May '23

19 May '23

Christoph Thiede uploaded a new version of NetworkTests to project The Trunk: http://source.squeak.org/trunk/NetworkTests-ct.66.mcz ==================== Summary ==================== Name: NetworkTests-ct.66 Author: ct Time: 19 May 2023, 1:51:11.776195 pm UUID: 030995f9-d9dc-8b4b-bbbc-8ee972a131be Ancestors: NetworkTests-ct.65 Complements Network-ct.269 (support for ascdate/cdate format in MailMessage headers). =============== Diff against NetworkTests-ct.65 =============== Item was changed: + ClassTestCase subclass: #MailMessageTest - TestCase subclass: #MailMessageTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'NetworkTests-RFC822'! !MailMessageTest commentStamp: 'tonyg 9/12/2011 09:17' prior: 0! This is the unit test for the class MailMessage.! Item was changed: + ----- Method: MailMessageTest>>testCreateAReplyHasANewSubjectUnlessWasAlreadyReply (in category 'tests') ----- - ----- Method: MailMessageTest>>testCreateAReplyHasANewSubjectUnlessWasAlreadyReply (in category 'testing') ----- testCreateAReplyHasANewSubjectUnlessWasAlreadyReply | replyMail startMail | startMail := self fixtureMail subject: 'Re: Subject'; yourself. replyMail := MailMessage replyFor: startMail. self assert: 'Re: Subject' equals: replyMail subject.! Item was added: + ----- Method: MailMessageTest>>testDate (in category 'tests') ----- + testDate + + #('Thu, 22 Jun 2000 14:17:47 -500' '2000-06-22T14:17:47-0500' + 'Thu, 22 Jun 2000 14:17:47 --500' '2000-06-22T14:17:47+0000' + "'on, 04 apr 2001 14:57:32' '2001-04-04T14:57:32'" + 'Thu, 16 Aug 2007 05:22:36 +0100' '2007-08-16T05:22:36+0100' + 'Sat Jan 28 04:01:00 2012' '2012-01-28T04:01:00+0000' + 'Wed, 1 Feb 2023 09:28:22 0000' '2023-02-01T09:28:22+0000') + pairsDo: [:string :expected | + | date expectedDate | + date := self classToBeTested new + setField: 'date' toString: string; + date. + expectedDate := DateAndTime fromString: expected. + self assert: expectedDate asLocal equals: date].!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages May 2023