"{ Package: 'jv:calipel/s' }"

BenchmarkExecutor subclass:#BenchmarkRunnerExecutor

	instanceVariableNames:'transcript'

	classVariableNames:''

	poolDictionaries:''

	category:'CalipeL-S-Core-Runner'

!

!BenchmarkRunnerExecutor class methodsFor:'documentation'!

documentation

" 

  Replace 'Object', 'NewClass1' and

  the empty string arguments by true values.

  Install (or change) the class by 'accepting',

  either via the menu or the keyboard (usually CMD-A).

  You can also change the category simply by editing

  the categoryString and accepting.

  To be nice to others (and yourself later), do not forget to

  add some documentation; preferably under the classes documentation

  protocol.

  (see the `create documentation stubs' item in the methodList menu;

   switch from instance to class to find this menu item.)

  Notice, that ST/X uses the convention to document the class using

  comment-only class methods (however, ST80 comments are supported and

  can be changed via the class-documentation menu).

  Notice: 

    the above text has been extracted from the classes documentation method.

    Any change in it will be lost if you 'accept' here.

    To change the documentation, switch to the documentation method and 'accept' any changes there.

"

! !

!BenchmarkRunnerExecutor class methodsFor:'instance creation'!

new

    "return an initialized instance"

    ^ self basicNew initialize.

! !

    | nm |

    nm := aBenchmarkInstance name.

    transcript next: (25 - nm size) put: Character space.

    transcript nextPutAll: nm.

    transcript nextPutAll: '...'.

    transcript nextPutAll: 'OK ['.

    transcript nextPutAll: (aBenchmarkResult outcomes detect:[:o|o benchmark == aBenchmarkInstance ]) time printString.

    transcript nextPutAll: ']

'

!

tearDown: aBenchmarkInstance

    transcript nextPutAll: 'T..'.

    super tearDown: aBenchmarkInstance

    "Created: / 24-06-2013 / 01:21:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

timeIt: aBenchmarkInstance

    transcript nextPutAll: 'B..'.

    ^super timeIt: aBenchmarkInstance.

    "Created: / 24-06-2013 / 01:22:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

warmUp: aBenchmarkInstance

    transcript nextPutAll: 'W..'.

    super warmUp: aBenchmarkInstance.

    "Created: / 24-06-2013 / 01:21:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!BenchmarkRunnerExecutor methodsFor:'initialization'!

initialize

    "Invoked when a new instance is created."

    super initialize.

    transcript := BenchmarkPlatform current stderr.

    (Smalltalk isSmalltalkX and:[Transcript isView]) ifTrue:[

        transcript := Transcript

    ].

    "Created: / 24-06-2013 / 01:16:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!BenchmarkRunnerExecutor class methodsFor:'documentation'!

version_HG

    ^ '$Changeset: <not expanded> $'

! !