Chris Muller uploaded a new version of SUnit to project The Inbox:
http://source.squeak.org/inbox/SUnit-cmm.116.mcz

==================== Summary ====================

Name: SUnit-cmm.116
Author: cmm
Time: 23 May 2019, 9:39:05.797827 pm
UUID: ecce7092-6268-42a0-87d1-cbdea912ea68
Ancestors: SUnit-pre.115

The Result of a Test which is tagged as an #expectedFailure IS a failure if the test passed.
	Likewise, when a should: of a test which is ragged as an expectedFailure fails, the TestResult itself is considered passed, not failed.
	This fixes the SUnit browser to display these TestResults accordingly, to not falsely include these "failed" Results in list because they were already expected to.

=============== Diff against SUnit-pre.115 ===============

Item was changed:
  ----- Method: TestCase>>assert: (in category 'accessing') -----
  assert: aBooleanOrBlock
  
+ 	aBooleanOrBlock value = self shouldPass ifFalse: [self signalFailure: 'Assertion failed']
- 	aBooleanOrBlock value ifFalse: [self signalFailure: 'Assertion failed']
  			!

Item was changed:
  ----- Method: TestResult>>unexpectedPasses (in category 'accessing') -----
  unexpectedPasses
+ 	^ failures select: [:each | each shouldPass not] !
- 	^ passed select: [:each | each shouldPass not] !