Skip to content

Instantly share code, notes, and snippets.

@mabdi

mabdi/maxKilledMutantInGeneratedTests.st

Created July 8, 2020 14:10
Show Gist options
  • Save mabdi/df9c2643fd3d6064353b9c329f2bb935 to your computer and use it in GitHub Desktop.
Save mabdi/df9c2643fd3d6064353b9c329f2bb935 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
maxKilledMutantInGeneratedTests.st
z := OrderedCollection new.
'SmallAmpTempClasses' asPackage definedClassesDo: [ :c |
c asClass testSelectors collect: [ :c2 |
s:= ((c asClass lookupSelector: c2) ast comments collect: #contents) select: [:m | m beginsWith: 'I test correctness of:'].
r := '- `' asRegex.
( z add: { s ifNotEmpty: [ (r matchesIn: s first)size ] ifEmpty: [ 0 ]. c. c2. }) ] ].
z sort: [ :a :b | (a at: 1) > (b at: 1) ]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment