Note that this change makes filtering by keyboard inoperant...

Le mer. 4 sept. 2019 à 17:28, <commits at source.squeak.org> a écrit :

> Marcel Taeumel uploaded a new version of SUnitGUI to project The Trunk:
> http://source.squeak.org/trunk/SUnitGUI-mt.73.mcz
>
> ==================== Summary ====================
>
> Name: SUnitGUI-mt.73
> Author: mt
> Time: 4 September 2019, 5:28:26.809072 pm
> UUID: 56e5b083-0108-450e-92d4-9bea9160a539
> Ancestors: SUnitGUI-mt.72
>
> Show durations in test runner.
>
> =============== Diff against SUnitGUI-mt.72 ===============
>
> Item was changed:
>   ----- Method: TestRunner>>classList (in category 'accessing-classes')
> -----
>   classList
>
>         | helper |
>         classes isEmpty ifTrue: [ ^ classes ].
>
>         helper := Browser new.
>         ^ helper
>                 flattenHierarchyTree: (helper createHierarchyTreeOf:
> classes)
>                 on: OrderedCollection new
>                 indent: ''
>                 by: '  '
>                 format: [:class | class isAbstract
>                                                         ifTrue: [class
> name asText addAttribute: TextEmphasis italic; yourself]
> +                                                       ifFalse: [
> +                                                               (class
> history notNil and: [class history includesKey: #duration])
> +
>  ifFalse: ['{1} ({2} tests)' format: {class name. class allTestSelectors
> size}]
> +
>  ifTrue: [
> +
>      | duration |
> +
>      duration := (class history at: #duration).
> +
>      '{1} ({2} tests, {3})' format: {
> +
>              class name.
> +
>              class allTestSelectors size.
> +
>              duration = 0 ifTrue: ['< 1 ms'] ifFalse: [
> +
>                      duration < 1000 ifTrue: [duration asString, ' ms']
> ifFalse: [
> +
>                              (duration / 1000) rounded asString, '
> secs']]}]]] !
> -                                                       ifFalse: ['{1}
> ({2})' format: {class name. class allTestSelectors size}]]!
>
> Item was changed:
>   ----- Method: TestRunner>>saveResultInHistory (in category 'history
> saving') -----
>   saveResultInHistory
> +       result dispatchResultsIntoHistory.
> +       self changed: #classList.!
> -       result dispatchResultsIntoHistory!
>
> Item was changed:
>   ----- Method: TestRunner>>updateResults (in category 'updating') -----
>   updateResults
>         "<lint: #expect rule: #guardingClause>"
>         "<lint: #expect rule: #longMethods>"
>
>         self updateStatus: false.
>         failedList size = result failures size ifFalse: [
>                 failedList := result failures asArray
>                         sort: [ :a :b | a printString <= b printString ].
>                 failedSelected := nil.
>                 self
>                         changed: #failedList;
>                         changed: #failedSelected;
>                         changed: #hasFailures;
>                         changed: #hasProgress  ].
>         errorList size = result errors size ifFalse: [
>                 errorList := result errors asArray
>                         sort: [ :a :b | a printString <= b printString ].
>                 errorSelected := nil.
>                 self
>                         changed: #errorList;
>                         changed: #errorSelected;
>                         changed: #hasErrors;
> +                       changed: #hasProgress;
> +                       changed: #classList ].!
> -                       changed: #hasProgress ].!
>
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20190929/025a6f7e/attachment-0001.html>