hg/stx-goodies-regression: RegressionTests__SmallIntegerTest.st@708a62eac280 (annotated)

310 f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1	"{ Package: 'exept:regression' }"
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3	"{ NameSpace: RegressionTests }"
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	5	TestCase subclass:#SmallIntegerTest
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	6	instanceVariableNames:''
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	7	classVariableNames:''
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	8	poolDictionaries:''
1074 905aea054cf4 category Claus Gittinger <cg@exept.de> parents: 619 diff changeset	9	category:'tests-Regression-Numbers'
310 f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	10	!
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	11
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	12
619 f918fa22ad81 Circumvent compiler error about div by zero Stefan Vogel <sv@exept.de> parents: 364 diff changeset	13	!SmallIntegerTest class methodsFor:'others'!
f918fa22ad81 Circumvent compiler error about div by zero Stefan Vogel <sv@exept.de> parents: 364 diff changeset	14
f918fa22ad81 Circumvent compiler error about div by zero Stefan Vogel <sv@exept.de> parents: 364 diff changeset	15	version_CVS
f918fa22ad81 Circumvent compiler error about div by zero Stefan Vogel <sv@exept.de> parents: 364 diff changeset	16	^ '$Header$'
f918fa22ad81 Circumvent compiler error about div by zero Stefan Vogel <sv@exept.de> parents: 364 diff changeset	17	! !
f918fa22ad81 Circumvent compiler error about div by zero Stefan Vogel <sv@exept.de> parents: 364 diff changeset	18
310 f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	19	!SmallIntegerTest methodsFor:'tests-arithmetic'!
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	20
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	21	testDivide
1223 708a62eac280 class: RegressionTests::SmallIntegerTest Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	22	\|zero _1 _2 _3 _4 _m2 _m4\|
619 f918fa22ad81 Circumvent compiler error about div by zero Stefan Vogel <sv@exept.de> parents: 364 diff changeset	23
f918fa22ad81 Circumvent compiler error about div by zero Stefan Vogel <sv@exept.de> parents: 364 diff changeset	24	"circumvent compiler error about division by zero"
f918fa22ad81 Circumvent compiler error about div by zero Stefan Vogel <sv@exept.de> parents: 364 diff changeset	25	zero := 0.
f918fa22ad81 Circumvent compiler error about div by zero Stefan Vogel <sv@exept.de> parents: 364 diff changeset	26
310 f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	27	self assert: 2 / 1 = 2.
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	28	self assert: (3 / 2) isFraction.
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	29	self assert: 4 / 2 = 2.
1223 708a62eac280 class: RegressionTests::SmallIntegerTest Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	30	self assert: 4 / -2 = -2.
708a62eac280 class: RegressionTests::SmallIntegerTest Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	31	self assert: -4 / 2 = -2.
708a62eac280 class: RegressionTests::SmallIntegerTest Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	32	self assert: -4 / -2 = 2.
619 f918fa22ad81 Circumvent compiler error about div by zero Stefan Vogel <sv@exept.de> parents: 364 diff changeset	33	self should: [ 1 / zero ] raise: ZeroDivide.
1223 708a62eac280 class: RegressionTests::SmallIntegerTest Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	34
708a62eac280 class: RegressionTests::SmallIntegerTest Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	35	_1 := 1.
708a62eac280 class: RegressionTests::SmallIntegerTest Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	36	_2 := 2.
708a62eac280 class: RegressionTests::SmallIntegerTest Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	37	_3 := 3.
708a62eac280 class: RegressionTests::SmallIntegerTest Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	38	_4 := 4.
708a62eac280 class: RegressionTests::SmallIntegerTest Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	39	_m2 := -2.
708a62eac280 class: RegressionTests::SmallIntegerTest Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	40	_m4 := -4.
708a62eac280 class: RegressionTests::SmallIntegerTest Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	41
708a62eac280 class: RegressionTests::SmallIntegerTest Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	42	self assert: _2 / _1 = _2.
708a62eac280 class: RegressionTests::SmallIntegerTest Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	43	self assert: (_3 / _2) isFraction.
708a62eac280 class: RegressionTests::SmallIntegerTest Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	44	self assert: _4 / _2 = 2.
708a62eac280 class: RegressionTests::SmallIntegerTest Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	45	self assert: _4 / _m2 = -2.
708a62eac280 class: RegressionTests::SmallIntegerTest Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	46	self assert: _m4 / _2 = -2.
708a62eac280 class: RegressionTests::SmallIntegerTest Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	47	self assert: _m4 / _m2 = 2.
364 fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	48	!
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	49
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	50	testMultiply
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	51	\|i ii\|
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	52
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	53	#(
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	54	16r3fff
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	55	16r7fff
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	56	16rffff
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	57	16r3fffffff
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	58	16r7fffffff
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	59	16rffffffff
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	60	16r20000000
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	61	16r40000000
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	62	16r80000000
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	63	16r100000000
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	64	16r20000001
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	65	16r40000001
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	66	16r80000001
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	67	16r100000001
1223 708a62eac280 class: RegressionTests::SmallIntegerTest Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	68
708a62eac280 class: RegressionTests::SmallIntegerTest Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	69	"/ for 64 bit machines:
708a62eac280 class: RegressionTests::SmallIntegerTest Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	70	16r3fffffffffffffff
708a62eac280 class: RegressionTests::SmallIntegerTest Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	71	16r7fffffffffffffff
708a62eac280 class: RegressionTests::SmallIntegerTest Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	72	16rffffffffffffffff
708a62eac280 class: RegressionTests::SmallIntegerTest Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	73	16r2000000000000000
708a62eac280 class: RegressionTests::SmallIntegerTest Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	74	16r4000000000000000
708a62eac280 class: RegressionTests::SmallIntegerTest Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	75	16r8000000000000000
708a62eac280 class: RegressionTests::SmallIntegerTest Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	76	16r10000000000000000
708a62eac280 class: RegressionTests::SmallIntegerTest Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	77	16r2000000000000001
708a62eac280 class: RegressionTests::SmallIntegerTest Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	78	16r4000000000000001
708a62eac280 class: RegressionTests::SmallIntegerTest Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	79	16r8000000000000001
708a62eac280 class: RegressionTests::SmallIntegerTest Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	80	16r10000000000000001
364 fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	81	) do:[:x \|
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	82	i := x.
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	83	ii := i * i.
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	84	self assert:((ii / i) = i).
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	85	i class == SmallInteger ifTrue:[
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	86	self assert:((ii / i) == i).
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	87	].
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	88
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	89	i := x negated.
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	90	ii := i * i.
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	91	self assert:((ii / i) = i).
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	92	i class == SmallInteger ifTrue:[
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	93	self assert:((ii / i) == i).
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	94	].
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	95	].
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	96	!
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	97
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	98	testNegation
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	99	\|i iN iNN\|
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	100
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	101	#(
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	102	16r3fffffff
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	103	16r7fffffff
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	104	16rffffffff
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	105	16r20000000
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	106	16r40000000
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	107	16r80000000
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	108	16r100000000
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	109	16r20000001
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	110	16r40000001
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	111	16r80000001
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	112	16r100000001
1223 708a62eac280 class: RegressionTests::SmallIntegerTest Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	113
708a62eac280 class: RegressionTests::SmallIntegerTest Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	114	"/ for 64bit machines:
708a62eac280 class: RegressionTests::SmallIntegerTest Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	115	16r3fffffffffffffff
708a62eac280 class: RegressionTests::SmallIntegerTest Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	116	16r7fffffffffffffff
708a62eac280 class: RegressionTests::SmallIntegerTest Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	117	16rffffffffffffffff
708a62eac280 class: RegressionTests::SmallIntegerTest Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	118	16r2000000000000000
708a62eac280 class: RegressionTests::SmallIntegerTest Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	119	16r4000000000000000
708a62eac280 class: RegressionTests::SmallIntegerTest Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	120	16r8000000000000000
708a62eac280 class: RegressionTests::SmallIntegerTest Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	121	16r10000000000000000
708a62eac280 class: RegressionTests::SmallIntegerTest Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	122	16r2000000000000001
708a62eac280 class: RegressionTests::SmallIntegerTest Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	123	16r4000000000000001
708a62eac280 class: RegressionTests::SmallIntegerTest Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	124	16r8000000000000001
708a62eac280 class: RegressionTests::SmallIntegerTest Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	125	16r10000000000000001
364 fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	126	) do:[:x \|
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	127	i := x.
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	128	iN := i negated.
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	129	iNN := iN negated.
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	130	self assert:(i = iNN).
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	131	i class == SmallInteger ifTrue:[
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	132	self assert:(i == iNN).
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	133	].
fd3ff5ad69f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 310 diff changeset	134	].
310 f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	135	! !
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	136
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	137	!SmallIntegerTest methodsFor:'tests-class protocol'!
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	138
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	139	testBasicNew
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	140	self should: [SmallInteger basicNew] raise: TestResult error.
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	141	!
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	142
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	143	testMaxVal
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	144	"/ the original code did not check for pointer-size;
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	145
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	146	Smalltalk isSmalltalkX ifTrue:[
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	147	SmallInteger maxBytes == 4 ifTrue:[
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	148	self should: [SmallInteger maxVal = 16r3FFFFFFF].
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	149	self should: [SmallInteger maxVal == 16r3FFFFFFF].
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	150	] ifFalse:[
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	151	self should: [SmallInteger maxVal = 16r3FFFFFFFFFFFFFFF].
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	152	self should: [SmallInteger maxVal == 16r3FFFFFFFFFFFFFFF].
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	153	].
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	154	] ifFalse:[
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	155	self should: [SmallInteger maxVal = 16r3FFFFFFF].
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	156	]
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	157	!
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	158
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	159	testMinVal
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	160	"/ the original code did not check for pointer-size;
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	161
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	162	Smalltalk isSmalltalkX ifTrue:[
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	163	SmallInteger maxBytes == 4 ifTrue:[
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	164	self should: [SmallInteger minVal = -16r40000000].
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	165	self should: [SmallInteger minVal == -16r40000000].
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	166	] ifFalse:[
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	167	self should: [SmallInteger minVal = -16r4000000000000000].
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	168	self should: [SmallInteger minVal == -16r4000000000000000].
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	169	].
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	170	] ifFalse:[
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	171	self should: [SmallInteger minVal = -16r40000000].
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	172	]
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	173	!
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	174
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	175	testNew
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	176	self should: [SmallInteger new] raise: TestResult error.
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	177	! !
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	178
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	179	!SmallIntegerTest class methodsFor:'documentation'!
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	180
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	181	version
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	182	^ '$Header$'
f7a1f000a281 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	183	! !
1074 905aea054cf4 category Claus Gittinger <cg@exept.de> parents: 619 diff changeset	184

author	Claus Gittinger <cg@exept.de>
	Thu, 06 Nov 2014 17:03:19 +0100
changeset 1223	708a62eac280
parent 1074	905aea054cf4
child 1306	9b2ba728b70e
permissions	-rw-r--r--