s/Benchmark.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Fri, 25 Sep 2015 05:18:26 +0100
changeset 285 0cf54ee76de5
parent 213 918f0c6191c2
child 307 b963ac310a3e
permissions -rw-r--r--
Normalized Windows OS identification string with Pharo
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
213
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     1
"{ Package: 'jv:calipel/s' }"
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     2
285
0cf54ee76de5 Normalized Windows OS identification string with Pharo
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 213
diff changeset
     3
"{ NameSpace: Smalltalk }"
0cf54ee76de5 Normalized Windows OS identification string with Pharo
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 213
diff changeset
     4
213
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     5
Object subclass:#Benchmark
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     6
	instanceVariableNames:''
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     7
	classVariableNames:''
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     8
	poolDictionaries:''
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     9
	category:'CalipeL-S-Core'
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    10
!
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    11
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    12
!Benchmark class methodsFor:'documentation'!
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    13
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    14
documentation
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    15
"
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    16
    Base abstract superclass for benchmarks.
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    17
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    18
    NOTE: There's no need to inherit from this class, everything
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    19
    is specified by annotations. However, this class provides some
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    20
    convenient class methods.
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    21
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    22
    [author:]
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    23
        Jan Vrany <jan.vrany@fit.cvut.cz>
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    24
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    25
    [instance variables:]
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    26
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    27
    [class variables:]
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    28
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    29
    [see also:]
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    30
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    31
"
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    32
! !
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    33
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    34
!Benchmark class methodsFor:'running'!
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    35
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    36
run
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    37
    ^ (BenchmarkSuite class:self) run
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    38
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    39
    "Created: / 10-06-2013 / 21:53:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    40
!
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    41
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    42
run: benchmark
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    43
    ^ (BenchmarkInstance class:self selector:benchmark) run
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    44
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    45
    "Created: / 31-05-2013 / 10:39:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    46
    "Modified: / 10-06-2013 / 21:53:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    47
!
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    48
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    49
run: benchmark with: parameters
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    50
    ^ (BenchmarkInstance class:self selector:benchmark) runWith: parameters
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    51
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    52
    "Created: / 10-03-2014 / 00:12:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    53
! !
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    54
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    55
!Benchmark class methodsFor:'testing'!
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    56
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    57
isAbstract
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    58
    ^ self == Benchmark
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    59
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    60
    "Created: / 11-03-2014 / 23:10:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    61
! !
918f0c6191c2 Some more work on St/X benchmarks.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    62