Packages January 2022

packages@lists.squeakfoundation.org

1 participants
209 discussions

The Trunk: CollectionsTests-ct.368.mcz
by commits＠source.squeak.org 10 Jan '22

10 Jan '22

Christoph Thiede uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-ct.368.mcz ==================== Summary ==================== Name: CollectionsTests-ct.368 Author: ct Time: 10 January 2022, 8:03:34.822597 pm UUID: a071bc20-7ee8-c64b-a012-4d0b77d7317d Ancestors: CollectionsTests-ct.367 Fixes failing collection tests. CharacterTest >> #test{Print,Store}String: Character cr's constant name has changed to #return. See Collections-mt.945. HtmlReadWriterTest >> #test03FontTag: Accula font is only available in sizes 10.5 and 21. Choose the first one. =============== Diff against CollectionsTests-ct.367 =============== Item was changed: ----- Method: CharacterTest>>testPrintString (in category 'tests - printing') ----- testPrintString self assert: $a printString = '$a'. self assert: $5 printString = '$5'. self assert: $@ printString = '$@'. + self assert: Character return printString = 'Character return'. - self assert: Character cr printString = 'Character cr'. self assert: Character lf printString = 'Character lf'. self assert: Character space printString = 'Character space'. self assert: Character null printString = 'Character null'. self assert: (Character value: 17) printString = 'Character value: 17'.! Item was changed: ----- Method: CharacterTest>>testStoreString (in category 'tests - printing') ----- testStoreString self assert: $a storeString = '$a'. self assert: $5 storeString = '$5'. self assert: $@ storeString = '$@'. + self assert: Character return storeString = 'Character return'. - self assert: Character cr storeString = 'Character cr'. self assert: Character lf storeString = 'Character lf'. self assert: Character space storeString = 'Character space'. self assert: Character null storeString = 'Character null'. self assert: (Character value: 17) storeString = '(Character value: 17)'.! Item was changed: ----- Method: HtmlReadWriterTest>>test03FontTag (in category 'tests') ----- test03FontTag { 'Hello, World!!'. 'Hello, World!!' asText addAttribute: (TextColor color: Color yellow). + 'Hello, World!!'. - 'Hello, World!!'. 'Hello, World!!' asText + addAttribute: (TextFontReference toFont: (StrikeFont familyName: 'Accula' pointSize: 10.5)). - addAttribute: (TextFontReference toFont: (StrikeFont familyName: 'Accula' pointSize: 12)). "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." + 'Hello, World!!'. - 'Hello, World!!'. 'Hello, World!!' asText + addAttribute: (TextFontReference toFont: (StrikeFont familyName: 'Accula' pointSize: 10.5)); - addAttribute: (TextFontReference toFont: (StrikeFont familyName: 'Accula' pointSize: 12)); addAttribute: (TextColor color: Color yellow). } 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].!

1 0

The Trunk: SUnitTools-ct.6.mcz
by commits＠source.squeak.org 10 Jan '22

10 Jan '22

Christoph Thiede uploaded a new version of SUnitTools to project The Trunk: http://source.squeak.org/trunk/SUnitTools-ct.6.mcz ==================== Summary ==================== Name: SUnitTools-ct.6 Author: ct Time: 14 November 2020, 8:14:53.273394 pm UUID: 2fe96258-4e5a-cc48-86e0-d0ca57eedbf7 Ancestors: SUnitTools-tcj.4 Proposal: Show modal notification if "find test case" or "find tested item" in a class or message menu failed to find an appropriate code object. =============== Diff against SUnitTools-tcj.4 =============== Item was changed: ----- Method: CodeHolder>>testBrowseClassNamed:possibleMessageNamed: (in category '*SUnitTools-running') ----- testBrowseClassNamed: aClassName possibleMessageNamed: aMessageName | cls selector | + (self class environment hasClassNamed: aClassName) + ifFalse: [^ false]. - (self class environment hasClassNamed: aClassName) ifFalse: ["no dice" ^ self]. cls := self class environment classNamed: aClassName. (aMessageName notNil and: [cls includesLocalSelector: (selector := aMessageName asSymbol)]) ifTrue: [ToolSet browse: cls selector: selector] + ifFalse: [ToolSet browseClass: cls]. + + ^ true! - ifFalse: [ToolSet browseClass: cls].! Item was changed: ----- Method: CodeHolder>>testFindTest (in category '*SUnitTools-running') ----- testFindTest | cls destClassName destMessage | cls := self selectedClass ifNil: [^ self]. - cls isTestClass ifTrue: [" already there " ^ self]. destClassName := cls name asString, 'Test'. destMessage := self selectedMessageName ifNotNil: [:name | self testSelectorFrom: name]. + + (self testBrowseClassNamed: destClassName possibleMessageNamed: destMessage) + ifFalse: [self inform: ('There is no test for {1}' translated + format: {self selectedMessageName ifNil: [cls]})].! - self testBrowseClassNamed: destClassName possibleMessageNamed: destMessage - ! Item was changed: ----- Method: CodeHolder>>testFindTested (in category '*SUnitTools-running') ----- testFindTested | cls classNameParts destClassName destMessage | cls := self selectedClass ifNil: [^ self]. cls isTestClass ifFalse: [" already there " ^ self]. classNameParts := cls name asString piecesCutWhere: [:a :b | b isUppercase]. destClassName := (classNameParts last beginsWith: 'Test') ifTrue: [classNameParts allButLast join] + ifFalse: [^ self inform: ('Did not find tested item for {1}' translated + format: {cls})]. - ifFalse: [^ self]. destMessage := self selectedMessageName ifNotNil: [:selector | | messageName | messageName := selector asString. (messageName beginsWith: 'test') "operate on test methods only" ifTrue: [ (self class environment classNamed: destClassName) ifNotNil: [:destClass | destClass selectors detect: [:destSelector | (self testSelectorFrom: destSelector) = messageName] ifNone: [nil]]] ifFalse: [nil]]. + + (self testBrowseClassNamed: destClassName possibleMessageNamed: destMessage) + ifFalse: [self inform: ('Did not find tested item for {1}' translated + format: {self selectedMessageName ifNil: [cls]})].! - self testBrowseClassNamed: destClassName possibleMessageNamed: destMessage - !

1 0

The Trunk: Tests-ct.444.mcz
by commits＠source.squeak.org 10 Jan '22

10 Jan '22

Christoph Thiede uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-ct.444.mcz ==================== Summary ==================== Name: Tests-ct.444 Author: ct Time: 2 November 2020, 8:00:44.071122 pm UUID: c171d656-c1c7-8644-9267-2fddf331d58c Ancestors: Tests-mt.442 Complements SUnit-ct.131. =============== Diff against Tests-mt.442 =============== Item was removed: - ----- Method: CompilerNotifyingTest class>>lastStoredRun (in category 'history') ----- - lastStoredRun - ^ ((Dictionary new) add: (#failures->((Set new) add: #testTooManyArguments; add: #testifTrueBlockWithArgument; add: #testMissingArgumentAfterAMessageKey; add: #testTooManyLiterals; add: #testAlltogether; add: #testUnmatchedLocalTempDeclarationInABlock; add: #testUnmatchedExpressionParenthesis; add: #testCaseOtherwiseBlockWithArgument; yourself)); add: (#errors->((Set new) add: #testTooManyTemporaries; yourself)); add: (#passed->((Set new) add: #testUnmatchedBraceArray; add: #testTooLargeAnIntegerInALiteralByteArray; add: #testDigitTooLargeForARadix; add: #testInvalidLiteralCharacter; add: #testAssignmentOfSelf; add: #testInvalidPrimitive; add: #testInvalidExternalFunctionDeclaration; add: #testMissingExpressionAfterAReturn; add: #testInvalidRadix; add: #testMissingArgumentAfterABinaryMessage; add: #testMissingPeriodSeparatorBetweenStatements; add: #testCascadeInASuperSend; add: #testATempShadowingAnotherTemp; add: #testExtraneousStatementAfterAReturnInABlock; add: #testLiteralChar acterMissing; add: #testUnmatchedCommentQuote; add: #testInvalidPattern; add: #testUnmatchedByteArrayBracket; add: #testUnmatchedLiteralParenthesis; add: #testUnmatchedLocalTempDeclaration; add: #testExpectedExpressionInBraceArray; add: #testInvalidPragma; add: #testMissingSeparatorBetweenBlockArgumentAndStatements; add: #testMissingBlockArgumentName; add: #testMissingMessageAfterACascade; add: #testUnmatchedStringQuote; add: #testTempDoubledDefined; add: #testMissingExpression; add: #testUnmatchedBlockBracket; add: #testEmptyCaseStatement; yourself)); add: (#timeStamp->'22 February 2012 3:52:10 am' asTimeStamp); yourself)!

1 0

The Trunk: Tests-ct.472.mcz
by commits＠source.squeak.org 10 Jan '22

10 Jan '22

Christoph Thiede uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-ct.472.mcz ==================== Summary ==================== Name: Tests-ct.472 Author: ct Time: 10 January 2022, 7:04:44.579518 pm UUID: 468e4a8f-6b62-fb46-a3e4-abd4f7a2f30b Ancestors: Tests-ct.471, Tests-ct.444 Merges Tests-ct.444 (complements SUnit-ct.131). =============== Diff against Tests-ct.471 =============== Item was removed: - ----- Method: CompilerNotifyingTest class>>lastStoredRun (in category 'history') ----- - lastStoredRun - ^ ((Dictionary new) add: (#failures->((Set new) add: #testTooManyArguments; add: #testifTrueBlockWithArgument; add: #testMissingArgumentAfterAMessageKey; add: #testTooManyLiterals; add: #testAlltogether; add: #testUnmatchedLocalTempDeclarationInABlock; add: #testUnmatchedExpressionParenthesis; add: #testCaseOtherwiseBlockWithArgument; yourself)); add: (#errors->((Set new) add: #testTooManyTemporaries; yourself)); add: (#passed->((Set new) add: #testUnmatchedBraceArray; add: #testTooLargeAnIntegerInALiteralByteArray; add: #testDigitTooLargeForARadix; add: #testInvalidLiteralCharacter; add: #testAssignmentOfSelf; add: #testInvalidPrimitive; add: #testInvalidExternalFunctionDeclaration; add: #testMissingExpressionAfterAReturn; add: #testInvalidRadix; add: #testMissingArgumentAfterABinaryMessage; add: #testMissingPeriodSeparatorBetweenStatements; add: #testCascadeInASuperSend; add: #testATempShadowingAnotherTemp; add: #testExtraneousStatementAfterAReturnInABlock; add: #testLiteralChar acterMissing; add: #testUnmatchedCommentQuote; add: #testInvalidPattern; add: #testUnmatchedByteArrayBracket; add: #testUnmatchedLiteralParenthesis; add: #testUnmatchedLocalTempDeclaration; add: #testExpectedExpressionInBraceArray; add: #testInvalidPragma; add: #testMissingSeparatorBetweenBlockArgumentAndStatements; add: #testMissingBlockArgumentName; add: #testMissingMessageAfterACascade; add: #testUnmatchedStringQuote; add: #testTempDoubledDefined; add: #testMissingExpression; add: #testUnmatchedBlockBracket; add: #testEmptyCaseStatement; yourself)); add: (#timeStamp->'22 February 2012 3:52:10 am' asTimeStamp); yourself)!

1 0

The Trunk: SUnit-ct.133.mcz
by commits＠source.squeak.org 10 Jan '22

10 Jan '22

Christoph Thiede uploaded a new version of SUnit to project The Trunk: http://source.squeak.org/trunk/SUnit-ct.133.mcz ==================== Summary ==================== Name: SUnit-ct.133 Author: ct Time: 29 December 2021, 6:38:28.060638 pm UUID: 83af50fb-86e6-d843-8e9e-9abe8e8e379a Ancestors: SUnit-mt.125 Updates debugging logic of TestCase. Instead of abusing #halt, open a debugger directly on the entrypoint to run the case. Deprecates #openDebuggerOnFailingTestMethod. Also slightly refactors internal behavior to avoid some duplication, and to get rid of unnecessary semaphores which do not add any value compared to #ensure: unless some really low-level things are broken. Supersedes SUnit-ct.125. Based on my own experiences from >1.5 years, I have revised #debugAsFailure to always halt right before sending #setUp. This improves a) the explorability of any custom set-up/tear-down logic of the test case and b) the immediacy of opening a debugger if you have a very heavy #setUp implementation. From the user perspective, effectively, you still have to click "Over-into-over-into" to navigate into the actual test method. Please report back whether you find this behavior acceptable. :-) =============== Diff against SUnit-mt.125 =============== Item was added: + ----- Method: TestCase>>assureResourcesDuring: (in category 'private') ----- + assureResourcesDuring: aBlock + + | resources | + resources := self resources. + resources do: [:resource | + resource isAvailable ifFalse: [ + ^ resource signalInitializationError]]. + ^ aBlock ensure: [ + resources do: [:resource | + resource reset]].! Item was changed: ----- Method: TestCase>>debug (in category 'running') ----- debug + "Run the receiver and open a debugger on the first failure or error." + + ^ self assureResourcesDuring: [self runCaseWithoutTimeout]! - self resources do: - [ : res | res isAvailable ifFalse: [ ^ res signalInitializationError ] ]. - [ self runCase ] ensure: - [ self resources do: - [ : each | each reset ] ]! Item was changed: ----- Method: TestCase>>debugAsFailure (in category 'running') ----- debugAsFailure + "Spawn a debugger that is ready to debug the receiver." + + (Process + forBlock: [self debug] + runUntil: [:context | context isClosureContext "navigate the process directly to the point where it is about to send #setUp" + and: [context selector = #runCaseWithoutTimeout]]) + debug.! - | semaphore | - semaphore := Semaphore new. - self resources do: [:res | - res isAvailable ifFalse: [^res signalInitializationError]]. - [semaphore wait. self resources do: [:each | each reset]] fork. - (self class selector: testSelector) runCaseAsFailure: semaphore.! Item was changed: ----- Method: TestCase>>openDebuggerOnFailingTestMethod (in category 'running') ----- openDebuggerOnFailingTestMethod + + self deprecated: 'ct: Use #debugAsFailure'. + "SUnit has halted one step in front of the failing test method. Step over the 'self halt' and send into 'self perform: testSelector' to see the failure from the beginning" - self halt; performTest! Item was changed: ----- Method: TestCase>>runCaseAsFailure: (in category 'running') ----- runCaseAsFailure: aSemaphore + + self deprecated: 'ct: Use #runCaseWithoutTimeout and #ensure:'. + ^ [self runCaseWithoutTimeout] + ensure: [aSemaphore signal]! - [self setUp. - self openDebuggerOnFailingTestMethod] ensure: [ - self tearDown. - aSemaphore signal]! Item was added: + ----- Method: TestCase>>runCaseWithoutTimeout (in category 'running') ----- + runCaseWithoutTimeout + + [self setUp. + self performTest] + ensure: [self tearDown].!

1 0

The Trunk: SUnit-ct.132.mcz
by commits＠source.squeak.org 10 Jan '22

10 Jan '22

Christoph Thiede uploaded a new version of SUnit to project The Trunk: http://source.squeak.org/trunk/SUnit-ct.132.mcz ==================== Summary ==================== Name: SUnit-ct.132 Author: ct Time: 6 March 2021, 12:35:33.710439 am UUID: 98d667df-13be-d148-9117-0b214c9adb3f Ancestors: SUnit-nice.124 Refactors and completes equality assertions - Add #deny:equals:description:, #deny:identical:, and #deny:identical:description: - Revise default description message for #deny:equals:, aligning it to #assert:equals: description - Make equality assertions capable of lazy descriptions (aStringOrBlock), aligning them to #assert:description: etc. - Add multilingual support for default description messages - Some internal refactoring - Improve test coverage of these assertions in SUnitTest Thanks to Marcel for pointing to the idea! Uploaded again to resolve conflicts with SUnit-pre.122 (recategorization). Replaces SUnit-ct.126 which can be moved into the treated inbox. :-) =============== Diff against SUnit-nice.124 =============== Item was added: + ----- Method: SUnitTest>>testAssertEquals (in category 'tests') ----- + testAssertEquals + + | a b | + a := 'foo'. + b := 'bar'. + + self shouldnt: [self assert: a equals: a copy] raise: TestFailure. + + self should: [self assert: a equals: b] raise: TestFailure. + + [self assert: a equals: b] + on: TestFailure do: [:ex | + | error | + error := ex messageText. + self + assert: (error includesSubstring: a) + description: 'Error message doesn''t include the expected value'. + self + assert: (error includesSubstring: b) + description: 'Error message doesn''t include the actual value'].! Item was added: + ----- Method: SUnitTest>>testAssertEqualsDescription (in category 'tests') ----- + testAssertEqualsDescription + + | a b called | + a := 'foo'. + b := 'bar'. + + self shouldnt: [self assert: a equals: a copy description: 'A description42'] raise: TestFailure. + + self should: [self assert: a equals: b description: 'A description42'] raise: TestFailure. + + [self assert: a equals: b description: 'A description42'] + on: TestFailure do: [:ex | + self + assert: (ex messageText includesSubstring: 'A description42') + description: 'Error message doesn''t give you the description']. + + called := false. + self shouldnt: [self assert: a equals: a description: [called := true]] raise: TestFailure. + self deny: called description: 'Description block was evaluated prematurely'. + + [self assert: a equals: b description: ['A generated description' asUppercase]] + on: TestFailure do: [:ex | + self + assert: (ex messageText includesSubstring: 'A generated description' asUppercase) + description: 'Error message doesn''t give you the generated description'].! Item was changed: ----- Method: SUnitTest>>testAssertIdentical (in category 'tests') ----- testAssertIdentical + | a b | a := 'foo'. b := 'bar'. + + self shouldnt: [self assert: a identical: a] raise: TestFailure. + self should: [self assert: a identical: b] raise: TestFailure. + + [self assert: a identical: b] + on: TestFailure do: [:ex | + | error | + error := ex messageText. + self + assert: (error includesSubstring: a) + description: 'Error message doesn''t include the expected value'. + self + assert: (error includesSubstring: b) + description: 'Error message doesn''t include the actual value'].! - [self assert: a identical: b] on: TestFailure do: [:e | |error| - error := e messageText. - self assert: (error includesSubstring: a) description: 'Error message doesn''t include the expected value'. - self assert: (error includesSubstring: b) description: 'Error message doesn''t include the expected value'].! Item was changed: ----- Method: SUnitTest>>testAssertIdenticalDescription (in category 'tests') ----- testAssertIdenticalDescription + + | a b called | - | a b | a := 'foo'. b := a copy. + + self shouldnt: [self assert: a identical: a description: 'A description42'] raise: TestFailure. + + self should: [self assert: a identical: b description: 'A description42'] raise: TestFailure. + + [self assert: a identical: b description: 'A description42'] + on: TestFailure do: [:ex | + self + assert: (ex messageText includesSubstring: 'A description42') + description: 'Error message doesn''t give you the description']. + + called := false. + self shouldnt: [self assert: a identical: a description: [called := true]] raise: TestFailure. + self deny: called description: 'Description block was evaluated prematurely'. + + [self assert: a identical: b description: ['A generated description' asUppercase]] + on: TestFailure do: [:ex | + self + assert: (ex messageText includesSubstring: 'A generated description' asUppercase) + description: 'Error message doesn''t give you the generated description'].! - self should: [self assert: a identical: b description: 'A desciption'] raise: TestFailure. - [self assert: a identical: b description: 'A desciption'] on: TestFailure do: [:e | |error| - error := e messageText. - self assert: (error includesSubstring: 'A desciption') description: 'Error message doesn''t give you the description'].! Item was changed: ----- Method: SUnitTest>>testAssertIdenticalWithEqualObjects (in category 'tests') ----- testAssertIdenticalWithEqualObjects + | a b | a := 'foo'. b := a copy. + self should: [self assert: a identical: b] raise: TestFailure. + + [self assert: a identical: b] + on: TestFailure do: [:ex | + self + assert: (ex messageText includesSubstring: 'not identical') + description: 'Error message doesn''t say the two things aren''t identical'].! - [self assert: a identical: b] on: TestFailure do: [:e | |error| - error := e messageText. - self assert: (error includesSubstring: 'not identical') description: 'Error message doesn''t say the two things aren''t identical'].! Item was added: + ----- Method: SUnitTest>>testDenyEquals (in category 'tests') ----- + testDenyEquals + + | a b | + a := 'foo'. + b := 'bar'. + + self shouldnt: [self deny: a equals: b] raise: TestFailure. + + self should: [self deny: a equals: a copy] raise: TestFailure. + + [self deny: a equals: a] + on: TestFailure do: [:ex | + self + assert: (ex messageText includesSubstring: a) + description: 'Error message doesn''t include the unexpected value'].! Item was added: + ----- Method: SUnitTest>>testDenyEqualsDescription (in category 'tests') ----- + testDenyEqualsDescription + + | a b called | + a := 'foo'. + b := 'bar'. + + self shouldnt: [self deny: a equals: b description: 'A description42'] raise: TestFailure. + + self should: [self deny: a equals: a copy description: 'A description42'] raise: TestFailure. + + [self deny: a equals: a description: 'A description42'] + on: TestFailure do: [:ex | + self + assert: (ex messageText includesSubstring: 'A description42') + description: 'Error message doesn''t give you the description']. + + called := false. + self shouldnt: [self deny: a equals: b description: [called := true]] raise: TestFailure. + self deny: called description: 'Description block was evaluated prematurely'. + + [self deny: a equals: a description: ['A generated description' asUppercase]] + on: TestFailure do: [:ex | + self + assert: (ex messageText includesSubstring: 'A generated description' asUppercase) + description: 'Error message doesn''t give you the generated description'].! Item was added: + ----- Method: SUnitTest>>testDenyIdentical (in category 'tests') ----- + testDenyIdentical + + | a b | + a := 'foo'. + b := 'bar'. + self shouldnt: [self deny: a identical: b] raise: TestFailure. + self should: [self deny: a identical: a] raise: TestFailure. + [self deny: a identical: a] + on: TestFailure do: [:ex | + self + assert: (ex messageText includesSubstring: a) + description: 'Error message doesn''t include the unexpected value'].! Item was added: + ----- Method: SUnitTest>>testDenyIdenticalDescription (in category 'tests') ----- + testDenyIdenticalDescription + + | a b called | + a := 'foo'. + b := a copy. + + self shouldnt: [self deny: a identical: b description: 'A description42'] raise: TestFailure. + + self should: [self deny: a identical: a description: 'A description42'] raise: TestFailure. + + [self deny: a identical: a description: 'A description42'] + on: TestFailure do: [:ex | + self + assert: (ex messageText includesSubstring: 'A description42') + description: 'Error message doesn''t give you the description']. + + called := false. + self shouldnt: [self deny: a identical: b description: [called := true]] raise: TestFailure. + self deny: called description: 'Description block was evaluated prematurely'. + + [self deny: a identical: a description: ['A generated description' asUppercase]] + on: TestFailure do: [:ex | + self + assert: (ex messageText includesSubstring: 'A generated description' asUppercase) + description: 'Error message doesn''t give you the description'].! Item was added: + ----- Method: SUnitTest>>testDenyIdenticalWithEqualObjects (in category 'tests') ----- + testDenyIdenticalWithEqualObjects + + | a b | + a := 'foo'. + b := a copy. + self should: [self deny: a identical: a] raise: TestFailure. + [self deny: a identical: a] + on: TestFailure do: [:ex | + self + assert: (ex messageText includesSubstring: 'identical') + description: 'Error message doesn''t say the two things are identical'].! Item was changed: ----- Method: TestCase>>assert:equals: (in category 'asserting') ----- assert: expected equals: actual + ^ self + assert: expected + equals: actual + description: nil - ^self - assert: expected = actual - description: [ self comparingStringBetween: expected and: actual ] ! Item was changed: ----- Method: TestCase>>assert:equals:description: (in category 'asserting') ----- + assert: expected equals: actual description: aStringOrBlock - assert: expected equals: actual description: aString + ^ self - ^self assert: expected = actual + description: [self + description: aStringOrBlock + with: (self comparingStringBetween: expected and: actual)]! - description: [ aString , ': ', (self comparingStringBetween: expected and: actual) ]! Item was changed: ----- Method: TestCase>>assert:identical: (in category 'asserting') ----- assert: expected identical: actual + ^ self + assert: expected + identical: actual + description: nil! - ^self - assert: expected == actual - description: [ self comparingStringBetweenIdentical: expected and: actual ] - ! Item was changed: ----- Method: TestCase>>assert:identical:description: (in category 'asserting') ----- + assert: expected identical: actual description: aStringOrBlock - assert: expected identical: actual description: aString + ^ self - ^self assert: expected == actual + description: [self + description: aStringOrBlock + with: (self comparingStringBetween: expected andIdentical: actual)]! - description: [ aString , ': ', (self comparingStringBetweenIdentical: expected and: actual) ]! Item was changed: ----- Method: TestCase>>comparingStringBetween:and: (in category 'private') ----- comparingStringBetween: expected and: actual + + ^ 'Expected {1} but was {2}.' translated + format: { + expected printStringLimitedTo: 10. + actual printStringLimitedTo: 10 }! - ^ String streamContents: [:stream | - stream - nextPutAll: 'Expected '; - nextPutAll: (expected printStringLimitedTo: 10); - nextPutAll: ' but was '; - nextPutAll: (actual printStringLimitedTo: 10); - nextPutAll: '.' - ]! Item was added: + ----- Method: TestCase>>comparingStringBetween:andIdentical: (in category 'private') ----- + comparingStringBetween: expected andIdentical: actual + + ^ 'Expected {1} and actual {2} are not identical.' translated + format: { + expected printStringLimitedTo: 10. + actual printStringLimitedTo: 10 }! Item was changed: ----- Method: TestCase>>comparingStringBetweenIdentical:and: (in category 'private') ----- comparingStringBetweenIdentical: expected and: actual + + self deprecated. + ^ self comparingStringBetween: expected andIdentical: actual! - ^ 'Expected {1} and actual {2} are not identical.' format: { - expected printStringLimitedTo: 10. - actual printStringLimitedTo: 10. - }! Item was added: + ----- Method: TestCase>>comparingStringBetweenUnexpected:and: (in category 'private') ----- + comparingStringBetweenUnexpected: unexpected and: actual + + ^ 'Did not expect {1} but was {2}.' translated + format: { + unexpected printStringLimitedTo: 10. + actual printStringLimitedTo: 10 }! Item was added: + ----- Method: TestCase>>comparingStringBetweenUnexpected:andIdentical: (in category 'private') ----- + comparingStringBetweenUnexpected: expected andIdentical: actual + + ^ 'Unexpected {1} and actual {2} are identical.' translated + format: { + expected printStringLimitedTo: 10. + actual printStringLimitedTo: 10 }! Item was changed: ----- Method: TestCase>>deny:equals: (in category 'asserting') ----- deny: unexpected equals: actual + ^ self + deny: unexpected + equals: actual + description: nil! - ^self - deny: unexpected = actual - description: 'Actual equals unexpected' - ! Item was added: + ----- Method: TestCase>>deny:equals:description: (in category 'asserting') ----- + deny: unexpected equals: actual description: aStringOrBlock + + ^ self + deny: unexpected = actual + description: [self + description: aStringOrBlock + with: (self comparingStringBetweenUnexpected: unexpected and: actual)]! Item was added: + ----- Method: TestCase>>deny:identical: (in category 'asserting') ----- + deny: unexpected identical: actual + + ^ self + deny: unexpected + identical: actual + description: nil! Item was added: + ----- Method: TestCase>>deny:identical:description: (in category 'asserting') ----- + deny: unexpected identical: actual description: aStringOrBlock + + ^ self + deny: unexpected == actual + description: [self + description: aStringOrBlock + with: (self comparingStringBetweenUnexpected: unexpected andIdentical: actual)]! Item was added: + ----- Method: TestCase>>description:with: (in category 'private') ----- + description: aStringOrBlock with: reason + + | description | + description := aStringOrBlock value. + ^ description + ifNil: [reason] + ifNotNil: ['{1}: {2}' translated format: {description. reason}]!

1 0

The Trunk: SUnit-ct.131.mcz
by commits＠source.squeak.org 10 Jan '22

10 Jan '22

Christoph Thiede uploaded a new version of SUnit to project The Trunk: http://source.squeak.org/trunk/SUnit-ct.131.mcz ==================== Summary ==================== Name: SUnit-ct.131 Author: ct Time: 2 November 2020, 8:00:15.279122 pm UUID: eb678be0-b6de-f540-bcce-37b84404df99 Ancestors: SUnit-pre.123 Don't save #lastStoredRun results into the source package. See also ReleaseBuilder class >>#discardUserObjects. Thanks to tobe & mt for the advice! :-) =============== Diff against SUnit-pre.123 =============== Item was removed: - ----- Method: ClassFactoryForTestCaseTest class>>lastStoredRun (in category 'history') ----- - lastStoredRun - ^ ((Dictionary new) add: (#passed->((Set new) add: #testDefaultCategoryCleanUp; add: #testPackageCleanUp; add: #testSingleClassCreation; add: #testClassCreationInDifferentCategories; add: #testClassFastCreationInDifferentCategories; add: #testMultipleClassCreation; add: #testSingleClassFastCreation; yourself)); add: (#timeStamp->'22 November 2008 10:11:35 pm'); add: (#failures->((Set new))); add: (#errors->((Set new))); yourself)! Item was removed: - ----- Method: ResumableTestFailureTestCase class>>lastStoredRun (in category 'history') ----- - lastStoredRun - ^ ((Dictionary new) add: (#passed->((Set new) add: #testResumable; yourself)); add: (#timeStamp->'22 November 2008 10:11:35 pm'); add: (#failures->((Set new))); add: (#errors->((Set new))); yourself)! Item was removed: - ----- Method: SUnitExtensionsTest class>>lastStoredRun (in category 'history') ----- - lastStoredRun - ^ ((Dictionary new) add: (#passed->((Set new) add: #testNoExceptionWithMatchingString; add: #testNoExceptionWithNoMatchingString; add: #testExceptionWithMatchingString; add: #testExceptionWithoutMatchingString; add: #testValidShouldNotTakeMoreThan; add: #testInvalidShouldNotTakeMoreThanMilliseconds; add: #testDifferentExceptionInShouldRaiseWithExceptionDo; add: #testShouldRaiseWithExceptionDo; add: #testShouldFix; add: #testAssertionFailedInRaiseWithExceptionDo; add: #testAutoDenyFalse; add: #testAutoDenyTrue; add: #testAutoAssertFalse; add: #testAutoAssertTrue; add: #testValidShouldNotTakeMoreThanMilliseconds; add: #testErrorInRaiseWithExceptionDo; add: #testNoExceptionInShouldRaiseWithExceptionDo; add: #testInvalidShouldNotTakeMoreThan; yourself)); add: (#timeStamp->'22 November 2008 10:11:35 pm'); add: (#failures->((Set new))); add: (#errors->((Set new))); yourself)! Item was removed: - ----- Method: SUnitTest class>>lastStoredRun (in category 'history') ----- - lastStoredRun - ^ ((Dictionary new) add: (#passed->((Set new) add: #testWithExceptionDo; add: #testRan; add: #testAssert; add: #testRanOnlyOnce; add: #testDialectLocalizedException; add: #testFail; add: #testDefects; add: #testIsNotRerunOnDebug; add: #testResult; add: #testRunning; add: #testError; add: #testException; add: #testShould; add: #testSuite; yourself)); add: (#timeStamp->'22 November 2008 10:11:35 pm'); add: (#failures->((Set new))); add: (#errors->((Set new))); yourself)! Item was removed: - ----- Method: SimpleTestResourceTestCase class>>lastStoredRun (in category 'history') ----- - lastStoredRun - ^ ((Dictionary new) add: (#passed->((Set new) add: #testResourceInitRelease; add: #testResourcesCollection; add: #testRan; yourself)); add: (#timeStamp->'22 November 2008 10:11:35 pm'); add: (#failures->((Set new))); add: (#errors->((Set new))); yourself)! Item was changed: ----- Method: TestCase class>>generateLastStoredRunMethod (in category 'history') ----- generateLastStoredRunMethod self shouldGenerateLastStoredRunMethod ifTrue: [ self class compile: (self lastRunMethodNamed: #lastStoredRun) + classified: '*autogenerated-history' ]! - classified: 'history' ]! Item was changed: ----- Method: TestCase class>>lastRunMethodNamed: (in category 'history') ----- lastRunMethodNamed: aSelector + ^ String streamContents: [:stream | + stream + nextPutAll: aSelector asString; + crtab; nextPutAll: ('<autogenerated> "See {1}"' format: {thisContext home}); + crtab; nextPutAll: '^ ', (self lastRun) storeString] - ^ String streamContents: [:str | - str nextPutAll: aSelector asString ;cr. - str tab; nextPutAll: '^ ', (self lastRun) storeString] !

1 0

The Trunk: SUnit-ct.128.mcz
by commits＠source.squeak.org 10 Jan '22

10 Jan '22

Christoph Thiede uploaded a new version of SUnit to project The Trunk: http://source.squeak.org/trunk/SUnit-ct.128.mcz ==================== Summary ==================== Name: SUnit-ct.128 Author: ct Time: 9 April 2020, 2:49:35.789949 pm UUID: ade92890-dd0e-ec43-95d0-17bfc9d65507 Ancestors: SUnit-mt.121 Refactor timeout tests in SUnitTest. - Speed up SUnitTest suite by reducing particular timeouts. I don't think it is necessary to make every run of the SUnit test suite block everything for >10 seconds. - Use modern chronology protocol - Refine assertions in #testTestTimeout and test #defaultTimeout =============== Diff against SUnit-mt.121 =============== Item was added: + ----- Method: SUnitTest>>defaultTimeout (in category 'accessing') ----- + defaultTimeout + + self selector = #testTestTimeout ifTrue: [ + ^ 0.3 "seconds"]. + ^ super defaultTimeout! Item was changed: ----- Method: SUnitTest>>setUp (in category 'running') ----- setUp + + hasSetup := true.! - hasSetup := true - ! Item was changed: ----- Method: SUnitTest>>testRunning (in category 'tests') ----- testRunning + 0.2 seconds wait. - (Delay forSeconds: 2) wait ! Item was changed: ----- Method: SUnitTest>>testTestTimeout (in category 'tests') ----- testTestTimeout + + self + shouldnt: [(self timeoutForTest / 2) seconds wait] + raise: TestFailure. + self + should: [(self timeoutForTest / 2 + 0.1) seconds wait] + raise: TestFailure.! - self should:[(Delay forSeconds: (self timeoutForTest + 1)) wait] raise: TestFailure. - ! Item was changed: ----- Method: SUnitTest>>testTestTimeoutLoop (in category 'tests') ----- testTestTimeoutLoop + <timeout: 0.1 "seconds"> + self + should: [[] repeat] + raise: TestFailure. - <timeout: 1> - self should:[[] repeat] raise: TestFailure. ! Item was added: + ----- Method: SUnitTest>>testTestTimeoutPragma (in category 'tests') ----- + testTestTimeoutPragma + <timeout: 0.1 "seconds"> + self + should: [0.2 seconds wait] + raise: TestFailure. + ! Item was removed: - ----- Method: SUnitTest>>testTestTimeoutTag (in category 'tests') ----- - testTestTimeoutTag - <timeout: 1> - self should:[(Delay forSeconds: 3) wait] raise: TestFailure. - ! Item was changed: ----- Method: TestCase>>should:raise: (in category 'accessing') ----- + should: aBlock raise: anExceptionalEvent + + ^ self assert: (self executeShould: aBlock inScopeOf: anExceptionalEvent)! - should: aBlock raise: anExceptionalEvent - ^self assert: (self executeShould: aBlock inScopeOf: anExceptionalEvent) - !

1 0

The Trunk: SUnit-ct.122.mcz
by commits＠source.squeak.org 10 Jan '22

10 Jan '22

Christoph Thiede uploaded a new version of SUnit to project The Trunk: http://source.squeak.org/trunk/SUnit-ct.122.mcz ==================== Summary ==================== Name: SUnit-ct.122 Author: ct Time: 14 December 2019, 1:15:22.187841 am UUID: fc845d69-2525-9440-b4c0-4da1e1f4f1cd Ancestors: SUnit-mt.120 Add check for a TestCase whether it is still installed (that is, the test selector has not been removed) =============== Diff against SUnit-mt.120 =============== Item was added: + ----- Method: TestCase>>isInstalled (in category 'testing') ----- + isInstalled + + ^ self respondsTo: testSelector!

1 0

The Trunk: SUnitGUI-ct.80.mcz
by commits＠source.squeak.org 10 Jan '22

10 Jan '22

Christoph Thiede uploaded a new version of SUnitGUI to project The Trunk: http://source.squeak.org/trunk/SUnitGUI-ct.80.mcz ==================== Summary ==================== Name: SUnitGUI-ct.80 Author: ct Time: 20 March 2020, 7:09:46.074237 pm UUID: 971ba1c3-02e8-d14c-bc4a-7cc09fa52244 Ancestors: SUnitGUI-mt.79 Reverts SUnitGUI-cmm.78 which was considered unpleasant by the majority of reviewers (read here: http://forum.world.st/The-Trunk-SUnitGUI-cmm-78-mcz-td5108915.html). =============== Diff against SUnitGUI-mt.79 =============== Item was changed: ----- Method: TestRunner>>representsSameBrowseeAs: (in category 'accessing-ui') ----- representsSameBrowseeAs: anotherModel + ^ self class = anotherModel class + and: [ classesSelected = anotherModel classesSelected ]! - ^ true!

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 January 2022