s/stx/BenchmarkRunner.st
changeset 6 25b264cec44e
parent 2 e48eb0a3f5a3
equal deleted inserted replaced
5:8669edf62d9b 6:25b264cec44e
   212         ].
   212         ].
   213         class autoload.
   213         class autoload.
   214         selector isNil ifTrue:[
   214         selector isNil ifTrue:[
   215             suite addBenchmark: (BenchmarkSuite class: class)
   215             suite addBenchmark: (BenchmarkSuite class: class)
   216         ] ifFalse:[
   216         ] ifFalse:[
   217             suite addBenchmark: (BenchmarkSuite class: class benchmark: selector)
   217             suite addBenchmark: (BenchmarkSuite class:class selector:selector)
   218         ]
   218         ]
   219     ].
   219     ].
   220 
   220 
   221     "Run suite"
   221     "Run suite"
   222     result := BenchmarkResult new.
   222     result := BenchmarkResult new.