Packages January 2022

packages@lists.squeakfoundation.org

1 participants
209 discussions

The Trunk: SUnitGUI-ct.78.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.78.mcz ==================== Summary ==================== Name: SUnitGUI-ct.78 Author: ct Time: 14 December 2019, 1:16:54.749841 am UUID: 25969db8-4090-e54a-8885-4c69502bc44b Ancestors: SUnitGUI-cmm.77 Extend the TestRunner to delete selectors from failedList/errorList if they are removed from system Depends on SUnit-ct.122. =============== Diff against SUnitGUI-cmm.77 =============== Item was changed: ----- Method: TestRunner>>initialize (in category 'initialization') ----- initialize super initialize. failedList := errorList := Array new. SystemChangeNotifier uniqueInstance notify: self ofSystemChangesOfItem: #class change: #Added using: #update; notify: self ofSystemChangesOfItem: #category change: #Added using: #update; notify: self ofSystemChangesOfItem: #class change: #Removed using: #update; notify: self ofSystemChangesOfItem: #category change: #Removed using: #update; notify: self ofSystemChangesOfItem: #class change: #Renamed using: #update; notify: self ofSystemChangesOfItem: #category change: #Renamed using: #update; notify: self ofSystemChangesOfItem: #class change: #Recategorized using: #update; + notify: self ofSystemChangesOfItem: #category change: #Recategorized using: #update; + notify: self ofSystemChangesOfItem: #method change: #Removed using: #updateMethods. - notify: self ofSystemChangesOfItem: #category change: #Recategorized using: #update. environment := Environment current. self update; reset! Item was added: + ----- Method: TestRunner>>updateMethods (in category 'updating') ----- + updateMethods + + errorList := errorList select: #isInstalled. + failedList := failedList select: #isInstalled. + self + changed: #failedList; + changed: #errorList.!

1 0

The Trunk: SUnit-ct.134.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.134.mcz ==================== Summary ==================== Name: SUnit-ct.134 Author: ct Time: 10 January 2022, 7:00:31.749518 pm UUID: 58075322-d9b6-f64f-aef1-38b6b31a20d9 Ancestors: SUnit-ct.122, SUnit-ct.128, SUnit-ct.131, SUnit-ct.132, SUnit-ct.133, SUnit-mt.125 Merge commit. SUnit-ct.122: Add check for a TestCase whether it is still installed (that is, the test selector has not been removed). SUnit-ct.128: Refactor & speed up timeout tests in SUnitTest (woohoo, reduced the total test runner time by 9 seconds!). SUnit-ct.131: Don't save #lastStoredRun results into the source package. See also ReleaseBuilder class >>#discardUserObjects. SUnit-ct.132: Refactors, completes, and tests equality assertions. Revision: Rename #description:with: to #failureDescription:with:. Rewrite new tests to make use of underrated #should:raise:withExceptionDo:. Thanks to Marcel (mt)! SUnit-ct.133: Updates debugging logic of TestCase. Instead of abusing #halt, open a debugger directly on the entrypoint to run the case. Deprecates #openDebuggerOnFailingTestMethod. One more thing: Polishes all test cases in this package to include proper sends to super when overriding #setUp/#tearDown. =============== Diff against SUnit-mt.125 =============== 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 changed: ----- Method: ClassFactoryForTestCaseTest>>tearDown (in category 'running') ----- tearDown + + [factory cleanUp] + ensure: [super tearDown].! - super tearDown. - factory cleanUp! Item was changed: ----- Method: LongTestCaseTest>>setUp (in category 'running') ----- setUp + super setUp. + preferenceValue := LongTestCase shouldRun! Item was changed: ----- Method: LongTestCaseTest>>tearDown (in category 'running') ----- tearDown + [LongTestCase shouldRun: preferenceValue] + ensure: [super tearDown].! - LongTestCase shouldRun: preferenceValue! 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 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 + + super setUp. + + hasSetup := true.! - hasSetup := true - ! 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 + withExceptionDo: [: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 + withExceptionDo: [: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 + should: [self assert: a equals: b description: ['A generated description' asUppercase]] + raise: TestFailure + withExceptionDo: [: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 + withExceptionDo: [: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 should: [self assert: a identical: b] raise: TestFailure. - [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 + withExceptionDo: [: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 + should: [self assert: a identical: b description: ['A generated description' asUppercase]] + raise: TestFailure + withExceptionDo: [: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 + withExceptionDo: [:ex | + self + assert: (ex messageText includesSubstring: 'not identical') + description: 'Error message doesn''t say the two things aren''t identical'].! - self should: [self assert: a identical: b] raise: TestFailure. - [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 + withExceptionDo: [: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 + withExceptionDo: [: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 + should: [self deny: a equals: a description: ['A generated description' asUppercase]] + raise: TestFailure + withExceptionDo: [: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 + withExceptionDo: [: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 + withExceptionDo: [: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 + should: [self deny: a identical: a description: ['A generated description' asUppercase]] + raise: TestFailure + withExceptionDo: [: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 + withExceptionDo: [:ex | + self + assert: (ex messageText includesSubstring: 'identical') + description: 'Error message doesn''t say the two things are identical'].! 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 + shouldnt: [0.05 seconds wait] + raise: TestFailure. + self + should: [0.05 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 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: SimpleTestResourceTestCase>>setUp (in category 'running') ----- setUp + + super setUp. + resource := SimpleTestResource current ! 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] ! 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 + failureDescription: 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 + failureDescription: aStringOrBlock + with: (self comparingStringBetween: expected andIdentical: actual)]! - description: [ aString , ': ', (self comparingStringBetweenIdentical: expected and: actual) ]! 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>>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 removed: - ----- Method: TestCase>>comparingStringBetweenIdentical:and: (in category 'private') ----- - comparingStringBetweenIdentical: expected and: 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>>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>>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 + failureDescription: 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 + failureDescription: aStringOrBlock + with: (self comparingStringBetweenUnexpected: unexpected andIdentical: actual)]! Item was added: + ----- Method: TestCase>>failureDescription:with: (in category 'private') ----- + failureDescription: aStringOrBlock with: reason + + | description | + description := aStringOrBlock value. + ^ description + ifNil: [reason] + ifNotNil: ['{1}: {2}' format: {description. reason}]! Item was added: + ----- Method: TestCase>>isInstalled (in category 'testing') ----- + isInstalled + + ^ self respondsTo: testSelector! Item was removed: - ----- Method: TestCase>>openDebuggerOnFailingTestMethod (in category 'running') ----- - openDebuggerOnFailingTestMethod - "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 removed: - ----- Method: TestCase>>runCaseAsFailure: (in category 'running') ----- - runCaseAsFailure: aSemaphore - [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: SUnitGUI-ct.84.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.84.mcz ==================== Summary ==================== Name: SUnitGUI-ct.84 Author: ct Time: 10 January 2022, 7:00:24.041518 pm UUID: 90e73213-5990-8a48-bfff-1e15ffadf49c Ancestors: SUnitGUI-mt.83, SUnitGUI-ct.78, SUnitGUI-ct.80 Merge commit. SUnitGUI-ct.78: Extend the TestRunner to delete selectors from failedList/errorList if they are removed from system. SUnitGUI-ct.80: 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.83 =============== Item was changed: ----- Method: TestRunner>>initialize (in category 'initialization') ----- initialize super initialize. failedList := errorList := Array new. SystemChangeNotifier uniqueInstance notify: self ofSystemChangesOfItem: #class change: #Added using: #update; notify: self ofSystemChangesOfItem: #category change: #Added using: #update; notify: self ofSystemChangesOfItem: #class change: #Removed using: #update; notify: self ofSystemChangesOfItem: #category change: #Removed using: #update; notify: self ofSystemChangesOfItem: #class change: #Renamed using: #update; notify: self ofSystemChangesOfItem: #category change: #Renamed using: #update; notify: self ofSystemChangesOfItem: #class change: #Recategorized using: #update; + notify: self ofSystemChangesOfItem: #category change: #Recategorized using: #update; + notify: self ofSystemChangesOfItem: #method change: #Removed using: #updateMethods. - notify: self ofSystemChangesOfItem: #category change: #Recategorized using: #update. environment := Environment current. self update; reset! Item was changed: ----- Method: TestRunner>>representsSameBrowseeAs: (in category 'accessing-ui') ----- representsSameBrowseeAs: anotherModel + ^ self class = anotherModel class + and: [ classesSelected = anotherModel classesSelected ]! - ^ true! Item was added: + ----- Method: TestRunner>>updateMethods (in category 'updating') ----- + updateMethods + + errorList := errorList select: #isInstalled. + failedList := failedList select: #isInstalled. + self + changed: #failedList; + changed: #errorList.!

1 0

The Trunk: 60Deprecated-ct.102.mcz
by commits＠source.squeak.org 10 Jan '22

10 Jan '22

Christoph Thiede uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-ct.102.mcz ==================== Summary ==================== Name: 60Deprecated-ct.102 Author: ct Time: 10 January 2022, 7:00:18.397518 pm UUID: b8b23c62-95ac-7749-87bb-aaebee832983 Ancestors: 60Deprecated-mt.101 Complements SUnit-ct.134 (SUnit-ct.133). =============== Diff against 60Deprecated-mt.101 =============== Item was added: + ----- Method: TestCase>>openDebuggerOnFailingTestMethod (in category '*60Deprecated-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 added: + ----- Method: TestCase>>runCaseAsFailure: (in category '*60Deprecated-running') ----- + runCaseAsFailure: aSemaphore + + self deprecated: 'ct: Use #runCaseWithoutTimeout and #ensure:'. + ^ [self runCaseWithoutTimeout] + ensure: [aSemaphore signal]!

1 0

The Treated Inbox: SUnitTools-ct.5.mcz
by commits＠source.squeak.org 10 Jan '22

10 Jan '22

Christoph Thiede uploaded a new version of SUnitTools to project The Treated Inbox: http://source.squeak.org/treated/SUnitTools-ct.5.mcz ==================== Summary ==================== Name: SUnitTools-ct.5 Author: ct Time: 31 May 2019, 2:15:36.714053 pm UUID: 397d3b85-7ac5-3645-baa9-b9f848d90880 Ancestors: SUnitTools-tcj.4 Change CodeHolder>>testRunSuite: -- if multiple tests fail, instead of a UIManager dialog, open a TestRunner window that provides specific information. Depends on SUnitGUI-ct.70. =============== Diff against SUnitTools-tcj.4 =============== Item was changed: ----- Method: CodeHolder>>testRunSuite: (in category '*SUnitTools-running') ----- testRunSuite: suite + | runner result | + (suite isKindOf: TestCase) + ifFalse: [ + runner := TestRunner newForSuite: suite. + result := runner runAll; result] + ifTrue: [result := suite run]. - | result | - result := suite run. (result respondsTo: #dispatchResultsIntoHistory) ifTrue: [result dispatchResultsIntoHistory]. result hasPassed ifTrue: [^ self]. + result defects size = 1 + ifTrue: [result defects anyOne debug] + ifFalse: [runner open]! - (result defects size = 1 - ifTrue: [result defects anyOne] - ifFalse: [UIManager default - chooseFrom: (result defects collect: [:each | each class name , '>>' , each selector printString]) - values: result defects - title: ('{1} passes, {2} failures, {3} errors\\Debug a failure or error?' format: { - result runCount . result failureCount . result errorCount}) withCRs] - ) ifNotNil: [:defect | defect debug]. - !

1 0

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

10 Jan '22

Christoph Thiede uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.1843.mcz ==================== Summary ==================== Name: Morphic-ct.1843 Author: ct Time: 10 January 2022, 5:29:01.402518 pm UUID: c969959b-377b-aa41-a85a-b4ffc3239a2d Ancestors: Morphic-ct.1841 Synchronizes default preference value for "Enclose selection with brackets". Complements Morphic-mt.1812. =============== Diff against Morphic-ct.1841 =============== Item was changed: (PackageInfo named: 'Morphic') postscript: '"Fix missing command key shortcuts such as [cmd]+[+/-] for scale changes." Project allMorphicProjects do: [:p | p world initializeDesktopCommandKeySelectors]. "New ''scale factor'' menu" + TheWorldMainDockingBar updateInstances. + + "Enable ''Enclose selection with brackets'' by default (Morphic-mt.1812)" + TextEditor encloseSelection: true.'! - TheWorldMainDockingBar updateInstances.'!

1 0

The Treated Inbox: Morphic-cmm.1838.mcz
by commits＠source.squeak.org 10 Jan '22

10 Jan '22

Chris Muller uploaded a new version of Morphic to project The Treated Inbox: http://source.squeak.org/treated/Morphic-cmm.1838.mcz ==================== Summary ==================== Name: Morphic-cmm.1838 Author: cmm Time: 9 January 2022, 6:40:28.562851 pm UUID: 44f58dc2-b94c-476a-aa46-17a4a564c65e Ancestors: Morphic-mt.1837 Revert Morphic-mt.1652 because it corrupts the representation of a valid execution flow in MessageTrace and prevents spawning of independent traces. =============== Diff against Morphic-mt.1837 =============== Item was changed: ----- Method: TextEditor>>browseIt (in category 'menu messages') ----- browseIt "Launch a browser for the current selection, if appropriate." Preferences alternativeBrowseIt ifTrue: [^ self browseClassFromIt]. self lineSelectAndEmptyCheck: [^ morph flash]. "First, try to show all accesses to instance or class variables." self selectedInstanceVariable ifNotNil: [:nameToClass | self systemNavigation browseAllAccessesTo: nameToClass key from: nameToClass value]. self selectedClassVariable ifNotNil: + [:binding | self systemNavigation browseAllCallsOn: binding]. - [:binding | self model browseAllCallsOn: binding]. "Then, either browse the class (from a binding) or all implementors of a selector." self selectedBinding ifNotNil: [:binding | ^ self systemNavigation browseClass: binding]. self selectedSelector ifNotNil: + [:selector | ^ self systemNavigation browseAllImplementorsOf: selector]. - [:selector | ^ self model browseAllImplementorsOf: selector]. morph flash! Item was changed: ----- Method: TextEditor>>sendersOfIt (in category 'menu messages') ----- sendersOfIt "Open a senders browser on the selected selector" self lineSelectAndEmptyCheck: [^ self]. + self selectedSelector ifNotNil: + [:aSelector| ^self systemNavigation browseAllCallsOn: aSelector]. + self selectedLiteral ifNotNil: + [:aLiteral| ^self systemNavigation browseAllCallsOn: aLiteral]. + morph flash! - self selectedSelector ifNotNil: [:aSelector | - ^ self model browseAllCallsOn: aSelector]. - self selectedLiteral ifNotNil: [:aLiteral | - ^ self model browseAllCallsOn: aLiteral]. - morph flash.!

1 0

The Trunk: Regex-Core-ct.76.mcz
by commits＠source.squeak.org 09 Jan '22

09 Jan '22

Christoph Thiede uploaded a new version of Regex-Core to project The Trunk: http://source.squeak.org/trunk/Regex-Core-ct.76.mcz ==================== Summary ==================== Name: Regex-Core-ct.76 Author: ct Time: 9 January 2022, 3:50:10.798554 am UUID: 208ca41a-b09d-854e-b53e-83e0f004f0b4 Ancestors: Regex-Core-mt.61 Eliminates a shadowed variable warning. I have searched the entire package and did not find any other one. =============== Diff against Regex-Core-mt.61 =============== Item was changed: ----- Method: RxMatcher>>syntaxBranch: (in category 'double dispatch') ----- syntaxBranch: branchNode "Double dispatch from the syntax tree. Branch node is a link in a chain of concatenated pieces. First build the matcher for the rest of the chain, then make it for the current piece and hook the rest to it." | piece branch | piece := branchNode piece. branch := branchNode branch ifNil: [ ^piece dispatchTo: self ]. "Optimization: glue a sequence of individual characters into a single string to match." piece isAtomic ifTrue: [ + | result next resultStream | + resultStream := (String new: 40) writeStream. + next := branchNode tryMergingInto: resultStream. + result := resultStream contents. - | result next stream | - stream := (String new: 40) writeStream. - next := branchNode tryMergingInto: stream. - result := stream contents. result size > 1 ifTrue: [ "worth merging" ^(RxmSubstring new substring: result ignoreCase: ignoreCase) pointTailTo: (next ifNotNil: [ next dispatchTo: self ]); yourself ] ]. "No optimization possible or worth it, just concatenate all. " ^(piece dispatchTo: self) pointTailTo: (branch dispatchTo: self); yourself!

1 0

The Trunk: ToolBuilder-Morphic-ct.285.mcz
by commits＠source.squeak.org 03 Jan '22

03 Jan '22

Christoph Thiede uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-ct.285.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-ct.285 Author: ct Time: 3 January 2022, 11:54:06.309397 pm UUID: 6e4aa81c-9483-3a4e-843a-98df1c30189d Ancestors: ToolBuilder-Morphic-mt.284 Improved multilingual support and recategorizations for the entire package. =============== Diff against ToolBuilder-Morphic-mt.284 =============== Item was changed: ----- Method: DirectoryChooserDialog>>userMessage (in category 'ui details') ----- userMessage "return the string to present to the user in order to explain the purpose of this dialog appearing" + ^message ifNil: ['Choose a directory name' translated]! - ^message ifNil:['Choose a directory name']! Item was changed: ----- Method: DirectoryChooserDialog>>windowTitle (in category 'ui details') ----- windowTitle + ^ 'Choose Directory' translated! - ^ 'Choose Directory'! Item was changed: ----- Method: FileAbstractSelectionDialog>>buildButtonsWith: (in category 'toolbuilder') ----- buildButtonsWith: builder ^ { builder pluggableButtonSpec new model: self; label: 'Accept' translated; color: (self userInterfaceTheme get: #okColor for: #DialogWindow); action: #acceptFileName. builder pluggableButtonSpec new model: self; + label: 'Cancel' translated; - label: 'Cancel'; color: (self userInterfaceTheme get: #cancelColor for: #DialogWindow); action: #cancelFileChooser}! Item was changed: ----- Method: FileChooserDialog>>userMessage (in category 'ui details') ----- userMessage "return the string to present to the user in order to explain the purpose of this dialog appearing" + ^message ifNil: ['Choose a file name' translated]! - ^message ifNil:['Choose a file name']! Item was changed: ----- Method: FileChooserDialog>>windowTitle (in category 'ui details') ----- windowTitle "return the window label; would be some application dependent string but I suspect we will want to make the outer morph a dialogue box with no label anyway" + ^ 'Choose File' translated! - ^ 'Choose File'! Item was changed: ----- Method: FileSaverDialog>>selectFilename: (in category 'filename') ----- selectFilename: aText "The user has entered a potential filename in the text field. Check it against the current pattern; if it is ok we can accept it and then if it is a file in the current list, highlight it. If it would not match the pattern, alert the user." fileName := aText asString. ^ self selectExistingFilename ifTrue: [ self changed: #fileListIndex. true ] ifFalse: [ suffixList size = 1 ifTrue: [ | suffix | ((suffix := '.' , suffixList anyOne) compare: (fileName last: (suffix size min: fileName size)) caseSensitive: FileDirectory default isCaseSensitive) = 2 ifFalse: [ fileName := fileName , suffix ]. true ] ifFalse: [ suffixList at: (UIManager default chooseFrom: suffixList + title: 'Please choose the type of file to save.' translated) - title: 'Please choose the type of file to save.') ifPresent: [ : choice | fileName := fileName , '.' , choice. true ] ifAbsent: [ suffixList isEmpty or: + [ self inform: ('WARNING: File not saved!! A filename matching one of {1} patterns is required.' translated format: {patternList asArray}). - [ UIManager default inform: 'WARNING: File not saved!! A filename matching one of ' , patternList asArray asString , ' patterns is required.'. false ] ] ] ]! Item was changed: ----- Method: FileSaverDialog>>userMessage (in category 'ui details') ----- userMessage "return the string to present to the user in order to explain the purpose of this dialog appearing" + ^message ifNil: ['Choose a file name; you can also edit the name below to create a new file name' translated]! - ^message ifNil:['Choose a file name; you can also edit the name below to create a new file name']! Item was changed: ----- Method: FileSaverDialog>>windowTitle (in category 'ui details') ----- windowTitle "return the window label; would be some application dependent string but I suspect we will want to make the outer morph a dialogue box with no label anyway" + ^ 'Save As File' translated! - ^ 'Save As File'! Item was changed: ----- Method: ListChooser>>buildWith: (in category 'building') ----- buildWith: builder | dialogSpec searchBarHeight listSpec fieldSpec | searchBarHeight := self searchBarHeight. dialogSpec := builder pluggableDialogSpec new model: self; title: #title; closeAction: #closed; extent: self initialExtent; autoCancel: true; "Behave like a pop-up menu. Historical reasons." children: OrderedCollection new; buttons: OrderedCollection new; yourself. listSpec := builder pluggableListSpec new. listSpec model: self; list: #items; getIndex: #selectedIndex; setIndex: #selectedIndex:; doubleClick: #accept; "keystrokePreview: #keyStrokeFromList:;" autoDeselect: false; filterableList: true; clearFilterAutomatically: false; name: #list; frame: (LayoutFrame fractions: (0@0 corner: 1@1) offsets: (0@searchBarHeight corner: 0@0)). dialogSpec children add: listSpec. fieldSpec := builder pluggableInputFieldSpec new. fieldSpec model: self; name: #searchText ; getText: #searchText; editText: #searchText:; setText: #acceptText:; selection: #textSelection; menu: nil; indicateUnacceptedChanges: false; askBeforeDiscardingEdits: false; help: (self addAllowed ifTrue: ['Type new or filter existing...' translated] ifFalse: ['Type to filter existing...' translated]); frame: (LayoutFrame fractions: (0@0 corner: 1@0) offsets: (0@0 corner: 0@searchBarHeight)). dialogSpec children add: fieldSpec. "Buttons" dialogSpec buttons add: ( builder pluggableButtonSpec new model: self; label: #acceptLabel; action: #accept; enabled: #canAcceptOrAdd; color: #acceptColor). dialogSpec buttons add: ( builder pluggableButtonSpec new model: self; + label: 'Cancel' translated; - label: 'Cancel'; action: #cancel; color: #cancelColor). dialogMorph := builder build: dialogSpec. dialogMorph addKeyboardCaptureFilter: self ; positionOverWidgetNamed: #searchText. listMorph := builder widgetAt: #list. listMorph allowEmptyFilterResult: true. ^ dialogMorph! Item was changed: ----- Method: ListChooser>>title (in category 'accessing') ----- title + ^ title ifNil: [ title := 'Please choose' translated ]! - ^ title ifNil: [ title := 'Please choose' ]! Item was changed: ----- Method: MorphicUIManager>>chooseFrom:lines:title: (in category 'ui requests') ----- chooseFrom: aList lines: linesArray title: aString "Choose an item from the given list. Answer the index of the selected item. Cancel value is 0. There are several (historical) reasons for building a button dialog instead of a list chooser for small lists: 1) Unfortunately, there is existing code that uses this call to create simple confirmation dialogs with a list of #(yes no cancel). 2) Unfortunately, there is existing code that uses this call to mimick a drop-down menu with a (compact) pop-up menu." self askForProvidedAnswerTo: aString ifSupplied: [:answer | (answer = #cancel or: [answer isNil]) ifTrue: [^ 0]. ^ aList indexOf: answer]. aList ifEmpty: [^ 0]. aList size <= 7 ifTrue: [ | dialog | dialog := DialogWindow new + title: 'Please Choose' translated; - title: 'Please Choose'; message: aString; filterEnabled: true; autoCancel: true; "Like a pop-up menu, click anywhere to dismiss." yourself. aList withIndexDo: [:ea :index | dialog createButton: ea value: index]. dialog selectedButtonIndex: 1. ^ dialog getUserResponseAtHand ifNil: [0]]. ^ ListChooser chooseFrom: aList title: aString! Item was changed: ----- Method: PluggableButtonMorphPlus>>debugAction (in category 'debug menu') ----- debugAction action ifNil: [^ super debugAction]. (Process forBlock: [self performAction] runUntil: [:context | context closure = action]) + debugWithTitle: ('Debug button action "{1}" in model "{2}"' translated format: {self label. self target printString}).! - debugWithTitle: ('Debug button action "{1}" in model "{2}"' format: {self label. self target printString}).! Item was changed: + ----- Method: PluggableCheckBoxMorph class>>on:getState:action:label: (in category 'instance creation') ----- - ----- Method: PluggableCheckBoxMorph class>>on:getState:action:label: (in category 'as yet unclassified') ----- on: anObject getState: getStateSel action: actionSel label: labelSel ^ self new on: anObject getState: getStateSel action: actionSel label: labelSel menu: nil ! Item was changed: + ----- Method: PluggableTreeItemNode>>refresh (in category 'private') ----- - ----- Method: PluggableTreeItemNode>>refresh (in category 'as yet unclassified') ----- refresh self parent ifNil: [^ self]. self setItem: (self parent contents at: self index ifAbsent: [self error: 'No support for changed child count yet!!']) item.!

1 0

The Trunk: EToys-ct.456.mcz
by commits＠source.squeak.org 03 Jan '22

03 Jan '22

Christoph Thiede uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-ct.456.mcz ==================== Summary ==================== Name: EToys-ct.456 Author: ct Time: 3 January 2022, 11:24:44.399397 pm UUID: 3dc9971f-ab6e-3448-a995-12a039badca5 Ancestors: EToys-ct.455 Complements MorphicExtras-ct.305 (two fixes for MIDI). =============== Diff against EToys-ct.455 =============== Item was added: + ----- Method: MIDIPianoKeyboardMorph>>basicMouseDownPitch: (in category 'simple keyboard') ----- + basicMouseDownPitch: midiKey + + midiPort ifNil: [^ super basicMouseDownPitch: midiKey - 1]. + + soundPlaying + ifNil: [midiPort ensureOpen] + ifNotNil: [self turnOffNote]. + self turnOnNote: midiKey + 23.! Item was added: + ----- Method: MIDIPianoKeyboardMorph>>basicMouseUpPitch: (in category 'simple keyboard') ----- + basicMouseUpPitch: midiKey + + midiPort ifNil: [ + ^ super basicMouseUpPitch: midiKey]. + + soundPlaying ifNotNil: [self turnOffNote].! Item was removed: - ----- Method: MIDIPianoKeyboardMorph>>mouseDownPitch:event:noteMorph: (in category 'simple keyboard') ----- - mouseDownPitch: midiKey event: event noteMorph: noteMorph - - midiPort ifNil: [^ super mouseDownPitch: midiKey-1 event: event noteMorph: noteMorph]. - noteMorph color: playingKeyColor. - soundPlaying - ifNil: [midiPort ensureOpen] - ifNotNil: [self turnOffNote]. - self turnOnNote: midiKey + 23. - ! Item was removed: - ----- Method: MIDIPianoKeyboardMorph>>mouseUpPitch:event:noteMorph: (in category 'simple keyboard') ----- - mouseUpPitch: midiKey event: event noteMorph: noteMorph - - midiPort ifNil: [ - ^ super mouseUpPitch: midiKey event: event noteMorph: noteMorph]. - - noteMorph color: - ((#(0 1 3 5 6 8 10) includes: midiKey \\ 12) - ifTrue: [whiteKeyColor] - ifFalse: [blackKeyColor]). - soundPlaying ifNotNil: [self turnOffNote]. - !

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