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)
- 			!