The Inbox: SUnit-ct.131.mcz

A new version of SUnit was added to project The Inbox:
http://source.squeak.org/inbox/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]
  !