hg/jv-calipel: s/tests/BenchmarkSuiteTests.st@256720089f87 (annotated)

289 256720089f87 Check for empty benchmarksuite in batch benchmark runner Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1	"{ Package: 'jv:calipel/s/tests' }"
256720089f87 Check for empty benchmarksuite in batch benchmark runner Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
256720089f87 Check for empty benchmarksuite in batch benchmark runner Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	"{ NameSpace: Smalltalk }"
256720089f87 Check for empty benchmarksuite in batch benchmark runner Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4
256720089f87 Check for empty benchmarksuite in batch benchmark runner Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	TestCase subclass:#BenchmarkSuiteTests
256720089f87 Check for empty benchmarksuite in batch benchmark runner Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6	instanceVariableNames:''
256720089f87 Check for empty benchmarksuite in batch benchmark runner Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	classVariableNames:''
256720089f87 Check for empty benchmarksuite in batch benchmark runner Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	poolDictionaries:''
256720089f87 Check for empty benchmarksuite in batch benchmark runner Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9	category:'CalipeL-S-Tests'
256720089f87 Check for empty benchmarksuite in batch benchmark runner Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10	!
256720089f87 Check for empty benchmarksuite in batch benchmark runner Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11
256720089f87 Check for empty benchmarksuite in batch benchmark runner Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	12	!BenchmarkSuiteTests methodsFor:'tests'!
256720089f87 Check for empty benchmarksuite in batch benchmark runner Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13
256720089f87 Check for empty benchmarksuite in batch benchmark runner Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14	test_isEmpty
256720089f87 Check for empty benchmarksuite in batch benchmark runner Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15	\| suite \|
256720089f87 Check for empty benchmarksuite in batch benchmark runner Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16
256720089f87 Check for empty benchmarksuite in batch benchmark runner Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17	suite := BenchmarkSuite class: self class.
256720089f87 Check for empty benchmarksuite in batch benchmark runner Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18	self assert: suite isEmptyOrNil.
256720089f87 Check for empty benchmarksuite in batch benchmark runner Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19	self assert: suite isEmpty.
256720089f87 Check for empty benchmarksuite in batch benchmark runner Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20
256720089f87 Check for empty benchmarksuite in batch benchmark runner Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	21	suite := BenchmarkSuite class: BenchmarkTestsSuiteA.
256720089f87 Check for empty benchmarksuite in batch benchmark runner Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	22	self assert: suite notEmptyOrNil.
256720089f87 Check for empty benchmarksuite in batch benchmark runner Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	23	self assert: suite notEmpty.
256720089f87 Check for empty benchmarksuite in batch benchmark runner Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	24
256720089f87 Check for empty benchmarksuite in batch benchmark runner Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25	suite := BenchmarkSuite new.
256720089f87 Check for empty benchmarksuite in batch benchmark runner Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26	suite addBenchmark: (BenchmarkSuite class: self class).
256720089f87 Check for empty benchmarksuite in batch benchmark runner Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	27	self assert: suite isEmptyOrNil.
256720089f87 Check for empty benchmarksuite in batch benchmark runner Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28	self assert: suite isEmpty.
256720089f87 Check for empty benchmarksuite in batch benchmark runner Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	29
256720089f87 Check for empty benchmarksuite in batch benchmark runner Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	30	suite := BenchmarkSuite new.
256720089f87 Check for empty benchmarksuite in batch benchmark runner Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	31	suite addBenchmark: (BenchmarkSuite class:BenchmarkTestsSuiteA).
256720089f87 Check for empty benchmarksuite in batch benchmark runner Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	32	self assert: suite notEmptyOrNil.
256720089f87 Check for empty benchmarksuite in batch benchmark runner Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	33	self assert: suite notEmpty.
256720089f87 Check for empty benchmarksuite in batch benchmark runner Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	34
256720089f87 Check for empty benchmarksuite in batch benchmark runner Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	35	"Created: / 30-09-2015 / 08:32:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
256720089f87 Check for empty benchmarksuite in batch benchmark runner Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	36	! !
256720089f87 Check for empty benchmarksuite in batch benchmark runner Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	37

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Wed, 30 Sep 2015 09:03:50 +0100
changeset 289	256720089f87
child 295	94a93aafc8ec
permissions	-rw-r--r--