hg/stx-goodies-regression: RegressionTests__CompilerTests2.st@cb5e99d58aab (annotated)

784 b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1	"{ Package: 'exept:regression' }"
b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	"{ NameSpace: RegressionTests }"
b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4
b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	TestCase subclass:#CompilerTests2
921 cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	6	instanceVariableNames:'methods enabledJIT'
784 b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	classVariableNames:''
b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	poolDictionaries:''
823 452346d978c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 784 diff changeset	9	category:'tests-Regression'
784 b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10	!
b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11
b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	12
899 4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	13	!CompilerTests2 methodsFor:'private'!
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	14
921 cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	15	compile: source mode: mode
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	16	"Compile given source and returns the new method.
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	17	The from the source is prepended the mode + underscore
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	18	(i.e., foo -> stc_foo).
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	19
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	20	If mode is:
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	21	#stc....then the method is stc-compiled.
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	22	#jit....then the method is bytecode compiled and left
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	23	to the jitter
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	24	#bc.....them the method is bytecode compiled and marked
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	25	as checked so JIT won't even try.
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	26	"
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	27
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	28	\| m \|
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	29
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	30	Class withoutUpdatingChangesDo:[
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	31	mode == #stc ifTrue:[
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	32	ParserFlags withSTCCompilation:#always do:[
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	33	m := self class compile: (mode, '_', source) classified: 'private - dynamic'.
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	34	].
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	35	] ifFalse:[
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	36	ParserFlags withSTCCompilation:#never do:[
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	37	m := self class compile: (mode, '_', source) classified: 'private - dynamic'.
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	38	m checked: (mode == #bc)
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	39	].
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	40	].
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	41	].
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	42	methods add: m.
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	43	^m
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	44
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	45	"Created: / 25-04-2013 / 15:18:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	46	!
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	47
899 4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	48	currentLineNumber
900 7acbd0cce153 Call fixAllLineNumbers, otherwise linenos are invalid. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 899 diff changeset	49	thisContext fixAllLineNumbers.
7acbd0cce153 Call fixAllLineNumbers, otherwise linenos are invalid. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 899 diff changeset	50	^thisContext sender lineNumber.
899 4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	51
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	52	"Created: / 12-04-2013 / 21:20:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
900 7acbd0cce153 Call fixAllLineNumbers, otherwise linenos are invalid. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 899 diff changeset	53	"Modified: / 13-04-2013 / 10:12:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
899 4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	54	!
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	55
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	56	method_lineno_002
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	57	1 factorial. ^self currentLineNumber
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	58
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	59	"Created: / 12-04-2013 / 21:22:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	60	!
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	61
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	62	method_lineno_300
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	63	"DO NOT MAKE THIS METHOD SHORTER, DO NOT REMOVE BLANK LINES!!!!!!"
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	64
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	65
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	66
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	67
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	68
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	69
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	70
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	71
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	72
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	73
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	74
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	75
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	76
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	77
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	78
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	79
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	80
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	81
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	82
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	83
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	84
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	85
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	86
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	87
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	88
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	89
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	90
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	91
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	92
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	93
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	94
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	95
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	96
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	97
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	98
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	99
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	100
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	101
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	102
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	103
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	104
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	105
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	106
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	107
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	108
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	109
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	110
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	111
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	112
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	113
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	114
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	115
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	116
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	117
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	118
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	119
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	120
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	121
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	122
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	123
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	124
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	125
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	126
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	127
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	128
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	129
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	130
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	131
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	132
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	133
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	134
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	135
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	136
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	137
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	138
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	139
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	140
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	141
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	142
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	143
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	144
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	145
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	146
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	147
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	148
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	149
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	150
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	151
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	152
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	153
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	154
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	155
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	156
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	157
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	158
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	159
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	160
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	161
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	162
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	163
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	164
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	165
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	166
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	167
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	168
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	169
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	170
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	171
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	172
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	173
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	174
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	175
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	176
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	177
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	178
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	179
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	180
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	181
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	182
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	183
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	184
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	185
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	186
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	187
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	188
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	189
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	190
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	191
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	192
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	193
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	194
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	195
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	196
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	197
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	198
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	199
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	200
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	201
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	202
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	203
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	204
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	205
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	206
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	207
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	208
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	209
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	210
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	211
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	212
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	213
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	214
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	215
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	216
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	217
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	218
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	219
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	220
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	221
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	222
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	223
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	224
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	225
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	226
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	227
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	228
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	229
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	230
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	231
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	232
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	233
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	234
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	235
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	236
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	237
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	238
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	239
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	240
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	241
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	242
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	243
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	244
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	245
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	246
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	247
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	248
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	249
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	250
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	251
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	252
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	253
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	254
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	255
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	256
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	257
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	258
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	259
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	260
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	261
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	262
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	263
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	264
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	265
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	266
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	267
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	268
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	269
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	270
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	271
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	272
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	273
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	274
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	275
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	276
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	277
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	278
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	279
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	280
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	281
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	282
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	283
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	284
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	285
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	286
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	287
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	288
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	289
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	290
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	291
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	292
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	293
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	294
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	295
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	296
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	297
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	298
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	299
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	300
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	301
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	302
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	303
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	304
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	305
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	306
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	307
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	308
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	309
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	310
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	311
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	312
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	313
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	314
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	315
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	316
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	317
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	318
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	319
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	320
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	321
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	322
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	323
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	324
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	325
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	326
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	327
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	328
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	329
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	330
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	331
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	332
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	333
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	334
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	335
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	336
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	337
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	338
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	339
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	340
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	341
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	342
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	343
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	344
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	345
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	346
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	347
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	348
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	349
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	350
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	351
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	352
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	353
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	354
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	355
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	356
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	357
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	358
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	359
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	360
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	361	^self currentLineNumber
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	362
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	363	"Created: / 12-04-2013 / 21:23:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	364	! !
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	365
784 b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	366	!CompilerTests2 methodsFor:'setup'!
b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	367
921 cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	368	setUp
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	369	methods := Set new.
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	370	enabledJIT := ObjectMemory justInTimeCompilation.
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	371
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	372	"Created: / 25-04-2013 / 15:20:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	373	!
784 b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	374
921 cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	375	tearDown
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	376	ObjectMemory justInTimeCompilation: enabledJIT.
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	377	Class withoutUpdatingChangesDo:[
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	378	(Smalltalk at: #'exept_regression_testData_CompilerTests2') notNil ifTrue:[
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	379	(Smalltalk at: #'exept_regression_testData_CompilerTests2') classes do:[:e\|
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	380	e notNil ifTrue:[
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	381	Smalltalk removeClass: e
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	382	].
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	383	]
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	384	].
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	385
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	386	methods do:[:m\|
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	387	m mclass removeSelector: m selector.
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	388	]
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	389	]
784 b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	390
b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	391	"Created: / 26-10-2012 / 11:32:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
921 cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	392	"Modified: / 25-04-2013 / 15:21:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
784 b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	393	! !
b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	394
b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	395	!CompilerTests2 methodsFor:'tests'!
b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	396
b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	397	test_01
823 452346d978c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 784 diff changeset	398	"JV@2012-10-26:
784 b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	399
823 452346d978c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 784 diff changeset	400	When a package is loaded from source using
784 b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	401
870 577f844aedf7 class: RegressionTests::CompilerTests2 Claus Gittinger <cg@exept.de> parents: 823 diff changeset	402	Smalltalk loadPackage:'...'
784 b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	403
823 452346d978c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 784 diff changeset	404	expression __EVALUATED FROM WORKSPACE__ AND a method from loaded class
452346d978c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 784 diff changeset	405	uses a class from the same package that is not yet loaded (i.e., it will
452346d978c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 784 diff changeset	406	be loaded later),
784 b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	407
823 452346d978c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 784 diff changeset	408	then the compiler as of 2012-10-26 generates access to a workspace variable
784 b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	409	instead of access to a global
b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	410
b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	411	This tests checks for this bug
b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	412	"
b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	413
b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	414	\| ws \|
b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	415
870 577f844aedf7 class: RegressionTests::CompilerTests2 Claus Gittinger <cg@exept.de> parents: 823 diff changeset	416	"/ this test only works with a Display...
871 098316a54e40 class: RegressionTests::CompilerTests2 Claus Gittinger <cg@exept.de> parents: 870 diff changeset	417	self skipIf:[Display isNil] description:'Test requires a Display'.
870 577f844aedf7 class: RegressionTests::CompilerTests2 Claus Gittinger <cg@exept.de> parents: 823 diff changeset	418
784 b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	419	"/First, make sure that package is not yet loaded...
823 452346d978c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 784 diff changeset	420	self
870 577f844aedf7 class: RegressionTests::CompilerTests2 Claus Gittinger <cg@exept.de> parents: 823 diff changeset	421	assert: (Smalltalk at: #'exept_regression_testData_CompilerTests2') isNil
577f844aedf7 class: RegressionTests::CompilerTests2 Claus Gittinger <cg@exept.de> parents: 823 diff changeset	422	description: 'Mock package already loaded'.
784 b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	423
b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	424	ws := WorkspaceApplication new.
870 577f844aedf7 class: RegressionTests::CompilerTests2 Claus Gittinger <cg@exept.de> parents: 823 diff changeset	425	ws selectedWorkspace
577f844aedf7 class: RegressionTests::CompilerTests2 Claus Gittinger <cg@exept.de> parents: 823 diff changeset	426	contents: '(Smalltalk loadPackage: #''exept:regression/testData/CompilerTests2'')';
577f844aedf7 class: RegressionTests::CompilerTests2 Claus Gittinger <cg@exept.de> parents: 823 diff changeset	427	selectAll;
577f844aedf7 class: RegressionTests::CompilerTests2 Claus Gittinger <cg@exept.de> parents: 823 diff changeset	428	doIt.
784 b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	429
823 452346d978c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 784 diff changeset	430	self assert: (Smalltalk at: #'RegressionTests::CompilerTests2Mock1') new foo class
870 577f844aedf7 class: RegressionTests::CompilerTests2 Claus Gittinger <cg@exept.de> parents: 823 diff changeset	431	== (Smalltalk at: #'RegressionTests::CompilerTests2Mock2')
784 b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	432
b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	433	"Created: / 26-10-2012 / 11:59:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	434	"Modified (comment): / 12-02-2013 / 16:24:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	435	!
b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	436
b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	437	test_02
823 452346d978c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 784 diff changeset	438	"JV@2012-10-26:
784 b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	439
823 452346d978c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 784 diff changeset	440	When a package is loaded from source using
784 b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	441
823 452346d978c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 784 diff changeset	442	Smalltalk loadPackage:'...'
784 b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	443
823 452346d978c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 784 diff changeset	444	expression and a method from loaded class in namespace uses a class from the
452346d978c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 784 diff changeset	445	same package and same namespace, that is not yet loaded (i.e., it will be loaded
452346d978c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 784 diff changeset	446	later),
784 b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	447
b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	448	then the compiler as of 2012-10-26 generates access to class in no namespace.
b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	449
b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	450	This test checks for this bug
b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	451	"
b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	452
b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	453	"/First, make sure that package is not yet loaded...
823 452346d978c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 784 diff changeset	454	self
452346d978c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 784 diff changeset	455	assert: (Smalltalk at: #'exept_regression_estData_CompilerTests2') isNil
452346d978c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 784 diff changeset	456	description: 'Mock package already loaded'.
784 b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	457
823 452346d978c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 784 diff changeset	458	self
452346d978c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 784 diff changeset	459	assert: (Smalltalk loadPackage: #'exept:regression/testData/CompilerTests2')
452346d978c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 784 diff changeset	460	description: 'Cannot load mock package!!'.
784 b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	461
b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	462
823 452346d978c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 784 diff changeset	463	self assert: (Smalltalk at: #'RegressionTests::CompilerTests2Mock1') new foo class
452346d978c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 784 diff changeset	464	== (Smalltalk at: #'RegressionTests::CompilerTests2Mock2')
784 b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	465
b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	466	"Created: / 26-10-2012 / 12:26:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	467	"Modified (comment): / 12-02-2013 / 16:24:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	468	! !
b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	469
899 4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	470	!CompilerTests2 methodsFor:'tests - line numbers'!
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	471
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	472	test_lineno_01_bci
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	473	\| m002 m300 l \|
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	474
921 cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	475	m002 := self compile: (self class >> #method_lineno_002) source mode: #bc.
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	476	m300 := self compile: (self class >> #method_lineno_300) source mode: #bc.
899 4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	477
921 cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	478	self assert: (l := self bc_method_lineno_002) == 2.
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	479	self assert: (l := self bc_method_lineno_300) == 300.
899 4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	480
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	481	self assert: m002 code isNil.
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	482	self assert: m300 code isNil.
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	483
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	484	"Created: / 12-04-2013 / 21:24:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
921 cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	485	"Modified: / 25-04-2013 / 15:24:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
899 4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	486	!
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	487
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	488	test_lineno_01_jit
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	489	\| m002 m300 l \|
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	490
921 cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	491	m002 := self compile: (self class >> #method_lineno_002) source mode: #jit.
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	492	m300 := self compile: (self class >> #method_lineno_300) source mode: #jit.
899 4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	493
921 cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	494	self assert: (l := self jit_method_lineno_002) == 2.
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	495	self assert: (l := self jit_method_lineno_300) == 300.
899 4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	496
921 cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	497	self assert: m002 code isNil.
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	498	self assert: m300 code isNil.
899 4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	499
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	500	"Created: / 12-04-2013 / 21:41:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
921 cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	501	"Modified: / 25-04-2013 / 15:25:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
899 4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	502	!
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	503
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	504	test_lineno_01_stc
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	505	\| m002 m300 l \|
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	506
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	507	m002 := self class >> #method_lineno_002.
921 cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	508	m300 := self class >> #method_lineno_300.
899 4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	509
921 cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	510	self compile: m002 source mode: #stc.
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	511	self compile: m300 source mode: #stc.
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	512
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	513	self assert: (l := self stc_method_lineno_002) == 2.
cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	514	self assert: (l := self stc_method_lineno_300) == 300.
899 4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	515
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	516	"Created: / 12-04-2013 / 21:50:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
921 cb5e99d58aab Refactoring only - add more versatile compile method Jan Vrany <jan.vrany@fit.cvut.cz> parents: 900 diff changeset	517	"Modified: / 25-04-2013 / 15:22:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
899 4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	518	! !
4375bdf77fd2 Added line number tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 871 diff changeset	519
784 b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	520	!CompilerTests2 class methodsFor:'documentation'!
b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	521
b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	522	version
b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	523	^ '$Header$'
b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	524	!
b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	525
b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	526	version_CVS
b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	527	^ '$Header$'
b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	528	!
b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	529
b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	530	version_SVN
b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	531	^ '�Id:: RegressionTests__CompilerTests2.st 506 2012-10-26 12:03:11Z vranyj1 �'
b59c0cad82d6 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	532	! !
870 577f844aedf7 class: RegressionTests::CompilerTests2 Claus Gittinger <cg@exept.de> parents: 823 diff changeset	533

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Thu, 25 Apr 2013 16:26:14 +0200
changeset 921	cb5e99d58aab
parent 900	7acbd0cce153
child 922	7c65bb0a73f5
permissions	-rw-r--r--