--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/.hgtags Thu Jun 30 09:02:08 2016 +0100
@@ -0,0 +1,58 @@
+0cbc67ca4ab38b5fa2fece5c8d32a3f9c1c70ae8 expecco_1_9_1_1
+0cbc67ca4ab38b5fa2fece5c8d32a3f9c1c70ae8 expecco_1_9_1_iX
+0cbc67ca4ab38b5fa2fece5c8d32a3f9c1c70ae8 expecco_2_0_0
+0cbc67ca4ab38b5fa2fece5c8d32a3f9c1c70ae8 expecco_2_0_0_0
+170f51d1a2b7e63417a9e32c3de3e39f8fa3ad8c expecco_1_7_1rc3
+1918a00e4d3c64a5f3eaf6595f1f20c227417ee5 expecco_2_8_0
+1918a00e4d3c64a5f3eaf6595f1f20c227417ee5 expecco_2_8_0a
+1918a00e4d3c64a5f3eaf6595f1f20c227417ee5 expecco_2_8_0b
+1918a00e4d3c64a5f3eaf6595f1f20c227417ee5 expecco_ALM_1_9_5
+1918a00e4d3c64a5f3eaf6595f1f20c227417ee5 expecco_ALM_1_9_6
+1f05df761e3afab4b115b5e176984c1747cf797f expecco_1_7_1rc1
+1f05df761e3afab4b115b5e176984c1747cf797f expecco_1_7_1rc2
+3dc512cbf863b7a1f97d1eaa088cb37e4c959dbe expecco_ALM_1_9_7
+649bd275c083f356ac5ca7d84280001ab7576410 expeccoNET_1_6_0_0
+69e6d647965f02cf1cf5504d0760c06a9dbc7d6e expecco_1_7_1rc4
+69e6e55c38e2dc65426062689165e894229eb330 expeccoNET_1_6_8_0
+7359ab263818b3bff5688eef4015e329ede242cd expecco_2_6_0
+7359ab263818b3bff5688eef4015e329ede242cd expecco_2_6_0_45_windows_final
+7359ab263818b3bff5688eef4015e329ede242cd expecco_2_6_0_49_windows_final
+7359ab263818b3bff5688eef4015e329ede242cd expecco_2_6_0rc1
+7359ab263818b3bff5688eef4015e329ede242cd expecco_2_6_1
+7359ab263818b3bff5688eef4015e329ede242cd expecco_2_6_2
+7eeef810d5245c1c8f79bc98612abc0dc232fd71 expecco_2_5_0
+7eeef810d5245c1c8f79bc98612abc0dc232fd71 expecco_2_5_1
+7eeef810d5245c1c8f79bc98612abc0dc232fd71 stable
+8825cc1f7d489f5b5a542bd8ce85e494c0088186 expecco_2_1_0
+8afef76458c91bc6fc92739d58598ad3106272d4 expecco_1_7_2rc1
+8f7a78bea0375a8ca681a72c9db39a964ebe8d96 expecco_2_4_0
+8f7a78bea0375a8ca681a72c9db39a964ebe8d96 expecco_2_4_1
+9ffbf260e0868d87397b79bfcc7b51dd35bc89df expecco_1_8_0rc1
+a7e8b6312d2b0e1c8e21944f1530128e15a5a293 dtm2_1
+ab9af85de41a3055f04e1d0d6e1f31e24eeaa44b expecco_2_7_0
+ab9af85de41a3055f04e1d0d6e1f31e24eeaa44b expecco_2_7_0_49
+ab9af85de41a3055f04e1d0d6e1f31e24eeaa44b expecco_2_7_5
+ab9af85de41a3055f04e1d0d6e1f31e24eeaa44b expecco_2_7_5a
+b6f6576c2106677af3315b4262986c3fa116ed3c expeccoALM_1_9_0_1
+ca2598db0ee8ea22ee536868a988599d10867603 expeccoNET_1_7_0_0
+ca2598db0ee8ea22ee536868a988599d10867603 expecco_2_2_0
+ca2598db0ee8ea22ee536868a988599d10867603 expecco_2_2_5
+e073a6247532aa2417e926289e1398aa1c039178 expecco_1_6_0
+e073a6247532aa2417e926289e1398aa1c039178 expecco_1_6_0rc5
+e16012b59e29203ebae20d17f424c3250b8a062d expeccoNET_1_5_0rc1
+e16012b59e29203ebae20d17f424c3250b8a062d expeccoNET_1_5_1rc1
+e16012b59e29203ebae20d17f424c3250b8a062d expecco_1_8_2rc1
+e522392004b253c0a15d74cb50df8a90872b8239 expeccoNET_1_4_0rc1
+e522392004b253c0a15d74cb50df8a90872b8239 expecco_1_7_0rc3
+e522392004b253c0a15d74cb50df8a90872b8239 expecco_1_7_0rc5
+e522392004b253c0a15d74cb50df8a90872b8239 expecco_1_7_0rc8
+e5bcaa3ce5901d09cab566bb8828fa45b877c49e initialR
+e676289d9bb917d347a35d52b0bef277fea74893 expecco_2_9_0
+e676289d9bb917d347a35d52b0bef277fea74893 expecco_2_9_0_a
+e676289d9bb917d347a35d52b0bef277fea74893 expecco_2_9_0_win75_lx36
+e676289d9bb917d347a35d52b0bef277fea74893 expecco_2_9_1
+fbf6fc76b0fadc7c76bb338d29552e90881d6736 expeccoNET_1_7
+fd3ff5ad69f5110492402740f8f7a2ab5f62a846 expecco_1_7_0b1
+fd3ff5ad69f5110492402740f8f7a2ab5f62a846 expecco_1_7_0b2
+fd3ff5ad69f5110492402740f8f7a2ab5f62a846 expecco_1_7_0b3
+fd3ff5ad69f5110492402740f8f7a2ab5f62a846 expecco_1_7_0rc1
--- a/Make.proto Wed Jun 29 21:40:53 2016 +0100
+++ b/Make.proto Thu Jun 30 09:02:08 2016 +0100
@@ -63,7 +63,7 @@
all:: preMake classLibRule postMake
-pre_objs::
+pre_objs::
@@ -122,4 +122,3 @@
$(OUTDIR)stx_goodies_regression.$(O) stx_goodies_regression.$(H): stx_goodies_regression.st $(INCLUDE_TOP)/stx/libbasic/LibraryDefinition.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(INCLUDE_TOP)/stx/libbasic/ProjectDefinition.$(H) $(STCHDR)
# ENDMAKEDEPEND --- do not remove this line
-
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/RegressionTests__BayesClassifierTest.st Thu Jun 30 09:02:08 2016 +0100
@@ -0,0 +1,144 @@
+"{ Encoding: utf8 }"
+
+"{ Package: 'stx:goodies/regression' }"
+
+"{ NameSpace: RegressionTests }"
+
+TestCase subclass:#BayesClassifierTest
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ category:'Collections-Text-Support'
+!
+
+!BayesClassifierTest class methodsFor:'documentation'!
+
+documentation
+"
+ documentation to be added.
+
+ [author:]
+ cg
+
+ [instance variables:]
+
+ [class variables:]
+
+ [see also:]
+
+"
+! !
+
+!BayesClassifierTest methodsFor:'tests'!
+
+test02_dehyphenate
+ "This is a demonstration testCase - it is meant to be removed eventually.
+ This testCase will PASS.
+ Double click on the TestCase class or open a TestRunner to see me checking...
+ - please add more methods like this..."
+
+ |b s l|
+
+ s := '
+1 2 3 4
+5 6 7 8-
+9 10 11 12
+'.
+ b := BayesClassifier new.
+ l := b dehyphenate:s asCollectionOfLines.
+ self assert:(l asArray = #('1 2 3 4' '5 6 7 8-' '9 10 11 12')).
+
+ s := '
+a b c d
+e f g h-
+i j k l
+'.
+ b := BayesClassifier new.
+ l := b dehyphenate:s asCollectionOfLines.
+ self assert:(l asArray = #('a b c d' 'e f g hi j k l')).
+
+
+ s := '
+a b c d
+e f g h -
+i j k l
+'.
+ b := BayesClassifier new.
+ l := b dehyphenate:s asCollectionOfLines.
+ self assert:(l asArray = #('a b c d' 'e f g h -' 'i j k l')).
+ "
+ self run:#test02_dehyphenate
+ self new test02_dehyphenate
+ "
+!
+
+test03_extractWords
+ |b s|
+
+ s := '
+Sieh dir z.B. mal an, was in Deutschland an Rechtsbeugung los ist. Da bekommt in systemrelevanten Verfahren in der Regel der Richter vor dem Prozess mitgeteilt (vom Präsidenten oder seinem Vize), wie das Verfahren ausgehen soll. Und wenn danach Rechtsbeugung erwiesen ist, so darf man das Gericht noch nicht einmal verklagen, sondern muss den Einzelrichter bzw. Senat verklagen, der das Urteil ausgesprochen hat. Und wo muss man den Richter verklagen? An demselben Gericht das ihm zuvor die Anordnung zur Rechtsbeugung erteilt hat. Da ein und dasselbe Gericht das die Rechtsbeugung begangen hat, darüber entscheidet ob es Rechtsbeugung begangen hat, sind in der BRD noch nicht einmal die primitivsten Grundsätze der Gewaltenteilung gegeben.
+Und dann natürlich immer wieder die Wahlfälschungen. Hier geht es zu wie in einer Bananenrepublik. Nur ein Beispiel von vielen
+http://www.welt.de/politik/deutschland/article150236737/Schueler-zaehlten-falsch...
+Und die Pressezensur wird auch immer schlimmer. Wer anderer Meinung ist möge mir bitte einmal ein regierungskritisches Massenmedium nennen, egal ob Fernsehsender, Radiosender, Zeitschrift ...
+Und dann natürlich die Vernichtung der im Grundgesetz garantierten Rechte auf das Postgeheimnis und Fernmeldegeheimnis. Seit die Regierung bei mir rumschnüffelt, ist mein Rechner echt langsam geworden.
+https://de.wikipedia.org/wiki/Fernmeldegeheimnis
+O.k. ist besser als von Islamisten ermordet zu werden, aber ich bin kein Islamist und stehe bei niemandem in Verdacht einer zu sein - also was soll diese Überwachung?!! Ach so, ich habe mal geschrieben wie lächerlich der Vergewaltigungsvorwurf gegen Julian Assange ist, ja dann natürlich ...
+'.
+ b := BayesClassifier new.
+ b classify:s.
+
+ "
+ self run:#test1
+ self new test1
+ "
+!
+
+test06_classify
+ |b|
+
+ b := BayesClassifier new.
+ "/teach it positive phrases
+ b classify:'amazing, awesome movie!!!! Yeah!!!!' asCategory: 'positive'.
+ b classify:'Sweet, this is incredibly, amazing, perfect, great!!!!' asCategory: 'positive'.
+
+ "/teach it a negative phrase
+ b classify:'terrible, shitty thing. Damn. Sucks!!!!' asCategory: 'negative'.
+
+ "/teach it a neutral phrase
+ b classify:'I dont really know what to make of this.' asCategory: 'neutral'.
+
+ "/now test it to see that it correctly categorizes a new document
+ self assert:(b classify:'awesome, cool, amazing!!!! Yay.')= 'positive'.
+!
+
+xtest04_classify
+ |b s|
+
+ s := '
+Sieh dir z.B. mal an, was in Deutschland an Rechtsbeugung los ist. Da bekommt in systemrelevanten Verfahren in der Regel der Richter vor dem Prozess mitgeteilt (vom Präsidenten oder seinem Vize), wie das Verfahren ausgehen soll. Und wenn danach Rechtsbeugung erwiesen ist, so darf man das Gericht noch nicht einmal verklagen, sondern muss den Einzelrichter bzw. Senat verklagen, der das Urteil ausgesprochen hat. Und wo muss man den Richter verklagen? An demselben Gericht das ihm zuvor die Anordnung zur Rechtsbeugung erteilt hat. Da ein und dasselbe Gericht das die Rechtsbeugung begangen hat, darüber entscheidet ob es Rechtsbeugung begangen hat, sind in der BRD noch nicht einmal die primitivsten Grundsätze der Gewaltenteilung gegeben.
+Und dann natürlich immer wieder die Wahlfälschungen. Hier geht es zu wie in einer Bananenrepublik. Nur ein Beispiel von vielen
+http://www.welt.de/politik/deutschland/article150236737/Schueler-zaehlten-falsch...
+Und die Pressezensur wird auch immer schlimmer. Wer anderer Meinung ist möge mir bitte einmal ein regierungskritisches Massenmedium nennen, egal ob Fernsehsender, Radiosender, Zeitschrift ...
+Und dann natürlich die Vernichtung der im Grundgesetz garantierten Rechte auf das Postgeheimnis und Fernmeldegeheimnis. Seit die Regierung bei mir rumschnüffelt, ist mein Rechner echt langsam geworden.
+https://de.wikipedia.org/wiki/Fernmeldegeheimnis
+O.k. ist besser als von Islamisten ermordet zu werden, aber ich bin kein Islamist und stehe bei niemandem in Verdacht einer zu sein - also was soll diese Überwachung?!! Ach so, ich habe mal geschrieben wie lächerlich der Vergewaltigungsvorwurf gegen Julian Assange ist, ja dann natürlich ...
+'.
+ b := BayesClassifier new.
+ b classify:s.
+
+ "
+ self run:#test1
+ self new test1
+ "
+! !
+
+!BayesClassifierTest class methodsFor:'documentation'!
+
+version
+ ^ '$Header$'
+!
+
+version_CVS
+ ^ '$Header$'
+! !
+
--- a/RegressionTests__ChangeSetTests.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__ChangeSetTests.st Thu Jun 30 09:02:08 2016 +0100
@@ -30,7 +30,7 @@
performTest
^Class withoutUpdatingChangesDo:[
- super performTest
+ super performTest
]
"Created: / 20-11-2012 / 15:08:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -45,9 +45,9 @@
cs := cs select:[:each | each isMethodChange and:[ each selector = testSelector ]].
output := (String streamContents:[ :s | cs saveToStream: s format: nil ]) readStream.
chunks := OrderedCollection streamContents:[ :s |
- [ output atEnd ] whileFalse:[
- s nextPut: output nextChunk.
- ].
+ [ output atEnd ] whileFalse:[
+ s nextPut: output nextChunk.
+ ].
].
self assert: chunks size == 6.
@@ -70,9 +70,9 @@
cs := cs select:[:each | each isMethodChange and:[ each selector = #foo ]].
output := (String streamContents:[ :s | cs saveToStream: s format: nil ]) readStream.
chunks := OrderedCollection streamContents:[ :s |
- [ output atEnd ] whileFalse:[
- s nextPut: output nextChunk.
- ].
+ [ output atEnd ] whileFalse:[
+ s nextPut: output nextChunk.
+ ].
].
self assert: chunks size == 6.
@@ -94,13 +94,13 @@
| sourceFileout cs sourceChangeset|
sourceFileout := String streamContents:[:s|
- AbstractSourceCodeManager fileOutSourceCodeOf:ChangeSet on:s
+ AbstractSourceCodeManager fileOutSourceCodeOf:ChangeSet on:s
].
cs := ChangeSet fromStream: sourceFileout readStream.
sourceChangeset := String streamContents:[:s|
- cs saveToStream:s format:#classSource
+ cs saveToStream:s format:#classSource
].
self assert: sourceFileout asByteArray = sourceChangeset asByteArray.
"
@@ -117,13 +117,13 @@
| sourceFileout cs sourceChangeset|
sourceFileout := String streamContents:[:s|
- AbstractSourceCodeManager fileOutSourceCodeOf:Tools::HierarchicalPackageFilterList on:s
+ AbstractSourceCodeManager fileOutSourceCodeOf:Tools::HierarchicalPackageFilterList on:s
].
cs := ChangeSet fromStream: sourceFileout readStream.
sourceChangeset := String streamContents:[:s|
- cs saveToStream:s format:#classSource
+ cs saveToStream:s format:#classSource
].
self assert: sourceFileout asByteArray = sourceChangeset asByteArray.
"
@@ -141,10 +141,10 @@
cs := ChangeSet fromStream:'
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
' readStream.
self assert: cs size == 1.
@@ -162,10 +162,10 @@
changefile :='
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
' readStream.
@@ -185,10 +185,10 @@
"{ NameSpace: Mocks }"
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
' readStream.
self assert: cs size == 1.
@@ -210,10 +210,10 @@
"{ NameSpace: Mocks }"
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
' readStream.
@@ -233,18 +233,18 @@
cs := ChangeSet fromStream:'
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
!!
Object subclass:#PrivateClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- privateIn:MockClass
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ privateIn:MockClass
' readStream.
@@ -270,18 +270,18 @@
changefile :='
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
!!
Object subclass:#PrivateClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- privateIn:MockClass
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ privateIn:MockClass
' readStream.
@@ -309,18 +309,18 @@
"{ NameSpace: Mocks }"
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
!!
Object subclass:#PrivateClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- privateIn:MockClass
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ privateIn:MockClass
' readStream.
@@ -349,18 +349,18 @@
"{ NameSpace: Mocks }"
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
!!
Object subclass:#PrivateClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- privateIn:MockClass
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ privateIn:MockClass
' readStream.
@@ -387,17 +387,17 @@
cs := ChangeSet fromStream:'
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
' readStream.
Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
- cs apply.
+ cs apply.
].
"Responding to a nameSpaceQuerySignal should no longer affect change's namespace.
- Use #nameSpaceOverride: or #applyWithNameSpaceOverride: to apply a change in given
+ Use #nameSpaceOverride: or #applyWithNameSpaceOverride: to apply a change in given
namespace "
self assert: (Smalltalk at: #'MockClass') notNil.
@@ -414,14 +414,14 @@
changefile :='
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
' readStream.
Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
- changefile readStream fileIn.
+ changefile readStream fileIn.
].
"Responding to a nameSpaceQuerySignal should no longer affect change's namespace.
Use #nameSpaceOverride: or #applyWithNameSpaceOverride: to apply a change in given
@@ -443,17 +443,17 @@
"{ NameSpace: Mocks2 }"
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
' readStream.
Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
- cs apply.
+ cs apply.
].
"Responding to a nameSpaceQuerySignal should no longer affect change's namespace.
- Use #nameSpaceOverride: or #applyWithNameSpaceOverride: to apply a change in given
+ Use #nameSpaceOverride: or #applyWithNameSpaceOverride: to apply a change in given
namespace "
self assert: (Smalltalk at: #'Mocks2::MockClass') notNil.
@@ -472,14 +472,14 @@
"{ NameSpace: Mocks2 }"
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
' readStream.
Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
- changefile readStream fileIn.
+ changefile readStream fileIn.
].
"Responding to a nameSpaceQuerySignal should no longer affect change's namespace.
Use #nameSpaceOverride: or #applyWithNameSpaceOverride: to apply a change in given
@@ -501,14 +501,14 @@
"{ NameSpace: Mocks }"
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
' readStream.
Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
- cs apply.
+ cs apply.
].
self assert: (Smalltalk at: #'Mocks::MockClass') notNil.
self assert: (Smalltalk at: #'Mocks::MockClass') name == #'Mocks::MockClass'.
@@ -524,14 +524,14 @@
"{ NameSpace: Mocks }"
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
' readStream.
Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
- changefile readStream fileIn.
+ changefile readStream fileIn.
].
self assert: (Smalltalk at: #'Mocks::MockClass') notNil.
self assert: (Smalltalk at: #'Mocks::MockClass') name == #'Mocks::MockClass'.
@@ -545,10 +545,10 @@
cs := ChangeSet fromStream:'
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
' readStream.
cs first nameSpaceOverride: (NameSpace name: #Mocks).
@@ -568,10 +568,10 @@
"{ NameSpace: Mocks2 }"
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
' readStream.
cs first nameSpaceOverride: (NameSpace name: #Mocks).
@@ -589,26 +589,26 @@
cs := ChangeSet fromStream:'
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
!!
Object subclass:#PrivateClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- privateIn:MockClass
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ privateIn:MockClass
' readStream.
Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
- cs apply.
+ cs apply.
].
"Responding to a nameSpaceQuerySignal should no longer affect change's namespace.
- Use #nameSpaceOverride: or #applyWithNameSpaceOverride: to apply a change in given
+ Use #nameSpaceOverride: or #applyWithNameSpaceOverride: to apply a change in given
namespace "
self assert: (Smalltalk at: #'MockClass::PrivateClass') notNil.
@@ -625,23 +625,23 @@
changefile :='
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
!!
Object subclass:#PrivateClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- privateIn:MockClass
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ privateIn:MockClass
' readStream.
Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
- changefile readStream fileIn.
+ changefile readStream fileIn.
].
"Responding to a nameSpaceQuerySignal should no longer affect change's namespace.
Use #nameSpaceOverride: or #applyWithNameSpaceOverride: to apply a change in given
@@ -663,26 +663,26 @@
"{ NameSpace: Mocks2 }"
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
!!
Object subclass:#PrivateClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- privateIn:MockClass
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ privateIn:MockClass
' readStream.
Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
- cs apply.
+ cs apply.
].
"Responding to a nameSpaceQuerySignal should no longer affect change's namespace.
- Use #nameSpaceOverride: or #applyWithNameSpaceOverride: to apply a change in given
+ Use #nameSpaceOverride: or #applyWithNameSpaceOverride: to apply a change in given
namespace "
self assert: (Smalltalk at: #'Mocks2::MockClass::PrivateClass') notNil.
@@ -701,23 +701,23 @@
"{ NameSpace: Mocks2 }"
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
!!
Object subclass:#PrivateClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- privateIn:MockClass
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ privateIn:MockClass
' readStream.
Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
- changefile readStream fileIn.
+ changefile readStream fileIn.
].
"Responding to a nameSpaceQuerySignal should no longer affect change's namespace.
Use #nameSpaceOverride: or #applyWithNameSpaceOverride: to apply a change in given
@@ -739,23 +739,23 @@
"{ NameSpace: Mocks }"
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
!!
Object subclass:#PrivateClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- privateIn:MockClass
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ privateIn:MockClass
' readStream.
Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
- cs apply.
+ cs apply.
].
self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') notNil.
self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') name == #'Mocks::MockClass::PrivateClass'.
@@ -771,23 +771,23 @@
"{ NameSpace: Mocks }"
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
!!
Object subclass:#PrivateClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- privateIn:MockClass
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ privateIn:MockClass
' readStream.
Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
- changefile readStream fileIn.
+ changefile readStream fileIn.
].
self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') notNil.
self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') name == #'Mocks::MockClass::PrivateClass'.
@@ -801,17 +801,17 @@
cs := ChangeSet fromStream:'
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
!!
Object subclass:#PrivateClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- privateIn:MockClass
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ privateIn:MockClass
' readStream.
@@ -834,17 +834,17 @@
"{ NameSpace: Mocks2 }"
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
!!
Object subclass:#PrivateClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- privateIn:MockClass
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ privateIn:MockClass
' readStream.
@@ -866,10 +866,10 @@
cs := ChangeSet fromStream:'
nil subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
' readStream.
cs apply.
@@ -886,10 +886,10 @@
changefile :='
nil subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
' readStream.
changefile readStream fileIn.
@@ -906,10 +906,10 @@
cs := ChangeSet fromStream:'
Object subclass:#ExistingPrivateClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- privateIn:RegressionTests::ChangeSetTests
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ privateIn:RegressionTests::ChangeSetTests
' readStream.
@@ -929,10 +929,10 @@
"{ NameSpace: RegressionTests }"
Object subclass:#ExistingPrivateClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- privateIn:ChangeSetTests
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ privateIn:ChangeSetTests
' readStream.
@@ -952,10 +952,10 @@
"{ NameSpace: RegressionTests }"
ClassAndMethodCompilingTestCase subclass:#ChangeSetTests
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-System-Changes''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-System-Changes''
' readStream.
@@ -977,10 +977,10 @@
"{ NameSpace: RegressionTests }"
TestCase subclass:#ChangeSetTests
- instanceVariableNames:''classes someMoreData''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-System-Changes''
+ instanceVariableNames:''classes someMoreData''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-System-Changes''
' readStream.
@@ -1000,10 +1000,10 @@
"{ NameSpace: RegressionTests }"
Object subclass:#ExistingPrivateClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- privateIn:ChangeSetTests
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ privateIn:ChangeSetTests
' readStream.
@@ -1023,10 +1023,10 @@
"{ NameSpace: RegressionTests }"
Object subclass:#ExistingPrivateClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''somePool''
- privateIn:ChangeSetTests
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''somePool''
+ privateIn:ChangeSetTests
' readStream.
@@ -1046,10 +1046,10 @@
"{ NameSpace: RegressionTests }"
TestCase subclass:#ChangeSetTests2
- instanceVariableNames:''classes someMoreData''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-System-Changes''
+ instanceVariableNames:''classes someMoreData''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-System-Changes''
' readStream.
@@ -1069,10 +1069,10 @@
"{ NameSpace: RegressionTests }"
Object subclass:#ExistingPrivateClass2
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- privateIn:ChangeSetTests
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ privateIn:ChangeSetTests
' readStream.
@@ -1090,13 +1090,13 @@
| cs |
Object subclass:#MockClass
- instanceVariableNames:''
- classVariableNames:'MockVar'
- poolDictionaries:''
- category:'tests-Regression-Mocks'.
+ instanceVariableNames:''
+ classVariableNames:'MockVar'
+ poolDictionaries:''
+ category:'tests-Regression-Mocks'.
(Smalltalk at: #MockClass) class
- compile: 'initialize MockVar := 1234';
- compile: 'mockVar ^MockVar'.
+ compile: 'initialize MockVar := 1234';
+ compile: 'mockVar ^MockVar'.
cs := ChangeSet fromStream:'
MockClass initialize!!
@@ -1119,20 +1119,20 @@
| cs |
Object subclass:#MockClass
- instanceVariableNames:''
- classVariableNames:'MockVar'
- poolDictionaries:''
- category:'tests-Regression-Mocks'.
+ instanceVariableNames:''
+ classVariableNames:'MockVar'
+ poolDictionaries:''
+ category:'tests-Regression-Mocks'.
Object subclass:#PrivateClass
- instanceVariableNames:''
- classVariableNames:'MockVar'
- poolDictionaries:''
- privateIn:(Smalltalk at: #'MockClass').
+ instanceVariableNames:''
+ classVariableNames:'MockVar'
+ poolDictionaries:''
+ privateIn:(Smalltalk at: #'MockClass').
(Smalltalk at: #'MockClass::PrivateClass') class
- compile: 'initialize MockVar := 1234';
- compile: 'mockVar ^MockVar'.
+ compile: 'initialize MockVar := 1234';
+ compile: 'mockVar ^MockVar'.
cs := ChangeSet fromStream:'
MockClass::PrivateClass initialize!!
@@ -1155,15 +1155,15 @@
| cs |
Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
- Object subclass:#MockClass
- instanceVariableNames:''
- classVariableNames:'MockVar'
- poolDictionaries:''
- category:'tests-Regression-Mocks'.
+ Object subclass:#MockClass
+ instanceVariableNames:''
+ classVariableNames:'MockVar'
+ poolDictionaries:''
+ category:'tests-Regression-Mocks'.
].
(Smalltalk at: #'Mocks::MockClass') class
- compile: 'initialize MockVar := 1234';
- compile: 'mockVar ^MockVar'.
+ compile: 'initialize MockVar := 1234';
+ compile: 'mockVar ^MockVar'.
cs := ChangeSet fromStream:'
@@ -1190,15 +1190,15 @@
| cs|
Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
- Object subclass:#MockClass
- instanceVariableNames:''
- classVariableNames:'MockVar'
- poolDictionaries:''
- category:'tests-Regression-Mocks'.
+ Object subclass:#MockClass
+ instanceVariableNames:''
+ classVariableNames:'MockVar'
+ poolDictionaries:''
+ category:'tests-Regression-Mocks'.
].
(Smalltalk at: #'Mocks::MockClass') class
- compile: 'initialize MockVar := 1234';
- compile: 'mockVar ^MockVar'.
+ compile: 'initialize MockVar := 1234';
+ compile: 'mockVar ^MockVar'.
cs := ChangeSet fromStream:'
@@ -1207,7 +1207,7 @@
!!
!!MockClass methodsFor:''methods''!!
-foo
+foo
!! !!
@@ -1233,21 +1233,21 @@
Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
Object subclass:#MockClass
- instanceVariableNames:''
- classVariableNames:'MockVar'
- poolDictionaries:''
- category:'tests-Regression-Mocks'.
+ instanceVariableNames:''
+ classVariableNames:'MockVar'
+ poolDictionaries:''
+ category:'tests-Regression-Mocks'.
Object subclass:#PrivateClass
- instanceVariableNames:''
- classVariableNames:'MockVar'
- poolDictionaries:''
- privateIn:(Smalltalk at: #'Mocks::MockClass').
+ instanceVariableNames:''
+ classVariableNames:'MockVar'
+ poolDictionaries:''
+ privateIn:(Smalltalk at: #'Mocks::MockClass').
].
(Smalltalk at: #'Mocks::MockClass::PrivateClass') class
- compile: 'initialize MockVar := 1234';
- compile: 'mockVar ^MockVar'.
+ compile: 'initialize MockVar := 1234';
+ compile: 'mockVar ^MockVar'.
cs := ChangeSet fromStream:'
@@ -1274,21 +1274,21 @@
| cs |
Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
- Object subclass:#MockClass
- instanceVariableNames:''
- classVariableNames:'MockVar'
- poolDictionaries:''
- category:'tests-Regression-Mocks'.
-
- Object subclass:#PrivateClass
- instanceVariableNames:''
- classVariableNames:'MockVar'
- poolDictionaries:''
- privateIn:(Smalltalk at: #'Mocks::MockClass').
+ Object subclass:#MockClass
+ instanceVariableNames:''
+ classVariableNames:'MockVar'
+ poolDictionaries:''
+ category:'tests-Regression-Mocks'.
+
+ Object subclass:#PrivateClass
+ instanceVariableNames:''
+ classVariableNames:'MockVar'
+ poolDictionaries:''
+ privateIn:(Smalltalk at: #'Mocks::MockClass').
].
(Smalltalk at: #'Mocks::MockClass::PrivateClass') class
- compile: 'initialize MockVar := 1234';
- compile: 'mockVar ^MockVar'.
+ compile: 'initialize MockVar := 1234';
+ compile: 'mockVar ^MockVar'.
cs := ChangeSet fromStream:'
@@ -1297,7 +1297,7 @@
!!
!!MockClass methodsFor:''methods''!!
-foo
+foo
!! !!
@@ -1347,10 +1347,10 @@
cs := ChangeSet fromStream:'
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
!!
!!MockClass methodsFor:''methods''!!
@@ -1378,10 +1378,10 @@
changefile :='
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
!!
!!MockClass methodsFor:''methods''!!
@@ -1409,10 +1409,10 @@
"{ NameSpace: Mocks }"
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
!!
!!MockClass methodsFor:''methods''!!
@@ -1442,10 +1442,10 @@
"{ NameSpace: Mocks }"
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
!!
!!MockClass methodsFor:''methods''!!
@@ -1469,7 +1469,7 @@
"Tests whether all method changes have package properly set when reading
extension container"
- | cs |
+ | cs |
cs := ChangeSet fromStream:'"{ Package: ''stx:libtool'' }"!!
@@ -1505,17 +1505,17 @@
cs := ChangeSet fromStream:'
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
!!
Object subclass:#PrivateClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- privateIn:MockClass
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ privateIn:MockClass
!!
!!MockClass::PrivateClass methodsFor:''methods''!!
@@ -1542,17 +1542,17 @@
changefile :='
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
!!
Object subclass:#PrivateClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- privateIn:MockClass
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ privateIn:MockClass
!!
!!MockClass::PrivateClass methodsFor:''methods''!!
@@ -1581,17 +1581,17 @@
"{ NameSpace: Mocks }"
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
!!
Object subclass:#PrivateClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- privateIn:MockClass
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ privateIn:MockClass
!!
!!MockClass::PrivateClass methodsFor:''methods''!!
@@ -1620,17 +1620,17 @@
"{ NameSpace: Mocks }"
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
!!
Object subclass:#PrivateClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- privateIn:MockClass
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ privateIn:MockClass
!!
!!MockClass::PrivateClass methodsFor:''methods''!!
@@ -1679,16 +1679,16 @@
Object subclass:#MockClass
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- category:'tests-Regression-System-Changes'.
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ category:'tests-Regression-System-Changes'.
Object subclass: #PrivateClass
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- privateIn: (Smalltalk at: #'MockClass').
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ privateIn: (Smalltalk at: #'MockClass').
changefile :='
@@ -1698,7 +1698,7 @@
!! !!
' readStream.
- changefile readStream fileIn.
+ changefile readStream fileIn.
self assert: (Smalltalk at: #'MockClass') notNil.
self assert: (Smalltalk at: #'MockClass::PrivateClass') notNil.
@@ -1740,30 +1740,30 @@
Class nameSpaceQuerySignal answer: (NameSpace name: #'Mocks') do:[
Object subclass:#MockClass
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- category:'tests-Regression-System-Changes'.
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ category:'tests-Regression-System-Changes'.
Object subclass: #PrivateClass
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- privateIn: (Smalltalk at: #'Mocks::MockClass').
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ privateIn: (Smalltalk at: #'Mocks::MockClass').
].
changefile :='
"{ NameSpace: Mocks }"
-!!
+!!
!!MockClass::PrivateClass methodsFor:''methods''!!
foo
!! !!
' readStream.
- changefile readStream fileIn.
+ changefile readStream fileIn.
self assert: (Smalltalk at: #'Mocks::MockClass') notNil.
self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') notNil.
@@ -1790,7 +1790,7 @@
bar
-!! !!
+!! !!
' readStream.
@@ -1812,31 +1812,31 @@
Object subclass:#MockClass
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- category:'tests-Regression-System-Changes'.
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ category:'tests-Regression-System-Changes'.
Object subclass: #PrivateClass
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- privateIn: (Smalltalk at: #'MockClass').
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ privateIn: (Smalltalk at: #'MockClass').
Class nameSpaceQuerySignal answer: (NameSpace name: #'Mocks') do:[
Object subclass:#MockClass2
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- category:'tests-Regression-System-Changes'.
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ category:'tests-Regression-System-Changes'.
Object subclass: #PrivateClass
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- privateIn: (Smalltalk at: #'Mocks::MockClass2').
- ].
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ privateIn: (Smalltalk at: #'Mocks::MockClass2').
+ ].
changefile :='
!!MockClass::PrivateClass methodsFor:''methods''!!
@@ -1887,7 +1887,7 @@
bar
-!! !!
+!! !!
' readStream.
@@ -1907,33 +1907,33 @@
Class nameSpaceQuerySignal answer: (NameSpace name: #'Mocks2') do:[
Object subclass:#MockClass
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- category:'tests-Regression-System-Changes'.
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ category:'tests-Regression-System-Changes'.
Object subclass: #PrivateClass
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- privateIn: (Smalltalk at: #'Mocks2::MockClass').
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ privateIn: (Smalltalk at: #'Mocks2::MockClass').
].
Class nameSpaceQuerySignal answer: (NameSpace name: #'Mocks') do:[
Object subclass:#MockClass2
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- category:'tests-Regression-System-Changes'.
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ category:'tests-Regression-System-Changes'.
Object subclass: #PrivateClass
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- privateIn: (Smalltalk at: #'Mocks::MockClass2').
- ].
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ privateIn: (Smalltalk at: #'Mocks::MockClass2').
+ ].
changefile :='
@@ -1989,7 +1989,7 @@
bar
-!! !!
+!! !!
' readStream.
@@ -2009,31 +2009,31 @@
Class nameSpaceQuerySignal answer: (NameSpace name: #'Mocks2') do:[
Object subclass:#MockClass
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- category:'tests-Regression-System-Changes'.
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ category:'tests-Regression-System-Changes'.
Object subclass: #PrivateClass
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- privateIn: (Smalltalk at: #'Mocks2::MockClass').
- ].
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ privateIn: (Smalltalk at: #'Mocks2::MockClass').
+ ].
Object subclass:#MockClass2
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- category:'tests-Regression-System-Changes'.
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ category:'tests-Regression-System-Changes'.
Object subclass: #PrivateClass
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- privateIn: (Smalltalk at: #'MockClass2').
-
-
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ privateIn: (Smalltalk at: #'MockClass2').
+
+
changefile :='
"{ NameSpace: Mocks2 }"
@@ -2075,10 +2075,10 @@
"{ Package: ''mocks:ChangeSetTests'' }"
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
!!
!!MockClass methodsFor:''methods''!!
@@ -2111,10 +2111,10 @@
"{ Package: ''mocks:ChangeSetTests'' }"
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
!!
!!MockClass methodsFor:''methods''!!
@@ -2166,16 +2166,16 @@
Object subclass:#MockClass
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- category:'tests-Regression-System-Changes'.
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ category:'tests-Regression-System-Changes'.
Object subclass: #PrivateClass
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- privateIn: (Smalltalk at: #'MockClass').
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ privateIn: (Smalltalk at: #'MockClass').
changefile :='
@@ -2188,7 +2188,7 @@
!! !!
' readStream.
- changefile readStream fileIn.
+ changefile readStream fileIn.
self assert: (Smalltalk at: #'MockClass') notNil.
self assert: (Smalltalk at: #'MockClass::PrivateClass') notNil.
@@ -2201,16 +2201,16 @@
test_MethodDefinitionChange_jextension_01a
"Tests Java extensios - used by stx:libjava (see stx/libjava/java/extensions/**/*.st"
- | cs |
+ | cs |
cs := ChangeSet fromStream:'
!!(Java classForName:''java.lang.Long'') class methodsFor:''queries''!!
javaWrap: object
- |inst|
+ |inst|
inst := self basicNew.
inst perform: #''<init>(J)V'' with: object with: nil.
- ^ inst.
+ ^ inst.
!! !!
' readStream.
@@ -2222,16 +2222,16 @@
test_MethodDefinitionChange_jextension_01b
"Tests Java extensios - used by stx:libjava (see stx/libjava/java/extensions/**/*.st"
- | cs |
+ | cs |
cs := ChangeSet fromStream:'
!!(Java classForName:''java.lang.Long'') methodsFor:''queries''!!
javaWrap: object
- |inst|
+ |inst|
inst := self basicNew.
inst perform: #''<init>(J)V'' with: object with: nil.
- ^ inst.
+ ^ inst.
!! !!
' readStream.
@@ -2257,20 +2257,20 @@
"{ Package: ''some:funny/package'' }"
Object subclass:#Mock1
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''* Mocks *''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''* Mocks *''
!!
''---- timestamp jv@sao 05-10-2013 01:00:00 ----''!!
!!Object methodsFor:''* mocks * ''!!
-someMethod
+someMethod
^ 1
!! !!
-' readStream.
+' readStream.
self assert: cs size == 3.
self assert: cs second package = 'some:funny/package'.
@@ -2293,19 +2293,19 @@
"{ Package: ''some:funny/package'' }"
!!
Object subclass:#Mock1
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''* Mocks *''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''* Mocks *''
!!
!!Object methodsFor:''* mocks * ''!!
-someMethod
+someMethod
^ 1
!! !!
-' readStream.
+' readStream.
self assert: cs size == 3.
self assert: cs second package = 'some:funny/package'.
@@ -2367,17 +2367,17 @@
"{ NameSpace: RegressionTests }"
ClassAndMethodCompilingTestCase subclass:#ChangeSetTests
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-System-Changes''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-System-Changes''
!!
!!ChangeSetTests methodsFor:''private''!!
performTest
^Class withoutUpdatingChangesDo:[
- super performTest
+ super performTest
]
!! !!' readStream.
@@ -2522,8 +2522,8 @@
"don't know how to unread ..."
numberToSkip < 0 ifTrue:[
- PositionError raiseRequest.
- ^ self
+ PositionError raiseRequest.
+ ^ self
].
numberToSkip timesRepeat:[self next].
--- a/RegressionTests__CharacterEncoderTests.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__CharacterEncoderTests.st Thu Jun 30 09:02:08 2016 +0100
@@ -222,8 +222,8 @@
s1 := (Character value:eachCodePoint) asString.
s2 := encoder encodeString:s1.
self assert:(s2 size == 2).
- self assert:((s2 first codePoint bitAnd:2r11100000) == 2r11000000).
- self assert:((s2 second codePoint bitAnd:2r11000000) == 2r10000000).
+ self assert:((s2 first codePoint bitAnd:2r11100000) == 2r11000000).
+ self assert:((s2 second codePoint bitAnd:2r11000000) == 2r10000000).
s3 := encoder decodeString:s2.
self assert:(s1 = s3).
].
@@ -237,9 +237,9 @@
s1 := (Character value:eachCodePoint) asString.
s2 := encoder encodeString:s1.
self assert:(s2 size == 3).
- self assert:((s2 first codePoint bitAnd:2r11110000) == 2r11100000).
- self assert:((s2 second codePoint bitAnd:2r11000000) == 2r10000000).
- self assert:((s2 third codePoint bitAnd:2r11000000) == 2r10000000).
+ self assert:((s2 first codePoint bitAnd:2r11110000) == 2r11100000).
+ self assert:((s2 second codePoint bitAnd:2r11000000) == 2r10000000).
+ self assert:((s2 third codePoint bitAnd:2r11000000) == 2r10000000).
s3 := encoder decodeString:s2.
self assert:(s1 = s3).
].
@@ -253,10 +253,10 @@
s1 := (Character value:eachCodePoint) asString.
s2 := encoder encodeString:s1.
self assert:(s2 size == 4).
- self assert:((s2 first codePoint bitAnd:2r11111000) == 2r11110000).
- self assert:((s2 second codePoint bitAnd:2r11000000) == 2r10000000).
- self assert:((s2 third codePoint bitAnd:2r11000000) == 2r10000000).
- self assert:((s2 fourth codePoint bitAnd:2r11000000) == 2r10000000).
+ self assert:((s2 first codePoint bitAnd:2r11111000) == 2r11110000).
+ self assert:((s2 second codePoint bitAnd:2r11000000) == 2r10000000).
+ self assert:((s2 third codePoint bitAnd:2r11000000) == 2r10000000).
+ self assert:((s2 fourth codePoint bitAnd:2r11000000) == 2r10000000).
s3 := encoder decodeString:s2.
self assert:(s1 = s3).
].
@@ -270,11 +270,11 @@
s1 := (Character value:eachCodePoint) asString.
s2 := encoder encodeString:s1.
self assert:(s2 size == 5).
- self assert:((s2 first codePoint bitAnd:2r11111100) == 2r11111000).
- self assert:((s2 second codePoint bitAnd:2r11000000) == 2r10000000).
- self assert:((s2 third codePoint bitAnd:2r11000000) == 2r10000000).
- self assert:((s2 fourth codePoint bitAnd:2r11000000) == 2r10000000).
- self assert:((s2 fifth codePoint bitAnd:2r11000000) == 2r10000000).
+ self assert:((s2 first codePoint bitAnd:2r11111100) == 2r11111000).
+ self assert:((s2 second codePoint bitAnd:2r11000000) == 2r10000000).
+ self assert:((s2 third codePoint bitAnd:2r11000000) == 2r10000000).
+ self assert:((s2 fourth codePoint bitAnd:2r11000000) == 2r10000000).
+ self assert:((s2 fifth codePoint bitAnd:2r11000000) == 2r10000000).
s3 := encoder decodeString:s2.
self assert:(s1 = s3).
].
@@ -290,12 +290,12 @@
s1 := (Character value:eachCodePoint) asString.
s2 := encoder encodeString:s1.
self assert:(s2 size == 6).
- self assert:((s2 first codePoint bitAnd:2r11111110) == 2r11111100).
- self assert:((s2 second codePoint bitAnd:2r11000000) == 2r10000000).
- self assert:((s2 third codePoint bitAnd:2r11000000) == 2r10000000).
- self assert:((s2 fourth codePoint bitAnd:2r11000000) == 2r10000000).
- self assert:((s2 fifth codePoint bitAnd:2r11000000) == 2r10000000).
- self assert:((s2 sixth codePoint bitAnd:2r11000000) == 2r10000000).
+ self assert:((s2 first codePoint bitAnd:2r11111110) == 2r11111100).
+ self assert:((s2 second codePoint bitAnd:2r11000000) == 2r10000000).
+ self assert:((s2 third codePoint bitAnd:2r11000000) == 2r10000000).
+ self assert:((s2 fourth codePoint bitAnd:2r11000000) == 2r10000000).
+ self assert:((s2 fifth codePoint bitAnd:2r11000000) == 2r10000000).
+ self assert:((s2 sixth codePoint bitAnd:2r11000000) == 2r10000000).
s3 := encoder decodeString:s2.
self assert:(s1 = s3).
].
@@ -310,3 +310,4 @@
version
^ '$Header$'
! !
+
--- a/RegressionTests__CharacterSetTests.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__CharacterSetTests.st Thu Jun 30 09:02:08 2016 +0100
@@ -77,7 +77,7 @@
orig := CharacterSet newFrom:'abc'.
copy := orig copy.
copy remove:$a.
-
+
self assert:(orig includes:$a) message:'changing the copy should not change original'.
!
--- a/RegressionTests__CharacterTests.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__CharacterTests.st Thu Jun 30 09:02:08 2016 +0100
@@ -17,55 +17,55 @@
|unicodeDataFile|
- self skipIf: true description: 'Broken due to a bug in CharacterEncoderCodeGenerator'.
- unicodeDataFile := self class packageDirectory / 'testData/UnicodeData-4.0.0.txt'.
+ unicodeDataFile := self class packageDirectory / 'testData' / 'UnicodeData-4.0.0.txt'.
+ "/ unicodeDataFile := '/Users/cg/work/exept/regression/testData/UnicodeData-4.0.0.txt' asFilename .
"/ unicodeDataFile := '/Users/cg/work/exept/regression/testData/UnicodeData-4.0.0.txt' asFilename .
CharacterEncoderCodeGenerator isNil ifTrue:[
- Smalltalk fileInClass:'CharacterEncoderCodeGenerator' package:'stx:goodies'
+ Smalltalk fileInClass:'CharacterEncoderCodeGenerator' package:'stx:goodies'
].
CharacterEncoderCodeGenerator new
- readingUnicodeDataFrom:(unicodeDataFile readStream)
- do:[:codePoint :name :category :canOrd :bidiCat :decMap
- :decDigitValue :digitValue :numValue
- :mirrored :unicodeName :comment :ucValue :lcValue :tcValue |
- |ch ucCh lcCh tcCh isUppercase isLowercase isTitlecase isLetter dToUc dToLc|
+ readingUnicodeDataFrom:(unicodeDataFile readStream)
+ do:[:codePoint :name :category :canOrd :bidiCat :decMap
+ :decDigitValue :digitValue :numValue
+ :mirrored :unicodeName :comment :ucValue :lcValue :tcValue |
+ |ch ucCh lcCh tcCh isUppercase isLowercase isTitlecase isLetter dToUc dToLc|
- "/ for now, do not check above 1C6FF (i.e. only Uniode 3.2)
- codePoint <= 16r1C6FF ifTrue:[
- isUppercase := category = 'Lu'.
- isLowercase := category = 'Ll'.
- isTitlecase := category = 'Lt'.
- isLetter := isUppercase | isLowercase | isTitlecase
- or:[(category = 'Lm') or:[(category = 'Lo')]].
+ "/ for now, do not check above 1C6FF (i.e. only Uniode 3.2)
+ codePoint <= 16r1C6FF ifTrue:[
+ isUppercase := category = 'Lu'.
+ isLowercase := category = 'Ll'.
+ isTitlecase := category = 'Lt'.
+ isLetter := isUppercase | isLowercase | isTitlecase
+ or:[(category = 'Lm') or:[(category = 'Lo')]].
- ch := Character value:codePoint.
- self assert:(ch isUppercase == isUppercase) description:('isUppercase of ',ch codePoint asString).
- self assert:(ch isLowercase == isLowercase) description:('isLowercase of ',ch codePoint asString).
- "/ self assert:(ch isTitlecase == isTitlecase).
- self assert:(ch isNationalLetter == isLetter) description:('isNationalLetter of ',ch codePoint asString).
+ ch := Character value:codePoint.
+ self assert:(ch isUppercase == isUppercase) description:('isUppercase of ',ch codePoint asString).
+ self assert:(ch isLowercase == isLowercase) description:('isLowercase of ',ch codePoint asString).
+ "/ self assert:(ch isTitlecase == isTitlecase).
+ self assert:(ch isNationalLetter == isLetter) description:('isNationalLetter of ',ch codePoint asString).
- ucValue notNil ifTrue:[
- ucCh := Character value:ucValue.
- self assert:(ch asUppercase = ucCh) description:('asUppercase of ',ch codePoint asString).
- ] ifFalse:[
- self assert:(ch asUppercase = ch) description:('asUppercase of ',ch codePoint asString).
- ].
- lcValue notNil ifTrue:[
- lcCh := Character value:lcValue.
- self assert:(ch asLowercase = lcCh) description:('asLowercase of ',ch codePoint asString).
- ] ifFalse:[
- self assert:(ch asLowercase = ch) description:('asLowercase of ',ch codePoint asString).
- ].
- tcValue notNil ifTrue:[
- tcCh := Character value:tcValue.
- self assert:(ch asTitlecase = tcCh) description:('asTitlecase of ',ch codePoint asString).
- ] ifFalse:[
- self assert:(ch asTitlecase = ch) description:('asTitlecase of ',ch codePoint asString).
- ].
- ].
- ].
+ ucValue notNil ifTrue:[
+ ucCh := Character value:ucValue.
+ self assert:(ch asUppercase = ucCh) description:('asUppercase of ',ch codePoint asString).
+ ] ifFalse:[
+ self assert:(ch asUppercase = ch) description:('asUppercase of ',ch codePoint asString).
+ ].
+ lcValue notNil ifTrue:[
+ lcCh := Character value:lcValue.
+ self assert:(ch asLowercase = lcCh) description:('asLowercase of ',ch codePoint asString).
+ ] ifFalse:[
+ self assert:(ch asLowercase = ch) description:('asLowercase of ',ch codePoint asString).
+ ].
+ tcValue notNil ifTrue:[
+ tcCh := Character value:tcValue.
+ self assert:(ch asTitlecase = tcCh) description:('asTitlecase of ',ch codePoint asString).
+ ] ifFalse:[
+ self assert:(ch asTitlecase = ch) description:('asTitlecase of ',ch codePoint asString).
+ ].
+ ].
+ ].
"
self new test01CaseTesting
@@ -79,8 +79,8 @@
|a b r s s2|
- s := ($a to: $z) asString.
- s2 :=($b to: $z) asString.
+ s := ($a to: $z) asString.
+ s2 :=($b to: $z) asString.
"/ char , string
a := $a. b := ''. self assert:(r := a,b) = 'a'.
@@ -89,14 +89,14 @@
a := $a. b := 'bcd'. self assert:(r := a,b) = 'abcd'.
a := $a. b := 'bcde'. self assert:(r := a,b) = 'abcde'.
"/ just in case there is some wordlength related problem...
- 1 to:20 do:[:n |
- self assert:($a,(s2 copyTo:n)) = (s copyTo:n+1)
+ 1 to:20 do:[:n |
+ self assert:($a,(s2 copyTo:n)) = (s copyTo:n+1)
].
"/ char , char
a := $a. b := $b. self assert:(r := a,b) = 'ab'.
- s2 :=($a to: $y) asString.
+ s2 :=($a to: $y) asString.
"/ string, char
a := $a. b := ''. self assert:(r := b,a) = 'a'.
a := $a. b := 'b'. self assert:(r := b,a) = 'ba'.
@@ -104,8 +104,8 @@
a := $a. b := 'bcd'. self assert:(r := b,a) = 'bcda'.
a := $a. b := 'bcde'. self assert:(r := b,a) = 'bcdea'.
"/ just in case there is some wordlength related problem...
- 1 to:20 do:[:n |
- self assert:((s2 copyLast:n),$z) = (s copyLast:n+1)
+ 1 to:20 do:[:n |
+ self assert:((s2 copyLast:n),$z) = (s copyLast:n+1)
].
"
--- a/RegressionTests__ClassAndMethodCompilingTestCase.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__ClassAndMethodCompilingTestCase.st Thu Jun 30 09:02:08 2016 +0100
@@ -20,7 +20,7 @@
the test.
[author:]
- Jan Vrany <jan.vrany@fit.cvut.cz>
+ Jan Vrany <jan.vrany@fit.cvut.cz>
[instance variables:]
@@ -45,8 +45,8 @@
update: aspect with: param from: sender
aspect == #newClass ifTrue:[
- "remember the classes to be deleted on #tearDown"
- classes add: param.
+ "remember the classes to be deleted on #tearDown"
+ classes add: param.
].
"Created: / 20-11-2012 / 14:47:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -66,19 +66,19 @@
Smalltalk removeDependent: self.
removeBlock := [:cls|
- | name realcls |
+ | name realcls |
- name := cls name.
- (name startsWith: 'Mock') ifFalse:[
- "/ Just to make sure no system class is removed, all test classes should
- "/ begin with 'Mock'.
- self breakPoint:#jv.
- self breakPoint:#cg.
- ].
- realcls := Smalltalk at: name.
- realcls notNil ifTrue:[
- Smalltalk removeClass: realcls.
- ].
+ name := cls name.
+ (name startsWith: 'Mock') ifFalse:[
+ "/ Just to make sure no system class is removed, all test classes should
+ "/ begin with 'Mock'.
+ self breakPoint:#jv.
+ self breakPoint:#cg.
+ ].
+ realcls := Smalltalk at: name.
+ realcls notNil ifTrue:[
+ Smalltalk removeClass: realcls.
+ ].
].
classes select:[:each| each isPrivate] thenDo:removeBlock.
classes select:[:each| each isNameSpace not and:[each isPrivate not]] thenDo:removeBlock.
--- a/RegressionTests__ClassBuilderTests.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__ClassBuilderTests.st Thu Jun 30 09:02:08 2016 +0100
@@ -22,24 +22,24 @@
| pool class |
pool := SharedPool subclass: #MockSharedPool1
- instanceVariableNames: ''
- classVariableNames: 'PoolVar1 PoolVar2'
- poolDictionaries: ''
- category: 'System-Compiler-Mocks'.
+ instanceVariableNames: ''
+ classVariableNames: 'PoolVar1 PoolVar2'
+ poolDictionaries: ''
+ category: 'System-Compiler-Mocks'.
class := Object subclass: #MockClass
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: 'MockSharedPool1'
- category: 'System-Compiler-Mocks'.
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: 'MockSharedPool1'
+ category: 'System-Compiler-Mocks'.
self assert: class sharedPoolNames asArray = #(MockSharedPool1).
class := Object subclass: #MockClass
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'System-Compiler-Mocks'.
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'System-Compiler-Mocks'.
self assert: class sharedPoolNames isEmpty.
@@ -59,37 +59,37 @@
| pool class |
pool := SharedPool subclass: #MockSharedPool1
- instanceVariableNames: ''
- classVariableNames: 'PoolVar1 PoolVar2'
- poolDictionaries: ''
- category: '* Mocks *'.
+ instanceVariableNames: ''
+ classVariableNames: 'PoolVar1 PoolVar2'
+ poolDictionaries: ''
+ category: '* Mocks *'.
class := Object subclass: #MockClassA
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: '* Mocks *'.
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: '* Mocks *'.
class := Object subclass: #MockClassX
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: '* Mocks *'.
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: '* Mocks *'.
class := (Smalltalk at:#MockClassX) subclass: #MockClassY
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: 'MockSharedPool1'
- category: '* Mocks *'.
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: 'MockSharedPool1'
+ category: '* Mocks *'.
self assert: (Smalltalk at:#MockClassX) superclass == Object.
self assert: (Smalltalk at:#MockClassY) sharedPoolNames asArray = #(MockSharedPool1).
class := (Smalltalk at:#MockClassA) subclass: #MockClassX
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: '* Mocks *'.
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: '* Mocks *'.
self assert: (Smalltalk at:#MockClassY) superclass == (Smalltalk at:#MockClassX).
--- a/RegressionTests__ClassDescriptionTests.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__ClassDescriptionTests.st Thu Jun 30 09:02:08 2016 +0100
@@ -18,16 +18,16 @@
[
pool := SharedPool subclass: #NewSharedPool1
- instanceVariableNames: ''
- classVariableNames: 'PoolVar1 PoolVar2'
- poolDictionaries: ''
- category: 'System-Compiler-Mocks'.
+ instanceVariableNames: ''
+ classVariableNames: 'PoolVar1 PoolVar2'
+ poolDictionaries: ''
+ category: 'System-Compiler-Mocks'.
class := Object subclass: #NewClass
- instanceVariableNames: 'instVar1'
- classVariableNames: ''
- poolDictionaries: 'NewSharedPool1'
- category: 'System-Compiler-Mocks'.
+ instanceVariableNames: 'instVar1'
+ classVariableNames: ''
+ poolDictionaries: 'NewSharedPool1'
+ category: 'System-Compiler-Mocks'.
self assert: (Smalltalk at:#NewClass) instVarNames asArray = #(instVar1).
self assert: (Smalltalk at:#NewClass) sharedPoolNames asArray = #(NewSharedPool1).
@@ -38,7 +38,7 @@
self assert: (Smalltalk at:#NewClass) sharedPoolNames asArray = #(NewSharedPool1).
] ensure:[
- Smalltalk removeClass: (Smalltalk at:#NewSharedPool1); removeClass: (Smalltalk at:#NewClass).
+ Smalltalk removeClass: (Smalltalk at:#NewSharedPool1); removeClass: (Smalltalk at:#NewClass).
]
"Created: / 10-07-2013 / 14:04:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
--- a/RegressionTests__CollectionTests.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__CollectionTests.st Thu Jun 30 09:02:08 2016 +0100
@@ -27,7 +27,7 @@
documentation to be added.
[author:]
- Claus Gittinger (cg@alan)
+ Claus Gittinger (cg@alan)
[see also:]
@@ -51,8 +51,8 @@
"is it sorted?"
first := true.
aSortedCollection inject:nil into:[:last :each|
- first ifTrue:[first := false]
- ifFalse:[self assert:(sortBlock value:last value:each)]. each].
+ first ifTrue:[first := false]
+ ifFalse:[self assert:(sortBlock value:last value:each)]. each].
"same elements as in original?"
self assert:(aSortedCollection asBag = anOriginalCollection asBag).
@@ -69,35 +69,35 @@
!CollectionTests methodsFor:'initialize-release'!
setUp
- empty := Set new.
- nonEmpty := OrderedCollection with: #x.
+ empty := Set new.
+ nonEmpty := OrderedCollection with: #x.
! !
!CollectionTests methodsFor:'tests-byteArray'!
testByteArrayReverse
1 to:1024 do:[:i|
- |bytes test rBytes|
+ |bytes test rBytes|
- bytes := ((1 to:i) asArray collect:[:i | i bitAnd:255]) asByteArray.
- test := ((i to:1 by:-1) asArray collect:[:i | i bitAnd:255]) asByteArray.
- rBytes := bytes copy.
- self assert:(rBytes reverse = test).
+ bytes := ((1 to:i) asArray collect:[:i | i bitAnd:255]) asByteArray.
+ test := ((i to:1 by:-1) asArray collect:[:i | i bitAnd:255]) asByteArray.
+ rBytes := bytes copy.
+ self assert:(rBytes reverse = test).
- rBytes := bytes copy.
- self assert:(rBytes reverse reverse = bytes).
+ rBytes := bytes copy.
+ self assert:(rBytes reverse reverse = bytes).
].
!
testByteArrayReversed
1 to:1024 do:[:i|
- |bytes test rBytes|
+ |bytes test rBytes|
- bytes := ((1 to:i) asArray collect:[:i | i bitAnd:255]) asByteArray.
- test := ((i to:1 by:-1) asArray collect:[:i | i bitAnd:255]) asByteArray.
- self assert:(bytes reversed = test).
+ bytes := ((1 to:i) asArray collect:[:i | i bitAnd:255]) asByteArray.
+ test := ((i to:1 by:-1) asArray collect:[:i | i bitAnd:255]) asByteArray.
+ self assert:(bytes reversed = test).
- self assert:(bytes reversed reversed = bytes).
+ self assert:(bytes reversed reversed = bytes).
].
! !
@@ -277,9 +277,9 @@
coll2 := coll1 copy.
self assert: (coll1 size == coll2 size).
1 to:coll1 size do:[:i |
- "/ coll1 at:10
- "/ coll2 at:10
- self assert:(coll1 at:i) = (coll2 at:i).
+ "/ coll1 at:10
+ "/ coll2 at:10
+ self assert:(coll1 at:i) = (coll2 at:i).
].
self assert: ( coll2 = coll1 ).
@@ -301,27 +301,27 @@
protoCollectionFor: aClass
aClass == BooleanArray ifTrue: [
- ^ BooleanArray withAll:#(true false true true false false true false false true)
+ ^ BooleanArray withAll:#(true false true true false false true false false true)
].
aClass == BitArray ifTrue: [
- ^ BitArray withAll:#(1 0 1 1 0 0 1 0 0 1)
+ ^ BitArray withAll:#(1 0 1 1 0 0 1 0 0 1)
].
aClass == ByteArray ifTrue: [
- ^ ByteArray withAll:#(1 2 3 4 16rFC 16rFD 16rFE 16rFF)
+ ^ ByteArray withAll:#(1 2 3 4 16rFC 16rFD 16rFE 16rFF)
].
aClass == String ifTrue: [
- ^ 'abcdefghijklmnopqrstuvwxyz'
+ ^ 'abcdefghijklmnopqrstuvwxyz'
].
(aClass includesBehavior:CharacterArray) ifTrue:[
- ^ 'abcdefghijklmnopqrstuvwxyz' as: aClass
+ ^ 'abcdefghijklmnopqrstuvwxyz' as: aClass
].
- (aClass includesBehavior:AbstractNumberVector) ifTrue:[
- (aClass includesBehavior:UnboxedIntegerArray) ifTrue:[
- ^ #(1 2 3 4 5 6 7 8 9 10) as: aClass
- ].
- ^ #(1.0 2 3.0 4 5.0 6 7.0 8 9.0 10) as: aClass
+ (aClass includesBehavior:AbstractNumberVector) ifTrue:[
+ (aClass includesBehavior:UnboxedIntegerArray) ifTrue:[
+ ^ #(1 2 3 4 5 6 7 8 9 10) as: aClass
+ ].
+ ^ #(1.0 2 3.0 4 5.0 6 7.0 8 9.0 10) as: aClass
].
- ^ #(1 true 2.0 false 3 nil 4.0 5 6.0 7 8.0 9 10.0) as: aClass
+ ^ #(1 true 2.0 false 3 nil 4.0 5 6.0 7 8.0 9 10.0) as: aClass
"
self basicNew testSequentialCollectionOperations
@@ -334,14 +334,14 @@
|classes|
classes := OrderedCollection new.
- classes
- add:Dictionary;
- add:IdentityDictionary;
- add:OrderedDictionary;
- add:BTree.
+ classes
+ add:Dictionary;
+ add:IdentityDictionary;
+ add:OrderedDictionary;
+ add:BTree.
classes do:[:eachClass |
- self doTestDictionaryLikeAddRemoveOperationsIn:eachClass
+ self doTestDictionaryLikeAddRemoveOperationsIn:eachClass
].
"
@@ -355,24 +355,24 @@
|classes|
classes := OrderedCollection new.
- classes
- "/ add:RunArray;
- add:Bag;
- add:Set;
- add:IdentitySet;
- "/add:Dictionary;
- "/add:IdentityDictionary;
- add:OrderedCollection;
- add:SortedCollection;
- "/add:Queue;
- "/add:Stack;
- add:SortedCollection;
- "/add:OrderedDictionary;
- add:OrderedSet.
- "/add:BTree.
+ classes
+ "/ add:RunArray;
+ add:Bag;
+ add:Set;
+ add:IdentitySet;
+ "/add:Dictionary;
+ "/add:IdentityDictionary;
+ add:OrderedCollection;
+ add:SortedCollection;
+ "/add:Queue;
+ "/add:Stack;
+ add:SortedCollection;
+ "/add:OrderedDictionary;
+ add:OrderedSet.
+ "/add:BTree.
classes do:[:eachClass |
- self doTestGeneralAddRemoveOperationsIn:eachClass
+ self doTestGeneralAddRemoveOperationsIn:eachClass
].
"
@@ -386,24 +386,24 @@
|classes|
classes := OrderedCollection new.
- classes
- add:RunArray;
- add:Bag;
- add:Set;
- add:IdentitySet;
- add:Dictionary;
- add:IdentityDictionary;
- add:OrderedCollection;
- add:SortedCollection;
- add:Queue;
- add:Stack;
- add:SortedCollection;
- add:OrderedDictionary;
- add:OrderedSet;
- add:BTree.
+ classes
+ add:RunArray;
+ add:Bag;
+ add:Set;
+ add:IdentitySet;
+ add:Dictionary;
+ add:IdentityDictionary;
+ add:OrderedCollection;
+ add:SortedCollection;
+ add:Queue;
+ add:Stack;
+ add:SortedCollection;
+ add:OrderedDictionary;
+ add:OrderedSet;
+ add:BTree.
classes do:[:eachClass |
- self doTestGeneralCollectionOperationsIn:eachClass
+ self doTestGeneralCollectionOperationsIn:eachClass
].
"
@@ -417,28 +417,28 @@
|classes|
classes := OrderedCollection new.
- classes
- add:OrderedCollection;
- add:Array;
- add:String;
- add:ByteArray;
- add:WordArray;
- add:IntegerArray;
- add:LongIntegerArray;
- add:SignedWordArray;
- add:SignedIntegerArray;
- add:SignedLongIntegerArray;
- add:FloatArray;
- add:DoubleArray;
- add:HalfFloatArray;
- add:TwoByteString;
- add:Unicode16String;
- add:Unicode32String;
- add:BooleanArray;
- add:BitArray.
+ classes
+ add:OrderedCollection;
+ add:Array;
+ add:String;
+ add:ByteArray;
+ add:WordArray;
+ add:IntegerArray;
+ add:LongIntegerArray;
+ add:SignedWordArray;
+ add:SignedIntegerArray;
+ add:SignedLongIntegerArray;
+ add:FloatArray;
+ add:DoubleArray;
+ add:HalfFloatArray;
+ add:TwoByteString;
+ add:Unicode16String;
+ add:Unicode32String;
+ add:BooleanArray;
+ add:BitArray.
classes do:[:eachClass |
- self doTestSequentialCollectionOperationsIn:eachClass
+ self doTestSequentialCollectionOperationsIn:eachClass
].
"
@@ -561,18 +561,6 @@
"Modified: / 03-05-2012 / 18:36:41 / cg"
! !
-!CollectionTests methodsFor:'tests-iterator'!
-
-testIterator01
- | iterator |
-
- iterator := Iterator on:[ :block | #(1 2 3) do: block ].
- self assert: (iterator collect:[ :e | e + 1 ]) asArray = #( 2 3 4).
- self assert: (iterator collectWithIndex:[ :e :i | e + i ]) asArray = #( 2 4 6).
-
- "Created: / 17-06-2016 / 17:15:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
-
!CollectionTests methodsFor:'tests-orderedCollection'!
testMergeSortStability01
@@ -593,13 +581,13 @@
lastTestData := nil.
errs := col inject: 0 into:
- [ :totIn :aSortTestData | |totOut|
- totOut := totIn.
- lastTestData notNil ifTrue:
- [ lastTestData value = aSortTestData value ifTrue:
- [ lastTestData order > aSortTestData order ifTrue: [ totOut := totOut + 1 ] ] ].
- lastTestData := aSortTestData.
- totOut ].
+ [ :totIn :aSortTestData | |totOut|
+ totOut := totIn.
+ lastTestData notNil ifTrue:
+ [ lastTestData value = aSortTestData value ifTrue:
+ [ lastTestData order > aSortTestData order ifTrue: [ totOut := totOut + 1 ] ] ].
+ lastTestData := aSortTestData.
+ totOut ].
self should: [ errs = 0 ]
"
@@ -639,7 +627,7 @@
self assert:( col2 sameContentsAs: (1 to:10000) ).
"
- self new testOrderedCollection01_Sort1
+ self new testOrderedCollection01_Sort1
"
"Modified: / 04-07-2011 / 19:29:54 / cg"
@@ -651,14 +639,14 @@
size := 12500.
col := OrderedCollection new.
1 to:size do:[:el|
- col add:nil.
+ col add:nil.
].
- sortBlock := [:entry1 :entry2 |
- ((entry1 isNil) or:[entry2 isNil]) ifTrue:[
- true
- ] ifFalse:[
- false
- ]
+ sortBlock := [:entry1 :entry2 |
+ ((entry1 isNil) or:[entry2 isNil]) ifTrue:[
+ true
+ ] ifFalse:[
+ false
+ ]
].
self shouldnt:[col sort:sortBlock] raise:RecursionInterruptSignal.
@@ -673,7 +661,7 @@
size := 12500.
col := OrderedCollection new.
1 to:size do:[:el|
- col add:'abc'.
+ col add:'abc'.
].
self shouldnt:[col sort] raise:RecursionInterruptSignal.
@@ -688,14 +676,14 @@
size := 125.
col := OrderedCollection new.
1 to:size do:[:el|
- col add:nil.
+ col add:nil.
].
- sortBlock := [:entry1 :entry2 |
- ((entry1 isNil) or:[entry2 isNil]) ifTrue:[
- true
- ] ifFalse:[
- false
- ]
+ sortBlock := [:entry1 :entry2 |
+ ((entry1 isNil) or:[entry2 isNil]) ifTrue:[
+ true
+ ] ifFalse:[
+ false
+ ]
].
"/ col sort:sortBlock.
self shouldnt:[col sort:sortBlock] raise:RecursionInterruptSignal.
@@ -707,84 +695,84 @@
testOrderedCollection05_SortRandomCollection
|data sorted rg coData checkBlock|
-
- checkBlock := [:a :b| a <= b].
+
+ checkBlock := [:a :b| a <= b].
rg := Random new.
#(1 4 11 2000 20011 200000) do:[:eachSize|
- data := Array new:eachSize.
- 1 to:data size do:[:i |
- data at:i put:(rg nextIntegerBetween:1 and:100).
- ].
- sorted := data copy sort.
- self checkSorted:sorted with:checkBlock against:data.
- sorted := sorted sort.
- self checkSorted:sorted with:checkBlock against:data.
- sorted := sorted reverse sort.
- self checkSorted:sorted with:checkBlock against:data.
+ data := Array new:eachSize.
+ 1 to:data size do:[:i |
+ data at:i put:(rg nextIntegerBetween:1 and:100).
+ ].
+ sorted := data copy sort.
+ self checkSorted:sorted with:checkBlock against:data.
+ sorted := sorted sort.
+ self checkSorted:sorted with:checkBlock against:data.
+ sorted := sorted reverse sort.
+ self checkSorted:sorted with:checkBlock against:data.
- coData := data copy.
- sorted := data copy sortWith:coData.
- self checkSorted:sorted with:checkBlock against:data.
- self checkSorted:coData with:checkBlock against:data.
+ coData := data copy.
+ sorted := data copy sortWith:coData.
+ self checkSorted:sorted with:checkBlock against:data.
+ self checkSorted:coData with:checkBlock against:data.
"/ Policy is not yet supported (without libcompat)
"/ sorted := data copy sort:[:policy :a :b| a < b].
"/ self checkSorted:sorted with:checkBlock against:data.
- sorted := data copy sort:[:a :b| a < b].
- self checkSorted:sorted with:checkBlock against:data.
+ sorted := data copy sort:[:a :b| a < b].
+ self checkSorted:sorted with:checkBlock against:data.
- coData := data copy.
- sorted := data copy sort:[:a :b| a < b] with:coData.
- self checkSorted:sorted with:checkBlock against:data.
- self checkSorted:coData with:checkBlock against:data.
+ coData := data copy.
+ sorted := data copy sort:[:a :b| a < b] with:coData.
+ self checkSorted:sorted with:checkBlock against:data.
+ self checkSorted:coData with:checkBlock against:data.
].
!
testOrderedCollection06_MergeSortRandomCollection
|data sorted rg checkBlock|
-
- checkBlock := [:a :b| a <= b].
+
+ checkBlock := [:a :b| a <= b].
rg := Random new.
#(1 4 11 2000 20011 200000) do:[:eachSize|
- data := Array new:eachSize.
- 1 to:data size do:[:i |
- data at:i put:(rg nextIntegerBetween:1 and:100).
- ].
- sorted := data copy mergeSort.
- self checkSorted:sorted with:checkBlock against:data.
- sorted := sorted mergeSort.
- self checkSorted:sorted with:checkBlock against:data.
- sorted := sorted reverse mergeSort.
- self checkSorted:sorted with:checkBlock against:data.
+ data := Array new:eachSize.
+ 1 to:data size do:[:i |
+ data at:i put:(rg nextIntegerBetween:1 and:100).
+ ].
+ sorted := data copy mergeSort.
+ self checkSorted:sorted with:checkBlock against:data.
+ sorted := sorted mergeSort.
+ self checkSorted:sorted with:checkBlock against:data.
+ sorted := sorted reverse mergeSort.
+ self checkSorted:sorted with:checkBlock against:data.
- sorted := data copy mergeSort:[:a :b| a < b].
- self checkSorted:sorted with:checkBlock against:data.
+ sorted := data copy mergeSort:[:a :b| a < b].
+ self checkSorted:sorted with:checkBlock against:data.
].
!
testOrderedCollection07_HeapSortRandomCollection
|data sorted rg checkBlock|
-
- checkBlock := [:a :b| a <= b].
+
+ checkBlock := [:a :b| a <= b].
rg := Random new.
#(1 4 11 2000 20011 200000) do:[:eachSize|
- data := Array new:eachSize.
- 1 to:data size do:[:i |
- data at:i put:(rg nextIntegerBetween:1 and:100).
- ].
- sorted := data copy heapSort.
- self checkSorted:sorted with:checkBlock against:data.
- sorted := sorted heapSort.
- self checkSorted:sorted with:checkBlock against:data.
- sorted := sorted reverse heapSort.
- self checkSorted:sorted with:checkBlock against:data.
+ data := Array new:eachSize.
+ 1 to:data size do:[:i |
+ data at:i put:(rg nextIntegerBetween:1 and:100).
+ ].
+ sorted := data copy heapSort.
+ self checkSorted:sorted with:checkBlock against:data.
+ sorted := sorted heapSort.
+ self checkSorted:sorted with:checkBlock against:data.
+ sorted := sorted reverse heapSort.
+ self checkSorted:sorted with:checkBlock against:data.
- sorted := data copy heapSort:[:a :b| a < b].
- self checkSorted:sorted with:checkBlock against:data.
+ sorted := data copy heapSort:[:a :b| a < b].
+ self checkSorted:sorted with:checkBlock against:data.
].
!
@@ -799,7 +787,7 @@
col add:10.
col add:0 beforeIndex:1.
self assert:(col asArray = #(0 10)).
-
+
col := OrderedCollection with:10.
col add:0 beforeIndex:1.
self assert:(col asArray = #(0 10)).
@@ -817,7 +805,7 @@
self assert:(col instVarNamed:'lastIndex') == 2.
self assert:(col asArray = #(0 10)).
"
- self new testOrderedCollection08_addBefore
+ self new testOrderedCollection08_addBefore
"
!
@@ -837,7 +825,7 @@
self assert:(col instVarNamed:'lastIndex') == 4.
self assert:(col asArray = #(-2 -1 0 10)).
"
- self new testOrderedCollection09_addAllBefore
+ self new testOrderedCollection09_addAllBefore
"
! !
@@ -992,13 +980,13 @@
col add:'b'.
col add:'c'.
self assert:( col size == 3 ).
- self assert:( Array streamContents:[:s |
- col do:[:each | s nextPut:each]
- ]
- ) = #('a' 'b' 'c' ).
+ self assert:( Array streamContents:[:s |
+ col do:[:each | s nextPut:each]
+ ]
+ ) = #('a' 'b' 'c' ).
"
- self new testOrderedSet02
+ self new testOrderedSet02
"
!
@@ -1013,13 +1001,13 @@
col add:'a'.
col add:'b'.
self assert:( col size == 3 ).
- self assert:( Array streamContents:[:s |
- col do:[:each | s nextPut:each]
- ]
- ) = #('a' 'b' 'c' ).
+ self assert:( Array streamContents:[:s |
+ col do:[:each | s nextPut:each]
+ ]
+ ) = #('a' 'b' 'c' ).
"
- self new testOrderedSet03
+ self new testOrderedSet03
"
!
@@ -1032,13 +1020,13 @@
col addFirst:'b'.
col addFirst:'c'.
self assert:( col size == 3 ).
- self assert:( Array streamContents:[:s |
- col do:[:each | s nextPut:each]
- ]
- ) = #('c' 'b' 'a' ).
+ self assert:( Array streamContents:[:s |
+ col do:[:each | s nextPut:each]
+ ]
+ ) = #('c' 'b' 'a' ).
"
- self new testOrderedSet04
+ self new testOrderedSet04
"
!
@@ -1054,13 +1042,13 @@
col add:'b'.
col add:'c'.
self assert:( col size == 3 ).
- self assert:( Array streamContents:[:s |
- col do:[:each | s nextPut:each]
- ]
- ) = #('c' 'b' 'a' ).
+ self assert:( Array streamContents:[:s |
+ col do:[:each | s nextPut:each]
+ ]
+ ) = #('c' 'b' 'a' ).
"
- self new testOrderedSet05
+ self new testOrderedSet05
"
! !
@@ -1073,12 +1061,12 @@
s addAll:#('one' 'two' 'three' 'four' 'five').
c := s from:2.
-
+
self assert: ( c size == (s size - 1) ).
1 to:c size do:[:i |
- self assert: ( (c at:i) == (s at:i+1) ).
+ self assert: ( (c at:i) == (s at:i+1) ).
].
-
+
c2 := c collect:[:el |el].
self assert:(c2 size == c size).
self assert:(c2 = c).
@@ -1086,7 +1074,7 @@
c2 := c select:[:el |true].
self assert:(c2 size == c size).
self assert:(c2 = c).
-
+
c2 := c select:[:el | el startsWith:'t'].
self assert:(c2 size == (s count:[:el | el startsWith:'t' ])).
@@ -1098,7 +1086,7 @@
self assert: ( c size == (s size - 1) ).
1 to:c size do:[:i |
- self assert: ( (c at:i) == (s at:i+1) ).
+ self assert: ( (c at:i) == (s at:i+1) ).
].
c2 := c collect:[:el |el].
@@ -1142,36 +1130,36 @@
!
testTransliterating
- self assert:( 'abcdefghijkl1234567890' copyTransliterating:'b-g' to:'B-G' ) = 'aBCDEFGhijkl1234567890'.
- self assert:( 'abcdefghij-kl1234567890' copyTransliterating:'b\-g' to:'B+G' ) = 'aBcdefGhij+kl1234567890'.
- self assert:( 'abcdefghijkl1234567890' copyTransliterating:'69' to:'96' ) = 'abcdefghijkl1234597860' .
+ self assert:( 'abcdefghijkl1234567890' copyTransliterating:'b-g' to:'B-G' ) = 'aBCDEFGhijkl1234567890'.
+ self assert:( 'abcdefghij-kl1234567890' copyTransliterating:'b\-g' to:'B+G' ) = 'aBcdefGhij+kl1234567890'.
+ self assert:( 'abcdefghijkl1234567890' copyTransliterating:'69' to:'96' ) = 'abcdefghijkl1234597860' .
self assert:( 'abcdefghijkl1234567890' copyTransliterating:'a' to:'b' ) = 'bbcdefghijkl1234567890' .
- self assert:( 'abcdefghijkl1234567890' copyTransliterating:'aeiou' to:'AEIOU' ) = 'AbcdEfghIjkl1234567890'.
- self assert:( 'abcdefghijkl1234567890' copyTransliterating:'0-9' to:'QERTYUIOPX' ) = 'abcdefghijklERTYUIOPXQ' .
+ self assert:( 'abcdefghijkl1234567890' copyTransliterating:'aeiou' to:'AEIOU' ) = 'AbcdEfghIjkl1234567890'.
+ self assert:( 'abcdefghijkl1234567890' copyTransliterating:'0-9' to:'QERTYUIOPX' ) = 'abcdefghijklERTYUIOPXQ' .
self assert:( 'abcdefghijkl1234567890' copyTransliterating:'0-9' to:'A' complement:false squashDuplicates:false )
- = 'abcdefghijklAAAAAAAAAA'.
+ = 'abcdefghijklAAAAAAAAAA'.
self assert:( 'abcdefghijkl1234567890' copyTransliterating:'0-9' to:'A' complement:false squashDuplicates:true )
- = 'abcdefghijklA'.
+ = 'abcdefghijklA'.
self assert:( 'abcdefghijkl1234567890' copyTransliterating:'0-9' to:'*' complement:false squashDuplicates:false )
- = 'abcdefghijkl**********'.
+ = 'abcdefghijkl**********'.
self assert:( 'abcdefghijkl1234567890' copyTransliterating:'0-9' to:'*' complement:true squashDuplicates:false )
- = '************1234567890'.
+ = '************1234567890'.
self assert:( 'abcdefghijkl1234567890' copyTransliterating:'a-zA-Z' to:' ' complement:true squashDuplicates:false )
- = 'abcdefghijkl '.
+ = 'abcdefghijkl '.
self assert:( 'abcdefghijkl1234567890' copyTransliterating:'a-zA-Z' to:' ' complement:false squashDuplicates:false )
- = ' 1234567890'.
+ = ' 1234567890'.
self assert:( 'abcdefghijkl1234567890abcdefghijkl' copyTransliterating:'a-zA-Z' to:'' complement:false squashDuplicates:false )
- = '1234567890'.
+ = '1234567890'.
self assert:( 'abcdefghijkl1234567890abcdefghijkl' copyTransliterating:'a-zA-Z' to:'' complement:true squashDuplicates:false )
- = 'abcdefghijklabcdefghijkl'.
+ = 'abcdefghijklabcdefghijkl'.
! !
!CollectionTests methodsFor:'tests-searching'!
@@ -1180,119 +1168,119 @@
|a|
#(
- asArray
- asFloatArray
- asDoubleArray
- asHalfFloatArray
- asSignedWordArray
- asSignedIntegerArray
- asSignedLongIntegerArray
+ asArray
+ asFloatArray
+ asDoubleArray
+ asHalfFloatArray
+ asSignedWordArray
+ asSignedIntegerArray
+ asSignedLongIntegerArray
) do:[:converter |
- |empty|
+ |empty|
- empty := #() perform:converter.
- self should:[ empty min ] raise:Error.
- self should:[ empty max ] raise:Error.
- self should:[ empty minMax ] raise:Error.
+ empty := #() perform:converter.
+ self should:[ empty min ] raise:Error.
+ self should:[ empty max ] raise:Error.
+ self should:[ empty minMax ] raise:Error.
- #(
- (0 0)
- (1 1)
- (-1 -1)
- (0 1)
- (1 2)
- (-1 -0)
- (-1 1)
- (1 10000)
- (1 20000)
- (2 10000)
- (2 20000)
- (-1000 1000)
- (-1000 999)
- ) pairsDo:[:min :max |
- a := (min to:max) perform:converter.
- self assert:(a min) = min.
- self assert:(a max) = max.
- self assert:(a minMax) = { min. max }.
+ #(
+ (0 0)
+ (1 1)
+ (-1 -1)
+ (0 1)
+ (1 2)
+ (-1 -0)
+ (-1 1)
+ (1 10000)
+ (1 20000)
+ (2 10000)
+ (2 20000)
+ (-1000 1000)
+ (-1000 999)
+ ) pairsDo:[:min :max |
+ a := (min to:max) perform:converter.
+ self assert:(a min) = min.
+ self assert:(a max) = max.
+ self assert:(a minMax) = { min. max }.
- a := a reverse.
- self assert:(a min) = min.
- self assert:(a max) = max.
- self assert:(a minMax) = { min. max }.
+ a := a reverse.
+ self assert:(a min) = min.
+ self assert:(a max) = max.
+ self assert:(a minMax) = { min. max }.
- a := a randomShuffle.
- self assert:(a min) = min.
- self assert:(a max) = max.
- self assert:(a minMax) = { min. max }.
- ].
+ a := a randomShuffle.
+ self assert:(a min) = min.
+ self assert:(a max) = max.
+ self assert:(a minMax) = { min. max }.
+ ].
].
#(
- asWordArray
- asIntegerArray
- asLongIntegerArray
+ asWordArray
+ asIntegerArray
+ asLongIntegerArray
) do:[:converter |
- |empty|
+ |empty|
- empty := #() perform:converter.
- self should:[ empty min ] raise:Error.
- self should:[ empty max ] raise:Error.
- self should:[ empty minMax ] raise:Error.
+ empty := #() perform:converter.
+ self should:[ empty min ] raise:Error.
+ self should:[ empty max ] raise:Error.
+ self should:[ empty minMax ] raise:Error.
- #(
- (0 0)
- (1 1)
- (0 1)
- (1 2)
- (1 10000)
- (1 10001)
- (2 10000)
- (2 10001)
- ) pairsDo:[:min :max |
- a := (min to:max) perform:converter.
- self assert:(a min) = min.
- self assert:(a max) = max.
- self assert:(a minMax) = { min. max }.
+ #(
+ (0 0)
+ (1 1)
+ (0 1)
+ (1 2)
+ (1 10000)
+ (1 10001)
+ (2 10000)
+ (2 10001)
+ ) pairsDo:[:min :max |
+ a := (min to:max) perform:converter.
+ self assert:(a min) = min.
+ self assert:(a max) = max.
+ self assert:(a minMax) = { min. max }.
- a := a reverse.
- self assert:(a min) = min.
- self assert:(a max) = max.
- self assert:(a minMax) = { min. max }.
+ a := a reverse.
+ self assert:(a min) = min.
+ self assert:(a max) = max.
+ self assert:(a minMax) = { min. max }.
- a := a randomShuffle.
- self assert:(a min) = min.
- self assert:(a max) = max.
- self assert:(a minMax) = { min. max }.
- ].
+ a := a randomShuffle.
+ self assert:(a min) = min.
+ self assert:(a max) = max.
+ self assert:(a minMax) = { min. max }.
+ ].
].
(Array with:Array with:OrderedCollection with:ByteArray with:WordArray with:IntegerArray)
do:[:cls |
- a := cls withAll: #(10 20 30 40 50 60 70 80 90 100).
+ a := cls withAll: #(10 20 30 40 50 60 70 80 90 100).
- self assert:(a indexOf:110) == 0.
- self assert:(a indexOf:10) == 1.
- self assert:(a indexOf:20) == 2.
- self assert:(a indexOf:30) == 3.
- self assert:(a indexOf:40) == 4.
- self assert:(a indexOf:50) == 5.
- self assert:(a indexOf:60) == 6.
- self assert:(a indexOf:70) == 7.
- self assert:(a indexOf:80) == 8.
- self assert:(a indexOf:90) == 9.
- self assert:(a indexOf:100) == 10.
+ self assert:(a indexOf:110) == 0.
+ self assert:(a indexOf:10) == 1.
+ self assert:(a indexOf:20) == 2.
+ self assert:(a indexOf:30) == 3.
+ self assert:(a indexOf:40) == 4.
+ self assert:(a indexOf:50) == 5.
+ self assert:(a indexOf:60) == 6.
+ self assert:(a indexOf:70) == 7.
+ self assert:(a indexOf:80) == 8.
+ self assert:(a indexOf:90) == 9.
+ self assert:(a indexOf:100) == 10.
- self assert:(a identityIndexOf:110) == 0.
- self assert:(a identityIndexOf:10) == 1.
- self assert:(a identityIndexOf:20) == 2.
- self assert:(a identityIndexOf:30) == 3.
- self assert:(a identityIndexOf:40) == 4.
- self assert:(a identityIndexOf:50) == 5.
- self assert:(a identityIndexOf:60) == 6.
- self assert:(a identityIndexOf:70) == 7.
- self assert:(a identityIndexOf:80) == 8.
- self assert:(a identityIndexOf:90) == 9.
- self assert:(a identityIndexOf:100) == 10.
+ self assert:(a identityIndexOf:110) == 0.
+ self assert:(a identityIndexOf:10) == 1.
+ self assert:(a identityIndexOf:20) == 2.
+ self assert:(a identityIndexOf:30) == 3.
+ self assert:(a identityIndexOf:40) == 4.
+ self assert:(a identityIndexOf:50) == 5.
+ self assert:(a identityIndexOf:60) == 6.
+ self assert:(a identityIndexOf:70) == 7.
+ self assert:(a identityIndexOf:80) == 8.
+ self assert:(a identityIndexOf:90) == 9.
+ self assert:(a identityIndexOf:100) == 10.
].
"Created: / 07-10-2011 / 13:11:36 / cg"
@@ -1322,12 +1310,12 @@
col := SortedCollection new addAll: (100 to: 1 by: -1); yourself.
last := nil.
errs := col inject: 0 into:
- [ :totIn :n | |totOut|
+ [ :totIn :n | |totOut|
- totOut := totIn.
- last notNil ifTrue: [ last > n ifTrue: [ totOut := totOut + 1 ] ].
- last := n.
- totOut ].
+ totOut := totIn.
+ last notNil ifTrue: [ last > n ifTrue: [ totOut := totOut + 1 ] ].
+ last := n.
+ totOut ].
self should: [ errs = 0 ]
"
@@ -1354,13 +1342,13 @@
lastTestData := nil.
errs := col inject: 0 into:
- [ :totIn :aSortTestData | |totOut|
- totOut := totIn.
- lastTestData notNil ifTrue:
- [ lastTestData value = aSortTestData value ifTrue:
- [ lastTestData order > aSortTestData order ifTrue: [ totOut := totOut + 1 ] ] ].
- lastTestData := aSortTestData.
- totOut ].
+ [ :totIn :aSortTestData | |totOut|
+ totOut := totIn.
+ lastTestData notNil ifTrue:
+ [ lastTestData value = aSortTestData value ifTrue:
+ [ lastTestData order > aSortTestData order ifTrue: [ totOut := totOut + 1 ] ] ].
+ lastTestData := aSortTestData.
+ totOut ].
self should: [ errs = 0 ]
"
@@ -1385,13 +1373,13 @@
lastTestData := nil.
errs := col inject: 0 into:
- [ :totIn :aSortTestData | |totOut|
- totOut := totIn.
- lastTestData notNil ifTrue:
- [ lastTestData value = aSortTestData value ifTrue:
- [ lastTestData order > aSortTestData order ifTrue: [ totOut := totOut + 1 ] ] ].
- lastTestData := aSortTestData.
- totOut ].
+ [ :totIn :aSortTestData | |totOut|
+ totOut := totIn.
+ lastTestData notNil ifTrue:
+ [ lastTestData value = aSortTestData value ifTrue:
+ [ lastTestData order > aSortTestData order ifTrue: [ totOut := totOut + 1 ] ] ].
+ lastTestData := aSortTestData.
+ totOut ].
self should: [ errs = 0 ]
"
@@ -1402,31 +1390,31 @@
testSortedCollectionQueries
"test a SortedCollection, where only a single attribute is used for sorting.
#include: failed before 2015-06-24"
-
+
|collection|
collection := SortedCollection sortBlock:[:a :b | a key < b key ].
- $a to:$z do:[:l |
- 1 to:100 do:[:i |
- collection add:(Association key:l value:i)
- ].
+ $a to:$z do:[:l |
+ 1 to:100 do:[:i |
+ collection add:(Association key:l value:i)
+ ].
].
-
+
"/ make startIndex > 1 and endIndex < size
-
+
collection
- removeFirst;
- removeLast.
- collection
- keysAndValuesDo:[:eachIndex :eachElement |
- self assert:(collection detect:[:el | el = eachElement ]) notNil.
- self assert:(collection includes:eachElement).
- self assert:(collection indexOf:eachElement) = eachIndex.
- self assert:(collection occurrencesOf:eachElement) = 1.
- self
- assert:(collection
- includes:(eachElement copy value:(eachElement value + 1000))) not.
- ].
+ removeFirst;
+ removeLast.
+ collection
+ keysAndValuesDo:[:eachIndex :eachElement |
+ self assert:(collection detect:[:el | el = eachElement ]) notNil.
+ self assert:(collection includes:eachElement).
+ self assert:(collection indexOf:eachElement) = eachIndex.
+ self assert:(collection occurrencesOf:eachElement) = 1.
+ self
+ assert:(collection
+ includes:(eachElement copy value:(eachElement value + 1000))) not.
+ ].
! !
!CollectionTests methodsFor:'tests-squeak'!
@@ -1467,41 +1455,41 @@
!CollectionTests::SortTestData methodsFor:'accessing'!
value
- "Answer the value of the receiver's ''value'' instance variable."
+ "Answer the value of the receiver's ''value'' instance variable."
- ^value
+ ^value
!
value: anObject
- "Set the value of the receiver's ''value'' instance variable to the argument, anObject."
+ "Set the value of the receiver's ''value'' instance variable to the argument, anObject."
- value := anObject
+ value := anObject
! !
!CollectionTests::SortTestData methodsFor:'order'!
order
- "Answer the value of the receiver's ''order'' instance variable."
+ "Answer the value of the receiver's ''order'' instance variable."
- ^order
+ ^order
!
order: anObject
- "Set the value of the receiver's ''order'' instance variable to the argument, anObject."
+ "Set the value of the receiver's ''order'' instance variable to the argument, anObject."
- order := anObject
+ order := anObject
! !
!CollectionTests::SortTestData methodsFor:'printing & storing'!
printOn: aStream
- super printOn: aStream.
- aStream
- nextPutAll: '(value: ';
- nextPutAll: value printString;
- nextPutAll: ' order: ';
- nextPutAll: order printString;
- nextPut: $)
+ super printOn: aStream.
+ aStream
+ nextPutAll: '(value: ';
+ nextPutAll: value printString;
+ nextPutAll: ' order: ';
+ nextPutAll: order printString;
+ nextPut: $)
! !
!CollectionTests class methodsFor:'documentation'!
@@ -1512,10 +1500,5 @@
version_CVS
^ '$Header$'
-!
-
-version_HG
-
- ^ '$Changeset: <not expanded> $'
! !
--- a/RegressionTests__CompilerTest.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__CompilerTest.st Thu Jun 30 09:02:08 2016 +0100
@@ -35,10 +35,10 @@
compile:code
Class withoutUpdatingChangesDo:[
- ^ Compiler
- compile:code
- forClass:self
- install:false.
+ ^ Compiler
+ compile:code
+ forClass:self
+ install:false.
].
! !
@@ -273,9 +273,9 @@
callEnsureWithException
[
- ProceedableError raiseRequest
+ ProceedableError raiseRequest
] ensure:[
- ^ true
+ ^ true
].
^ nil
@@ -1953,11 +1953,11 @@
|parser|
Smalltalk allClassesDo:[:eachClass |
- Transcript showCR:'parsing all in ',eachClass name.
- eachClass instAndClassSelectorsAndMethodsDo:[:sel :mthd |
- parser := Parser parseMethod:(mthd source) in:(mthd mclass).
- self assert:(parser ~~ #Error and:[parser tree ~= #Error and:[parser errorFlag ~~ true]]).
- ].
+ Transcript showCR:'parsing all in ',eachClass name.
+ eachClass instAndClassSelectorsAndMethodsDo:[:sel :mthd |
+ parser := Parser parseMethod:(mthd source) in:(mthd mclass).
+ self assert:(parser ~~ #Error and:[parser tree ~= #Error and:[parser errorFlag ~~ true]]).
+ ].
].
"
@@ -1969,14 +1969,14 @@
|parser|
Smalltalk allClassesDo:[:eachClass |
- Transcript showCR:'parsing all in ',eachClass name.
- eachClass instAndClassSelectorsAndMethodsDo:[:sel :mthd |
- parser := Parser parseMethod:(mthd source) in:(mthd mclass).
- self assert:(parser ~~ #Error and:[parser tree ~= #Error and:[parser errorFlag ~~ true]]).
- parser hasPrimitiveCode ifFalse:[
- mthd mclass recompile:sel
- ].
- ].
+ Transcript showCR:'parsing all in ',eachClass name.
+ eachClass instAndClassSelectorsAndMethodsDo:[:sel :mthd |
+ parser := Parser parseMethod:(mthd source) in:(mthd mclass).
+ self assert:(parser ~~ #Error and:[parser tree ~= #Error and:[parser errorFlag ~~ true]]).
+ parser hasPrimitiveCode ifFalse:[
+ mthd mclass recompile:sel
+ ].
+ ].
].
"
@@ -1994,23 +1994,23 @@
p := ParserFlags warnPlausibilityChecks.
[
- ParserFlags warnPlausibilityChecks:true.
- ParserFlags warnAboutPossibleSTCCompilationProblems:true.
- ParserFlags allowPossibleSTCCompilationProblems:false.
- self should:[
- self
- compile:'
+ ParserFlags warnPlausibilityChecks:true.
+ ParserFlags warnAboutPossibleSTCCompilationProblems:true.
+ ParserFlags allowPossibleSTCCompilationProblems:false.
+ self should:[
+ self
+ compile:'
foo:arg
^ arg
ifTrue:[^ 1]
ifFalse:[2]
'
- ]
- raise:Parser parseErrorSignal
+ ]
+ raise:Parser parseErrorSignal
] ensure:[
- ParserFlags warnAboutPossibleSTCCompilationProblems:w.
- ParserFlags allowPossibleSTCCompilationProblems:a.
- ParserFlags warnPlausibilityChecks:p.
+ ParserFlags warnAboutPossibleSTCCompilationProblems:w.
+ ParserFlags allowPossibleSTCCompilationProblems:a.
+ ParserFlags warnPlausibilityChecks:p.
].
"Created: / 16-11-2006 / 14:08:48 / cg"
@@ -2023,25 +2023,25 @@
a := ParserFlags allowPossibleSTCCompilationProblems.
[
- ParserFlags warnAboutPossibleSTCCompilationProblems:false.
- ParserFlags allowPossibleSTCCompilationProblems:true.
-
- setOfSignals := SignalSet with:(Parser parseErrorSignal) with:(Parser parseWarningSignal).
- self
- shouldnt:
- [
- self
- compile:'
+ ParserFlags warnAboutPossibleSTCCompilationProblems:false.
+ ParserFlags allowPossibleSTCCompilationProblems:true.
+
+ setOfSignals := SignalSet with:(Parser parseErrorSignal) with:(Parser parseWarningSignal).
+ self
+ shouldnt:
+ [
+ self
+ compile:'
foo:arg
^ arg
- ifTrue:[^ 1]
- ifFalse:[2]
+ ifTrue:[^ 1]
+ ifFalse:[2]
'
- ]
- raise:setOfSignals.
+ ]
+ raise:setOfSignals.
] ensure:[
- ParserFlags warnAboutPossibleSTCCompilationProblems:w.
- ParserFlags allowPossibleSTCCompilationProblems:a.
+ ParserFlags warnAboutPossibleSTCCompilationProblems:w.
+ ParserFlags allowPossibleSTCCompilationProblems:a.
]
"Created: / 16-11-2006 / 14:33:29 / cg"
@@ -2052,17 +2052,17 @@
setOfPossibleExceptions := SignalSet with:ParseWarning with:ParseError.
self
- shouldnt:
- [
- self
- compile:'
+ shouldnt:
+ [
+ self
+ compile:'
foo:arg
arg
- ifTrue:[^ 1]
- ifFalse:[^ 2]
+ ifTrue:[^ 1]
+ ifFalse:[^ 2]
'
- ]
- raise:setOfPossibleExceptions.
+ ]
+ raise:setOfPossibleExceptions.
"Created: / 16-11-2006 / 14:16:53 / cg"
!
@@ -2072,17 +2072,17 @@
setOfPossibleExceptions := SignalSet with:(Parser parseWarningSignal) with:(Parser parseErrorSignal).
self
- shouldnt:
- [
- self
- compile:'
+ shouldnt:
+ [
+ self
+ compile:'
foo:arg
^ arg
- ifTrue:[1]
- ifFalse:[2]
+ ifTrue:[1]
+ ifFalse:[2]
'
- ]
- raise:setOfPossibleExceptions.
+ ]
+ raise:setOfPossibleExceptions.
"Created: / 16-11-2006 / 14:41:45 / cg"
! !
--- a/RegressionTests__ComplexTest.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__ComplexTest.st Thu Jun 30 09:02:08 2016 +0100
@@ -150,10 +150,10 @@
| c |
false ifTrue:[
- "cg: I dont think this has to be known outside complex"
- "i.e. should it really be allowed to create complex numbers with new ?"
- self should: [ (c := Complex new) realPart = 0 ].
- self should: [ c imaginaryPart = 0 ].
+ "cg: I dont think this has to be known outside complex"
+ "i.e. should it really be allowed to create complex numbers with new ?"
+ self should: [ (c := Complex new) realPart = 0 ].
+ self should: [ c imaginaryPart = 0 ].
].
self should: [ (c := Complex real: 1 imaginary: 2) realPart = 1 ].
self should: [ c imaginaryPart = 2 ].
@@ -167,54 +167,54 @@
self should: [ (c := Complex real: -1 imaginary: -2) realPart = -1 ].
self should: [ c imaginaryPart = -2 ].
- c := (1 % 2).
+ c := (1 % 2).
self assert: (c real = 1).
self assert: (c imaginary = 2).
- c := (-1 % 2).
+ c := (-1 % 2).
self assert: (c real = -1).
self assert: (c imaginary = 2).
- c := (1 % -2).
+ c := (1 % -2).
self assert: (c real = 1).
self assert: (c imaginary = -2).
- c := (-1 % -2).
+ c := (-1 % -2).
self assert: (c real = -1).
self assert: (c imaginary = -2).
- c := (1.0 % 2.0).
+ c := (1.0 % 2.0).
self assert: (c real = 1.0).
self assert: (c imaginary = 2.0).
- c := (-1.0 % 2.0).
+ c := (-1.0 % 2.0).
self assert: (c real = -1.0).
self assert: (c imaginary = 2.0).
- c := (1.0 % -2.0).
+ c := (1.0 % -2.0).
self assert: (c real = 1.0).
self assert: (c imaginary = -2.0).
- c := (-1.0 % -2.0).
+ c := (-1.0 % -2.0).
self assert: (c real = -1.0).
self assert: (c imaginary = -2.0).
c := 5 i.
self assert: (c real = 0).
self assert: (c imaginary = 5).
-
+
c := 6 + 7 i.
self assert: (c real = 6).
self assert: ( c imaginary = 7).
-
+
c := 5.6 - 8 i.
self assert: (c real = 5.6).
self assert: (c imaginary = -8).
-
+
c := Complex real: 10 imaginary: 5.
self assert: (c real = 10).
self assert: (c imaginary = 5).
-
+
c := Complex abs: 5 arg: (Float pi/2).
self assert: (c real rounded = 0).
self assert: (c imaginary = 5).
@@ -324,19 +324,19 @@
!
testRaisedTo
- | c |
+ | c |
- self shouldnt: [ c := Complex real: 3 imaginary: 2 ] raise: Exception.
- self assert: ((c raisedTo: 2) = (c * c)).
- self assert: ((c raisedTo: 3) = (c * c * c)).
- self assert: ((c raisedTo: 4) = (c * c * c * c)).
+ self shouldnt: [ c := Complex real: 3 imaginary: 2 ] raise: Exception.
+ self assert: ((c raisedTo: 2) = (c * c)).
+ self assert: ((c raisedTo: 3) = (c * c * c)).
+ self assert: ((c raisedTo: 4) = (c * c * c * c)).
!
testReciprocal
| c |
c := (2 + 5 i).
self assert: c reciprocal = ((2/29) - (5/29)i).
-
+
"
self run: #testReciprocal
self new testReciprocal
@@ -346,7 +346,7 @@
testReciprocalError
| c |
c := (0 i).
- self should: [c reciprocal] raise: ZeroDivide
+ self should: [c reciprocal] raise: ZeroDivide
"
self run: #testReciprocalError
self new testReciprocalError
@@ -354,31 +354,31 @@
!
testSqrt
- | c w |
+ | c w |
- self shouldnt: [ c := Complex real: 0 imaginary: 0 ] raise: Exception.
- self should: [ c sqrt = 0 ].
+ self shouldnt: [ c := Complex real: 0 imaginary: 0 ] raise: Exception.
+ self should: [ c sqrt = 0 ].
- self shouldnt: [ c := Complex real: 9 imaginary: 4 ] raise: Exception.
- "cg: that cannot be tested easily, due to rounding errors"
- "original" false ifTrue:[
- self should: [ w := 3 * (((1 + (1 + ((4/9) * (4/9))) sqrt) / 2) sqrt).
- c sqrt = (Complex real: w imaginary: 4 / (2 * w)) ].
- ] ifFalse:[
- self should: [ |t1 t2 epsilon|
- w := 3 * (((1 + (1 + ((4/9) * (4/9))) sqrt) / 2) sqrt).
- t1 := c sqrt.
- t2 := (Complex real: w imaginary: 4 / (2 * w)).
- epsilon := 0.0000001.
- (t1 realPart - t2 realPart) < epsilon
- and:[ (t1 imaginaryPart - t2 imaginaryPart) < epsilon ]
- ].
- ].
+ self shouldnt: [ c := Complex real: 9 imaginary: 4 ] raise: Exception.
+ "cg: that cannot be tested easily, due to rounding errors"
+ "original" false ifTrue:[
+ self should: [ w := 3 * (((1 + (1 + ((4/9) * (4/9))) sqrt) / 2) sqrt).
+ c sqrt = (Complex real: w imaginary: 4 / (2 * w)) ].
+ ] ifFalse:[
+ self should: [ |t1 t2 epsilon|
+ w := 3 * (((1 + (1 + ((4/9) * (4/9))) sqrt) / 2) sqrt).
+ t1 := c sqrt.
+ t2 := (Complex real: w imaginary: 4 / (2 * w)).
+ epsilon := 0.0000001.
+ (t1 realPart - t2 realPart) < epsilon
+ and:[ (t1 imaginaryPart - t2 imaginaryPart) < epsilon ]
+ ].
+ ].
- self shouldnt: [ c := Complex imaginary: -2 ] raise: Exception.
- "self should: [ c sqrt = (Complex real: 1 imaginary: -1) ]. Should be true, but rounding bites us..."
- self should: [ (c sqrt realPart - 1) abs < 1.0e-10 ].
- self should: [ (c sqrt imaginaryPart + 1) abs < 1.0e-10 ].
+ self shouldnt: [ c := Complex imaginary: -2 ] raise: Exception.
+ "self should: [ c sqrt = (Complex real: 1 imaginary: -1) ]. Should be true, but rounding bites us..."
+ self should: [ (c sqrt realPart - 1) abs < 1.0e-10 ].
+ self should: [ (c sqrt imaginaryPart + 1) abs < 1.0e-10 ].
!
testSquared
@@ -414,7 +414,7 @@
c1 := 2.0e252 + 3.0e70 i.
c2 := c1.
quotient := c1 divideSecureBy: c2.
- self assert: (quotient - 1) isZero.
+ self assert: (quotient - 1) isZero.
"
self run: #testSecureDivision1
--- a/RegressionTests__ContextTest2.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__ContextTest2.st Thu Jun 30 09:02:08 2016 +0100
@@ -65,8 +65,8 @@
callRecursive: level withArg:argument thenDo:aBlock
level == 0 ifTrue:[
- aBlock value:thisContext.
- ^ self.
+ aBlock value:thisContext.
+ ^ self.
].
self callRecursive:level-1 withArg:argument thenDo:aBlock
@@ -133,20 +133,20 @@
raiseNotification
NoHandlerError handle:[:ex |
- ex return
+ ex return
] do:[
- |t|
+ |t|
%{
extern void *__contextToDebug__;
__contextToDebug__ = (void *)__thisContext;
%}.
- t := MyNotification raiseRequestFrom:self.
+ t := MyNotification raiseRequestFrom:self.
%{
extern void *__contextToDebug__;
__contextToDebug__ = (void *)__thisContext;
%}.
- ^ t
+ ^ t
].
^ nil.
!
@@ -283,8 +283,8 @@
testContextRef8
100000 timesRepeat:[
- self raiseNotification.
- self assert:(ObjectMemory spaceOf:exceptionObject suspendedContext) < 4.
+ self raiseNotification.
+ self assert:(ObjectMemory spaceOf:exceptionObject suspendedContext) < 4.
].
"
@@ -309,16 +309,16 @@
is a Twobytestring"
Transcript showCR:'1'.
- self
- callRecursive:3
- withArg:((Unicode16String new:2)
- at:1 put:(Character value:16r151);
- at:2 put:(Character value:16rFF00);
- yourself)
- thenDo:[:context |
- self assert:(context displayString bitsPerCharacter == 8).
- self assert:(context fullPrintString bitsPerCharacter == 8).
- ].
+ self
+ callRecursive:3
+ withArg:((Unicode16String new:2)
+ at:1 put:(Character value:16r151);
+ at:2 put:(Character value:16rFF00);
+ yourself)
+ thenDo:[:context |
+ self assert:(context displayString bitsPerCharacter == 8).
+ self assert:(context fullPrintString bitsPerCharacter == 8).
+ ].
"
self new testDisplayString1
@@ -338,12 +338,12 @@
arg := x.
p := [
- [
- lockSet critical:[set add:arg].
- arg perform:#x .
- ] ensure:[
- lockSet critical:[set remove:arg].
- ].
+ [
+ lockSet critical:[set add:arg].
+ arg perform:#x .
+ ] ensure:[
+ lockSet critical:[set remove:arg].
+ ].
] fork.
"
@@ -360,12 +360,12 @@
x := 1 @ 1.
p := [:arg |
- [
- lockSet critical:[set add:arg].
- arg perform:#x.
- ] ensure:[
- lockSet critical:[set remove:arg].
- ].
+ [
+ lockSet critical:[set add:arg].
+ arg perform:#x.
+ ] ensure:[
+ lockSet critical:[set remove:arg].
+ ].
] forkWith:(Array with:x).
"
@@ -382,13 +382,13 @@
x := 1 @ 1.
p := [:arg |
- [
- lockSet critical:[set add:arg].
- arg perform:#x: with:1234.
- lockSet critical:[set rehash].
- ] ensure:[
- lockSet critical:[set remove:arg].
- ].
+ [
+ lockSet critical:[set add:arg].
+ arg perform:#x: with:1234.
+ lockSet critical:[set rehash].
+ ] ensure:[
+ lockSet critical:[set remove:arg].
+ ].
] forkWith:(Array with:x).
"
@@ -455,9 +455,9 @@
ex := self newException.
someone exceptionObjectIs:ex.
^ (ex
- suspendedContext:thisContext sender
- parameter:someone originator:someone)
- raiseRequest.
+ suspendedContext:thisContext sender
+ parameter:someone originator:someone)
+ raiseRequest.
! !
!ContextTest2 class methodsFor:'documentation'!
--- a/RegressionTests__CoverageInstrumentationTest.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__CoverageInstrumentationTest.st Thu Jun 30 09:02:08 2016 +0100
@@ -22,35 +22,35 @@
f2:aBoolean
aBoolean ifTrue:[
- ^ 1234
+ ^ 1234
].
^ 2345
!
f3:aBoolean
aBoolean ifTrue:[
- ^ 1234 "both should be executed with a true arg, and coverage should see that"
+ ^ 1234 "both should be executed with a true arg, and coverage should see that"
] ifFalse:[
- ^ 2345 "bith should be executed with a true arg, and coverage should see that"
+ ^ 2345 "bith should be executed with a true arg, and coverage should see that"
].
^ 3456
!
f4:aBoolean
aBoolean ifFalse:[
- ^ 1234 "should not be executed with a true arg, and coverage should see that"
+ ^ 1234 "should not be executed with a true arg, and coverage should see that"
].
!
f5:loopCount
1 to:loopCount do:[:i |
- 1 + 2 "should be executed 10 times, and coverage should see that"
+ 1 + 2 "should be executed 10 times, and coverage should see that"
].
!
f6:loopCount
1 to:loopCount do:[:i |
- self calledByF6
+ self calledByF6
].
! !
@@ -67,7 +67,7 @@
"/ execute
InstrumentationContext runForCoverage:[
- self f1.
+ self f1.
].
self assert:(m1 hasBeenCalled).
@@ -92,7 +92,7 @@
"/ execute
context := InstrumentationContext new.
context runForCoverage:[
- self f2:true.
+ self f2:true.
].
self assert:(m2 hasBeenCalled).
self assert:(m2 blockInvocationInfo conform:[:i | i hasBeenExecuted]).
@@ -102,7 +102,7 @@
"/ execute in the same context
context runForCoverage:[
- self f2:false.
+ self f2:false.
].
self assert:(m2 hasBeenCalled).
@@ -134,7 +134,7 @@
"/ execute
context := InstrumentationContext new.
context runForCoverage:[
- self f3:true.
+ self f3:true.
].
"/ one block should have been invoked, the other not"
@@ -148,7 +148,7 @@
"/ execute
context runForCoverage:[
- self f3:false.
+ self f3:false.
].
"/ both blocks should have been invoked"
@@ -184,7 +184,7 @@
"/ execute
InstrumentationContext runForCoverage:[
- self f4:true.
+ self f4:true.
].
self assert:(m4 hasBeenCalled).
@@ -208,7 +208,7 @@
"/ execute
InstrumentationContext run:[
- self f5:10.
+ self f5:10.
].
self assert:(m5 hasBeenCalled).
@@ -235,7 +235,7 @@
"/ execute
InstrumentationContext run:[
- self f6:10.
+ self f6:10.
].
self assert:(m hasBeenCalled).
--- a/RegressionTests__CryptTests.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__CryptTests.st Thu Jun 30 09:02:08 2016 +0100
@@ -18,7 +18,7 @@
documentation to be added.
[author:]
- exept
+ exept
[instance variables:]
@@ -46,15 +46,15 @@
loadLibcryptIfAvailable
"raise an error: this method should be implemented (TODO)"
- LibCryptLoaded ifFalse:[
- (Smalltalk at: #SHA384Stream) isNil ifTrue:[
- [
- Smalltalk loadPackage: #'exept:libcrypt'
- ] on: PackageLoadError do:[:ex |
- "/Libcrypt not not available.
- ].
- ].
- LibCryptLoaded := true.
+ LibCryptLoaded ifFalse:[
+ (Smalltalk at: #SHA384Stream) isNil ifTrue:[
+ [
+ Smalltalk loadPackage: #'exept:libcrypt'
+ ] on: PackageLoadError do:[:ex |
+ "/Libcrypt not not available.
+ ].
+ ].
+ LibCryptLoaded := true.
].
"Created: / 03-03-2014 / 12:03:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -91,27 +91,27 @@
self assert:(h = 16r60C1D0A0).
h := (CRC32Stream new
- nextPut:$r;
- nextPut:$e;
- nextPut:$s;
- nextPut:$u;
- nextPut:$m;
- nextPut:$e;
- hashValue).
+ nextPut:$r;
+ nextPut:$e;
+ nextPut:$s;
+ nextPut:$u;
+ nextPut:$m;
+ nextPut:$e;
+ hashValue).
self assert:(h = 16r60C1D0A0).
h := (CRC32Stream hashValueOf:#[1 2 3 4 5 6 7]).
self assert:(h = 16r70E46888).
- h := (CRC32Stream hashValueOf:#[16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF
- 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF
- 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF
- 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF]).
+ h := (CRC32Stream hashValueOf:#[16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF
+ 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF
+ 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF
+ 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF]).
self assert:(h = 16r8CD04C73).
h := (CRC32Stream new
- next:100000 putAll:'12345678901234567890123456789012345678901234567890';
- hashValue).
+ next:100000 putAll:'12345678901234567890123456789012345678901234567890';
+ hashValue).
self assert:(h = 16r86D7D79A).
"
@@ -130,18 +130,18 @@
self assert:(h = (ByteArray fromHexString:'9e107d9d372bb6826bd81d3542a419d6')).
h := MD5Stream hashValueOf:'abc'.
- self assert:(h = #[16r90 16r01 16r50 16r98 16r3C 16rD2 16r4F 16rB0
- 16rD6 16r96 16r3F 16r7D 16r28 16rE1 16r7F 16r72]).
+ self assert:(h = #[16r90 16r01 16r50 16r98 16r3C 16rD2 16r4F 16rB0
+ 16rD6 16r96 16r3F 16r7D 16r28 16rE1 16r7F 16r72]).
h := MD5Stream hashValueOf:'abcdbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq'.
- self assert:(h = #[16r82 16r15 16rEF 16r07 16r96 16rA2 16r0B 16rCA
- 16rAA 16rE1 16r16 16rD3 16r87 16r6C 16r66 16r4A]).
+ self assert:(h = #[16r82 16r15 16rEF 16r07 16r96 16rA2 16r0B 16rCA
+ 16rAA 16rE1 16r16 16rD3 16r87 16r6C 16r66 16r4A]).
h := (MD5Stream new
- next:1000000 put:$a;
- hashValue).
- self assert:(h = #[16r77 16r07 16rD6 16rAE 16r4E 16r02 16r7C 16r70
- 16rEE 16rA2 16rA9 16r35 16rC2 16r29 16r6F 16r21]).
+ next:1000000 put:$a;
+ hashValue).
+ self assert:(h = #[16r77 16r07 16rD6 16rAE 16r4E 16r02 16r7C 16r70
+ 16rEE 16rA2 16rA9 16r35 16rC2 16r29 16r6F 16r21]).
"
self run:#test02_md5
@@ -159,7 +159,7 @@
self assert:(h = (ByteArray fromHexString:'2fd4e1c67a2d28fced849ee1bb76e7391b93eb12')).
h := SHA1Stream hashValueOf:#[16r00 16r01 16r02 16r40 16r08 16r10 16r20 16r40 16r80
- 16rFF 16rFE 16rFC 16rF8 16rF0 16rE0 16rC0 16r80].
+ 16rFF 16rFE 16rFC 16rF8 16rF0 16rE0 16rC0 16r80].
self assert:(h = #[146 31 26 53 78 167 121 73 144 117 145 88 50 42 25 52 53 37 177 73]).
"
@@ -187,9 +187,9 @@
test04_md2
|h|
- self
- skipIf:(MD2Stream isBehavior not or:[MD2Stream isLoaded not])
- description:'MD2Stream/libcrypt is not loaded'.
+ self
+ skipIf:(MD2Stream isBehavior not or:[MD2Stream isLoaded not])
+ description:'MD2Stream/libcrypt is not loaded'.
h := MD2Stream hashValueOf:''.
self assert:(h = (ByteArray fromHexString:'8350e5a3e24c153df2275c9f80692773')).
@@ -206,9 +206,9 @@
test05_md4
|h|
- self
- skipIf:(MD4Stream isBehavior not or:[MD4Stream isLoaded not])
- description:'MD4Stream/libcrypt is not loaded'.
+ self
+ skipIf:(MD4Stream isBehavior not or:[MD4Stream isLoaded not])
+ description:'MD4Stream/libcrypt is not loaded'.
h := MD4Stream hashValueOf:''.
self assert:(h = (ByteArray fromHexString:'31d6cfe0d16ae931b73c59d7e0c089c0')).
@@ -225,9 +225,9 @@
test06_sha256
|h|
- self
- skipIf:(SHA256Stream isBehavior not or:[SHA256Stream isLoaded not])
- description:'SHA256Stream/libcrypt is not loaded'.
+ self
+ skipIf:(SHA256Stream isBehavior not or:[SHA256Stream isLoaded not])
+ description:'SHA256Stream/libcrypt is not loaded'.
h := SHA256Stream hashValueOf:''.
self assert:(h = (ByteArray fromHexString:'e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855')).
@@ -244,9 +244,9 @@
test07_sha224
|h|
- self
- skipIf:(SHA224Stream isBehavior not or:[SHA224Stream isLoaded not])
- description:'SHA224Stream/libcrypt is not loaded'.
+ self
+ skipIf:(SHA224Stream isBehavior not or:[SHA224Stream isLoaded not])
+ description:'SHA224Stream/libcrypt is not loaded'.
h := SHA224Stream hashValueOf:''.
self assert:(h = (ByteArray fromHexString:'d14a028c2a3a2bc9476102bb288234c415a2b01f828ea62ac5b3e42f')).
@@ -263,9 +263,9 @@
test08_sha384
|h|
- self
- skipIf:(SHA384Stream isBehavior not or:[SHA384Stream isLoaded not])
- description:'SHA384Stream/libcrypt is not loaded'.
+ self
+ skipIf:(SHA384Stream isBehavior not or:[SHA384Stream isLoaded not])
+ description:'SHA384Stream/libcrypt is not loaded'.
h := SHA384Stream hashValueOf:''.
self assert:(h = (ByteArray fromHexString:'38b060a751ac96384cd9327eb1b1e36a21fdb71114be07434c0cc7bf63f6e1da274edebfe76f65fbd51ad2f14898b95b')).
@@ -282,9 +282,9 @@
test09_sha512
|h|
- self
- skipIf:(SHA512Stream isBehavior not or:[SHA512Stream isLoaded not])
- description:'SHA512Stream/libcrypt is not loaded'.
+ self
+ skipIf:(SHA512Stream isBehavior not or:[SHA512Stream isLoaded not])
+ description:'SHA512Stream/libcrypt is not loaded'.
h := SHA512Stream hashValueOf:''.
self assert:(h = (ByteArray fromHexString:'cf83e1357eefb8bdf1542850d66d8007d620e4050b5715dc83f4a921d36ce9ce47d0d13c5d85f2b0ff8318d2877eec2f63b931bd47417a81a538327af927da3e')).
@@ -299,7 +299,7 @@
!
test10_des
- |des crypt s s2|
+ |des crypt s s2|
des := DesCipher new key:#[12 34 56 78 90 12 34 56].
crypt := des encrypt:'12345678'.
@@ -310,9 +310,9 @@
des := DesCipher new key:#[12 34 56 78 90 12 34 56].
s := '12345678'.
10 timesRepeat:[
- s2 := ByteArray new:s size.
- des cryptBlock:s from:1 "to:nil" into:s2 startingAt:1 encrypt:true.
- s := s2.
+ s2 := ByteArray new:s size.
+ des cryptBlock:s from:1 "to:nil" into:s2 startingAt:1 encrypt:true.
+ s := s2.
].
self assert:(s = #[212 114 83 160 109 1 37 83]).
--- a/RegressionTests__DebuggerTest.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__DebuggerTest.st Thu Jun 30 09:02:08 2016 +0100
@@ -16,7 +16,7 @@
documentation to be added.
[author:]
- Claus Gittinger (cg@alan)
+ Claus Gittinger (cg@alan)
[instance variables:]
@@ -47,51 +47,51 @@
a := #( 1 2 3 4 ).
b := #( 9 8 7 6 ).
a do:[:eachA |
- b do:[:eachB |
- " you should see both eachA and eachB in the debugger "
- " eachA must be 1
- eachB must be 9
- "
+ b do:[:eachB |
+ " you should see both eachA and eachB in the debugger "
+ " eachA must be 1
+ eachB must be 9
+ "
- "/ cg: wait for the debugger to come up,
- "/ take a look at its local-variables inspector...
+ "/ cg: wait for the debugger to come up,
+ "/ take a look at its local-variables inspector...
- me := Processor activeProcess.
+ me := Processor activeProcess.
- [
- |debuggers theDebugger fieldList idx|
+ [
+ |debuggers theDebugger fieldList idx|
- Delay waitForSeconds:0.5.
+ Delay waitForSeconds:0.5.
- debuggers := DebugView allInstances select:[:dbg | dbg inspectedProcess == me].
- self assert:(debuggers size == 1).
- theDebugger := debuggers first.
- fieldList := theDebugger contextInspector fieldList.
- idx := fieldList findFirst:[:e | e string startsWith:'eachB '].
- idx == 0 ifTrue:[
- contextInspectorOK := false
- ] ifFalse:[
- (theDebugger contextInspector valueAtLine:idx) == eachB ifFalse:[
- contextInspectorOK := false
- ].
- ].
- idx := fieldList findFirst:[:e | e string startsWith:'eachA '].
- idx == 0 ifTrue:[
- contextInspectorOK := false
- ] ifFalse:[
- (theDebugger contextInspector valueAtLine:idx) == eachA ifFalse:[
- contextInspectorOK := false
- ].
- ].
- me interruptWith:[theDebugger doAbort "AbortOperationRequest raise"].
- ] fork.
+ debuggers := DebugView allInstances select:[:dbg | dbg inspectedProcess == me].
+ self assert:(debuggers size == 1).
+ theDebugger := debuggers first.
+ fieldList := theDebugger contextInspector fieldList.
+ idx := fieldList findFirst:[:e | e string startsWith:'eachB '].
+ idx == 0 ifTrue:[
+ contextInspectorOK := false
+ ] ifFalse:[
+ (theDebugger contextInspector valueAtLine:idx) == eachB ifFalse:[
+ contextInspectorOK := false
+ ].
+ ].
+ idx := fieldList findFirst:[:e | e string startsWith:'eachA '].
+ idx == 0 ifTrue:[
+ contextInspectorOK := false
+ ] ifFalse:[
+ (theDebugger contextInspector valueAtLine:idx) == eachA ifFalse:[
+ contextInspectorOK := false
+ ].
+ ].
+ me interruptWith:[theDebugger doAbort "AbortOperationRequest raise"].
+ ] fork.
- AbortOperationRequest handle:[:ex |
- ] do:[
- self halt:'checking variables in the debugger...'.
- ].
- self assert:contextInspectorOK.
- ]
+ AbortOperationRequest handle:[:ex |
+ ] do:[
+ self halt:'checking variables in the debugger...'.
+ ].
+ self assert:contextInspectorOK.
+ ]
]
"
@@ -108,57 +108,57 @@
a := #( 1 2 3 4 ).
b := #( 9 8 7 6 ).
a do:[:eachA |
- |outer|
+ |outer|
- outer := eachA + 1.
- b do:[:eachB |
- |inner|
+ outer := eachA + 1.
+ b do:[:eachB |
+ |inner|
- inner := eachB + 1.
+ inner := eachB + 1.
- " you should see both eachA and eachB and outer and inner in the debugger "
- " eachA must be 1 ; outer must be 2
- eachB must be 9 ; inner must be 10.
- "
- "/ cg: wait for the debugger to come up,
- "/ take a look at its local-variables inspector...
+ " you should see both eachA and eachB and outer and inner in the debugger "
+ " eachA must be 1 ; outer must be 2
+ eachB must be 9 ; inner must be 10.
+ "
+ "/ cg: wait for the debugger to come up,
+ "/ take a look at its local-variables inspector...
- me := Processor activeProcess.
+ me := Processor activeProcess.
- [
- |debuggers theDebugger fieldList idx|
+ [
+ |debuggers theDebugger fieldList idx|
- Delay waitForSeconds:0.5.
+ Delay waitForSeconds:0.5.
- debuggers := DebugView allInstances select:[:dbg | dbg inspectedProcess == me].
- self assert:(debuggers size == 1).
- theDebugger := debuggers first.
- fieldList := theDebugger contextInspector fieldList.
- idx := fieldList findFirst:[:e | e string startsWith:'eachB '].
- idx == 0 ifTrue:[
- contextInspectorOK := false
- ] ifFalse:[
- (theDebugger contextInspector valueAtLine:idx) == eachB ifFalse:[
- contextInspectorOK := false
- ].
- ].
- idx := fieldList findFirst:[:e | e string startsWith:'eachA '].
- idx == 0 ifTrue:[
- contextInspectorOK := false
- ] ifFalse:[
- (theDebugger contextInspector valueAtLine:idx) == eachA ifFalse:[
- contextInspectorOK := false
- ].
- ].
- me interruptWith:[theDebugger doAbort "AbortOperationRequest raise"].
- ] fork.
+ debuggers := DebugView allInstances select:[:dbg | dbg inspectedProcess == me].
+ self assert:(debuggers size == 1).
+ theDebugger := debuggers first.
+ fieldList := theDebugger contextInspector fieldList.
+ idx := fieldList findFirst:[:e | e string startsWith:'eachB '].
+ idx == 0 ifTrue:[
+ contextInspectorOK := false
+ ] ifFalse:[
+ (theDebugger contextInspector valueAtLine:idx) == eachB ifFalse:[
+ contextInspectorOK := false
+ ].
+ ].
+ idx := fieldList findFirst:[:e | e string startsWith:'eachA '].
+ idx == 0 ifTrue:[
+ contextInspectorOK := false
+ ] ifFalse:[
+ (theDebugger contextInspector valueAtLine:idx) == eachA ifFalse:[
+ contextInspectorOK := false
+ ].
+ ].
+ me interruptWith:[theDebugger doAbort "AbortOperationRequest raise"].
+ ] fork.
- AbortOperationRequest handle:[:ex |
- ] do:[
- self halt:'checking variables in the debugger...'.
- ].
- self assert:contextInspectorOK.
- ]
+ AbortOperationRequest handle:[:ex |
+ ] do:[
+ self halt:'checking variables in the debugger...'.
+ ].
+ self assert:contextInspectorOK.
+ ]
]
"
@@ -169,15 +169,15 @@
testSteppingInEnsureBlock_01
self halt:'proceed stepping with "next"-Button'.
- "
+ "
you should be able to single-step through all step-sends...
"
self step:1.
[
- self step:2.
- self step:3.
+ self step:2.
+ self step:3.
] ensure:[
- self step:4
+ self step:4
].
self step:5
--- a/RegressionTests__DeepCopyTests.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__DeepCopyTests.st Thu Jun 30 09:02:08 2016 +0100
@@ -16,7 +16,7 @@
documentation to be added.
[author:]
- (james@miraculix)
+ (james@miraculix)
[see also:]
--- a/RegressionTests__DelayTest.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__DelayTest.st Thu Jun 30 09:02:08 2016 +0100
@@ -32,12 +32,12 @@
verbose := false.
[
- n := 0.
- [n < 10] whileTrue:[
- Delay waitForSeconds:0.1.
- verbose ifTrue:[ Transcript showCR:n ].
- n := n + 1.
- ]
+ n := 0.
+ [n < 10] whileTrue:[
+ Delay waitForSeconds:0.1.
+ verbose ifTrue:[ Transcript showCR:n ].
+ n := n + 1.
+ ]
] forkAt:(Processor activePriority - 1).
self assert:(n == nil). "because the process has lower prio and should not run"
@@ -63,11 +63,11 @@
verbose := false.
n := 0.
[
- [n < 10] whileTrue:[
- Delay waitForSeconds:0.1.
- verbose ifTrue:[ Transcript showCR:n ].
- n := n + 1.
- ]
+ [n < 10] whileTrue:[
+ Delay waitForSeconds:0.1.
+ verbose ifTrue:[ Transcript showCR:n ].
+ n := n + 1.
+ ]
] forkAt:(Processor activePriority + 1).
self assert:(n == 0) description:'thread with delays should not have started yet'.
@@ -88,10 +88,10 @@
|stillWaiting watchDogBite|
[
- watchDogBite := false.
- stillWaiting := true.
- Delay waitForSeconds:1000000.
- stillWaiting := false.
+ watchDogBite := false.
+ stillWaiting := true.
+ Delay waitForSeconds:1000000.
+ stillWaiting := false.
] valueWithWatchDog:[ watchDogBite := true] afterMilliseconds:1000.
self assert:stillWaiting.
@@ -111,15 +111,15 @@
longDelay := Delay forSeconds:1000000.
[
- Delay waitForSeconds:2.
- longDelay resume.
+ Delay waitForSeconds:2.
+ longDelay resume.
] fork.
waitTime := Time secondsToRun:[
- "never wait longer than 10 seconds"
- [
- longDelay wait.
- ] valueWithWatchDog:[ watchDogBite := true] afterMilliseconds:10000.
+ "never wait longer than 10 seconds"
+ [
+ longDelay wait.
+ ] valueWithWatchDog:[ watchDogBite := true] afterMilliseconds:10000.
].
self assert:watchDogBite ~~ true.
self assert:waitTime < 10.
--- a/RegressionTests__DictionaryTest.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__DictionaryTest.st Thu Jun 30 09:02:08 2016 +0100
@@ -14,10 +14,10 @@
testAddAll
"(self run: #testAddAll)"
-
+
| dict1 dict2 |
dict1 := Dictionary new.
- dict1 at: #a put:1 ; at: #b put: 2.
+ dict1 at: #a put:1 ; at: #b put: 2.
dict2 := Dictionary new.
dict2 at: #a put: 3 ; at: #c put: 4.
dict1 addAll: dict2.
@@ -51,10 +51,10 @@
testComma
"(self run: #testComma)"
-
+
| dict1 dict2 dict3 |
dict1 := Dictionary new.
- dict1 at: #a put:1 ; at: #b put: 2.
+ dict1 at: #a put:1 ; at: #b put: 2.
dict2 := Dictionary new.
dict2 at: #a put: 3 ; at: #c put: 4.
dict3 := dict1, dict2.
@@ -67,12 +67,12 @@
"self debug: #testIncludesAssociation"
| d |
- d := Dictionary new
- at: #five put: 5;
+ d := Dictionary new
+ at: #five put: 5;
at: #givemefive put: 5;
at: #six put: 6;
yourself.
-
+
self assert: (d includesAssociation: (d associationAt: #five)).
self assert: (d includesAssociation: (#five -> 5)).
self assert: (d includesAssociation: (#five -> 6)) not.
--- a/RegressionTests__DirectoryStreamTest.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__DirectoryStreamTest.st Thu Jun 30 09:02:08 2016 +0100
@@ -13,7 +13,7 @@
!DirectoryStreamTest methodsFor:'cleanup'!
tearDown
- self testDirName recursiveRemove
+ self testDirName recursiveRemove
! !
!DirectoryStreamTest methodsFor:'helpers'!
--- a/RegressionTests__DoubleMetaphoneStringComparatorTest.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__DoubleMetaphoneStringComparatorTest.st Thu Jun 30 09:02:08 2016 +0100
@@ -17,7 +17,7 @@
setUp
- dmsc := PhoneticStringUtilities::DoubleMetaphoneStringComparator new
+ dmsc := PhoneticStringUtilities::DoubleMetaphoneStringComparator new
! !
!DoubleMetaphoneStringComparatorTest methodsFor:'tests'!
@@ -99,18 +99,18 @@
!
testProcessB1
- dmsc inputKey: 'b'.
- self should: [ dmsc inputKey = 'B' ].
-
- self should: [ dmsc primaryTranslation = '' ].
- self should: [ dmsc secondaryTranslation = '' ].
- self should: [ dmsc skipCount = 0 ].
-
- dmsc processB.
-
- self should: [ dmsc primaryTranslation = 'P' ].
- self should: [ dmsc secondaryTranslation = 'P' ].
- self should: [ dmsc skipCount = 0 ]
+ dmsc inputKey: 'b'.
+ self should: [ dmsc inputKey = 'B' ].
+
+ self should: [ dmsc primaryTranslation = '' ].
+ self should: [ dmsc secondaryTranslation = '' ].
+ self should: [ dmsc skipCount = 0 ].
+
+ dmsc processB.
+
+ self should: [ dmsc primaryTranslation = 'P' ].
+ self should: [ dmsc secondaryTranslation = 'P' ].
+ self should: [ dmsc skipCount = 0 ]
!
testProcessB2
@@ -1471,19 +1471,19 @@
!
testProcessNtilde
- dmsc inputKey: 'Naa'.
- self should: [ dmsc inputKey = 'NAA' ].
-
- self should: [ dmsc primaryTranslation = '' ].
- self should: [ dmsc secondaryTranslation = '' ].
- self should: [ dmsc skipCount = 0 ].
- dmsc currentIndex: 3.
-
- dmsc processNtilde.
-
- self should: [ dmsc primaryTranslation = 'N' ].
- self should: [ dmsc secondaryTranslation = 'N' ].
- self should: [ dmsc skipCount = 0 ].
+ dmsc inputKey: 'Naa'.
+ self should: [ dmsc inputKey = 'NAA' ].
+
+ self should: [ dmsc primaryTranslation = '' ].
+ self should: [ dmsc secondaryTranslation = '' ].
+ self should: [ dmsc skipCount = 0 ].
+ dmsc currentIndex: 3.
+
+ dmsc processNtilde.
+
+ self should: [ dmsc primaryTranslation = 'N' ].
+ self should: [ dmsc secondaryTranslation = 'N' ].
+ self should: [ dmsc skipCount = 0 ].
!
testProcessP
--- a/RegressionTests__EnumerationTests.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__EnumerationTests.st Thu Jun 30 09:02:08 2016 +0100
@@ -45,12 +45,12 @@
a := (1 to:100) asArray.
10 timesRepeat:[
- a keysAndValuesDo:[:index :val |
- ObjectMemory scavenge.
- index printString.
- ObjectMemory scavenge.
- val printString.
- ]
+ a keysAndValuesDo:[:index :val |
+ ObjectMemory scavenge.
+ index printString.
+ ObjectMemory scavenge.
+ val printString.
+ ]
]
"
@@ -68,25 +68,25 @@
a := WeakArray new:100.
w := WeakArray new:100.
1 to:a size do:[:i |
- |o|
+ |o|
- o := Object new.
- a at:i put:o.
- w at:i put:o.
+ o := Object new.
+ a at:i put:o.
+ w at:i put:o.
].
w keysAndValuesDo:[:index :val |
- self assert:(val class == Object).
+ self assert:(val class == Object).
].
w keysAndValuesDo:[:index :val |
- index == 5 ifTrue:[
- a at:7 put:nil.
- ObjectMemory scavenge
- ].
- index == 7 ifTrue:[
- self assert:(val class == SmallInteger).
- ]
+ index == 5 ifTrue:[
+ a at:7 put:nil.
+ ObjectMemory scavenge
+ ].
+ index == 7 ifTrue:[
+ self assert:(val class == SmallInteger).
+ ]
]
"
--- a/RegressionTests__ExceptionTest.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__ExceptionTest.st Thu Jun 30 09:02:08 2016 +0100
@@ -37,7 +37,7 @@
documentation to be added.
[author:]
- Stefan Vogel (stefan@zwerg)
+ Stefan Vogel (stefan@zwerg)
[instance variables:]
@@ -57,13 +57,13 @@
result := OrderedCollection new.
zero := 0.
- [ 0 // zero ]
- on:ZeroDivide
- do:[:ex|
- self assert:(ex creator == ZeroDivide).
- self assert:(ex originator == 0).
- result add:#Error
- ].
+ [ 0 // zero ]
+ on:ZeroDivide
+ do:[:ex|
+ self assert:(ex creator == ZeroDivide).
+ self assert:(ex originator == 0).
+ result add:#Error
+ ].
self assert:(result size == 1).
self assert:(result first == #Error).
!
@@ -76,10 +76,10 @@
zero := 0.
self should:[
- [ 0 // zero ] on:ZeroDivide do:[:ex|
- result add:#Error.
- 0 // zero
- ].
+ [ 0 // zero ] on:ZeroDivide do:[:ex|
+ result add:#Error.
+ 0 // zero
+ ].
] raise:ZeroDivide.
self assert:(result size == 1).
self assert:(result first == #Error).
@@ -93,13 +93,13 @@
zero := 0.
self should:[
- [ 0 // zero ] on:ZeroDivide do:[:ex|
- result add:#Error.
- [ 0 // zero ] on:ZeroDivide do:[:ex|
- result add:#Error1.
- ex reject.
- ].
- ].
+ [ 0 // zero ] on:ZeroDivide do:[:ex|
+ result add:#Error.
+ [ 0 // zero ] on:ZeroDivide do:[:ex|
+ result add:#Error1.
+ ex reject.
+ ].
+ ].
] raise:ZeroDivide.
self assert:(result size == 2).
self assert:(result first == #Error).
@@ -113,11 +113,11 @@
zero := 0.
exceptionHappened := false.
- [0 // zero]
- on:ZeroDivide
- do:[:ex|
- exceptionHappened := true
- ].
+ [0 // zero]
+ on:ZeroDivide
+ do:[:ex|
+ exceptionHappened := true
+ ].
self assert:(exceptionHappened).
!
@@ -129,10 +129,10 @@
zero := 0.
exceptionHappened := ensureCalled := false.
- [0 // zero]
- on:ZeroDivide
- do:[:ex| exceptionHappened := true]
- ensure:[ ensureCalled := true ].
+ [0 // zero]
+ on:ZeroDivide
+ do:[:ex| exceptionHappened := true]
+ ensure:[ ensureCalled := true ].
self assert:(exceptionHappened).
self assert:(ensureCalled).
@@ -145,10 +145,10 @@
zero := 0.
exceptionHappened := ensureCalled := false.
- [zero // 1]
- on:ZeroDivide
- do:[:ex| exceptionHappened := true]
- ensure:[ ensureCalled := true ].
+ [zero // 1]
+ on:ZeroDivide
+ do:[:ex| exceptionHappened := true]
+ ensure:[ ensureCalled := true ].
self assert:(exceptionHappened not).
self assert:(ensureCalled).
@@ -163,19 +163,19 @@
trace := OrderedCollection new.
self shouldnt:[
- Error handle:[:ex |
- trace add:5.
- ] do:[
- [
- trace add:1.
- 1 // zero.
- trace add:2.
- ] ensure:[
- trace add:3.
- 1 // zero.
- trace add:4.
- ].
- ].
+ Error handle:[:ex |
+ trace add:5.
+ ] do:[
+ [
+ trace add:1.
+ 1 // zero.
+ trace add:2.
+ ] ensure:[
+ trace add:3.
+ 1 // zero.
+ trace add:4.
+ ].
+ ].
] raise:Error.
self assert:(trace asArray = #(1 5 3 5)).
@@ -190,23 +190,23 @@
trace := OrderedCollection new.
self shouldnt:[
- Error handle:[:ex |
- trace add:6.
- ] do:[
- Error handle:[:ex |
- trace add:5.
- ] do:[
- [
- trace add:1.
- 1 // zero.
- trace add:2.
- ] ensure:[
- trace add:3.
- 1 // zero.
- trace add:4.
- ].
- ].
- ].
+ Error handle:[:ex |
+ trace add:6.
+ ] do:[
+ Error handle:[:ex |
+ trace add:5.
+ ] do:[
+ [
+ trace add:1.
+ 1 // zero.
+ trace add:2.
+ ] ensure:[
+ trace add:3.
+ 1 // zero.
+ trace add:4.
+ ].
+ ].
+ ].
] raise:Error.
self assert:(trace asArray = #(1 5 3 5)).
@@ -221,22 +221,22 @@
trace := OrderedCollection new.
AbortSignal handle:[:ex |
- trace add:1.
+ trace add:1.
] do:[
- [
- AbortSignal handle:[:ex |
- trace add:2.
- AbortSignal raise.
- trace add:3.
- ] do:[
- trace add:4.
- AbortSignal raise.
- trace add:5.
- ].
- trace add:6.
- ] ensure:[
- trace add:9
- ].
+ [
+ AbortSignal handle:[:ex |
+ trace add:2.
+ AbortSignal raise.
+ trace add:3.
+ ] do:[
+ trace add:4.
+ AbortSignal raise.
+ trace add:5.
+ ].
+ trace add:6.
+ ] ensure:[
+ trace add:9
+ ].
].
trace add:7.
@@ -249,22 +249,22 @@
trace := OrderedCollection new.
AbortSignal handle:[:ex |
- trace add:1.
+ trace add:1.
] do:[
- [
- AbortSignal handle:[:ex |
- trace add:2.
- AbortSignal raise.
- trace add:3.
- ] do:[
- trace add:4.
- AbortSignal raise.
- trace add:5.
- ].
- trace add:6.
- ] ensure:[
- trace add:9
- ].
+ [
+ AbortSignal handle:[:ex |
+ trace add:2.
+ AbortSignal raise.
+ trace add:3.
+ ] do:[
+ trace add:4.
+ AbortSignal raise.
+ trace add:5.
+ ].
+ trace add:6.
+ ] ensure:[
+ trace add:9
+ ].
].
trace add:7.
@@ -279,17 +279,17 @@
zero := 0.
[
- [
- Warning handle:[:ex | result add:#Warning ] do:[ 2 // zero ].
- ] on:ZeroDivide do:[:ex |
- result add:#Error.
- ex reject.
- [
- self warn:ex description.
- ] on:Warning do:[:ex| result add:#Warning2]
- ]
+ [
+ Warning handle:[:ex | result add:#Warning ] do:[ 2 // zero ].
+ ] on:ZeroDivide do:[:ex |
+ result add:#Error.
+ ex reject.
+ [
+ self warn:ex description.
+ ] on:Warning do:[:ex| result add:#Warning2]
+ ]
] on:ZeroDivide do:[:ex |
- result add:#Error2
+ result add:#Error2
].
self assert:(result size == 2).
@@ -308,50 +308,50 @@
trace := OrderedCollection new.
setUp :=
- [
- trace add:1.
- "/ Transcript showCR:'1'.
- AbortSignal raise.
- ].
+ [
+ trace add:1.
+ "/ Transcript showCR:'1'.
+ AbortSignal raise.
+ ].
tearDown :=
- [
- trace add:2.
- "/ Transcript showCR:'2'.
- AbortSignal raise.
- ].
+ [
+ trace add:2.
+ "/ Transcript showCR:'2'.
+ AbortSignal raise.
+ ].
action :=
- [
- trace add:3.
- "/ Transcript showCR:'3'.
- ].
+ [
+ trace add:3.
+ "/ Transcript showCR:'3'.
+ ].
AbortSignal handle:[:ex |
- trace add:44.
- "/ Transcript showCR:'44'.
+ trace add:44.
+ "/ Transcript showCR:'44'.
] do:[
- AbortSignal handle:[:ex |
- trace add:4.
- "/ Transcript showCR:'4'.
- ] do:[
- [
- trace add:5.
- "/ Transcript showCR:'5'.
- setUp value.
- trace add:6.
- "/ Transcript showCR:'6'.
- action value.
- trace add:7.
- "/ Transcript showCR:'7'.
- ] ensure: [
- trace add:8.
- "/ Transcript showCR:'8'.
- tearDown value
- trace add:9.
- "/ Transcript showCR:'9'.
- ].
- ].
+ AbortSignal handle:[:ex |
+ trace add:4.
+ "/ Transcript showCR:'4'.
+ ] do:[
+ [
+ trace add:5.
+ "/ Transcript showCR:'5'.
+ setUp value.
+ trace add:6.
+ "/ Transcript showCR:'6'.
+ action value.
+ trace add:7.
+ "/ Transcript showCR:'7'.
+ ] ensure: [
+ trace add:8.
+ "/ Transcript showCR:'8'.
+ tearDown value
+ trace add:9.
+ "/ Transcript showCR:'9'.
+ ].
+ ].
].
trace add:10.
"/ Transcript showCR:'10'.
@@ -368,56 +368,56 @@
trace := OrderedCollection new.
setUp :=
- [
- trace add:1.
- "/ Transcript showCR:'1'.
- AbortSignal raise.
- ].
+ [
+ trace add:1.
+ "/ Transcript showCR:'1'.
+ AbortSignal raise.
+ ].
tearDown :=
- [
- trace add:2.
- "/ Transcript showCR:'2'.
- AbortSignal raise.
- ].
+ [
+ trace add:2.
+ "/ Transcript showCR:'2'.
+ AbortSignal raise.
+ ].
action :=
- [
- trace add:3.
- "/ Transcript showCR:'3'.
- ].
+ [
+ trace add:3.
+ "/ Transcript showCR:'3'.
+ ].
- p :=
- [
- AbortSignal handle:[:ex |
- trace add:44.
- "/ Transcript showCR:'44'.
- ] do:[
- AbortSignal handle:[:ex |
- trace add:4.
- "/ Transcript showCR:'4'.
- ] do:[
- [
- trace add:5.
- "/ Transcript showCR:'5'.
- setUp value.
- trace add:6.
- "/ Transcript showCR:'6'.
- action value.
- trace add:7.
- "/ Transcript showCR:'7'.
- ] sunitEnsure: [
- trace add:8.
- "/ Transcript showCR:'8'.
- tearDown value
- trace add:9.
- "/ Transcript showCR:'9'.
- ].
- ].
- ].
- trace add:10.
- "/ Transcript showCR:'10'.
- ] newProcess.
+ p :=
+ [
+ AbortSignal handle:[:ex |
+ trace add:44.
+ "/ Transcript showCR:'44'.
+ ] do:[
+ AbortSignal handle:[:ex |
+ trace add:4.
+ "/ Transcript showCR:'4'.
+ ] do:[
+ [
+ trace add:5.
+ "/ Transcript showCR:'5'.
+ setUp value.
+ trace add:6.
+ "/ Transcript showCR:'6'.
+ action value.
+ trace add:7.
+ "/ Transcript showCR:'7'.
+ ] sunitEnsure: [
+ trace add:8.
+ "/ Transcript showCR:'8'.
+ tearDown value
+ trace add:9.
+ "/ Transcript showCR:'9'.
+ ].
+ ].
+ ].
+ trace add:10.
+ "/ Transcript showCR:'10'.
+ ] newProcess.
"/ p addExitAction:[ self halt].
p resume.
@@ -440,8 +440,8 @@
|answer|
MyQuery answer:#ok do:[
- answer := MyQuery query.
- self assert:(answer == #ok).
+ answer := MyQuery query.
+ self assert:(answer == #ok).
].
!
@@ -449,24 +449,24 @@
|answer|
MyQuery answer:#ok
- do:[
- [
- answer := MyQuery query.
- self assert:(answer == #ok2).
- ] on:MyQuery do:[:ex | ex return:#ok2 ].
- ].
+ do:[
+ [
+ answer := MyQuery query.
+ self assert:(answer == #ok2).
+ ] on:MyQuery do:[:ex | ex return:#ok2 ].
+ ].
!
test17_queryWithHandler3
|answer|
MyQuery answer:#ok
- do:[
- [
- answer := MyQuery query.
- self assert:(answer == #ok).
- ] on:AbortAllOperationWantedQuery do:[:ex | ex return:#ok2 ].
- ].
+ do:[
+ [
+ answer := MyQuery query.
+ self assert:(answer == #ok).
+ ] on:AbortAllOperationWantedQuery do:[:ex | ex return:#ok2 ].
+ ].
!
testHandlerContext
@@ -476,12 +476,12 @@
result := [
[
[ MyResumableTestError signal ]
- on: MyTestError
- do: [ 'handler 2' ] ]
- on: MyResumableTestError
- do: [ MyTestError signal ] ]
- on: MyTestError
- do: [ 'handler 1' ].
+ on: MyTestError
+ do: [ 'handler 2' ] ]
+ on: MyResumableTestError
+ do: [ MyTestError signal ] ]
+ on: MyTestError
+ do: [ 'handler 1' ].
self assert: 'handler 1' = result description: 'Incorrect handler'
"Created: / 20-08-2014 / 17:05:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -494,12 +494,12 @@
result := [
[
[ self error: 'trigger error' ]
- on: ZeroDivide
- do: [ :ex | 'inner' ] ]
- on: Error
- do: [ :ex | 3 perform: ('', '/') asSymbol with: 0 ] ]
- on: ZeroDivide
- do: [ :ex | 'outer' ].
+ on: ZeroDivide
+ do: [ :ex | 'inner' ] ]
+ on: Error
+ do: [ :ex | 3 perform: ('', '/') asSymbol with: 0 ] ]
+ on: ZeroDivide
+ do: [ :ex | 'outer' ].
self assert: 'outer' = result description: 'Incorrect handler'
"Created: / 20-08-2014 / 17:07:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
--- a/RegressionTests__ExternalInterfaceTests.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__ExternalInterfaceTests.st Thu Jun 30 09:02:08 2016 +0100
@@ -16,7 +16,7 @@
documentation to be added.
[author:]
- cg (cg@FUSI)
+ cg (cg@FUSI)
[instance variables:]
@@ -39,16 +39,16 @@
daemon, vworad, to receive its command line arguments as ANSI strings not wide strings."
<C: BOOL CreateProcessA(
- LPCTSR imageName,
- LPCTSTR commandLine,
- struct SECURITY_ATTRIBUTES *pSecurity,
- struct SECURITY_ATTRIBUTES *tSecurity,
- BOOL inheritHandles,
- DWORD creationFlags,
- LPVOID environment,
- LPTSTR currentDirectoryName,
- struct STARTUPINFO *startupInfo,
- struct PROCESS_INFORMATION *processInfo)>
+ LPCTSR imageName,
+ LPCTSTR commandLine,
+ struct SECURITY_ATTRIBUTES *pSecurity,
+ struct SECURITY_ATTRIBUTES *tSecurity,
+ BOOL inheritHandles,
+ DWORD creationFlags,
+ LPVOID environment,
+ LPTSTR currentDirectoryName,
+ struct STARTUPINFO *startupInfo,
+ struct PROCESS_INFORMATION *processInfo)>
"
self new
@@ -58,76 +58,76 @@
!
TerminateProcess: hProcess exitCode: dwExitCode
- "Kill the specified process."
+ "Kill the specified process."
- self primTerminateProcess: hProcess exitCode: 1234
+ self primTerminateProcess: hProcess exitCode: 1234
!
closeHandle: aHandle
- "Close an OS Handle decrementing it's use count."
+ "Close an OS Handle decrementing it's use count."
- <C: int CloseHandle(HANDLE aHandle)>
+ <C: int CloseHandle(HANDLE aHandle)>
!
primTerminateProcess: hProcess exitCode: dwExitCode
- "Kill the specified process."
+ "Kill the specified process."
- <C: BOOL TerminateProcess(HANDLE hProcess, DWORD dwExitCode)>
+ <C: BOOL TerminateProcess(HANDLE hProcess, DWORD dwExitCode)>
!
setCurrentDirectory: pathName
- "Set the current working directory."
+ "Set the current working directory."
- <C: BOOL _wincall SetCurrentDirectoryA(LPCTSTR pathName)>
- ^self externalAccessFailedWith: _errorCode
+ <C: BOOL _wincall SetCurrentDirectoryA(LPCTSTR pathName)>
+ ^self externalAccessFailedWith: _errorCode
! !
!ExternalInterfaceTests methodsFor:'structs'!
PROCESS_INFORMATION
- "Describes a created process and its main thread."
+ "Describes a created process and its main thread."
- <C: struct PROCESS_INFORMATION {
- HANDLE hProcess;
- HANDLE hThread;
- DWORD dwProcessId;
- DWORD dwThreadId;
- }>
+ <C: struct PROCESS_INFORMATION {
+ HANDLE hProcess;
+ HANDLE hThread;
+ DWORD dwProcessId;
+ DWORD dwThreadId;
+ }>
!
SECURITY_ATTRIBUTES
- "Describes security of associated process."
+ "Describes security of associated process."
- <C: struct SECURITY_ATTRIBUTES {
- DWORD nLength;
- LPVOID lpSecurityDescriptor;
- BOOL bInheritHandle;
- }>
+ <C: struct SECURITY_ATTRIBUTES {
+ DWORD nLength;
+ LPVOID lpSecurityDescriptor;
+ BOOL bInheritHandle;
+ }>
!
STARTUPINFO
- "Describes how we want the process to be started."
+ "Describes how we want the process to be started."
- <C: struct STARTUPINFO {
- DWORD cb;
- LPSTR lpReserved;
- LPSTR lpDesktop;
- LPSTR lpTitle;
- DWORD dwX;
- DWORD dwY;
- DWORD dwXSize;
- DWORD dwYSize;
- DWORD dwXCountChars;
- DWORD dwYCountChars;
- DWORD dwFillAttribute;
- DWORD dwFlags;
- WORD wShowWindow;
- WORD cbReserved2;
- LPBYTE lpReserved2;
- HANDLE hStdInput;
- HANDLE hStdOutput;
- HANDLE hStdError;
- }>
+ <C: struct STARTUPINFO {
+ DWORD cb;
+ LPSTR lpReserved;
+ LPSTR lpDesktop;
+ LPSTR lpTitle;
+ DWORD dwX;
+ DWORD dwY;
+ DWORD dwXSize;
+ DWORD dwYSize;
+ DWORD dwXCountChars;
+ DWORD dwYCountChars;
+ DWORD dwFillAttribute;
+ DWORD dwFlags;
+ WORD wShowWindow;
+ WORD cbReserved2;
+ LPBYTE lpReserved2;
+ HANDLE hStdInput;
+ HANDLE hStdOutput;
+ HANDLE hStdError;
+ }>
! !
!ExternalInterfaceTests methodsFor:'tests'!
@@ -136,15 +136,15 @@
|fn|
OperatingSystem isMSWINDOWSlike ifFalse:[
- "This test makes sense only on windows"
- ^ self.
+ "This test makes sense only on windows"
+ ^ self.
].
fn := ExternalLibraryFunction
- name:'Beep'
- module:'kernel32.dll'
- returnType:(CType bool)
- argumentTypes:(Array with:(CType unsignedLong) with:(CType unsignedLong)).
+ name:'Beep'
+ module:'kernel32.dll'
+ returnType:(CType bool)
+ argumentTypes:(Array with:(CType unsignedLong) with:(CType unsignedLong)).
fn beCallTypeAPI.
fn invokeWith:440 with:1.
@@ -177,7 +177,7 @@
<C: typedef unsigned long DWORD>
"
- self new DWORD
+ self new DWORD
"
!
@@ -247,8 +247,8 @@
SIZE
<C: typedef struct {
- long cx;
- long cy;
+ long cx;
+ long cy;
} SIZE>
"
@@ -266,8 +266,8 @@
fooType
<C: struct foo {
- long l1;
- float f1;
+ long l1;
+ float f1;
}>
"
@@ -287,7 +287,7 @@
<C: #define var1 "hello">
"
- self new var2
+ self new var2
"
!
@@ -295,7 +295,7 @@
<C: #define var1 1.2345>
"
- self new var3
+ self new var3
"
! !
--- a/RegressionTests__ExternalStreamTest.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__ExternalStreamTest.st Thu Jun 30 09:02:08 2016 +0100
@@ -415,3 +415,4 @@
version
^ '$Header$'
! !
+
--- a/RegressionTests__FileOpenTest.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__FileOpenTest.st Thu Jun 30 09:02:08 2016 +0100
@@ -491,3 +491,4 @@
version
^ '$Header$'
! !
+
--- a/RegressionTests__FileStreamTest.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__FileStreamTest.st Thu Jun 30 09:02:08 2016 +0100
@@ -13,7 +13,7 @@
!FileStreamTest methodsFor:'cleanup'!
tearDown
- self testFilename remove
+ self testFilename remove
! !
!FileStreamTest methodsFor:'helpers'!
@@ -22,18 +22,18 @@
"create a directory with 20000 files"
'c:\tmp' asFilename exists ifFalse:[
- 'c:\tmp' asFilename makeDirectory
+ 'c:\tmp' asFilename makeDirectory
].
'c:\tmp\BigDirectory' asFilename exists ifFalse:[
- 'c:\tmp\BigDirectory' asFilename makeDirectory
+ 'c:\tmp\BigDirectory' asFilename makeDirectory
].
1 to:20000 do:[:i|
|f s buffer|
- f :='c:\tmp\BigDirectory' asFilename
- construct:(i printString leftPaddedTo:5 with:$0).
+ f :='c:\tmp\BigDirectory' asFilename
+ construct:(i printString leftPaddedTo:5 with:$0).
s := f writeStream binary.
- buffer := ByteArray new:1024.
+ buffer := ByteArray new:1024.
32 timesRepeat:[ s nextPutAll:buffer ].
s close.
].
@@ -53,11 +53,11 @@
f := self testFilename writeStream binary.
bytes := ByteArray new:1024.
1 to:bytes size do:[:i |
- bytes at:i put:(i \\ 256).
+ bytes at:i put:(i \\ 256).
].
100 timesRepeat:[
- f nextPutAll:bytes.
+ f nextPutAll:bytes.
].
f close.
@@ -77,7 +77,7 @@
buffer := ByteArray new:size.
1 to:buffer size do:[:idx |
- buffer at:idx put:(idx \\ 256)
+ buffer at:idx put:(idx \\ 256)
].
file := Filename newTemporary.
@@ -93,13 +93,13 @@
s := file readStream.
s binary.
1 to:size do:[:idx |
- byte := s next.
- byte ~~ (idx \\ 256) ifTrue:[self error:'read data mismatch'].
+ byte := s next.
+ byte ~~ (idx \\ 256) ifTrue:[self error:'read data mismatch'].
].
s close.
(file binaryContentsOfEntireFile ~= buffer) ifTrue:[
- self error:'read data mismatch2'
+ self error:'read data mismatch2'
].
file delete.
@@ -118,8 +118,8 @@
n := 0.
[f atEnd] whileFalse:[
- nRead := f nextBytes:128 into:buffer.
- n := n + nRead.
+ nRead := f nextBytes:128 into:buffer.
+ n := n + nRead.
].
f close.
self assert:(expect = n) description:('got <1p>; expected:<2p>' expandMacrosWith:n with:expect)
@@ -215,15 +215,15 @@
sz := self testFilename fileSize.
sema := Semaphore new:1-20.
20 timesRepeat:[
- [
- [
- self readFileExpecting:sz.
- verbose ifTrue:[ 'done' printCR ].
- ] on:Error do:[:ex|
- errorOccured := ex.
- ].
- sema signal.
- ] fork.
+ [
+ [
+ self readFileExpecting:sz.
+ verbose ifTrue:[ 'done' printCR ].
+ ] on:Error do:[:ex|
+ errorOccured := ex.
+ ].
+ sema signal.
+ ] fork.
].
self assert:(sema waitWithTimeout:20) notNil.
self assert:errorOccured isNil.
@@ -248,19 +248,19 @@
sz := self testFilename fileSize.
p := [
- [
- nLoop timesRepeat:[
- self readFileExpecting:sz.
- ].
- ] on:Error do:[:ex|
- errorOccured := ex.
- ].
+ [
+ nLoop timesRepeat:[
+ self readFileExpecting:sz.
+ ].
+ ] on:Error do:[:ex|
+ errorOccured := ex.
+ ].
] forkAt:7.
count := 0.
[p isDead] whileFalse:[
- Delay waitForMilliseconds:5.
- p interruptWith:[count := count + 1].
+ Delay waitForMilliseconds:5.
+ p interruptWith:[count := count + 1].
].
self assert:errorOccured isNil.
self assert:count > 50. "/ at least 50 times interrupted...
@@ -296,7 +296,7 @@
sz ~= 100 ifTrue:[self error:'size mismatch'].
(file binaryContentsOfEntireFile ~= (101 to:200) asByteArray) ifTrue:[
- self error:'contents mismatch'
+ self error:'contents mismatch'
].
file delete.
@@ -328,9 +328,9 @@
sz := file fileSize.
sz ~= 200 ifTrue:[self error:'size mismatch'].
- (file binaryContentsOfEntireFile ~=
- ((101 to:200) asByteArray , (101 to:200) asByteArray)) ifTrue:[
- self error:'contents mismatch'
+ (file binaryContentsOfEntireFile ~=
+ ((101 to:200) asByteArray , (101 to:200) asByteArray)) ifTrue:[
+ self error:'contents mismatch'
].
file delete.
@@ -366,7 +366,7 @@
"basic writing"
10 timesRepeat:[
- self testWrite1.
+ self testWrite1.
].
"
@@ -382,17 +382,17 @@
|interruptor|
interruptor := [
- [true] whileTrue:[
- Delay waitForMilliseconds:10.
- ].
+ [true] whileTrue:[
+ Delay waitForMilliseconds:10.
+ ].
] forkAt:9.
[
- 50 timesRepeat:[
- self testWrite1.
- ].
+ 50 timesRepeat:[
+ self testWrite1.
+ ].
] valueNowOrOnUnwindDo:[
- interruptor terminate
+ interruptor terminate
].
"
@@ -406,22 +406,22 @@
testWriteEOLModes
'xxx' asFilename writingFileDo:[:s |
- s eolMode:#crlf.
- s nextPutLine:'hello'
+ s eolMode:#crlf.
+ s nextPutLine:'hello'
].
self assert:('xxx' asFilename fileSize == 7).
self assert:('xxx' asFilename binaryContentsOfEntireFile = #[16r68 16r65 16r6C 16r6C 16r6F 16r0D 16r0A]).
'xxx' asFilename writingFileDo:[:s |
- s eolMode:#nl.
- s nextPutLine:'hello'
+ s eolMode:#nl.
+ s nextPutLine:'hello'
].
self assert:('xxx' asFilename fileSize == 6).
self assert:('xxx' asFilename binaryContentsOfEntireFile = #[16r68 16r65 16r6C 16r6C 16r6F 16r0A]).
'xxx' asFilename writingFileDo:[:s |
- s eolMode:#cr.
- s nextPutLine:'hello'
+ s eolMode:#cr.
+ s nextPutLine:'hello'
].
self assert:('xxx' asFilename fileSize == 6).
self assert:('xxx' asFilename binaryContentsOfEntireFile = #[16r68 16r65 16r6C 16r6C 16r6F 16r0D]).
@@ -429,31 +429,31 @@
"/ ------------------------
'xxx' asFilename writingFileDo:[:s |
- s eolMode:#crlf.
- s nextPutAll:'hello' , Character cr
+ s eolMode:#crlf.
+ s nextPutAll:'hello' , Character cr
].
self assert:('xxx' asFilename fileSize == 7).
self assert:('xxx' asFilename binaryContentsOfEntireFile = #[16r68 16r65 16r6C 16r6C 16r6F 16r0D 16r0A]).
'xxx' asFilename writingFileDo:[:s |
- s eolMode:#nl.
- s nextPutAll:'hello' , Character cr
+ s eolMode:#nl.
+ s nextPutAll:'hello' , Character cr
].
self assert:('xxx' asFilename fileSize == 6).
self assert:('xxx' asFilename binaryContentsOfEntireFile = #[16r68 16r65 16r6C 16r6C 16r6F 16r0A]).
'xxx' asFilename writingFileDo:[:s |
- s eolMode:#cr.
- s nextPutAll:'hello' , Character cr
+ s eolMode:#cr.
+ s nextPutAll:'hello' , Character cr
].
self assert:('xxx' asFilename fileSize == 6).
self assert:('xxx' asFilename binaryContentsOfEntireFile = #[16r68 16r65 16r6C 16r6C 16r6F 16r0D]).
"/ in binary mode, this should be ignored
'xxx' asFilename writingFileDo:[:s |
- s binary.
- s eolMode:#crlf.
- s nextPutAll:'hello' , Character cr
+ s binary.
+ s eolMode:#crlf.
+ s nextPutAll:'hello' , Character cr
].
self assert:('xxx' asFilename fileSize == 6).
self assert:('xxx' asFilename binaryContentsOfEntireFile = #[16r68 16r65 16r6C 16r6C 16r6F 16r0A]).
--- a/RegressionTests__FilenameTests.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__FilenameTests.st Thu Jun 30 09:02:08 2016 +0100
@@ -14,9 +14,9 @@
tearDown
filename notNil ifTrue:[
- filename exists ifTrue:[
- filename remove
- ]
+ filename exists ifTrue:[
+ filename remove
+ ]
].
"Created: / 21-02-2013 / 17:56:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -35,7 +35,7 @@
filename := 'abcd' asFilename.
"Create the file"
- filename writingFileDo:[:s|].
+ filename writingFileDo:[:s|].
path := filename pathName.
"Make sure it is all ascii"
@@ -66,7 +66,7 @@
filename := 'unix' asFilename.
"Create the file"
- filename writingFileDo:[:s|].
+ filename writingFileDo:[:s|].
path := filename pathName.
"Make sure it is all ascii"
@@ -76,16 +76,16 @@
locale := OperatingSystem getEnvironment: 'LANG'.
[
- OperatingSystem setEnvironment: 'LANG' to: 'C'.
- OperatingSystem initialize. "/reinitialize locale definitions
+ OperatingSystem setEnvironment: 'LANG' to: 'C'.
+ OperatingSystem initialize. "/reinitialize locale definitions
- self assert: path asFilename exists.
- self assert: path asUnicode16String asFilename exists.
- self assert: path asUnicode32String asFilename exists.
+ self assert: path asFilename exists.
+ self assert: path asUnicode16String asFilename exists.
+ self assert: path asUnicode32String asFilename exists.
] ensure:[
- OperatingSystem setEnvironment: 'LANG' to: locale.
- OperatingSystem initialize. "/reinitialize locale definitions
+ OperatingSystem setEnvironment: 'LANG' to: locale.
+ OperatingSystem initialize. "/reinitialize locale definitions
]
"Created: / 21-02-2013 / 17:56:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
--- a/RegressionTests__FloatTest.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__FloatTest.st Thu Jun 30 09:02:08 2016 +0100
@@ -20,19 +20,19 @@
one := aFloatClass unity. "/ 1.0 in this class
two := one coerce:2.0.
- x := one.
+ x := one.
count := 0.
[one + x > one] whileTrue:[
- x := x / two.
- count := count + 1.
+ x := x / two.
+ count := count + 1.
].
^ count
"
- self basicNew actualPrecisionOf:ShortFloat
- self basicNew actualPrecisionOf:Float
- self basicNew actualPrecisionOf:LongFloat
+ self basicNew actualPrecisionOf:ShortFloat
+ self basicNew actualPrecisionOf:Float
+ self basicNew actualPrecisionOf:LongFloat
"
! !
@@ -44,11 +44,11 @@
|a b|
self assert:( (a := Float precision) = (b := self actualPrecisionOf:Float))
- description:('Float precision: %1 ~~ actual: %2' bindWith:a with:b).
+ description:('Float precision: %1 ~~ actual: %2' bindWith:a with:b).
self assert:( (a := ShortFloat precision) = (b := self actualPrecisionOf:ShortFloat))
- description:('ShortFloat precision: %1 ~~ actual: %2' bindWith:a with:b).
+ description:('ShortFloat precision: %1 ~~ actual: %2' bindWith:a with:b).
self assert:( (a := LongFloat precision) = (b := self actualPrecisionOf:LongFloat))
- description:('LongFloat precision: %1 ~~ actual: %2' bindWith:a with:b).
+ description:('LongFloat precision: %1 ~~ actual: %2' bindWith:a with:b).
"
self basicNew test00_Precision
@@ -151,46 +151,46 @@
|check posInf negInf|
- check :=
- [:v1 :v2 |
+ check :=
+ [:v1 :v2 |
- posInf := v1 uncheckedDivide: v2.
+ posInf := v1 uncheckedDivide: v2.
- self assert:( posInf isMemberOf:v1 class ).
- self assert:( posInf isNaN not ).
- self assert:( posInf isFinite not ).
- self assert:( posInf isInfinite ).
- self assert:( posInf positive ).
- self assert:( posInf negative not ).
- self assert:( posInf isNegativeInfinity not).
- self assert:( posInf isPositiveInfinity ).
+ self assert:( posInf isMemberOf:v1 class ).
+ self assert:( posInf isNaN not ).
+ self assert:( posInf isFinite not ).
+ self assert:( posInf isInfinite ).
+ self assert:( posInf positive ).
+ self assert:( posInf negative not ).
+ self assert:( posInf isNegativeInfinity not).
+ self assert:( posInf isPositiveInfinity ).
- negInf := v1 negated uncheckedDivide: v2.
+ negInf := v1 negated uncheckedDivide: v2.
- self assert:( negInf isMemberOf:v1 class ).
- self assert:( negInf isNaN not ).
- self assert:( negInf isFinite not ).
- self assert:( negInf isInfinite ).
- self assert:( negInf positive not).
- self assert:( negInf negative ).
- self assert:( negInf isNegativeInfinity ).
- self assert:( negInf isPositiveInfinity not ).
+ self assert:( negInf isMemberOf:v1 class ).
+ self assert:( negInf isNaN not ).
+ self assert:( negInf isFinite not ).
+ self assert:( negInf isInfinite ).
+ self assert:( negInf positive not).
+ self assert:( negInf negative ).
+ self assert:( negInf isNegativeInfinity ).
+ self assert:( negInf isPositiveInfinity not ).
- self assert:( negInf + negInf = negInf).
- self assert:( posInf + posInf = posInf).
- self assert:( negInf + posInf) isNaN.
- self assert:( posInf + negInf) isNaN.
+ self assert:( negInf + negInf = negInf).
+ self assert:( posInf + posInf = posInf).
+ self assert:( negInf + posInf) isNaN.
+ self assert:( posInf + negInf) isNaN.
- self assert:( negInf - posInf = negInf).
- self assert:( negInf - negInf) isNaN.
- self assert:( posInf - negInf = posInf).
- self assert:( posInf - posInf) isNaN.
+ self assert:( negInf - posInf = negInf).
+ self assert:( negInf - negInf) isNaN.
+ self assert:( posInf - negInf = posInf).
+ self assert:( posInf - posInf) isNaN.
- self assert:( posInf + v1) = posInf.
- self assert:( posInf - v1) = posInf.
- self assert:( negInf + v1) = negInf.
- self assert:( negInf - v1) = negInf.
- ].
+ self assert:( posInf + v1) = posInf.
+ self assert:( posInf - v1) = posInf.
+ self assert:( negInf + v1) = negInf.
+ self assert:( negInf - v1) = negInf.
+ ].
check value: 1.0 value: 0.0.
check value: 1.0 asShortFloat value: 0.0 asShortFloat.
@@ -245,16 +245,16 @@
self assert: ((5/9) asFloat - 0.555555555555) abs < 0.0000000001.
self assert: ((5/9) asLongFloat - 0.555555555555) abs < 0.0000000001.
self assert: ((Fraction basicNew setNumerator:500000000000 denominator:900000000000)
- asLongFloat - 0.555555555555) abs < 0.000000000001.
+ asLongFloat - 0.555555555555) abs < 0.000000000001.
self assert: ((Fraction basicNew setNumerator:500000000001 denominator:900000000000)
- asLongFloat - 0.555555555555) abs >= 0.000000000001.
+ asLongFloat - 0.555555555555) abs >= 0.000000000001.
"/ under windows, a longFloat has only 10bytes with 64 bits precision
OperatingSystem isMSWINDOWSlike ifFalse:[
- self assert: (8901234567890123456 asLongFloat asInteger = 8901234567890123456).
- self assert: (-8901234567890123456 asLongFloat asInteger = -8901234567890123456).
+ self assert: (8901234567890123456 asLongFloat asInteger = 8901234567890123456).
+ self assert: (-8901234567890123456 asLongFloat asInteger = -8901234567890123456).
].
- self assert: (89012345678901234567 asLongFloat = 89012345678901234567).
+ self assert: (89012345678901234567 asLongFloat = 89012345678901234567).
self assert: (-89012345678901234567 asLongFloat = -89012345678901234567).
self assert: (89012345678901234567 negated asLongFloat = -89012345678901234567).
@@ -371,29 +371,29 @@
|check v1 v2 v1b|
check := [:iv1 :iv2|
- #(yourself asInteger asFloat asShortFloat asLongFloat asLargeFloat) do:[:conv1 |
- v1 := (iv1 perform:conv1).
+ #(yourself asInteger asFloat asShortFloat asLongFloat asLargeFloat) do:[:conv1 |
+ v1 := (iv1 perform:conv1).
- self assert:( v1 = nil ) not.
- self assert:( nil = v1 ) not.
- self assert:( v1 ~= nil ).
- self assert:( nil ~= v1 ).
+ self assert:( v1 = nil ) not.
+ self assert:( nil = v1 ) not.
+ self assert:( v1 ~= nil ).
+ self assert:( nil ~= v1 ).
- #(yourself asInteger asFloat asShortFloat asLongFloat asLargeFloat) do:[:conv2 |
- v1b := (iv1 perform:conv2).
+ #(yourself asInteger asFloat asShortFloat asLongFloat asLargeFloat) do:[:conv2 |
+ v1b := (iv1 perform:conv2).
- self assert:( v1 = v1b ).
- self assert:( v1 <= v1b ).
- self assert:( v1 >= v1b ).
+ self assert:( v1 = v1b ).
+ self assert:( v1 <= v1b ).
+ self assert:( v1 >= v1b ).
- v2 := (iv2 perform:conv2).
+ v2 := (iv2 perform:conv2).
- self assert:( v1 < v2 ).
- self assert:( v1 <= v2 ).
- self assert:( v2 >= v1 ).
- self assert:( v2 > v1 ).
- ]
- ].
+ self assert:( v1 < v2 ).
+ self assert:( v1 <= v2 ).
+ self assert:( v2 >= v1 ).
+ self assert:( v2 > v1 ).
+ ]
+ ].
].
check value:2 value:3.
@@ -450,67 +450,67 @@
epsilon := 0.000001.
#(
- sqrt 0.5 0.707107
- exp 0.5 1.64872
- ln 0.5 -0.693147
- log10 0.5 -0.30103
+ sqrt 0.5 0.707107
+ exp 0.5 1.64872
+ ln 0.5 -0.693147
+ log10 0.5 -0.30103
- sin 0.5 0.479426
- cos 0.5 0.877583
- tan 0.5 0.546302
- arcSin 0.5 0.523599
- arcCos 0.5 1.0472
- arcTan 0.5 0.463648
- sinh 0.5 0.521095
- cosh 0.5 1.12763
- tanh 0.5 0.462117
- arcSinh 0.5 0.481212
- arcCosh 1.5 1.24983
- arcTanh 0.5 0.549306
+ sin 0.5 0.479426
+ cos 0.5 0.877583
+ tan 0.5 0.546302
+ arcSin 0.5 0.523599
+ arcCos 0.5 1.0472
+ arcTan 0.5 0.463648
+ sinh 0.5 0.521095
+ cosh 0.5 1.12763
+ tanh 0.5 0.462117
+ arcSinh 0.5 0.481212
+ arcCosh 1.5 1.24983
+ arcTanh 0.5 0.549306
- sin 0.0 0.0
- cos 0.0 1.0
- tan 0.0 0.0
- sinh 0.0 0.0
- cosh 0.0 1.0
- tanh 0.0 0.0
+ sin 0.0 0.0
+ cos 0.0 1.0
+ tan 0.0 0.0
+ sinh 0.0 0.0
+ cosh 0.0 1.0
+ tanh 0.0 0.0
- sin 1.0 0.841471
- cos 1.0 0.540302
- tan 1.0 1.55741
- sinh 1.0 1.1752
- cosh 1.0 1.54308
- tanh 1.0 0.761594
+ sin 1.0 0.841471
+ cos 1.0 0.540302
+ tan 1.0 1.55741
+ sinh 1.0 1.1752
+ cosh 1.0 1.54308
+ tanh 1.0 0.761594
- sin 3.14159 0.0
- cos 3.14159 -1.0
- tan 3.14159 0.0
- sinh 3.14159 11.5487
- cosh 3.14159 11.5919
- tanh 3.14159 0.996272
+ sin 3.14159 0.0
+ cos 3.14159 -1.0
+ tan 3.14159 0.0
+ sinh 3.14159 11.5487
+ cosh 3.14159 11.5919
+ tanh 3.14159 0.996272
- tan 0.785398 1.0 "pi/4 -> should be 1"
- arcCos -1.0 3.14159 "should be pi"
- arcSin 1.0 1.5708 "should be pi/2 (1.5708)"
- arcTan 1.0 0.785398 "should be pi/4 (.785398)"
+ tan 0.785398 1.0 "pi/4 -> should be 1"
+ arcCos -1.0 3.14159 "should be pi"
+ arcSin 1.0 1.5708 "should be pi/2 (1.5708)"
+ arcTan 1.0 0.785398 "should be pi/4 (.785398)"
) inGroupsOf:3 do:[:op :x :expected|
- |rslt rsltShortFloat rsltLongFloat rsltLargeFloat|
+ |rslt rsltShortFloat rsltLongFloat rsltLargeFloat|
- rslt := x perform:op.
- rsltShortFloat := x asShortFloat perform:op.
- rsltLongFloat := x asLongFloat perform:op.
+ rslt := x perform:op.
+ rsltShortFloat := x asShortFloat perform:op.
+ rsltLongFloat := x asLongFloat perform:op.
"/ rsltLargeFloat := arg asLargeFloat perform:op.
- self assert:(rslt class == Float).
- "/ self assert:(rsltShortFloat class == Float). "/ ??? not a good test; some return a float
- self assert:(rsltLongFloat class == LongFloat).
+ self assert:(rslt class == Float).
+ "/ self assert:(rsltShortFloat class == Float). "/ ??? not a good test; some return a float
+ self assert:(rsltLongFloat class == LongFloat).
- self assert:( rslt - rsltShortFloat ) < epsilon.
- self assert:( rslt - rsltLongFloat ) < epsilon.
+ self assert:( rslt - rsltShortFloat ) < epsilon.
+ self assert:( rslt - rsltLongFloat ) < epsilon.
"/ self assert:( rslt - rsltLargeFloat ) < epsilon.
- self assert:( rslt - rslt asShortFloat ) < epsilon.
- self assert:( rslt - rslt asLongFloat ) < epsilon.
+ self assert:( rslt - rslt asShortFloat ) < epsilon.
+ self assert:( rslt - rslt asLongFloat ) < epsilon.
"/ self assert:( rslt - rslt asLargeFloat ) < epsilon.
].
@@ -519,83 +519,83 @@
self should:[ -1 arcTanh ] raise:DomainError.
#(
- 0.0
- 0.5
- 1.0
- 2.0
- 1.57079
+ 0.0
+ 0.5
+ 1.0
+ 2.0
+ 1.57079
) do:[:x |
- self assert:( x sin arcSin - x < epsilon).
- self assert:( x cos arcCos - x < epsilon).
- self assert:( x tan arcTan - x < epsilon).
+ self assert:( x sin arcSin - x < epsilon).
+ self assert:( x cos arcCos - x < epsilon).
+ self assert:( x tan arcTan - x < epsilon).
].
#(
- -1.0
- -0.5
- 0.0
- 0.5
- 1.0
+ -1.0
+ -0.5
+ 0.0
+ 0.5
+ 1.0
) do:[:x |
- self assert:( x arcSin sin - x < epsilon).
- self assert:( x arcCos cos - x < epsilon).
- self assert:( x arcTan tan - x < epsilon).
+ self assert:( x arcSin sin - x < epsilon).
+ self assert:( x arcCos cos - x < epsilon).
+ self assert:( x arcTan tan - x < epsilon).
].
#(
- 0.0
- 0.5
- 1.0
- 2.0
- 10
+ 0.0
+ 0.5
+ 1.0
+ 2.0
+ 10
) do:[:x |
- self assert:( x cosh arcCosh - x < epsilon).
+ self assert:( x cosh arcCosh - x < epsilon).
].
#(
- -10
- -2
- -1
- -0.5
- 0.0
- 0.5
- 1.0
- 2.0
- 10
+ -10
+ -2
+ -1
+ -0.5
+ 0.0
+ 0.5
+ 1.0
+ 2.0
+ 10
) do:[:x |
- self assert:( x sinh arcSinh - x < epsilon).
- self assert:( x tanh arcTanh - x < epsilon).
+ self assert:( x sinh arcSinh - x < epsilon).
+ self assert:( x tanh arcTanh - x < epsilon).
].
#(
- -0.99
- -0.5
- 0.0
- 0.5
- 0.99
+ -0.99
+ -0.5
+ 0.0
+ 0.5
+ 0.99
) do:[:x |
- self assert:( x arcTanh - (( ( (1+x)/(1-x) ) ln ) / 2 ) ) < epsilon.
+ self assert:( x arcTanh - (( ( (1+x)/(1-x) ) ln ) / 2 ) ) < epsilon.
].
#(
- -10
- -5
- -2.0
- -1.0
- 0.0
- 1.0
- 2.0
- 10
+ -10
+ -5
+ -2.0
+ -1.0
+ 0.0
+ 1.0
+ 2.0
+ 10
) do:[:x |
- self assert:( x arcSinh sinh - x < epsilon).
+ self assert:( x arcSinh sinh - x < epsilon).
].
#(
- 1.0
- 2.0
- 10.0
+ 1.0
+ 2.0
+ 10.0
) do:[:x |
- self assert:( x arcCosh cosh - x < epsilon).
+ self assert:( x arcCosh cosh - x < epsilon).
].
"
@@ -609,8 +609,8 @@
|check|
check := [:num |
- self assert:( num fractionPart + num truncated ) = num.
- self assert:( num fractionPart + num truncated ) class == num class.
+ self assert:( num fractionPart + num truncated ) = num.
+ self assert:( num fractionPart + num truncated ) class == num class.
].
check value:1.6.
@@ -647,101 +647,101 @@
self assert:( 1.6 asLongFloat floorAsFloat ) class == LongFloat.
- self assert:( 0.4 rounded ) class == SmallInteger.
- self assert:( 0.4 rounded = 0 ).
- self assert:( 0.5 rounded = 1 ).
- self assert:( 0.6 rounded = 1 ).
- self assert:( -0.4 rounded = 0 ).
- self assert:( -0.5 rounded = -1 ).
- self assert:( -0.6 rounded = -1 ).
+ self assert:( 0.4 rounded ) class == SmallInteger.
+ self assert:( 0.4 rounded = 0 ).
+ self assert:( 0.5 rounded = 1 ).
+ self assert:( 0.6 rounded = 1 ).
+ self assert:( -0.4 rounded = 0 ).
+ self assert:( -0.5 rounded = -1 ).
+ self assert:( -0.6 rounded = -1 ).
- self assert:( 0.4 roundedAsFloat ) class == Float.
- self assert:( 0.4 roundedAsFloat = 0.0 ).
- self assert:( 0.5 roundedAsFloat = 1.0 ).
- self assert:( 0.6 roundedAsFloat = 1.0 ).
- self assert:( -0.4 roundedAsFloat = 0 ).
- self assert:( -0.5 roundedAsFloat = -1.0 ).
- self assert:( -0.6 roundedAsFloat = -1.0 ).
+ self assert:( 0.4 roundedAsFloat ) class == Float.
+ self assert:( 0.4 roundedAsFloat = 0.0 ).
+ self assert:( 0.5 roundedAsFloat = 1.0 ).
+ self assert:( 0.6 roundedAsFloat = 1.0 ).
+ self assert:( -0.4 roundedAsFloat = 0 ).
+ self assert:( -0.5 roundedAsFloat = -1.0 ).
+ self assert:( -0.6 roundedAsFloat = -1.0 ).
- self assert:( 0.4 asShortFloat rounded ) class == SmallInteger.
- self assert:( 0.4 asShortFloat rounded = 0 ).
- self assert:( 0.5 asShortFloat rounded = 1 ).
- self assert:( 0.6 asShortFloat rounded = 1 ).
- self assert:( -0.4 asShortFloat rounded = 0 ).
- self assert:( -0.5 asShortFloat rounded = -1 ).
- self assert:( -0.6 asShortFloat rounded = -1 ).
+ self assert:( 0.4 asShortFloat rounded ) class == SmallInteger.
+ self assert:( 0.4 asShortFloat rounded = 0 ).
+ self assert:( 0.5 asShortFloat rounded = 1 ).
+ self assert:( 0.6 asShortFloat rounded = 1 ).
+ self assert:( -0.4 asShortFloat rounded = 0 ).
+ self assert:( -0.5 asShortFloat rounded = -1 ).
+ self assert:( -0.6 asShortFloat rounded = -1 ).
- self assert:( 0.4 asShortFloat roundedAsFloat ) class == ShortFloat.
- self assert:( 0.4 asShortFloat roundedAsFloat = 0.0 ).
- self assert:( 0.5 asShortFloat roundedAsFloat = 1.0 ).
- self assert:( 0.6 asShortFloat roundedAsFloat = 1.0 ).
- self assert:( -0.4 asShortFloat roundedAsFloat = 0 ).
- self assert:( -0.5 asShortFloat roundedAsFloat = -1.0 ).
- self assert:( -0.6 asShortFloat roundedAsFloat = -1.0 ).
+ self assert:( 0.4 asShortFloat roundedAsFloat ) class == ShortFloat.
+ self assert:( 0.4 asShortFloat roundedAsFloat = 0.0 ).
+ self assert:( 0.5 asShortFloat roundedAsFloat = 1.0 ).
+ self assert:( 0.6 asShortFloat roundedAsFloat = 1.0 ).
+ self assert:( -0.4 asShortFloat roundedAsFloat = 0 ).
+ self assert:( -0.5 asShortFloat roundedAsFloat = -1.0 ).
+ self assert:( -0.6 asShortFloat roundedAsFloat = -1.0 ).
- self assert:( 0.4 asLongFloat rounded ) class == SmallInteger.
- self assert:( 0.4 asLongFloat rounded = 0 ).
- self assert:( 0.5 asLongFloat rounded = 1 ).
- self assert:( 0.6 asLongFloat rounded = 1 ).
- self assert:( -0.4 asLongFloat rounded = 0 ).
- self assert:( -0.5 asLongFloat rounded = -1 ).
- self assert:( -0.6 asLongFloat rounded = -1 ).
+ self assert:( 0.4 asLongFloat rounded ) class == SmallInteger.
+ self assert:( 0.4 asLongFloat rounded = 0 ).
+ self assert:( 0.5 asLongFloat rounded = 1 ).
+ self assert:( 0.6 asLongFloat rounded = 1 ).
+ self assert:( -0.4 asLongFloat rounded = 0 ).
+ self assert:( -0.5 asLongFloat rounded = -1 ).
+ self assert:( -0.6 asLongFloat rounded = -1 ).
- self assert:( 0.4 asLongFloat roundedAsFloat ) class == LongFloat.
- self assert:( 0.4 asLongFloat roundedAsFloat = 0.0 ).
- self assert:( 0.5 asLongFloat roundedAsFloat = 1.0 ).
- self assert:( 0.6 asLongFloat roundedAsFloat = 1.0 ).
- self assert:( -0.4 asLongFloat roundedAsFloat = 0 ).
- self assert:( -0.5 asLongFloat roundedAsFloat = -1.0 ).
- self assert:( -0.6 asLongFloat roundedAsFloat = -1.0 ).
+ self assert:( 0.4 asLongFloat roundedAsFloat ) class == LongFloat.
+ self assert:( 0.4 asLongFloat roundedAsFloat = 0.0 ).
+ self assert:( 0.5 asLongFloat roundedAsFloat = 1.0 ).
+ self assert:( 0.6 asLongFloat roundedAsFloat = 1.0 ).
+ self assert:( -0.4 asLongFloat roundedAsFloat = 0 ).
+ self assert:( -0.5 asLongFloat roundedAsFloat = -1.0 ).
+ self assert:( -0.6 asLongFloat roundedAsFloat = -1.0 ).
- self assert:( 0.4 truncated ) class == SmallInteger.
- self assert:( 0.4 truncated = 0 ).
- self assert:( 0.5 truncated = 0 ).
- self assert:( 0.6 truncated = 0 ).
- self assert:( -0.4 truncated = 0 ).
- self assert:( -0.5 truncated = 0 ).
- self assert:( -0.6 truncated = 0 ).
+ self assert:( 0.4 truncated ) class == SmallInteger.
+ self assert:( 0.4 truncated = 0 ).
+ self assert:( 0.5 truncated = 0 ).
+ self assert:( 0.6 truncated = 0 ).
+ self assert:( -0.4 truncated = 0 ).
+ self assert:( -0.5 truncated = 0 ).
+ self assert:( -0.6 truncated = 0 ).
- self assert:( 0.4 truncatedAsFloat ) class == Float.
- self assert:( 0.4 truncatedAsFloat = 0.0 ).
- self assert:( 0.5 truncatedAsFloat = 0.0 ).
- self assert:( 0.6 truncatedAsFloat = 0.0 ).
- self assert:( -0.4 truncatedAsFloat = 0 ).
- self assert:( -0.5 truncatedAsFloat = 0.0 ).
- self assert:( -0.6 truncatedAsFloat = 0.0 ).
+ self assert:( 0.4 truncatedAsFloat ) class == Float.
+ self assert:( 0.4 truncatedAsFloat = 0.0 ).
+ self assert:( 0.5 truncatedAsFloat = 0.0 ).
+ self assert:( 0.6 truncatedAsFloat = 0.0 ).
+ self assert:( -0.4 truncatedAsFloat = 0 ).
+ self assert:( -0.5 truncatedAsFloat = 0.0 ).
+ self assert:( -0.6 truncatedAsFloat = 0.0 ).
- self assert:( 0.4 asShortFloat truncated ) class == SmallInteger.
- self assert:( 0.4 asShortFloat truncated = 0 ).
- self assert:( 0.5 asShortFloat truncated = 0 ).
- self assert:( 0.6 asShortFloat truncated = 0 ).
- self assert:( -0.4 asShortFloat truncated = 0 ).
- self assert:( -0.5 asShortFloat truncated = 0 ).
- self assert:( -0.6 asShortFloat truncated = 0 ).
+ self assert:( 0.4 asShortFloat truncated ) class == SmallInteger.
+ self assert:( 0.4 asShortFloat truncated = 0 ).
+ self assert:( 0.5 asShortFloat truncated = 0 ).
+ self assert:( 0.6 asShortFloat truncated = 0 ).
+ self assert:( -0.4 asShortFloat truncated = 0 ).
+ self assert:( -0.5 asShortFloat truncated = 0 ).
+ self assert:( -0.6 asShortFloat truncated = 0 ).
- self assert:( 0.4 asShortFloat truncatedAsFloat ) class == ShortFloat.
- self assert:( 0.4 asShortFloat truncatedAsFloat = 0.0 ).
- self assert:( 0.5 asShortFloat truncatedAsFloat = 0.0 ).
- self assert:( 0.6 asShortFloat truncatedAsFloat = 0.0 ).
- self assert:( -0.4 asShortFloat truncatedAsFloat = 0 ).
- self assert:( -0.5 asShortFloat truncatedAsFloat = 0.0 ).
- self assert:( -0.6 asShortFloat truncatedAsFloat = 0.0 ).
+ self assert:( 0.4 asShortFloat truncatedAsFloat ) class == ShortFloat.
+ self assert:( 0.4 asShortFloat truncatedAsFloat = 0.0 ).
+ self assert:( 0.5 asShortFloat truncatedAsFloat = 0.0 ).
+ self assert:( 0.6 asShortFloat truncatedAsFloat = 0.0 ).
+ self assert:( -0.4 asShortFloat truncatedAsFloat = 0 ).
+ self assert:( -0.5 asShortFloat truncatedAsFloat = 0.0 ).
+ self assert:( -0.6 asShortFloat truncatedAsFloat = 0.0 ).
- self assert:( 0.4 asLongFloat truncated ) class == SmallInteger.
- self assert:( 0.4 asLongFloat truncated = 0 ).
- self assert:( 0.5 asLongFloat truncated = 0 ).
- self assert:( 0.6 asLongFloat truncated = 0 ).
- self assert:( -0.4 asLongFloat truncated = 0 ).
- self assert:( -0.5 asLongFloat truncated = 0 ).
- self assert:( -0.6 asLongFloat truncated = 0 ).
+ self assert:( 0.4 asLongFloat truncated ) class == SmallInteger.
+ self assert:( 0.4 asLongFloat truncated = 0 ).
+ self assert:( 0.5 asLongFloat truncated = 0 ).
+ self assert:( 0.6 asLongFloat truncated = 0 ).
+ self assert:( -0.4 asLongFloat truncated = 0 ).
+ self assert:( -0.5 asLongFloat truncated = 0 ).
+ self assert:( -0.6 asLongFloat truncated = 0 ).
- self assert:( 0.4 asLongFloat truncatedAsFloat ) class == LongFloat.
- self assert:( 0.4 asLongFloat truncatedAsFloat = 0.0 ).
- self assert:( 0.5 asLongFloat truncatedAsFloat = 0.0 ).
- self assert:( 0.6 asLongFloat truncatedAsFloat = 0.0 ).
- self assert:( -0.4 asLongFloat truncatedAsFloat = 0 ).
- self assert:( -0.5 asLongFloat truncatedAsFloat = 0.0 ).
- self assert:( -0.6 asLongFloat truncatedAsFloat = 0.0 ).
+ self assert:( 0.4 asLongFloat truncatedAsFloat ) class == LongFloat.
+ self assert:( 0.4 asLongFloat truncatedAsFloat = 0.0 ).
+ self assert:( 0.5 asLongFloat truncatedAsFloat = 0.0 ).
+ self assert:( 0.6 asLongFloat truncatedAsFloat = 0.0 ).
+ self assert:( -0.4 asLongFloat truncatedAsFloat = 0 ).
+ self assert:( -0.5 asLongFloat truncatedAsFloat = 0.0 ).
+ self assert:( -0.6 asLongFloat truncatedAsFloat = 0.0 ).
"
self basicNew test07_Truncation
@@ -780,7 +780,7 @@
self assert:( 0.125 exponent = -2 ).
self assert:( 0.00000011111 exponent = -23 ).
- self assert:( 0.0 asShortFloat exponent = 0 ).
+ self assert:( 0.0 asShortFloat exponent = 0 ).
self assert:( 1.0 asShortFloat exponent = 1 ).
self assert:( 2.0 asShortFloat exponent = 2 ).
self assert:( 3.0 asShortFloat exponent = 2 ).
@@ -791,7 +791,7 @@
self assert:( 0.125 asShortFloat exponent = -2 ).
self assert:( 0.00000011111 asShortFloat exponent = -23 ).
- self assert:( 0.0 asLongFloat exponent = 0 ).
+ self assert:( 0.0 asLongFloat exponent = 0 ).
self assert:( 1.0 asLongFloat exponent = 1 ).
self assert:( 2.0 asLongFloat exponent = 2 ).
self assert:( 3.0 asLongFloat exponent = 2 ).
--- a/RegressionTests__FractionTest.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__FractionTest.st Thu Jun 30 09:02:08 2016 +0100
@@ -14,115 +14,115 @@
testDegreeCos
"self run: #testDegreeCos"
-
+
self shouldnt: [ (4/3) degreeCos] raise: Error.
Smalltalk isSmalltalkX ifTrue:[
- self assert: ((1/3) degreeCos printString startsWith:'0.999983')
+ self assert: ((1/3) degreeCos printString startsWith:'0.999983')
] ifFalse:[
- self assert: (1/3) degreeCos printString = '0.999983076857744'
+ self assert: (1/3) degreeCos printString = '0.999983076857744'
]
!
testDegreeSin
"self run: #testDegreeSin"
-
+
self shouldnt: [ (4/3) degreeSin] raise: Error.
Smalltalk isSmalltalkX ifTrue:[
- self assert: ((1/3) degreeSin printString startsWith:'0.005817')
+ self assert: ((1/3) degreeSin printString startsWith:'0.005817')
] ifFalse:[
- self assert: (1/3) degreeSin printString = '0.005817731354993834'
+ self assert: (1/3) degreeSin printString = '0.005817731354993834'
]
!
testFractionPrinting
- self assert: (353/359) printString = '(353/359)'.
+ self assert: (353/359) printString = '(353/359)'.
- self assert: (-2/3) printString = '(-2/3)'.
- self assert: (-2/3) storeString = '(-2/3)'.
- self assert: (5/-7) printString = '(-5/7)'.
- self assert: (5/-7) storeString = '(-5/7)'.
+ self assert: (-2/3) printString = '(-2/3)'.
+ self assert: (-2/3) storeString = '(-2/3)'.
+ self assert: (5/-7) printString = '(-5/7)'.
+ self assert: (5/-7) storeString = '(-5/7)'.
- Smalltalk isSmalltalkX ifFalse:[
- self assert: ((2/3) printStringBase: 2) = '(10/11)'.
- self assert: ((2/3) storeStringBase: 2) = '(2r10/2r11)'.
- self assert: ((5/7) printStringBase: 3) = '(12/21)'.
- self assert: ((5/7) storeStringBase: 3) = '(3r12/3r21)'.
- self assert: ((11/13) printStringBase: 4) = '(23/31)'.
- self assert: ((11/13) storeStringBase: 4) = '(4r23/4r31)'.
- self assert: ((17/19) printStringBase: 5) = '(32/34)'.
- self assert: ((17/19) storeStringBase: 5) = '(5r32/5r34)'.
- self assert: ((23/29) printStringBase: 6) = '(35/45)'.
- self assert: ((23/29) storeStringBase: 6) = '(6r35/6r45)'.
- self assert: ((31/37) printStringBase: 7) = '(43/52)'.
- self assert: ((31/37) storeStringBase: 7) = '(7r43/7r52)'.
- self assert: ((41/43) printStringBase: 8) = '(51/53)'.
- self assert: ((41/43) storeStringBase: 8) = '(8r51/8r53)'.
- self assert: ((47/53) printStringBase: 9) = '(52/58)'.
- self assert: ((47/53) storeStringBase: 9) = '(9r52/9r58)'.
- self assert: ((59/61) printStringBase: 10) = '(59/61)'.
- self assert: ((59/61) storeStringBase: 10) = '(59/61)'.
- self assert: ((67/71) printStringBase: 11) = '(61/65)'.
- self assert: ((67/71) storeStringBase: 11) = '(11r61/11r65)'.
- self assert: ((73/79) printStringBase: 12) = '(61/67)'.
- self assert: ((73/79) storeStringBase: 12) = '(12r61/12r67)'.
- self assert: ((83/89) printStringBase: 13) = '(65/6B)'.
- self assert: ((83/89) storeStringBase: 13) = '(13r65/13r6B)'.
- self assert: ((97/101) printStringBase: 14) = '(6D/73)'.
- self assert: ((97/101) storeStringBase: 14) = '(14r6D/14r73)'.
- self assert: ((103/107) printStringBase: 15) = '(6D/72)'.
- self assert: ((103/107) storeStringBase: 15) = '(15r6D/15r72)'.
- self assert: ((109/113) printStringBase: 16) = '(6D/71)'.
- self assert: ((109/113) storeStringBase: 16) = '(16r6D/16r71)'.
- self assert: ((127/131) printStringBase: 17) = '(78/7C)'.
- self assert: ((127/131) storeStringBase: 17) = '(17r78/17r7C)'.
- self assert: ((137/139) printStringBase: 18) = '(7B/7D)'.
- self assert: ((137/139) storeStringBase: 18) = '(18r7B/18r7D)'.
- self assert: ((149/151) printStringBase: 19) = '(7G/7I)'.
- self assert: ((149/151) storeStringBase: 19) = '(19r7G/19r7I)'.
- self assert: ((157/163) printStringBase: 20) = '(7H/83)'.
- self assert: ((157/163) storeStringBase: 20) = '(20r7H/20r83)'.
- self assert: ((167/173) printStringBase: 21) = '(7K/85)'.
- self assert: ((167/173) storeStringBase: 21) = '(21r7K/21r85)'.
- self assert: ((179/181) printStringBase: 22) = '(83/85)'.
- self assert: ((179/181) storeStringBase: 22) = '(22r83/22r85)'.
- self assert: ((191/193) printStringBase: 23) = '(87/89)'.
- self assert: ((191/193) storeStringBase: 23) = '(23r87/23r89)'.
- self assert: ((197/199) printStringBase: 24) = '(85/87)'.
- self assert: ((197/199) storeStringBase: 24) = '(24r85/24r87)'.
- self assert: ((211/223) printStringBase: 25) = '(8B/8N)'.
- self assert: ((211/223) storeStringBase: 25) = '(25r8B/25r8N)'.
- self assert: ((227/229) printStringBase: 26) = '(8J/8L)'.
- self assert: ((227/229) storeStringBase: 26) = '(26r8J/26r8L)'.
- self assert: ((233/239) printStringBase: 27) = '(8H/8N)'.
- self assert: ((233/239) storeStringBase: 27) = '(27r8H/27r8N)'.
- self assert: ((241/251) printStringBase: 28) = '(8H/8R)'.
- self assert: ((241/251) storeStringBase: 28) = '(28r8H/28r8R)'.
- self assert: ((257/263) printStringBase: 29) = '(8P/92)'.
- self assert: ((257/263) storeStringBase: 29) = '(29r8P/29r92)'.
- self assert: ((269/271) printStringBase: 30) = '(8T/91)'.
- self assert: ((269/271) storeStringBase: 30) = '(30r8T/30r91)'.
- self assert: ((277/281) printStringBase: 31) = '(8T/92)'.
- self assert: ((277/281) storeStringBase: 31) = '(31r8T/31r92)'.
- self assert: ((283/293) printStringBase: 32) = '(8R/95)'.
- self assert: ((283/293) storeStringBase: 32) = '(32r8R/32r95)'.
- self assert: ((307/311) printStringBase: 33) = '(9A/9E)'.
- self assert: ((307/311) storeStringBase: 33) = '(33r9A/33r9E)'.
- self assert: ((313/317) printStringBase: 34) = '(97/9B)'.
- self assert: ((313/317) storeStringBase: 34) = '(34r97/34r9B)'.
- self assert: ((331/337) printStringBase: 35) = '(9G/9M)'.
- self assert: ((331/337) storeStringBase: 35) = '(35r9G/35r9M)'.
- self assert: ((347/349) printStringBase: 36) = '(9N/9P)'.
- self assert: ((347/349) storeStringBase: 36) = '(36r9N/36r9P)'.
+ Smalltalk isSmalltalkX ifFalse:[
+ self assert: ((2/3) printStringBase: 2) = '(10/11)'.
+ self assert: ((2/3) storeStringBase: 2) = '(2r10/2r11)'.
+ self assert: ((5/7) printStringBase: 3) = '(12/21)'.
+ self assert: ((5/7) storeStringBase: 3) = '(3r12/3r21)'.
+ self assert: ((11/13) printStringBase: 4) = '(23/31)'.
+ self assert: ((11/13) storeStringBase: 4) = '(4r23/4r31)'.
+ self assert: ((17/19) printStringBase: 5) = '(32/34)'.
+ self assert: ((17/19) storeStringBase: 5) = '(5r32/5r34)'.
+ self assert: ((23/29) printStringBase: 6) = '(35/45)'.
+ self assert: ((23/29) storeStringBase: 6) = '(6r35/6r45)'.
+ self assert: ((31/37) printStringBase: 7) = '(43/52)'.
+ self assert: ((31/37) storeStringBase: 7) = '(7r43/7r52)'.
+ self assert: ((41/43) printStringBase: 8) = '(51/53)'.
+ self assert: ((41/43) storeStringBase: 8) = '(8r51/8r53)'.
+ self assert: ((47/53) printStringBase: 9) = '(52/58)'.
+ self assert: ((47/53) storeStringBase: 9) = '(9r52/9r58)'.
+ self assert: ((59/61) printStringBase: 10) = '(59/61)'.
+ self assert: ((59/61) storeStringBase: 10) = '(59/61)'.
+ self assert: ((67/71) printStringBase: 11) = '(61/65)'.
+ self assert: ((67/71) storeStringBase: 11) = '(11r61/11r65)'.
+ self assert: ((73/79) printStringBase: 12) = '(61/67)'.
+ self assert: ((73/79) storeStringBase: 12) = '(12r61/12r67)'.
+ self assert: ((83/89) printStringBase: 13) = '(65/6B)'.
+ self assert: ((83/89) storeStringBase: 13) = '(13r65/13r6B)'.
+ self assert: ((97/101) printStringBase: 14) = '(6D/73)'.
+ self assert: ((97/101) storeStringBase: 14) = '(14r6D/14r73)'.
+ self assert: ((103/107) printStringBase: 15) = '(6D/72)'.
+ self assert: ((103/107) storeStringBase: 15) = '(15r6D/15r72)'.
+ self assert: ((109/113) printStringBase: 16) = '(6D/71)'.
+ self assert: ((109/113) storeStringBase: 16) = '(16r6D/16r71)'.
+ self assert: ((127/131) printStringBase: 17) = '(78/7C)'.
+ self assert: ((127/131) storeStringBase: 17) = '(17r78/17r7C)'.
+ self assert: ((137/139) printStringBase: 18) = '(7B/7D)'.
+ self assert: ((137/139) storeStringBase: 18) = '(18r7B/18r7D)'.
+ self assert: ((149/151) printStringBase: 19) = '(7G/7I)'.
+ self assert: ((149/151) storeStringBase: 19) = '(19r7G/19r7I)'.
+ self assert: ((157/163) printStringBase: 20) = '(7H/83)'.
+ self assert: ((157/163) storeStringBase: 20) = '(20r7H/20r83)'.
+ self assert: ((167/173) printStringBase: 21) = '(7K/85)'.
+ self assert: ((167/173) storeStringBase: 21) = '(21r7K/21r85)'.
+ self assert: ((179/181) printStringBase: 22) = '(83/85)'.
+ self assert: ((179/181) storeStringBase: 22) = '(22r83/22r85)'.
+ self assert: ((191/193) printStringBase: 23) = '(87/89)'.
+ self assert: ((191/193) storeStringBase: 23) = '(23r87/23r89)'.
+ self assert: ((197/199) printStringBase: 24) = '(85/87)'.
+ self assert: ((197/199) storeStringBase: 24) = '(24r85/24r87)'.
+ self assert: ((211/223) printStringBase: 25) = '(8B/8N)'.
+ self assert: ((211/223) storeStringBase: 25) = '(25r8B/25r8N)'.
+ self assert: ((227/229) printStringBase: 26) = '(8J/8L)'.
+ self assert: ((227/229) storeStringBase: 26) = '(26r8J/26r8L)'.
+ self assert: ((233/239) printStringBase: 27) = '(8H/8N)'.
+ self assert: ((233/239) storeStringBase: 27) = '(27r8H/27r8N)'.
+ self assert: ((241/251) printStringBase: 28) = '(8H/8R)'.
+ self assert: ((241/251) storeStringBase: 28) = '(28r8H/28r8R)'.
+ self assert: ((257/263) printStringBase: 29) = '(8P/92)'.
+ self assert: ((257/263) storeStringBase: 29) = '(29r8P/29r92)'.
+ self assert: ((269/271) printStringBase: 30) = '(8T/91)'.
+ self assert: ((269/271) storeStringBase: 30) = '(30r8T/30r91)'.
+ self assert: ((277/281) printStringBase: 31) = '(8T/92)'.
+ self assert: ((277/281) storeStringBase: 31) = '(31r8T/31r92)'.
+ self assert: ((283/293) printStringBase: 32) = '(8R/95)'.
+ self assert: ((283/293) storeStringBase: 32) = '(32r8R/32r95)'.
+ self assert: ((307/311) printStringBase: 33) = '(9A/9E)'.
+ self assert: ((307/311) storeStringBase: 33) = '(33r9A/33r9E)'.
+ self assert: ((313/317) printStringBase: 34) = '(97/9B)'.
+ self assert: ((313/317) storeStringBase: 34) = '(34r97/34r9B)'.
+ self assert: ((331/337) printStringBase: 35) = '(9G/9M)'.
+ self assert: ((331/337) storeStringBase: 35) = '(35r9G/35r9M)'.
+ self assert: ((347/349) printStringBase: 36) = '(9N/9P)'.
+ self assert: ((347/349) storeStringBase: 36) = '(36r9N/36r9P)'.
- self assert: ((-2/3) printStringBase: 2) = '(-10/11)'.
- self assert: ((-2/3) storeStringBase: 2) = '(-2r10/2r11)'.
- self assert: ((5/-7) printStringBase: 3) = '(-12/21)'.
- self assert: ((5/-7) storeStringBase: 3) = '(-3r12/3r21)'.
- ].
+ self assert: ((-2/3) printStringBase: 2) = '(-10/11)'.
+ self assert: ((-2/3) storeStringBase: 2) = '(-2r10/2r11)'.
+ self assert: ((5/-7) printStringBase: 3) = '(-12/21)'.
+ self assert: ((5/-7) storeStringBase: 3) = '(-3r12/3r21)'.
+ ].
!
testFractionReduction
- self assert: (100 factorial / 99 factorial) == 100.
+ self assert: (100 factorial / 99 factorial) == 100.
!
testMixedAddition
--- a/RegressionTests__GCTest.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__GCTest.st Thu Jun 30 09:02:08 2016 +0100
@@ -17,9 +17,9 @@
arr := Array new:100000.
100 timesRepeat:[
- 1 to:100000 do:[:i |
- arr at:i put:(Array new:1).
- ].
+ 1 to:100000 do:[:i |
+ arr at:i put:(Array new:1).
+ ].
].
"
--- a/RegressionTests__GraphicDrawingTest.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__GraphicDrawingTest.st Thu Jun 30 09:02:08 2016 +0100
@@ -23,21 +23,21 @@
!
test_01_Clear
- self
- _testDraw:[:form | ]
- thenCheck:[:form |
- |blackPixel whitePixel pix|
+ self
+ _testDraw:[:form | ]
+ thenCheck:[:form |
+ |blackPixel whitePixel pix|
- blackPixel := (Color black onDevice:Display) colorId.
- whitePixel := (Color white onDevice:Display) colorId.
+ blackPixel := (Color black onDevice:Display) colorId.
+ whitePixel := (Color white onDevice:Display) colorId.
- 0 to:form height-1 do:[:y |
- 0 to:form width-1 do:[:x |
- pix := form atX:x y:y.
- self assert:( pix == blackPixel )
- ]
- ]
- ]
+ 0 to:form height-1 do:[:y |
+ 0 to:form width-1 do:[:x |
+ pix := form atX:x y:y.
+ self assert:( pix == blackPixel )
+ ]
+ ]
+ ]
"
self new test_01_Clear
@@ -45,34 +45,34 @@
!
test_02_DrawHLine
- self
- _testDraw:[:form |
- form paint:Color white.
- form displayLineFromX:1 y:0 toX:form width-1-1 y:0.
- ]
- thenCheck:[:form |
- |blackPixel whitePixel pix|
+ self
+ _testDraw:[:form |
+ form paint:Color white.
+ form displayLineFromX:1 y:0 toX:form width-1-1 y:0.
+ ]
+ thenCheck:[:form |
+ |blackPixel whitePixel pix|
- blackPixel := (Color black onDevice:Display) colorId.
- whitePixel := (Color white onDevice:Display) colorId.
+ blackPixel := (Color black onDevice:Display) colorId.
+ whitePixel := (Color white onDevice:Display) colorId.
- 1 to:form height-1 do:[:y |
- 0 to:form width-1 do:[:x |
- pix := form atX:x y:y.
- self assert:( pix == blackPixel )
- ]
- ].
+ 1 to:form height-1 do:[:y |
+ 0 to:form width-1 do:[:x |
+ pix := form atX:x y:y.
+ self assert:( pix == blackPixel )
+ ]
+ ].
- pix := form atX:0 y:0.
- self assert:( pix == blackPixel ).
- pix := form atX:(form width-1) y:0.
- self assert:( pix == blackPixel ).
+ pix := form atX:0 y:0.
+ self assert:( pix == blackPixel ).
+ pix := form atX:(form width-1) y:0.
+ self assert:( pix == blackPixel ).
- 1 to:form width-2 do:[:x |
- pix := form atX:x y:0.
- self assert:( pix == whitePixel )
- ]
- ]
+ 1 to:form width-2 do:[:x |
+ pix := form atX:x y:0.
+ self assert:( pix == whitePixel )
+ ]
+ ]
"
self new test_02_DrawHLine
@@ -80,51 +80,51 @@
!
test_03_DrawRectangle
- self
- _testDraw:[:form |
- form paint:Color white.
- form displayRectangleX:1 y:1 width:(form width-1-1) height:(form height-1-1).
- ]
- thenCheck:[:form |
- |blackPixel whitePixel pix|
+ self
+ _testDraw:[:form |
+ form paint:Color white.
+ form displayRectangleX:1 y:1 width:(form width-1-1) height:(form height-1-1).
+ ]
+ thenCheck:[:form |
+ |blackPixel whitePixel pix|
- blackPixel := (Color black onDevice:Display) colorId.
- whitePixel := (Color white onDevice:Display) colorId.
+ blackPixel := (Color black onDevice:Display) colorId.
+ whitePixel := (Color white onDevice:Display) colorId.
- 2 to:form height-1-1-1 do:[:y |
- 2 to:form width-1-1-1 do:[:x |
- pix := form atX:x y:y.
- self assert:( pix == blackPixel )
- ]
- ].
+ 2 to:form height-1-1-1 do:[:y |
+ 2 to:form width-1-1-1 do:[:x |
+ pix := form atX:x y:y.
+ self assert:( pix == blackPixel )
+ ]
+ ].
- 0 to:form width-1 do:[:x |
- pix := form atX:x y:0.
- self assert:( pix == blackPixel )
- ].
- 0 to:form width-1 do:[:x |
- pix := form atX:x y:(form height-1).
- self assert:( pix == blackPixel )
- ].
- 0 to:form height-1 do:[:y |
- pix := form atX:0 y:y.
- self assert:( pix == blackPixel )
- ].
- 0 to:form height-1 do:[:y |
- pix := form atX:(form width-1) y:y.
- self assert:( pix == blackPixel )
- ].
+ 0 to:form width-1 do:[:x |
+ pix := form atX:x y:0.
+ self assert:( pix == blackPixel )
+ ].
+ 0 to:form width-1 do:[:x |
+ pix := form atX:x y:(form height-1).
+ self assert:( pix == blackPixel )
+ ].
+ 0 to:form height-1 do:[:y |
+ pix := form atX:0 y:y.
+ self assert:( pix == blackPixel )
+ ].
+ 0 to:form height-1 do:[:y |
+ pix := form atX:(form width-1) y:y.
+ self assert:( pix == blackPixel )
+ ].
- 1 to:form width-1-1 do:[:x |
- pix := form atX:x y:1.
- self assert:( pix == whitePixel )
- ].
- 1 to:form width-1-1 do:[:x |
- pix := form atX:x y:(form height-2).
- self assert:( pix == whitePixel )
- ].
+ 1 to:form width-1-1 do:[:x |
+ pix := form atX:x y:1.
+ self assert:( pix == whitePixel )
+ ].
+ 1 to:form width-1-1 do:[:x |
+ pix := form atX:x y:(form height-2).
+ self assert:( pix == whitePixel )
+ ].
- ]
+ ]
"
self new test_03_DrawRectangle
@@ -132,34 +132,34 @@
!
test_03_DrawVLine
- self
- _testDraw:[:form |
- form paint:Color white.
- form displayLineFromX:0 y:1 toX:0 y:form height-1-1.
- ]
- thenCheck:[:form |
- |blackPixel whitePixel pix|
+ self
+ _testDraw:[:form |
+ form paint:Color white.
+ form displayLineFromX:0 y:1 toX:0 y:form height-1-1.
+ ]
+ thenCheck:[:form |
+ |blackPixel whitePixel pix|
- blackPixel := (Color black onDevice:Display) colorId.
- whitePixel := (Color white onDevice:Display) colorId.
+ blackPixel := (Color black onDevice:Display) colorId.
+ whitePixel := (Color white onDevice:Display) colorId.
- 0 to:form height-1 do:[:y |
- 1 to:form width-1 do:[:x |
- pix := form atX:x y:y.
- self assert:( pix == blackPixel )
- ]
- ].
+ 0 to:form height-1 do:[:y |
+ 1 to:form width-1 do:[:x |
+ pix := form atX:x y:y.
+ self assert:( pix == blackPixel )
+ ]
+ ].
- pix := form atX:0 y:0.
- self assert:( pix == blackPixel ).
- pix := form atX:0 y:(form height-1).
- self assert:( pix == blackPixel ).
+ pix := form atX:0 y:0.
+ self assert:( pix == blackPixel ).
+ pix := form atX:0 y:(form height-1).
+ self assert:( pix == blackPixel ).
- 1 to:form height-2 do:[:y |
- pix := form atX:0 y:y.
- self assert:( pix == whitePixel )
- ]
- ]
+ 1 to:form height-2 do:[:y |
+ pix := form atX:0 y:y.
+ self assert:( pix == whitePixel )
+ ]
+ ]
"
self new test_03_DrawVLine
--- a/RegressionTests__HTMLParserTests.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__HTMLParserTests.st Thu Jun 30 09:02:08 2016 +0100
@@ -16,7 +16,7 @@
documentation to be added.
[author:]
- mb (mb@SUNGSAM)
+ mb (mb@SUNGSAM)
[instance variables:]
--- a/RegressionTests__HTTPServerTests.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__HTTPServerTests.st Thu Jun 30 09:02:08 2016 +0100
@@ -16,8 +16,8 @@
"common cleanup - invoked after testing."
server notNil ifTrue:[
- server terminateServer.
- server := nil.
+ server terminateServer.
+ server := nil.
].
super tearDown
! !
--- a/RegressionTests__ImageReaderTest.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__ImageReaderTest.st Thu Jun 30 09:02:08 2016 +0100
@@ -18,7 +18,7 @@
documentation to be added.
[author:]
- cg (cg@AQUA-DUO)
+ cg (cg@AQUA-DUO)
[instance variables:]
@@ -37,9 +37,9 @@
img := Image fromFile:(self class packageDirectory construct:'testData/bmpImages/test1.bmp').
self assert:(img notNil).
self assert:(img depth == 1).
-
+
"/ img inspect.
-
+
self assert:((img colorAtX:0 y:0) rgbValue = 16r4040FF).
self assert:((img colorAtX:0 y:63) rgbValue = 16r4040FF).
self assert:((img colorAtX:0 y:18) rgbValue = 16r40FF40).
@@ -181,32 +181,32 @@
img := Depth32Image width:16 height:16.
alpha := #[
- 0 0 0 0 63 63 63 63 127 127 127 127 255 255 255 255
- 0 0 0 0 63 63 63 63 127 127 127 127 255 255 255 255
- 0 0 0 0 63 63 63 63 127 127 127 127 255 255 255 255
- 0 0 0 0 63 63 63 63 127 127 127 127 255 255 255 255
+ 0 0 0 0 63 63 63 63 127 127 127 127 255 255 255 255
+ 0 0 0 0 63 63 63 63 127 127 127 127 255 255 255 255
+ 0 0 0 0 63 63 63 63 127 127 127 127 255 255 255 255
+ 0 0 0 0 63 63 63 63 127 127 127 127 255 255 255 255
- 0 0 0 0 63 63 63 63 127 127 127 127 255 255 255 255
- 0 0 0 0 63 63 63 63 127 127 127 127 255 255 255 255
- 0 0 0 0 63 63 63 63 127 127 127 127 255 255 255 255
- 0 0 0 0 63 63 63 63 127 127 127 127 255 255 255 255
+ 0 0 0 0 63 63 63 63 127 127 127 127 255 255 255 255
+ 0 0 0 0 63 63 63 63 127 127 127 127 255 255 255 255
+ 0 0 0 0 63 63 63 63 127 127 127 127 255 255 255 255
+ 0 0 0 0 63 63 63 63 127 127 127 127 255 255 255 255
- 0 0 0 0 63 63 63 63 127 127 127 127 255 255 255 255
- 0 0 0 0 63 63 63 63 127 127 127 127 255 255 255 255
- 0 0 0 0 63 63 63 63 127 127 127 127 255 255 255 255
- 0 0 0 0 63 63 63 63 127 127 127 127 255 255 255 255
+ 0 0 0 0 63 63 63 63 127 127 127 127 255 255 255 255
+ 0 0 0 0 63 63 63 63 127 127 127 127 255 255 255 255
+ 0 0 0 0 63 63 63 63 127 127 127 127 255 255 255 255
+ 0 0 0 0 63 63 63 63 127 127 127 127 255 255 255 255
- 0 0 0 0 63 63 63 63 127 127 127 127 255 255 255 255
- 0 0 0 0 63 63 63 63 127 127 127 127 255 255 255 255
- 0 0 0 0 63 63 63 63 127 127 127 127 255 255 255 255
- 0 0 0 0 63 63 63 63 127 127 127 127 255 255 255 255
- ].
+ 0 0 0 0 63 63 63 63 127 127 127 127 255 255 255 255
+ 0 0 0 0 63 63 63 63 127 127 127 127 255 255 255 255
+ 0 0 0 0 63 63 63 63 127 127 127 127 255 255 255 255
+ 0 0 0 0 63 63 63 63 127 127 127 127 255 255 255 255
+ ].
s := WriteStream on:#[].
alpha do:[:a |
- s nextPut:127. "/ r
- s nextPut:127. "/ g
- s nextPut:127. "/ b
- s nextPut:a.
+ s nextPut:127. "/ r
+ s nextPut:127. "/ g
+ s nextPut:127. "/ b
+ s nextPut:a.
].
bits := (s contents).
@@ -282,18 +282,18 @@
failed := OrderedCollection new.
allOK := true.
(self class packageDirectory construct:'testData/bmpImages') directoryContentsAsFilenamesDo:[:f |
- (f isRegularFile and:[f hasSuffix:'bmp']) ifTrue:[
- Error handle:[:ex |
- img := nil.
- ] do:[
- img := Image fromFile:f.
- ].
- img isNil ifTrue:[
- Transcript printf:'failed: %s\n' with:f baseName.
- allOK := false.
- failed add:f baseName.
- ].
- ].
+ (f isRegularFile and:[f hasSuffix:'bmp']) ifTrue:[
+ Error handle:[:ex |
+ img := nil.
+ ] do:[
+ img := Image fromFile:f.
+ ].
+ img isNil ifTrue:[
+ Transcript printf:'failed: %s\n' with:f baseName.
+ allOK := false.
+ failed add:f baseName.
+ ].
+ ].
].
self assert:allOK description:('failed to read: %s' printfWith:(failed asStringWith:', ')).
@@ -309,18 +309,18 @@
failed := OrderedCollection new.
allOK := true.
(self class packageDirectory construct:'testData/bmpImages/bmpsuite-2.4') directoryContentsAsFilenamesDo:[:f |
- (f isRegularFile and:[f hasSuffix:'bmp']) ifTrue:[
- Error handle:[:ex |
- img := nil.
- ] do:[
- img := Image fromFile:f.
- ].
- img isNil ifTrue:[
- Transcript printf:'failed: %s\n' with:f baseName.
- allOK := false.
- failed add:f baseName.
- ].
- ].
+ (f isRegularFile and:[f hasSuffix:'bmp']) ifTrue:[
+ Error handle:[:ex |
+ img := nil.
+ ] do:[
+ img := Image fromFile:f.
+ ].
+ img isNil ifTrue:[
+ Transcript printf:'failed: %s\n' with:f baseName.
+ allOK := false.
+ failed add:f baseName.
+ ].
+ ].
].
self assert:allOK description:('failed to read: %s' printfWith:(failed asStringWith:', ')).
@@ -339,29 +339,29 @@
failed := OrderedCollection new.
allOK := true.
(self class packageDirectory construct:'testData/pngImages') directoryContentsAsFilenamesDo:[:f |
- (f isRegularFile and:[f hasSuffix:'png']) ifTrue:[
- img := nil.
- (f baseName startsWith:'x') ifTrue:[
- "/ should fail
- self should:[ img := Image fromFile:f ] raise:(Image badImageFormatQuerySignal).
- self assert:img == nil.
- ] ifFalse:[
- Error handle:[:ex |
- img := nil.
- ] do:[
+ (f isRegularFile and:[f hasSuffix:'png']) ifTrue:[
+ img := nil.
+ (f baseName startsWith:'x') ifTrue:[
+ "/ should fail
+ self should:[ img := Image fromFile:f ] raise:(Image badImageFormatQuerySignal).
+ self assert:img == nil.
+ ] ifFalse:[
+ Error handle:[:ex |
+ img := nil.
+ ] do:[
img := Image fromFile:f.
- ].
- img isNil ifTrue:[
- Transcript printf:'failed: %s\n' with:f baseName.
- allOK := false.
- failed add:f baseName.
- ].
- ].
- ].
+ ].
+ img isNil ifTrue:[
+ Transcript printf:'failed: %s\n' with:f baseName.
+ allOK := false.
+ failed add:f baseName.
+ ].
+ ].
+ ].
].
"/ self assert:allOK description:('failed to read: %s' printfWith:(failed asStringWith:', ')).
allOK ifFalse:[
- self assert:(failed size == 4) description:('failed to read: %s' printfWith:(failed asStringWith:', ')).
+ self assert:(failed size == 4) description:('failed to read: %s' printfWith:(failed asStringWith:', ')).
].
"
@@ -378,15 +378,15 @@
img := Image fromFile:(self class packageDirectory construct:'testData/pngImages/basn0g01.png').
self assert:(img notNil).
- referenceImg := (Depth1Image new) width: 32; height: 32;
- photometric:(#palette);
- bitsPerSample:(#[1]);
- samplesPerPixel:(1);
- bits:(ByteArray fromPackedString:'
+ referenceImg := (Depth1Image new) width: 32; height: 32;
+ photometric:(#palette);
+ bitsPerSample:(#[1]);
+ samplesPerPixel:(1);
+ bits:(ByteArray fromPackedString:'
?????/????3????8????<OO3?>C3<??@<?O? OL3?0C3L?8@<3O<@O G>@C8A?@@?L? @O3O0@C??8@@??<@@O?>@@C??@@@?? O8O?0C>C?8@00?<@LLO>@
-C>C?@@? ? @LLO0@CCC8@@? <@@O8N@@@@C@@@@@ @@@@@@@@@@b') ;
- colorMapFromArray:#[0 0 0 255 255 255];
- yourself.
+C>C?@@? ? @LLO0@CCC8@@? <@@O8N@@@@C@@@@@ @@@@@@@@@@b') ;
+ colorMapFromArray:#[0 0 0 255 255 255];
+ yourself.
self assert:(img bits = referenceImg bits).
self assert:(img width = referenceImg width).
--- a/RegressionTests__JITTest.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__JITTest.st Thu Jun 30 09:02:08 2016 +0100
@@ -28,12 +28,12 @@
cond1:arg
arg == 0 ifTrue:[
- ^ 'zero'
+ ^ 'zero'
].
^ 'not zero'
"
- JITTest cond1:0
+ JITTest cond1:0
"
"Created: 16.8.1996 / 17:39:44 / cg"
@@ -42,12 +42,12 @@
cond2:arg
self size.
arg == 0 ifTrue:[
- ^ 'zero'
+ ^ 'zero'
].
^ 'not zero'
"
- JITTest cond2:0
+ JITTest cond2:0
"
"Created: 16.8.1996 / 17:39:44 / cg"
@@ -57,7 +57,7 @@
^ self send1:arg with:(Association new) with:thisContext sender
"
- JITTest send1:1
+ JITTest send1:1
"
"Created: 16.8.1996 / 17:39:44 / cg"
@@ -67,7 +67,7 @@
self halt
"
- JITTest send1:1
+ JITTest send1:1
"
"Created: 16.8.1996 / 17:39:44 / cg"
@@ -77,7 +77,7 @@
^ 5
"
- JITTest test1
+ JITTest test1
"
"Created: 16.8.1996 / 17:39:44 / cg"
@@ -127,7 +127,7 @@
^ 16rFFFF
"
- JITTest test5
+ JITTest test5
"
"Created: 16.8.1996 / 17:39:44 / cg"
@@ -137,7 +137,7 @@
^ -16rFFFF
"
- JITTest test5b
+ JITTest test5b
"
"Created: 16.8.1996 / 17:39:44 / cg"
@@ -147,7 +147,7 @@
^ -1
"
- JITTest test5c
+ JITTest test5c
"
"Created: 16.8.1996 / 17:39:44 / cg"
@@ -157,7 +157,7 @@
^ #hello
"
- JITTest test6
+ JITTest test6
"
"Created: 16.8.1996 / 17:39:44 / cg"
@@ -217,7 +217,7 @@
^ arg2
"
- JITTest test8b:1 a:2 a:3 a:4
+ JITTest test8b:1 a:2 a:3 a:4
"
"Created: 16.8.1996 / 17:39:44 / cg"
@@ -227,7 +227,7 @@
^ arg3
"
- JITTest test8c:1 a:2 a:3 a:4
+ JITTest test8c:1 a:2 a:3 a:4
"
"Created: 16.8.1996 / 17:39:44 / cg"
@@ -474,7 +474,7 @@
needUpdate := mTime notNil and:[mTime > i2].
"
- self new testAndGreater1
+ self new testAndGreater1
"
"Created: / 16.11.2001 / 00:07:52 / cg"
@@ -488,15 +488,15 @@
i3 := '.' asFilename.
self withWaitCursorDo:[
- i2 := i3 modificationTime.
- mTime := i3 modificationTime.
- "/ here, i2 refers to thisContext if the JITTER bug is in ...
- "/ at least on win32
- needUpdate := mTime notNil and:[mTime > i2].
+ i2 := i3 modificationTime.
+ mTime := i3 modificationTime.
+ "/ here, i2 refers to thisContext if the JITTER bug is in ...
+ "/ at least on win32
+ needUpdate := mTime notNil and:[mTime > i2].
]
"
- self new testAndGreater2
+ self new testAndGreater2
"
"Created: / 16.11.2001 / 00:08:49 / cg"
@@ -539,16 +539,16 @@
^ 1 + arg
"
- JITTest new add1:-1000
- JITTest new add1:-1
- JITTest new add1:0
- JITTest new add1:1
- JITTest new add1:1000
- JITTest new add1:SmallInteger maxVal
-
- JITTest new add1:-1.0
- JITTest new add1:0.0
- JITTest new add1:1.0
+ JITTest new add1:-1000
+ JITTest new add1:-1
+ JITTest new add1:0
+ JITTest new add1:1
+ JITTest new add1:1000
+ JITTest new add1:SmallInteger maxVal
+
+ JITTest new add1:-1.0
+ JITTest new add1:0.0
+ JITTest new add1:1.0
"
"Modified: / 3.6.1998 / 16:15:36 / cg"
@@ -558,15 +558,15 @@
^ 1.0 + arg
"
- JITTest new add2:-1000
- JITTest new add2:-1
- JITTest new add2:0
- JITTest new add2:1
- JITTest new add2:1000
-
- JITTest new add2:-1.0
- JITTest new add2:0.0
- JITTest new add2:1.0
+ JITTest new add2:-1000
+ JITTest new add2:-1
+ JITTest new add2:0
+ JITTest new add2:1
+ JITTest new add2:1000
+
+ JITTest new add2:-1.0
+ JITTest new add2:0.0
+ JITTest new add2:1.0
"
!
@@ -574,15 +574,15 @@
^ arg + 1
"
- JITTest new add3:-1000
- JITTest new add3:-1
- JITTest new add3:0
- JITTest new add3:1
- JITTest new add3:1000
-
- JITTest new add3:-1.0
- JITTest new add3:0.0
- JITTest new add3:1.0
+ JITTest new add3:-1000
+ JITTest new add3:-1
+ JITTest new add3:0
+ JITTest new add3:1
+ JITTest new add3:1000
+
+ JITTest new add3:-1.0
+ JITTest new add3:0.0
+ JITTest new add3:1.0
"
!
@@ -590,15 +590,15 @@
^ arg + 1.0
"
- JITTest new add4:-1000
- JITTest new add4:-1
- JITTest new add4:0
- JITTest new add4:1
- JITTest new add4:1000
-
- JITTest new add4:-1.0
- JITTest new add4:0.0
- JITTest new add4:1.0
+ JITTest new add4:-1000
+ JITTest new add4:-1
+ JITTest new add4:0
+ JITTest new add4:1
+ JITTest new add4:1000
+
+ JITTest new add4:-1.0
+ JITTest new add4:0.0
+ JITTest new add4:1.0
"
!
@@ -606,18 +606,18 @@
^ arg + arg
"
- JITTest new add5:-1000
- JITTest new add5:-1
- JITTest new add5:0
- JITTest new add5:1
- JITTest new add5:1000
-
- JITTest new add5:-1.0
- JITTest new add5:0.0
- JITTest new add5:1.0
- JITTest new add5:SmallInteger maxVal
- JITTest new add5:SmallInteger minVal
- JITTest new add5:nil
+ JITTest new add5:-1000
+ JITTest new add5:-1
+ JITTest new add5:0
+ JITTest new add5:1
+ JITTest new add5:1000
+
+ JITTest new add5:-1.0
+ JITTest new add5:0.0
+ JITTest new add5:1.0
+ JITTest new add5:SmallInteger maxVal
+ JITTest new add5:SmallInteger minVal
+ JITTest new add5:nil
"
!
@@ -625,27 +625,27 @@
^ arg * 2
"
- JITTest new mul1:0
- JITTest new mul1:-1
- JITTest new mul1:1
- JITTest new mul1:1000
- JITTest new mul1:-1000
- JITTest new mul1:(SmallInteger maxVal // 2 - 1)
- JITTest new mul1:(SmallInteger maxVal // 2)
- JITTest new mul1:(SmallInteger maxVal // 2 + 1)
+ JITTest new mul1:0
+ JITTest new mul1:-1
+ JITTest new mul1:1
+ JITTest new mul1:1000
+ JITTest new mul1:-1000
+ JITTest new mul1:(SmallInteger maxVal // 2 - 1)
+ JITTest new mul1:(SmallInteger maxVal // 2)
+ JITTest new mul1:(SmallInteger maxVal // 2 + 1)
JITTest new mul1:(SmallInteger maxVal // 2 + 2)
- JITTest new mul1:(SmallInteger maxVal + 1)
- JITTest new mul1:(SmallInteger maxVal)
- JITTest new mul1:(SmallInteger minVal // 2 - 1)
+ JITTest new mul1:(SmallInteger maxVal + 1)
+ JITTest new mul1:(SmallInteger maxVal)
+ JITTest new mul1:(SmallInteger minVal // 2 - 1)
JITTest new mul1:(SmallInteger minVal // 2)
JITTest new mul1:(SmallInteger minVal // 2 + 1)
JITTest new mul1:(SmallInteger minVal // 2 + 2)
JITTest new mul1:(SmallInteger minVal - 1)
JITTest new mul1:(SmallInteger minVal)
- JITTest new mul1:-1.0
- JITTest new mul1:0.0
- JITTest new mul1:1.0
+ JITTest new mul1:-1.0
+ JITTest new mul1:0.0
+ JITTest new mul1:1.0
"
"Modified: / 3.6.1998 / 16:15:36 / cg"
@@ -655,27 +655,27 @@
^ arg * 4
"
- JITTest new mul2:0
- JITTest new mul2:-1
- JITTest new mul2:1
- JITTest new mul2:1000
- JITTest new mul2:-1000
- JITTest new mul2:(SmallInteger maxVal // 2 - 1)
- JITTest new mul2:(SmallInteger maxVal // 2)
- JITTest new mul2:(SmallInteger maxVal // 2 + 1)
+ JITTest new mul2:0
+ JITTest new mul2:-1
+ JITTest new mul2:1
+ JITTest new mul2:1000
+ JITTest new mul2:-1000
+ JITTest new mul2:(SmallInteger maxVal // 2 - 1)
+ JITTest new mul2:(SmallInteger maxVal // 2)
+ JITTest new mul2:(SmallInteger maxVal // 2 + 1)
JITTest new mul2:(SmallInteger maxVal // 2 + 2)
- JITTest new mul2:(SmallInteger maxVal + 1)
- JITTest new mul2:(SmallInteger maxVal)
- JITTest new mul2:(SmallInteger minVal // 2 - 1)
+ JITTest new mul2:(SmallInteger maxVal + 1)
+ JITTest new mul2:(SmallInteger maxVal)
+ JITTest new mul2:(SmallInteger minVal // 2 - 1)
JITTest new mul2:(SmallInteger minVal // 2)
JITTest new mul2:(SmallInteger minVal // 2 + 1)
JITTest new mul2:(SmallInteger minVal // 2 + 2)
JITTest new mul2:(SmallInteger minVal - 1)
JITTest new mul2:(SmallInteger minVal)
- JITTest new mul2:-1.0
- JITTest new mul2:0.0
- JITTest new mul2:1.0
+ JITTest new mul2:-1.0
+ JITTest new mul2:0.0
+ JITTest new mul2:1.0
"
"Modified: / 3.6.1998 / 16:15:36 / cg"
@@ -685,17 +685,17 @@
^ 1 - arg
"
- JITTest new subtract1:-1000
- JITTest new subtract1:-1
- JITTest new subtract1:0
- JITTest new subtract1:1
- JITTest new subtract1:1000
-
- JITTest new subtract1:-1.0
- JITTest new subtract1:0.0
- JITTest new subtract1:1.0
- JITTest new subtract1:SmallInteger maxVal negated
- JITTest new subtract1:nil
+ JITTest new subtract1:-1000
+ JITTest new subtract1:-1
+ JITTest new subtract1:0
+ JITTest new subtract1:1
+ JITTest new subtract1:1000
+
+ JITTest new subtract1:-1.0
+ JITTest new subtract1:0.0
+ JITTest new subtract1:1.0
+ JITTest new subtract1:SmallInteger maxVal negated
+ JITTest new subtract1:nil
"
!
@@ -703,15 +703,15 @@
^ 1.0 - arg
"
- JITTest new subtract2:-1000
- JITTest new subtract2:-1
- JITTest new subtract2:0
- JITTest new subtract2:1
- JITTest new subtract2:1000
-
- JITTest new subtract2:-1.0
- JITTest new subtract2:0.0
- JITTest new subtract2:1.0
+ JITTest new subtract2:-1000
+ JITTest new subtract2:-1
+ JITTest new subtract2:0
+ JITTest new subtract2:1
+ JITTest new subtract2:1000
+
+ JITTest new subtract2:-1.0
+ JITTest new subtract2:0.0
+ JITTest new subtract2:1.0
"
! !
@@ -721,8 +721,8 @@
^ arg bitAnd:1
"
- JITTest new and1:1
- JITTest new and1:0
+ JITTest new and1:1
+ JITTest new and1:0
"
"Modified: / 3.6.1998 / 16:15:36 / cg"
@@ -732,8 +732,8 @@
^ arg bitOr:1
"
- JITTest new or1:1
- JITTest new or1:2
+ JITTest new or1:1
+ JITTest new or1:2
"
"Modified: / 3.6.1998 / 16:15:36 / cg"
@@ -743,8 +743,8 @@
^ arg bitXor:1
"
- JITTest new xor1:1
- JITTest new xor1:2
+ JITTest new xor1:1
+ JITTest new xor1:2
"
"Modified: / 3.6.1998 / 16:15:36 / cg"
@@ -950,52 +950,52 @@
"
!
-findFirst1:arg
+findFirst1:arg
|idx|
i1 := #(1 2 3 4) asOrderedCollection.
^ i1 findFirst:[:el | el == arg]
"
- self new findFirst1:1
- self new findFirst1:2
- self new findFirst1:3
- self new findFirst1:4
- self new findFirst1:0
- self new findFirst1:10
- self new findFirst1:4.0
+ self new findFirst1:1
+ self new findFirst1:2
+ self new findFirst1:3
+ self new findFirst1:4
+ self new findFirst1:0
+ self new findFirst1:10
+ self new findFirst1:4.0
"
!
-findFirst2:arg
+findFirst2:arg
|idx|
i1 := #(1 2 3 4) asOrderedCollection.
^ i1 findFirst:[:el | el = arg]
"
- self new findFirst2:1
- self new findFirst2:2
- self new findFirst2:3
- self new findFirst2:4
- self new findFirst2:0
- self new findFirst2:10
- self new findFirst2:4.0
+ self new findFirst2:1
+ self new findFirst2:2
+ self new findFirst2:3
+ self new findFirst2:4
+ self new findFirst2:0
+ self new findFirst2:10
+ self new findFirst2:4.0
"
!
-findFirst3:arg
+findFirst3:arg
i1 := #(1 2 3 4) asOrderedCollection.
^ self findFirst3b:arg
"
- self new findFirst3:1
- self new findFirst3:2
- self new findFirst3:3
- self new findFirst3:4
- self new findFirst3:0
- self new findFirst3:10
- self new findFirst3:4.0
+ self new findFirst3:1
+ self new findFirst3:2
+ self new findFirst3:3
+ self new findFirst3:4
+ self new findFirst3:0
+ self new findFirst3:10
+ self new findFirst3:4.0
"
!
@@ -1003,13 +1003,13 @@
^ i1 findFirst:[:el | el == arg]
"
- self new findFirst3:1
- self new findFirst3:2
- self new findFirst3:3
- self new findFirst3:4
- self new findFirst3:0
- self new findFirst3:10
- self new findFirst3:4.0
+ self new findFirst3:1
+ self new findFirst3:2
+ self new findFirst3:3
+ self new findFirst3:4
+ self new findFirst3:0
+ self new findFirst3:10
+ self new findFirst3:4.0
"
!
@@ -1026,9 +1026,9 @@
"
- JITTest new nilBlock2:#(1 2 3)
- JITTest new nilBlock2:#(1 2 3 4)
- JITTest new nilBlock2:#(1 2 3 4 5)
+ JITTest new nilBlock2:#(1 2 3)
+ JITTest new nilBlock2:#(1 2 3 4)
+ JITTest new nilBlock2:#(1 2 3 4 5)
"
!
@@ -1053,9 +1053,9 @@
"
- JITTest new zeroBlock2:#(1 2 3)
- JITTest new zeroBlock2:#(1 2 3 4)
- JITTest new zeroBlock2:#(1 2 3 4 5)
+ JITTest new zeroBlock2:#(1 2 3)
+ JITTest new zeroBlock2:#(1 2 3 4)
+ JITTest new zeroBlock2:#(1 2 3 4 5)
"
! !
@@ -1063,19 +1063,19 @@
compare10:arg
arg = 10 ifTrue:[
- ^ 11
+ ^ 11
].
^ nil
"
- JITTest new compare10:nil
- JITTest new compare10:9
- JITTest new compare10:10
- JITTest new compare10:11
- JITTest new compare10:9.0
- JITTest new compare10:10.0
- JITTest new compare10:11.0
- JITTest new compare10:false
+ JITTest new compare10:nil
+ JITTest new compare10:9
+ JITTest new compare10:10
+ JITTest new compare10:11
+ JITTest new compare10:9.0
+ JITTest new compare10:10.0
+ JITTest new compare10:11.0
+ JITTest new compare10:false
"
!
@@ -1083,18 +1083,18 @@
^ arg = 1
"
- JITTest new compare11:-1000
- JITTest new compare11:-1
- JITTest new compare11:0
- JITTest new compare11:1
- JITTest new compare11:2
- JITTest new compare11:1000
-
- JITTest new compare11:-1.0
- JITTest new compare11:0.0
- JITTest new compare11:1.0
- JITTest new compare11:2.0
- JITTest new compare11:3.0
+ JITTest new compare11:-1000
+ JITTest new compare11:-1
+ JITTest new compare11:0
+ JITTest new compare11:1
+ JITTest new compare11:2
+ JITTest new compare11:1000
+
+ JITTest new compare11:-1.0
+ JITTest new compare11:0.0
+ JITTest new compare11:1.0
+ JITTest new compare11:2.0
+ JITTest new compare11:3.0
"
!
@@ -1102,18 +1102,18 @@
^ arg == 1
"
- JITTest new compare12:-1000
- JITTest new compare12:-1
- JITTest new compare12:0
- JITTest new compare12:1
- JITTest new compare12:2
- JITTest new compare12:1000
-
- JITTest new compare12:-1.0
- JITTest new compare12:0.0
- JITTest new compare12:1.0
- JITTest new compare12:2.0
- JITTest new compare12:3.0
+ JITTest new compare12:-1000
+ JITTest new compare12:-1
+ JITTest new compare12:0
+ JITTest new compare12:1
+ JITTest new compare12:2
+ JITTest new compare12:1000
+
+ JITTest new compare12:-1.0
+ JITTest new compare12:0.0
+ JITTest new compare12:1.0
+ JITTest new compare12:2.0
+ JITTest new compare12:3.0
"
!
@@ -1121,15 +1121,15 @@
^ arg > 0
"
- JITTest new compare1:-1000
- JITTest new compare1:-1
- JITTest new compare1:0
- JITTest new compare1:1
- JITTest new compare1:1000
-
- JITTest new compare1:-1.0
- JITTest new compare1:0.0
- JITTest new compare1:1.0
+ JITTest new compare1:-1000
+ JITTest new compare1:-1
+ JITTest new compare1:0
+ JITTest new compare1:1
+ JITTest new compare1:1000
+
+ JITTest new compare1:-1.0
+ JITTest new compare1:0.0
+ JITTest new compare1:1.0
"
!
@@ -1137,15 +1137,15 @@
^ arg < 0
"
- JITTest new compare2:-1000
- JITTest new compare2:-1
- JITTest new compare2:0
- JITTest new compare2:1
- JITTest new compare2:1000
-
- JITTest new compare2:-1.0
- JITTest new compare2:0.0
- JITTest new compare2:1.0
+ JITTest new compare2:-1000
+ JITTest new compare2:-1
+ JITTest new compare2:0
+ JITTest new compare2:1
+ JITTest new compare2:1000
+
+ JITTest new compare2:-1.0
+ JITTest new compare2:0.0
+ JITTest new compare2:1.0
"
!
@@ -1153,15 +1153,15 @@
^ arg <= 0
"
- JITTest new compare3:-1000
- JITTest new compare3:-1
- JITTest new compare3:0
- JITTest new compare3:1
- JITTest new compare3:1000
-
- JITTest new compare3:-1.0
- JITTest new compare3:0.0
- JITTest new compare3:1.0
+ JITTest new compare3:-1000
+ JITTest new compare3:-1
+ JITTest new compare3:0
+ JITTest new compare3:1
+ JITTest new compare3:1000
+
+ JITTest new compare3:-1.0
+ JITTest new compare3:0.0
+ JITTest new compare3:1.0
"
!
@@ -1169,15 +1169,15 @@
^ arg >= 0
"
- JITTest new compare4:-1000
- JITTest new compare4:-1
- JITTest new compare4:0
- JITTest new compare4:1
- JITTest new compare4:1000
-
- JITTest new compare4:-1.0
- JITTest new compare4:0.0
- JITTest new compare4:1.0
+ JITTest new compare4:-1000
+ JITTest new compare4:-1
+ JITTest new compare4:0
+ JITTest new compare4:1
+ JITTest new compare4:1000
+
+ JITTest new compare4:-1.0
+ JITTest new compare4:0.0
+ JITTest new compare4:1.0
"
!
@@ -1185,18 +1185,18 @@
^ arg > 1
"
- JITTest new compare5:-1000
- JITTest new compare5:-1
- JITTest new compare5:0
- JITTest new compare5:1
- JITTest new compare5:2
- JITTest new compare5:1000
-
- JITTest new compare5:-1.0
- JITTest new compare5:0.0
- JITTest new compare5:1.0
- JITTest new compare5:2.0
- JITTest new compare5:3.0
+ JITTest new compare5:-1000
+ JITTest new compare5:-1
+ JITTest new compare5:0
+ JITTest new compare5:1
+ JITTest new compare5:2
+ JITTest new compare5:1000
+
+ JITTest new compare5:-1.0
+ JITTest new compare5:0.0
+ JITTest new compare5:1.0
+ JITTest new compare5:2.0
+ JITTest new compare5:3.0
"
!
@@ -1204,18 +1204,18 @@
^ arg <= 1
"
- JITTest new compare6:-1000
- JITTest new compare6:-1
- JITTest new compare6:0
- JITTest new compare6:1
- JITTest new compare6:2
- JITTest new compare6:1000
-
- JITTest new compare6:-1.0
- JITTest new compare6:0.0
- JITTest new compare6:1.0
- JITTest new compare6:2.0
- JITTest new compare6:3.0
+ JITTest new compare6:-1000
+ JITTest new compare6:-1
+ JITTest new compare6:0
+ JITTest new compare6:1
+ JITTest new compare6:2
+ JITTest new compare6:1000
+
+ JITTest new compare6:-1.0
+ JITTest new compare6:0.0
+ JITTest new compare6:1.0
+ JITTest new compare6:2.0
+ JITTest new compare6:3.0
"
!
@@ -1223,18 +1223,18 @@
^ arg < 1
"
- JITTest new compare7:-1000
- JITTest new compare7:-1
- JITTest new compare7:0
- JITTest new compare7:1
- JITTest new compare7:2
- JITTest new compare7:1000
-
- JITTest new compare7:-1.0
- JITTest new compare7:0.0
- JITTest new compare7:1.0
- JITTest new compare7:2.0
- JITTest new compare7:3.0
+ JITTest new compare7:-1000
+ JITTest new compare7:-1
+ JITTest new compare7:0
+ JITTest new compare7:1
+ JITTest new compare7:2
+ JITTest new compare7:1000
+
+ JITTest new compare7:-1.0
+ JITTest new compare7:0.0
+ JITTest new compare7:1.0
+ JITTest new compare7:2.0
+ JITTest new compare7:3.0
"
!
@@ -1242,33 +1242,33 @@
^ arg >= 1
"
- JITTest new compare8:-1000
- JITTest new compare8:-1
- JITTest new compare8:0
- JITTest new compare8:1
- JITTest new compare8:2
- JITTest new compare8:1000
-
- JITTest new compare8:-1.0
- JITTest new compare8:0.0
- JITTest new compare8:1.0
- JITTest new compare8:2.0
- JITTest new compare8:3.0
+ JITTest new compare8:-1000
+ JITTest new compare8:-1
+ JITTest new compare8:0
+ JITTest new compare8:1
+ JITTest new compare8:2
+ JITTest new compare8:1000
+
+ JITTest new compare8:-1.0
+ JITTest new compare8:0.0
+ JITTest new compare8:1.0
+ JITTest new compare8:2.0
+ JITTest new compare8:3.0
"
!
compare9:arg
arg == 10 ifTrue:[
- ^ 11
+ ^ 11
].
^ nil
"
- JITTest new compare9:nil
- JITTest new compare9:9
- JITTest new compare9:10
- JITTest new compare9:11
- JITTest new compare9:false
+ JITTest new compare9:nil
+ JITTest new compare9:9
+ JITTest new compare9:10
+ JITTest new compare9:11
+ JITTest new compare9:false
"
! !
@@ -1402,14 +1402,14 @@
tstEQ3
i1 == 0 ifTrue:[^ 0] ifFalse:[
- ^ 1
-
- "
- JITTest new testEQ3
- (JITTest new) instVarAt:1 put:0; testEQ3
- "
-
- "Created: 16.8.1996 / 17:39:44 / cg"
+ ^ 1
+
+ "
+ JITTest new testEQ3
+ (JITTest new) instVarAt:1 put:0; testEQ3
+ "
+
+ "Created: 16.8.1996 / 17:39:44 / cg"
]
!
@@ -1419,7 +1419,7 @@
"
JITTest new testEQ4
- (JITTest new) instVarAt:1 put:0; testEQ4
+ (JITTest new) instVarAt:1 put:0; testEQ4
"
!
@@ -1436,24 +1436,24 @@
tstNilAndNil
(i1 isNil and:[i2 isNil]) ifTrue:[
- Transcript showCR:'both nil'.
- ^ self
+ Transcript showCR:'both nil'.
+ ^ self
].
Transcript showCR:'any nonNil'
"
JITTest new tstNilAndNil
-
+
|j|
j := JITTest new.
j instVarNamed:'i1' put:1.
j tstNilAndNil
-
+
|j|
j := JITTest new.
j instVarNamed:'i2' put:1.
j tstNilAndNil
-
+
|j|
j := JITTest new.
j instVarNamed:'i1' put:1.
@@ -1466,25 +1466,25 @@
tstNilAndNil2
(i1 isNil and:[i2 isNil]) ifTrue:[
- "/ Transcript showCR:'both nil'.
- ^ 1
+ "/ Transcript showCR:'both nil'.
+ ^ 1
].
"/ Transcript showCR:'any nonNil'
^ 0
"
JITTest new tstNilAndNil2
-
+
|j|
j := JITTest new.
j instVarNamed:'i1' put:1.
j tstNilAndNil2
-
+
|j|
j := JITTest new.
j instVarNamed:'i2' put:1.
j tstNilAndNil2
-
+
|j|
j := JITTest new.
j instVarNamed:'i1' put:1.
@@ -1497,26 +1497,26 @@
tstNilAndNil3
(i1 isNil and:[i2 isNil]) ifTrue:[
- "/ Transcript showCR:'both nil'.
- ^ 1
+ "/ Transcript showCR:'both nil'.
+ ^ 1
] ifFalse:[
- "/ Transcript showCR:'any nonNil'
- ^ 0
+ "/ Transcript showCR:'any nonNil'
+ ^ 0
].
"
JITTest new tstNilAndNil3
-
+
|j|
j := JITTest new.
j instVarNamed:'i1' put:1.
j tstNilAndNil3
-
+
|j|
j := JITTest new.
j instVarNamed:'i2' put:1.
j tstNilAndNil3
-
+
|j|
j := JITTest new.
j instVarNamed:'i1' put:1.
@@ -1529,30 +1529,30 @@
tstNilOrNil
(i1 isNil or:[i2 isNil]) ifTrue:[
- Transcript showCR:'any nil'.
- ^ self
+ Transcript showCR:'any nil'.
+ ^ self
].
Transcript showCR:'both nonNil'
"
JITTest new testNilOrNil
-
+
|j|
j := JITTest new.
j instVarNamed:'i1' put:1.
j testNilOrNil
-
+
|j|
j := JITTest new.
j instVarNamed:'i2' put:1.
j testNilOrNil
-
+
|j|
j := JITTest new.
j instVarNamed:'i1' put:1.
j instVarNamed:'i2' put:1.
j testNilOrNil
-
+
"
"Created: 16.8.1996 / 17:39:44 / cg"
@@ -1560,29 +1560,29 @@
tstNilOrNil2
(i1 isNil or:[i2 isNil]) ifTrue:[
- ^ 1
+ ^ 1
].
^ 0
"
JITTest new testNilOrNil
-
+
|j|
j := JITTest new.
j instVarNamed:'i1' put:1.
j testNilOrNil
-
+
|j|
j := JITTest new.
j instVarNamed:'i2' put:1.
j testNilOrNil
-
+
|j|
j := JITTest new.
j instVarNamed:'i1' put:1.
j instVarNamed:'i2' put:1.
j testNilOrNil
-
+
"
"Created: 16.8.1996 / 17:39:44 / cg"
@@ -1590,30 +1590,30 @@
tstNilOrNil3
(i1 isNil or:[i2 isNil]) ifTrue:[
- ^ 1
+ ^ 1
] ifFalse:[
- ^ 0
+ ^ 0
].
"
JITTest new testNilOrNil
-
+
|j|
j := JITTest new.
j instVarNamed:'i1' put:1.
j testNilOrNil
-
+
|j|
j := JITTest new.
j instVarNamed:'i2' put:1.
j testNilOrNil
-
+
|j|
j := JITTest new.
j instVarNamed:'i1' put:1.
j instVarNamed:'i2' put:1.
j testNilOrNil
-
+
"
"Created: 16.8.1996 / 17:39:44 / cg"
@@ -1621,19 +1621,19 @@
tstNotNilAndNotNil
(i1 notNil and:[i2 notNil]) ifTrue:[
- Transcript showCR:'both notNil'.
- ^ self
+ Transcript showCR:'both notNil'.
+ ^ self
].
Transcript showCR:'any isNil'
"
JITTest new tstNotNilAndNotNil
-
+
|j|
j := JITTest new.
j instVarNamed:'i1' put:1.
j tstNotNilAndNotNil
-
+
|j|
j := JITTest new.
j instVarNamed:'i1' put:1.
@@ -1646,25 +1646,25 @@
tstNotNilAndNotNil2
(i1 notNil and:[i2 notNil]) ifTrue:[
- "/ Transcript showCR:'both nil'.
- ^ 1
+ "/ Transcript showCR:'both nil'.
+ ^ 1
].
"/ Transcript showCR:'any nonNil'
^ 0
"
JITTest new tstNotNilAndNotNil2
-
+
|j|
j := JITTest new.
j instVarNamed:'i1' put:1.
j tstNotNilAndNotNil2
-
+
|j|
j := JITTest new.
j instVarNamed:'i2' put:1.
j tstNotNilAndNotNil2
-
+
|j|
j := JITTest new.
j instVarNamed:'i1' put:1.
@@ -1677,26 +1677,26 @@
tstNotNilAndNotNil3
(i1 notNil and:[i2 notNil]) ifTrue:[
- "/ Transcript showCR:'both nil'.
- ^ 1
+ "/ Transcript showCR:'both nil'.
+ ^ 1
] ifFalse:[
- "/ Transcript showCR:'any nonNil'
- ^ 0
+ "/ Transcript showCR:'any nonNil'
+ ^ 0
].
"
JITTest new tstNotNilAndNotNil2
-
+
|j|
j := JITTest new.
j instVarNamed:'i1' put:1.
j tstNotNilAndNotNil2
-
+
|j|
j := JITTest new.
j instVarNamed:'i2' put:1.
j tstNotNilAndNotNil2
-
+
|j|
j := JITTest new.
j instVarNamed:'i1' put:1.
@@ -1709,20 +1709,20 @@
tstNotNilOrNotNil
(i1 notNil or:[i2 notNil]) ifTrue:[
- Transcript showCR:'any notNil'.
- ^ self
+ Transcript showCR:'any notNil'.
+ ^ self
].
Transcript showCR:'both nil'.
^ 0
"
JITTest new tstNotNilOrNotNil
-
+
|j|
j := JITTest new.
j instVarNamed:'i1' put:1.
j tstNotNilOrNotNil
-
+
|j|
j := JITTest new.
j instVarNamed:'i1' put:1.
@@ -1735,29 +1735,29 @@
tstNotNilOrNotNil2
(i1 notNil or:[i2 notNil]) ifTrue:[
- ^ 1
+ ^ 1
].
^ 0
"
JITTest new tstNotNilOrNotNil2
-
+
|j|
j := JITTest new.
j instVarNamed:'i1' put:1.
j tstNotNilOrNotNil2
-
+
|j|
j := JITTest new.
j instVarNamed:'i2' put:1.
j tstNotNilOrNotNil2
-
+
|j|
j := JITTest new.
j instVarNamed:'i1' put:1.
j instVarNamed:'i2' put:1.
j tstNotNilOrNotNil2
-
+
"
"Created: 16.8.1996 / 17:39:44 / cg"
@@ -1765,44 +1765,44 @@
tstNotNilOrNotNil3
(i1 notNil or:[i2 notNil]) ifTrue:[
- ^ 1
+ ^ 1
] ifFalse:[
- ^ 0
+ ^ 0
].
"
JITTest new tstNotNilOrNotNil2
-
+
|j|
j := JITTest new.
j instVarNamed:'i1' put:1.
j tstNotNilOrNotNil2
-
+
|j|
j := JITTest new.
j instVarNamed:'i2' put:1.
j tstNotNilOrNotNil2
-
+
|j|
j := JITTest new.
j instVarNamed:'i1' put:1.
j instVarNamed:'i2' put:1.
j tstNotNilOrNotNil2
-
+
"
"Created: 16.8.1996 / 17:39:44 / cg"
!
-tstOr1:arg
+tstOr1:arg
^ arg == #Foo or:[arg == #Bar]
!
-tstOr2:arg
+tstOr2:arg
^ arg == #Foo or:[arg == #Bar or:[arg == #Baz]]
!
-tstOr3
+tstOr3
(i1 isNil or:[i2 isNil]) ifTrue:[^ true].
^ (i4 isNil or:[i5 isNil]).
@@ -1811,7 +1811,7 @@
"
!
-tstOr4
+tstOr4
(i1 isNil or:[i2 isNil or:[i3 isNil]]) ifTrue:[^ true].
^ (i4 isNil or:[i5 isNil or:[i6 isNil]]).
@@ -1849,7 +1849,7 @@
]
"
- JITTest new loop1
+ JITTest new loop1
"
"Created: 16.8.1996 / 17:39:44 / cg"
@@ -1862,7 +1862,7 @@
]
"
- JITTest new loop1b
+ JITTest new loop1b
"
"Created: 16.8.1996 / 17:39:44 / cg"
@@ -1875,7 +1875,7 @@
]
"
- JITTest new loop1c
+ JITTest new loop1c
"
"Created: 16.8.1996 / 17:39:44 / cg"
@@ -1888,7 +1888,7 @@
]
"
- JITTest new loop1d
+ JITTest new loop1d
"
"Created: 16.8.1996 / 17:39:44 / cg"
@@ -1949,12 +1949,12 @@
i := 5.
[i > 0] whileTrue:[
- i printCR.
- i := i - 1.
+ i printCR.
+ i := i - 1.
]
"
- JITTest new loop2
+ JITTest new loop2
"
"Created: 16.8.1996 / 17:39:44 / cg"
@@ -1967,11 +1967,11 @@
i := 5.
[i > 0] whileTrue:[
- i := i - 1.
+ i := i - 1.
]
"
- JITTest new loop2a
+ JITTest new loop2a
"
"Created: 16.8.1996 / 17:39:44 / cg"
@@ -1984,8 +1984,8 @@
i := 5.
[i >= 0] whileTrue:[
- i printCR.
- i := i - 1.
+ i printCR.
+ i := i - 1.
]
"
@@ -2003,8 +2003,8 @@
i := 5.
[i >= 1] whileTrue:[
- i printCR.
- i := i - 1.
+ i printCR.
+ i := i - 1.
]
"
@@ -2018,7 +2018,7 @@
loop5
5 timesRepeat:[
- 'loop' printCR.
+ 'loop' printCR.
]
"
@@ -2035,8 +2035,8 @@
i := 5.
5 timesRepeat:[
- i := i - 1.
- 'loop' print. i printCR.
+ i := i - 1.
+ 'loop' print. i printCR.
]
"
@@ -2053,7 +2053,7 @@
j := 0.
1 to:10000 do:[:i |
- j := j + 1.
+ j := j + 1.
].
^ j.
@@ -2071,7 +2071,7 @@
j := 0.
1 to:10000 do:[:i |
- j := j + i.
+ j := j + i.
].
^ j.
@@ -2087,10 +2087,10 @@
i := -7.
[i <= 16] whileTrue: [
- (i >= 1 and: [i <= 8]) ifTrue:[ 'a' printCR.].
- i >= 2 ifTrue: ['b' printCR.].
- i <= 7 ifTrue: ['c' printCR.].
- i := i + 1
+ (i >= 1 and: [i <= 8]) ifTrue:[ 'a' printCR.].
+ i >= 2 ifTrue: ['b' printCR.].
+ i <= 7 ifTrue: ['c' printCR.].
+ i := i + 1
].
"
@@ -2100,23 +2100,23 @@
!JITTest methodsFor:'test - misc'!
-tstAsFloat:arg
+tstAsFloat:arg
|foo|
foo := arg asFloat.
^ foo
"
- self new testAsFloat:1
- self new testAsFloat:1.0
- self new testAsFloat:(1.0 asShortFloat)
+ self new testAsFloat:1
+ self new testAsFloat:1.0
+ self new testAsFloat:(1.0 asShortFloat)
"
"Created: / 9.6.1998 / 20:21:51 / cg"
"Modified: / 9.6.1998 / 20:22:40 / cg"
!
-tstAsInteger:arg
+tstAsInteger:arg
|foo|
foo := arg asInteger.
@@ -2131,60 +2131,60 @@
"Created: / 9.6.1998 / 20:21:51 / cg"
!
-tstEven:arg
+tstEven:arg
^ arg even
"
- self new testEven:1
- self new testEven:2
- self new testEven:1.0
- self new testEven:2.0
- self new testEven:(SmallInteger maxVal + 1)
- self new testEven:(SmallInteger maxVal + 2)
- self new testEven:(1.0 asShortFloat)
- self new testEven:(2.0 asShortFloat)
+ self new testEven:1
+ self new testEven:2
+ self new testEven:1.0
+ self new testEven:2.0
+ self new testEven:(SmallInteger maxVal + 1)
+ self new testEven:(SmallInteger maxVal + 2)
+ self new testEven:(1.0 asShortFloat)
+ self new testEven:(2.0 asShortFloat)
self new testEven:(Object new)
"
!
-tstIsInteger:arg
+tstIsInteger:arg
^ arg isInteger
"
- self new testIsInteger:1
- self new testIsInteger:1.0
- self new testIsInteger:(1.0 asShortFloat)
+ self new testIsInteger:1
+ self new testIsInteger:1.0
+ self new testIsInteger:(1.0 asShortFloat)
"
"Modified: / 9.6.1998 / 20:22:24 / cg"
!
-tstIsReal:arg
+tstIsReal:arg
^ arg isReal
"
- self new testIsReal:1
- self new testIsReal:1.0
- self new testIsReal:(1.0 asShortFloat)
+ self new testIsReal:1
+ self new testIsReal:1.0
+ self new testIsReal:(1.0 asShortFloat)
"
"Modified: / 9.6.1998 / 20:22:24 / cg"
"Created: / 9.6.1998 / 20:23:16 / cg"
!
-tstOdd:arg
+tstOdd:arg
^ arg odd
"
- self new testOdd:1
- self new testOdd:2
- self new testOdd:1.0
- self new testOdd:2.0
- self new testOdd:(SmallInteger maxVal + 1)
- self new testOdd:(SmallInteger maxVal + 2)
- self new testOdd:(1.0 asShortFloat)
- self new testOdd:(2.0 asShortFloat)
- self new testOdd:(Object new)
+ self new testOdd:1
+ self new testOdd:2
+ self new testOdd:1.0
+ self new testOdd:2.0
+ self new testOdd:(SmallInteger maxVal + 1)
+ self new testOdd:(SmallInteger maxVal + 2)
+ self new testOdd:(1.0 asShortFloat)
+ self new testOdd:(2.0 asShortFloat)
+ self new testOdd:(Object new)
"
!
@@ -2192,15 +2192,15 @@
|x|
x := 0.
- 1 to:100 do:[:i |
- i odd ifTrue:[
- x := x + 1
- ] ifFalse:[x := x - 1]
+ 1 to:100 do:[:i |
+ i odd ifTrue:[
+ x := x + 1
+ ] ifFalse:[x := x - 1]
].
^ x
"
- self new testOddEven1
+ self new testOddEven1
"
!
@@ -2213,7 +2213,7 @@
v value:(Date today + 1).
"
- self new tstValueHolderCode1
+ self new tstValueHolderCode1
"
!
@@ -2227,7 +2227,7 @@
^ v.
"
- self new tstValueHolderCode2
+ self new tstValueHolderCode2
"
! !
@@ -2235,429 +2235,429 @@
runPerformTestArg
(self perform:#'tstargs9:_:_:_:_:_:_:_:_:'
- withArguments:#(1 2 3 4 5 6 7 8 9)) ~~ 9 ifTrue:[
- self halt
+ withArguments:#(1 2 3 4 5 6 7 8 9)) ~~ 9 ifTrue:[
+ self halt
].
(self perform:#'tstargs9_l:_:_:_:_:_:_:_:_:'
- withArguments:#(1 2 3 4 5 6 7 8 9)) ~~ 9 ifTrue:[
- self halt
-
- "
- JITTest new runPerformTestArg
- "
-
- "Modified: / 19.4.1999 / 22:05:29 / cg"
+ withArguments:#(1 2 3 4 5 6 7 8 9)) ~~ 9 ifTrue:[
+ self halt
+
+ "
+ JITTest new runPerformTestArg
+ "
+
+ "Modified: / 19.4.1999 / 22:05:29 / cg"
]
!
runTestArg
(self tstargs1:1) ~~ 1 ifTrue:[
- self halt
+ self halt
].
(self tstargs1:nil) ~~ nil ifTrue:[
- self halt
+ self halt
].
(self tstargs2:1 _:2) ~~ 2 ifTrue:[
- self halt
+ self halt
].
(self tstargs2:2 _:1) ~~ 1 ifTrue:[
- self halt
+ self halt
].
- (self
- tstargs3:1
- _:2
- _:3) ~~ 3 ifTrue:[
- self halt
+ (self
+ tstargs3:1
+ _:2
+ _:3) ~~ 3 ifTrue:[
+ self halt
].
- (self
- tstargs3:3
- _:2
- _:1) ~~ 1 ifTrue:[
- self halt
+ (self
+ tstargs3:3
+ _:2
+ _:1) ~~ 1 ifTrue:[
+ self halt
].
- (self
- tstargs4:1
- _:2
- _:3
- _:4) ~~ 4 ifTrue:[
- self halt
+ (self
+ tstargs4:1
+ _:2
+ _:3
+ _:4) ~~ 4 ifTrue:[
+ self halt
].
- (self
- tstargs4:4
- _:3
- _:2
- _:1) ~~ 1 ifTrue:[
- self halt
+ (self
+ tstargs4:4
+ _:3
+ _:2
+ _:1) ~~ 1 ifTrue:[
+ self halt
].
- (self
- tstargs5:1
- _:2
- _:3
- _:4
- _:5) ~~ 5 ifTrue:[
- self halt
+ (self
+ tstargs5:1
+ _:2
+ _:3
+ _:4
+ _:5) ~~ 5 ifTrue:[
+ self halt
].
- (self
- tstargs5:5
- _:4
- _:3
- _:2
- _:1) ~~ 1 ifTrue:[
- self halt
+ (self
+ tstargs5:5
+ _:4
+ _:3
+ _:2
+ _:1) ~~ 1 ifTrue:[
+ self halt
].
- (self
- tstargs6:1
- _:2
- _:3
- _:4
- _:5
- _:6) ~~ 6 ifTrue:[
- self halt
+ (self
+ tstargs6:1
+ _:2
+ _:3
+ _:4
+ _:5
+ _:6) ~~ 6 ifTrue:[
+ self halt
].
- (self
- tstargs6:6
- _:5
- _:4
- _:3
- _:2
- _:1) ~~ 1 ifTrue:[
- self halt
+ (self
+ tstargs6:6
+ _:5
+ _:4
+ _:3
+ _:2
+ _:1) ~~ 1 ifTrue:[
+ self halt
].
- (self
- tstargs7:1
- _:2
- _:3
- _:4
- _:5
- _:6
- _:7) ~~ 7 ifTrue:[
- self halt
+ (self
+ tstargs7:1
+ _:2
+ _:3
+ _:4
+ _:5
+ _:6
+ _:7) ~~ 7 ifTrue:[
+ self halt
].
- (self
- tstargs7:7
- _:6
- _:5
- _:4
- _:3
- _:2
- _:1) ~~ 1 ifTrue:[
- self halt
+ (self
+ tstargs7:7
+ _:6
+ _:5
+ _:4
+ _:3
+ _:2
+ _:1) ~~ 1 ifTrue:[
+ self halt
].
- (self
- tstargs8:1
- _:2
- _:3
- _:4
- _:5
- _:6
- _:7
- _:8) ~~ 8 ifTrue:[
- self halt
+ (self
+ tstargs8:1
+ _:2
+ _:3
+ _:4
+ _:5
+ _:6
+ _:7
+ _:8) ~~ 8 ifTrue:[
+ self halt
].
- (self
- tstargs8:8
- _:7
- _:6
- _:5
- _:4
- _:3
- _:2
- _:1) ~~ 1 ifTrue:[
- self halt
+ (self
+ tstargs8:8
+ _:7
+ _:6
+ _:5
+ _:4
+ _:3
+ _:2
+ _:1) ~~ 1 ifTrue:[
+ self halt
].
- (self
- tstargs9:1
- _:2
- _:3
- _:4
- _:5
- _:6
- _:7
- _:8
- _:9) ~~ 9 ifTrue:[
- self halt
+ (self
+ tstargs9:1
+ _:2
+ _:3
+ _:4
+ _:5
+ _:6
+ _:7
+ _:8
+ _:9) ~~ 9 ifTrue:[
+ self halt
].
- (self
- tstargs9:9
- _:8
- _:7
- _:6
- _:5
- _:4
- _:3
- _:2
- _:1) ~~ 1 ifTrue:[
- self halt
-
- "
- JITTest new runTestArg
- "
-
- "Modified: / 19.4.1999 / 22:02:09 / cg"
+ (self
+ tstargs9:9
+ _:8
+ _:7
+ _:6
+ _:5
+ _:4
+ _:3
+ _:2
+ _:1) ~~ 1 ifTrue:[
+ self halt
+
+ "
+ JITTest new runTestArg
+ "
+
+ "Modified: / 19.4.1999 / 22:02:09 / cg"
]
!
runTestArg_l
(self tstargs1_l:1) ~~ 1 ifTrue:[
- self halt
+ self halt
].
(self tstargs1_l:nil) ~~ nil ifTrue:[
- self halt
+ self halt
].
(self tstargs2_l:1 _:2) ~~ 2 ifTrue:[
- self halt
+ self halt
].
(self tstargs2_l:2 _:1) ~~ 1 ifTrue:[
- self halt
+ self halt
].
- (self
- tstargs3_l:1
- _:2
- _:3) ~~ 3 ifTrue:[
- self halt
+ (self
+ tstargs3_l:1
+ _:2
+ _:3) ~~ 3 ifTrue:[
+ self halt
].
- (self
- tstargs3_l:3
- _:2
- _:1) ~~ 1 ifTrue:[
- self halt
+ (self
+ tstargs3_l:3
+ _:2
+ _:1) ~~ 1 ifTrue:[
+ self halt
].
- (self
- tstargs4_l:1
- _:2
- _:3
- _:4) ~~ 4 ifTrue:[
- self halt
+ (self
+ tstargs4_l:1
+ _:2
+ _:3
+ _:4) ~~ 4 ifTrue:[
+ self halt
].
- (self
- tstargs4_l:4
- _:3
- _:2
- _:1) ~~ 1 ifTrue:[
- self halt
+ (self
+ tstargs4_l:4
+ _:3
+ _:2
+ _:1) ~~ 1 ifTrue:[
+ self halt
].
- (self
- tstargs5_l:1
- _:2
- _:3
- _:4
- _:5) ~~ 5 ifTrue:[
- self halt
+ (self
+ tstargs5_l:1
+ _:2
+ _:3
+ _:4
+ _:5) ~~ 5 ifTrue:[
+ self halt
].
- (self
- tstargs5_l:5
- _:4
- _:3
- _:2
- _:1) ~~ 1 ifTrue:[
- self halt
+ (self
+ tstargs5_l:5
+ _:4
+ _:3
+ _:2
+ _:1) ~~ 1 ifTrue:[
+ self halt
].
- (self
- tstargs6_l:1
- _:2
- _:3
- _:4
- _:5
- _:6) ~~ 6 ifTrue:[
- self halt
+ (self
+ tstargs6_l:1
+ _:2
+ _:3
+ _:4
+ _:5
+ _:6) ~~ 6 ifTrue:[
+ self halt
].
- (self
- tstargs6_l:6
- _:5
- _:4
- _:3
- _:2
- _:1) ~~ 1 ifTrue:[
- self halt
+ (self
+ tstargs6_l:6
+ _:5
+ _:4
+ _:3
+ _:2
+ _:1) ~~ 1 ifTrue:[
+ self halt
].
- (self
- tstargs7_l:1
- _:2
- _:3
- _:4
- _:5
- _:6
- _:7) ~~ 7 ifTrue:[
- self halt
+ (self
+ tstargs7_l:1
+ _:2
+ _:3
+ _:4
+ _:5
+ _:6
+ _:7) ~~ 7 ifTrue:[
+ self halt
].
- (self
- tstargs7_l:7
- _:6
- _:5
- _:4
- _:3
- _:2
- _:1) ~~ 1 ifTrue:[
- self halt
+ (self
+ tstargs7_l:7
+ _:6
+ _:5
+ _:4
+ _:3
+ _:2
+ _:1) ~~ 1 ifTrue:[
+ self halt
].
- (self
- tstargs8_l:1
- _:2
- _:3
- _:4
- _:5
- _:6
- _:7
- _:8) ~~ 8 ifTrue:[
- self halt
+ (self
+ tstargs8_l:1
+ _:2
+ _:3
+ _:4
+ _:5
+ _:6
+ _:7
+ _:8) ~~ 8 ifTrue:[
+ self halt
].
- (self
- tstargs8_l:8
- _:7
- _:6
- _:5
- _:4
- _:3
- _:2
- _:1) ~~ 1 ifTrue:[
- self halt
+ (self
+ tstargs8_l:8
+ _:7
+ _:6
+ _:5
+ _:4
+ _:3
+ _:2
+ _:1) ~~ 1 ifTrue:[
+ self halt
].
- (self
- tstargs9_l:1
- _:2
- _:3
- _:4
- _:5
- _:6
- _:7
- _:8
- _:9) ~~ 9 ifTrue:[
- self halt
+ (self
+ tstargs9_l:1
+ _:2
+ _:3
+ _:4
+ _:5
+ _:6
+ _:7
+ _:8
+ _:9) ~~ 9 ifTrue:[
+ self halt
].
- (self
- tstargs9_l:9
- _:8
- _:7
- _:6
- _:5
- _:4
- _:3
- _:2
- _:1) ~~ 1 ifTrue:[
- self halt
-
- "
- JITTest new runTestArg_l
- "
-
- "Modified: / 19.4.1999 / 22:02:09 / cg"
- "Created: / 19.4.1999 / 22:03:13 / cg"
+ (self
+ tstargs9_l:9
+ _:8
+ _:7
+ _:6
+ _:5
+ _:4
+ _:3
+ _:2
+ _:1) ~~ 1 ifTrue:[
+ self halt
+
+ "
+ JITTest new runTestArg_l
+ "
+
+ "Modified: / 19.4.1999 / 22:02:09 / cg"
+ "Created: / 19.4.1999 / 22:03:13 / cg"
]
!
-tstArgEQ:arg
+tstArgEQ:arg
arg == #'==' ifTrue:[
- ^ true
+ ^ true
].
arg == #'~~' ifTrue:[
- ^ true
+ ^ true
].
arg == #'=' ifTrue:[
- ^ true
+ ^ true
].
^ false
"
- JITTest new testArgEQ:1
- JITTest new testArgEQ:#==
- JITTest new testArgEQ:#~~
- JITTest new testArgEQ:#=
- JITTest new testArgEQ:#foo
+ JITTest new testArgEQ:1
+ JITTest new testArgEQ:#==
+ JITTest new testArgEQ:#~~
+ JITTest new testArgEQ:#=
+ JITTest new testArgEQ:#foo
"
"Created: 16.8.1996 / 17:39:44 / cg"
!
-tstarg1:arg
+tstarg1:arg
^ arg
"
- JITTest new testarg1:1
- JITTest new testarg1:0
+ JITTest new testarg1:1
+ JITTest new testarg1:0
"
"Created: / 16.8.1996 / 17:39:44 / cg"
"Modified: / 3.6.1998 / 15:49:29 / cg"
!
-tstarg2:arg1 arg:arg2
+tstarg2:arg1 arg:arg2
^ arg2
"
- JITTest new testarg2:1 arg:2
- JITTest new testarg2:0 arg:1
+ JITTest new testarg2:1 arg:2
+ JITTest new testarg2:0 arg:1
"
"Created: 16.8.1996 / 17:39:44 / cg"
!
-tstarg3:arg
+tstarg3:arg
|l1|
l1 := 1.
^ arg
"
- JITTest new testarg3:1
- JITTest new testarg3:0
+ JITTest new testarg3:1
+ JITTest new testarg3:0
"
"Created: 16.8.1996 / 17:39:44 / cg"
!
-tstarg4:arg1 arg:arg2
+tstarg4:arg1 arg:arg2
|l1|
l1 := 1.
^ arg1
"
- JITTest new testarg4:1 arg:2
- JITTest new testarg4:0 arg:1
+ JITTest new testarg4:1 arg:2
+ JITTest new testarg4:0 arg:1
"
"Created: 16.8.1996 / 17:39:44 / cg"
!
-tstarg5:arg1 arg:arg2
+tstarg5:arg1 arg:arg2
|l1|
l1 := 1.
^ arg2
"
- JITTest new testarg5:1 arg:2
- JITTest new testarg5:0 arg:1
+ JITTest new testarg5:1 arg:2
+ JITTest new testarg5:0 arg:1
"
"Created: 16.8.1996 / 17:39:44 / cg"
!
-tstargs1:a1
+tstargs1:a1
^ a1
"
- JITTest new testargs1:1
+ JITTest new testargs1:1
"
"Created: / 3.6.1998 / 21:04:31 / cg"
!
-tstargs1_l:a1
+tstargs1_l:a1
|l|
l := 1.
^ a1
"
- JITTest new testargs1_l:1
+ JITTest new testargs1_l:1
"
"Created: / 3.6.1998 / 21:04:31 / cg"
"Modified: / 3.6.1998 / 23:36:57 / cg"
!
-tstargs2:a1 _:a2
+tstargs2:a1 _:a2
^ a2
"
@@ -2668,7 +2668,7 @@
"Modified: / 3.6.1998 / 21:05:56 / cg"
!
-tstargs2_l:a1 _:a2
+tstargs2_l:a1 _:a2
|l|
l := 1.
@@ -2682,7 +2682,7 @@
"Modified: / 3.6.1998 / 23:37:41 / cg"
!
-tstargs3:a1 _:a2 _:a3
+tstargs3:a1 _:a2 _:a3
^ a3
"
@@ -2692,7 +2692,7 @@
"Created: / 3.6.1998 / 21:05:14 / cg"
!
-tstargs3_l:a1 _:a2 _:a3
+tstargs3_l:a1 _:a2 _:a3
|l|
l := 1.
@@ -2706,7 +2706,7 @@
"Modified: / 3.6.1998 / 23:37:44 / cg"
!
-tstargs4:a1 _:a2 _:a3 _:a4
+tstargs4:a1 _:a2 _:a3 _:a4
^ a4
"
@@ -2717,7 +2717,7 @@
"Modified: / 3.6.1998 / 21:05:50 / cg"
!
-tstargs4_l:a1 _:a2 _:a3 _:a4
+tstargs4_l:a1 _:a2 _:a3 _:a4
|l|
l := 1.
@@ -2731,7 +2731,7 @@
"Modified: / 3.6.1998 / 23:37:48 / cg"
!
-tstargs5:a1 _:a2 _:a3 _:a4 _:a5
+tstargs5:a1 _:a2 _:a3 _:a4 _:a5
^ a5
"
@@ -2742,7 +2742,7 @@
"Modified: / 3.6.1998 / 21:05:47 / cg"
!
-tstargs5_l:a1 _:a2 _:a3 _:a4 _:a5
+tstargs5_l:a1 _:a2 _:a3 _:a4 _:a5
|l|
l := 1.
@@ -2756,7 +2756,7 @@
"Modified: / 3.6.1998 / 23:37:50 / cg"
!
-tstargs6:a1 _:a2 _:a3 _:a4 _:a5 _:a6
+tstargs6:a1 _:a2 _:a3 _:a4 _:a5 _:a6
^ a6
"
@@ -2766,7 +2766,7 @@
"Created: / 3.6.1998 / 21:05:44 / cg"
!
-tstargs6_l:a1 _:a2 _:a3 _:a4 _:a5 _:a6
+tstargs6_l:a1 _:a2 _:a3 _:a4 _:a5 _:a6
|l|
l := 1.
@@ -2780,7 +2780,7 @@
"Modified: / 3.6.1998 / 23:37:54 / cg"
!
-tstargs7:a1 _:a2 _:a3 _:a4 _:a5 _:a6 _:a7
+tstargs7:a1 _:a2 _:a3 _:a4 _:a5 _:a6 _:a7
^ a7
"
@@ -2791,7 +2791,7 @@
"Modified: / 3.6.1998 / 21:15:35 / cg"
!
-tstargs7_l:a1 _:a2 _:a3 _:a4 _:a5 _:a6 _:a7
+tstargs7_l:a1 _:a2 _:a3 _:a4 _:a5 _:a6 _:a7
|l|
l := 1.
@@ -2805,7 +2805,7 @@
"Modified: / 3.6.1998 / 23:37:57 / cg"
!
-tstargs8:a1 _:a2 _:a3 _:a4 _:a5 _:a6 _:a7 _:a8
+tstargs8:a1 _:a2 _:a3 _:a4 _:a5 _:a6 _:a7 _:a8
^ a8
"
@@ -2815,7 +2815,7 @@
"Created: / 3.6.1998 / 21:15:52 / cg"
!
-tstargs8_l:a1 _:a2 _:a3 _:a4 _:a5 _:a6 _:a7 _:a8
+tstargs8_l:a1 _:a2 _:a3 _:a4 _:a5 _:a6 _:a7 _:a8
|l|
l := 1.
@@ -2829,25 +2829,25 @@
"Modified: / 3.6.1998 / 23:38:01 / cg"
!
-tstargs9:a1 _:a2 _:a3 _:a4 _:a5 _:a6 _:a7 _:a8 _:a9
+tstargs9:a1 _:a2 _:a3 _:a4 _:a5 _:a6 _:a7 _:a8 _:a9
^ a9
"
- JITTest new testargs9:1 _:2 _:3 _:4 _:5 _:6 _:7 _:8 _:9
+ JITTest new testargs9:1 _:2 _:3 _:4 _:5 _:6 _:7 _:8 _:9
"
"Created: / 3.6.1998 / 21:05:44 / cg"
"Modified: / 3.6.1998 / 21:16:55 / cg"
!
-tstargs9_l:a1 _:a2 _:a3 _:a4 _:a5 _:a6 _:a7 _:a8 _:a9
+tstargs9_l:a1 _:a2 _:a3 _:a4 _:a5 _:a6 _:a7 _:a8 _:a9
|l|
l := 1.
^ a9
"
- JITTest new testargs9_l:1 _:2 _:3 _:4 _:5 _:6 _:7 _:8 _:9
+ JITTest new testargs9_l:1 _:2 _:3 _:4 _:5 _:6 _:7 _:8 _:9
"
"Created: / 3.6.1998 / 23:37:33 / cg"
@@ -2860,7 +2860,7 @@
^ 'hello'
"
- JITTest new test10b
+ JITTest new test10b
"
"Created: 16.8.1996 / 17:39:44 / cg"
@@ -2870,8 +2870,8 @@
^ 'world'
"
- JITTest new test10c
- JITTest new test10b
+ JITTest new test10c
+ JITTest new test10b
"
"Created: 16.8.1996 / 17:39:44 / cg"
@@ -2934,15 +2934,15 @@
^ i2
"
- JITTest new tst10
- (JITTest new) instVarAt:2 put:555; tst10
+ JITTest new tst10
+ (JITTest new) instVarAt:2 put:555; tst10
"
"Created: / 16.8.1996 / 17:39:44 / cg"
"Modified: / 3.6.1998 / 15:49:54 / cg"
!
-tst12:arg
+tst12:arg
i1 := arg.
i2 := 0
@@ -3083,7 +3083,7 @@
^ false
"
- JITTest new tst14h
+ JITTest new tst14h
"
"Created: 16.8.1996 / 17:39:44 / cg"
@@ -3201,7 +3201,7 @@
^ i1
"
- JITTest new tst9
+ JITTest new tst9
"
"Created: 16.8.1996 / 17:39:44 / cg"
@@ -3319,12 +3319,12 @@
"
JITTest new testLocal5
-
+
|t|
t := self new.
Time millisecondsToRun:[
1000000 timesRepeat:[t testLocal5]
- ] 798 809 808 808 801 798 835
+ ] 798 809 808 808 801 798 835
"
!
@@ -3332,13 +3332,13 @@
|l1 l2|
1000000 timesRepeat:[
- l1 := nil.
- l2 := nil
- ]
+ l1 := nil.
+ l2 := nil
+ ]
"
JITTest new testLocal5
-
+
|t|
t := self new.
Time millisecondsToRun:[
@@ -3358,7 +3358,7 @@
"
- JITTest new testBlock0 value
+ JITTest new testBlock0 value
"
"Modified: / 3.6.1998 / 21:18:37 / cg"
@@ -3367,7 +3367,7 @@
!
tstBlock1
- ^ [:arg |
+ ^ [:arg |
|l1|
l1 := arg.
@@ -3375,7 +3375,7 @@
"
- JITTest new testBlock1 value:1
+ JITTest new testBlock1 value:1
"
"Modified: / 3.6.1998 / 21:18:37 / cg"
@@ -3384,7 +3384,7 @@
!
tstBlock10
- ^ [:arg1 :arg2 :arg3 :arg4 :arg5 :arg6 :arg7 :arg8 :arg9 :arg10 |
+ ^ [:arg1 :arg2 :arg3 :arg4 :arg5 :arg6 :arg7 :arg8 :arg9 :arg10 |
|l1|
l1 := arg10.
@@ -3402,7 +3402,7 @@
!
tstBlock11
- ^ [:arg1 :arg2 :arg3 :arg4 :arg5 :arg6 :arg7 :arg8 :arg9 :arg10 :arg11 |
+ ^ [:arg1 :arg2 :arg3 :arg4 :arg5 :arg6 :arg7 :arg8 :arg9 :arg10 :arg11 |
|l1|
l1 := arg11.
@@ -3411,7 +3411,7 @@
"
JITTest new testBlock11
- valueWithArguments:#(1 2 3 4 5 6 7 8 9 10 11)
+ valueWithArguments:#(1 2 3 4 5 6 7 8 9 10 11)
"
"Modified: / 3.6.1998 / 23:22:04 / cg"
@@ -3420,7 +3420,7 @@
!
tstBlock12
- ^ [:arg1 :arg2 :arg3 :arg4 :arg5 :arg6 :arg7 :arg8 :arg9 :arg10 :arg11 :arg12 |
+ ^ [:arg1 :arg2 :arg3 :arg4 :arg5 :arg6 :arg7 :arg8 :arg9 :arg10 :arg11 :arg12 |
|l1|
l1 := arg12.
@@ -3429,7 +3429,7 @@
"
JITTest new testBlock12
- valueWithArguments:#(1 2 3 4 5 6 7 8 9 10 11 12)
+ valueWithArguments:#(1 2 3 4 5 6 7 8 9 10 11 12)
"
"Modified: / 3.6.1998 / 23:22:04 / cg"
@@ -3438,7 +3438,7 @@
!
tstBlock13
- ^ [:arg1 :arg2 :arg3 :arg4 :arg5 :arg6 :arg7 :arg8 :arg9 :arg10 :arg11 :arg12 :arg13 |
+ ^ [:arg1 :arg2 :arg3 :arg4 :arg5 :arg6 :arg7 :arg8 :arg9 :arg10 :arg11 :arg12 :arg13 |
|l1|
l1 := arg13.
@@ -3447,7 +3447,7 @@
"
JITTest new testBlock13
- valueWithArguments:#(1 2 3 4 5 6 7 8 9 10 11 12 13)
+ valueWithArguments:#(1 2 3 4 5 6 7 8 9 10 11 12 13)
"
"Modified: / 3.6.1998 / 23:22:04 / cg"
@@ -3456,7 +3456,7 @@
!
tstBlock2
- ^ [:arg1 :arg2 |
+ ^ [:arg1 :arg2 |
|l1|
l1 := arg2.
@@ -3473,7 +3473,7 @@
!
tstBlock3
- ^ [:arg1 :arg2 :arg3 |
+ ^ [:arg1 :arg2 :arg3 |
|l1|
l1 := arg3.
@@ -3490,7 +3490,7 @@
!
tstBlock4
- ^ [:arg1 :arg2 :arg3 :arg4 |
+ ^ [:arg1 :arg2 :arg3 :arg4 |
|l1|
l1 := arg4.
@@ -3507,7 +3507,7 @@
!
tstBlock5
- ^ [:arg1 :arg2 :arg3 :arg4 :arg5 |
+ ^ [:arg1 :arg2 :arg3 :arg4 :arg5 |
|l1|
l1 := arg5.
@@ -3524,7 +3524,7 @@
!
tstBlock7
- ^ [:arg1 :arg2 :arg3 :arg4 :arg5 :arg6 :arg7 |
+ ^ [:arg1 :arg2 :arg3 :arg4 :arg5 :arg6 :arg7 |
|l1|
l1 := arg7.
@@ -3541,7 +3541,7 @@
!
tstBlock8
- ^ [:arg1 :arg2 :arg3 :arg4 :arg5 :arg6 :arg7 :arg8 |
+ ^ [:arg1 :arg2 :arg3 :arg4 :arg5 :arg6 :arg7 :arg8 |
|l1|
l1 := arg8.
@@ -3558,7 +3558,7 @@
!
tstBlock9
- ^ [:arg1 :arg2 :arg3 :arg4 :arg5 :arg6 :arg7 :arg8 :arg9 |
+ ^ [:arg1 :arg2 :arg3 :arg4 :arg5 :arg6 :arg7 :arg8 :arg9 |
|l1|
l1 := arg9.
@@ -3566,7 +3566,7 @@
"
- JITTest new testBlock9
+ JITTest new testBlock9
valueWithArguments:#(1 2 3 4 5 6 7 8 9)
"
@@ -3576,172 +3576,172 @@
!
tstBlockRet
- 1 to:10 do:[:i |
- i == 5 ifTrue:[^ i]
-
-
- "
- JITTest new testBlockRet
- "
-
- "Modified: / 3.6.1998 / 23:22:04 / cg"
- "Created: / 3.6.1998 / 23:23:21 / cg"
+ 1 to:10 do:[:i |
+ i == 5 ifTrue:[^ i]
+
+
+ "
+ JITTest new testBlockRet
+ "
+
+ "Modified: / 3.6.1998 / 23:22:04 / cg"
+ "Created: / 3.6.1998 / 23:23:21 / cg"
]
!
-tstSelf1:a1 arg:a2 arg:a3 arg:a4
+tstSelf1:a1 arg:a2 arg:a3 arg:a4
^ self
"
- JITTest new testSelf1:1 arg:2 arg:3 arg:4
- JITTest new testSelf1:0 arg:1 arg:2 arg:3
+ JITTest new testSelf1:1 arg:2 arg:3 arg:4
+ JITTest new testSelf1:0 arg:1 arg:2 arg:3
"
"Created: 16.8.1996 / 17:39:44 / cg"
!
-tstSelf2:a1 arg:a2 arg:a3 arg:a4
+tstSelf2:a1 arg:a2 arg:a3 arg:a4
|local1|
^ self
"
- JITTest new testSelf2:1 arg:2 arg:3 arg:4
- JITTest new testSelf2:0 arg:1 arg:2 arg:3
+ JITTest new testSelf2:1 arg:2 arg:3 arg:4
+ JITTest new testSelf2:0 arg:1 arg:2 arg:3
"
"Created: 16.8.1996 / 17:39:44 / cg"
!
-tstSelf3:a1 arg:a2 arg:a3 arg:a4
+tstSelf3:a1 arg:a2 arg:a3 arg:a4
|local1|
local1 := 1.
^ self
"
- JITTest new testSelf3:1 arg:2 arg:3 arg:4
- JITTest new testSelf3:0 arg:1 arg:2 arg:3
+ JITTest new testSelf3:1 arg:2 arg:3 arg:4
+ JITTest new testSelf3:0 arg:1 arg:2 arg:3
"
"Created: 16.8.1996 / 17:39:44 / cg"
!
-tstSelf3_1:a1 arg:a2 arg:a3
+tstSelf3_1:a1 arg:a2 arg:a3
^ self
"
- JITTest new testSelf3_1:1 arg:2 arg:3
- JITTest new testSelf3_1:0 arg:1 arg:2
+ JITTest new testSelf3_1:1 arg:2 arg:3
+ JITTest new testSelf3_1:0 arg:1 arg:2
"
"Modified: / 3.6.1998 / 21:18:37 / cg"
"Created: / 3.6.1998 / 21:19:14 / cg"
!
-tstSelf3_2:a1 arg:a2 arg:a3
+tstSelf3_2:a1 arg:a2 arg:a3
|local1|
^ self
"
- JITTest new testSelf3_2:1 arg:2 arg:3
- JITTest new testSelf3_2:0 arg:1 arg:2
+ JITTest new testSelf3_2:1 arg:2 arg:3
+ JITTest new testSelf3_2:0 arg:1 arg:2
"
"Created: / 3.6.1998 / 21:19:23 / cg"
!
-tstSelf3_3:a1 arg:a2 arg:a3
+tstSelf3_3:a1 arg:a2 arg:a3
|local1|
local1 := 1.
^ self
"
- JITTest new testSelf3_3:1 arg:2 arg:3
- JITTest new testSelf3_3:0 arg:1 arg:2
+ JITTest new testSelf3_3:1 arg:2 arg:3
+ JITTest new testSelf3_3:0 arg:1 arg:2
"
"Created: / 3.6.1998 / 21:19:34 / cg"
!
-tstSelf3_4:a1 arg:a2 arg:a3
+tstSelf3_4:a1 arg:a2 arg:a3
|local1|
local1 := self.
^ local1
"
- JITTest new testSelf3_4:1 arg:2 arg:3
- JITTest new testSelf3_4:0 arg:1 arg:2
+ JITTest new testSelf3_4:1 arg:2 arg:3
+ JITTest new testSelf3_4:0 arg:1 arg:2
"
"Created: / 3.6.1998 / 21:19:44 / cg"
!
-tstSelf4:a1 arg:a2 arg:a3 arg:a4
+tstSelf4:a1 arg:a2 arg:a3 arg:a4
|local1|
local1 := self.
^ local1
"
- JITTest new testSelf4:1 arg:2 arg:3 arg:4
- JITTest new testSelf4:0 arg:1 arg:2 arg:3
+ JITTest new testSelf4:1 arg:2 arg:3 arg:4
+ JITTest new testSelf4:0 arg:1 arg:2 arg:3
"
"Created: 16.8.1996 / 17:39:44 / cg"
!
-tstSelf4_1:a1 arg:a2 arg:a3 arg:a4
+tstSelf4_1:a1 arg:a2 arg:a3 arg:a4
^ self
"
- JITTest new testSelf4_1:1 arg:2 arg:3 arg:4
- JITTest new testSelf4_1:0 arg:1 arg:2 arg:3
+ JITTest new testSelf4_1:1 arg:2 arg:3 arg:4
+ JITTest new testSelf4_1:0 arg:1 arg:2 arg:3
"
"Created: / 3.6.1998 / 21:18:26 / cg"
"Modified: / 3.6.1998 / 21:18:37 / cg"
!
-tstSelf4_2:a1 arg:a2 arg:a3 arg:a4
+tstSelf4_2:a1 arg:a2 arg:a3 arg:a4
|local1|
^ self
"
- JITTest new testSelf4_2:1 arg:2 arg:3 arg:4
- JITTest new testSelf4_2:0 arg:1 arg:2 arg:3
+ JITTest new testSelf4_2:1 arg:2 arg:3 arg:4
+ JITTest new testSelf4_2:0 arg:1 arg:2 arg:3
"
"Created: / 3.6.1998 / 21:18:33 / cg"
!
-tstSelf4_3:a1 arg:a2 arg:a3 arg:a4
+tstSelf4_3:a1 arg:a2 arg:a3 arg:a4
|local1|
local1 := 1.
^ self
"
- JITTest new testSelf4_3:1 arg:2 arg:3 arg:4
- JITTest new testSelf4_3:0 arg:1 arg:2 arg:3
+ JITTest new testSelf4_3:1 arg:2 arg:3 arg:4
+ JITTest new testSelf4_3:0 arg:1 arg:2 arg:3
"
"Created: / 3.6.1998 / 21:18:42 / cg"
!
-tstSelf4_4:a1 arg:a2 arg:a3 arg:a4
+tstSelf4_4:a1 arg:a2 arg:a3 arg:a4
|local1|
local1 := self.
^ local1
"
- JITTest new testSelf4_4:1 arg:2 arg:3 arg:4
- JITTest new testSelf4_4:0 arg:1 arg:2 arg:3
+ JITTest new testSelf4_4:1 arg:2 arg:3 arg:4
+ JITTest new testSelf4_4:0 arg:1 arg:2 arg:3
"
"Created: / 3.6.1998 / 21:18:46 / cg"
@@ -3756,32 +3756,32 @@
arr := Array new:10000.
1 to:10000 do:[:i |
- i odd ifTrue:[
- arr at:i put:FooClass new
- ] ifFalse:[
- arr at:i put:BarClass new.
- ]
+ i odd ifTrue:[
+ arr at:i put:FooClass new
+ ] ifFalse:[
+ arr at:i put:BarClass new.
+ ]
].
i := 1.
[i <= 10] whileTrue:[
- |el expect|
+ |el expect|
i printCR.
- el := arr at:i.
+ el := arr at:i.
el printCR.
- i odd ifTrue:[
- expect := #Foo
- ] ifFalse:[
- expect := #Bar
- ].
+ i odd ifTrue:[
+ expect := #Foo
+ ] ifFalse:[
+ expect := #Bar
+ ].
expect printCR.
- el whatAreYou ~~ expect ifTrue:[
+ el whatAreYou ~~ expect ifTrue:[
"/ self halt
- ].
+ ].
i print. ' ' print. el printCR.
- i := i + 1.
+ i := i + 1.
].
"/ i := 1.
@@ -3863,8 +3863,8 @@
|el|
el := FooClass new.
- el whatAreYou printCR.
- el whatAreYou printCR.
+ el whatAreYou printCR.
+ el whatAreYou printCR.
"
JITTest new ilcTest1c
@@ -3880,10 +3880,10 @@
el1 := FooClass new.
el2 := BarClass new.
- el1 whatAreYou printCR.
- el2 whatAreYou printCR.
- el1 whatAreYou printCR.
- el2 whatAreYou printCR.
+ el1 whatAreYou printCR.
+ el2 whatAreYou printCR.
+ el1 whatAreYou printCR.
+ el2 whatAreYou printCR.
"
JITTest new ilcTest1d
@@ -3892,7 +3892,7 @@
"Modified: / 4.6.1998 / 12:13:27 / cg"
!
-tst44:arg
+tst44:arg
|l1 l2|
l1 := 1.
@@ -3900,7 +3900,7 @@
^ l1 + l2 + arg + 1
"
- JITTest new tst44:3
+ JITTest new tst44:3
"
"Created: 16.8.1996 / 17:39:44 / cg"
@@ -3936,7 +3936,7 @@
"Created: 16.8.1996 / 17:39:44 / cg"
!
-tst53:arg1 with:arg2
+tst53:arg1 with:arg2
^ arg1 abs + arg2 abs
"
@@ -3962,25 +3962,25 @@
tstILC1
|x|
- 1 to:4 do:[:i |
- i == 1 ifTrue:[
- x := self
- ].
- i == 2 ifTrue:[
- x := nil
- ].
- i == 3 ifTrue:[x := 1].
- i == 4 ifTrue:[
- x := true
- ].
- x tstInstStore1
-
- "
- JITTest new tstILC1
- "
-
- "Created: / 16.8.1996 / 17:39:44 / cg"
- "Modified: / 17.7.1998 / 16:45:27 / cg"
+ 1 to:4 do:[:i |
+ i == 1 ifTrue:[
+ x := self
+ ].
+ i == 2 ifTrue:[
+ x := nil
+ ].
+ i == 3 ifTrue:[x := 1].
+ i == 4 ifTrue:[
+ x := true
+ ].
+ x tstInstStore1
+
+ "
+ JITTest new tstILC1
+ "
+
+ "Created: / 16.8.1996 / 17:39:44 / cg"
+ "Modified: / 17.7.1998 / 16:45:27 / cg"
]
!
@@ -3998,7 +3998,7 @@
"Created: 16.8.1996 / 17:39:44 / cg"
!
-tstPlusArg1:arg
+tstPlusArg1:arg
^ arg + 1
"
@@ -4060,7 +4060,7 @@
"Created: 16.8.1996 / 17:39:44 / cg"
!
-tstSend2Helper2:arg1 with:arg2
+tstSend2Helper2:arg1 with:arg2
^ arg2
"
@@ -4070,7 +4070,7 @@
"Created: 16.8.1996 / 17:39:44 / cg"
!
-tstSend2Helper:arg1 with:arg2
+tstSend2Helper:arg1 with:arg2
^ arg1
"
--- a/RegressionTests__JavaScriptTests.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__JavaScriptTests.st Thu Jun 30 09:02:08 2016 +0100
@@ -16,7 +16,7 @@
documentation to be added.
[author:]
- cg (cg@FUSI)
+ cg (cg@FUSI)
[instance variables:]
@@ -34,62 +34,62 @@
!JavaScriptTests class methodsFor:'queries'!
coveredClassNames
- ^ #(
- JavaScriptParser
- JavaScriptScanner
- JavaScriptCompiler
- )
+ ^ #(
+ JavaScriptParser
+ JavaScriptScanner
+ JavaScriptCompiler
+ )
! !
!JavaScriptTests methodsFor:'helpers'!
-doTestEachFromSpec:spec
- spec do:[:triple |
- |str checkSelectorOrNil valExpected val expectError|
-
- str := triple first.
- checkSelectorOrNil := triple second.
- expectError := false.
- valExpected := triple third.
- valExpected isArray ifTrue:[
- valExpected size > 0 ifTrue:[
- valExpected first == #eval ifTrue:[
- valExpected := Parser evaluate:valExpected second
- ] ifFalse:[
- valExpected first == #error ifTrue:[
- expectError := true
- ].
- ].
- ].
- ].
- expectError ifTrue:[
- self
- should:[ (JavaScriptParser parseExpression:str) evaluate ]
- raise:Error
- ] ifFalse:[
- val := (JavaScriptParser parseExpression:str) evaluate.
- checkSelectorOrNil notNil ifTrue:[
- self assert:(val perform:checkSelectorOrNil).
- ].
- self assert:(val = valExpected).
- ].
+doTestEachFromSpec:spec
+ spec do:[:triple |
+ |str checkSelectorOrNil valExpected val expectError|
+
+ str := triple first.
+ checkSelectorOrNil := triple second.
+ expectError := false.
+ valExpected := triple third.
+ valExpected isArray ifTrue:[
+ valExpected size > 0 ifTrue:[
+ valExpected first == #eval ifTrue:[
+ valExpected := Parser evaluate:valExpected second
+ ] ifFalse:[
+ valExpected first == #error ifTrue:[
+ expectError := true
+ ].
+ ].
+ ].
+ ].
+ expectError ifTrue:[
+ self
+ should:[ (JavaScriptParser parseExpression:str) evaluate ]
+ raise:Error
+ ] ifFalse:[
+ val := (JavaScriptParser parseExpression:str) evaluate.
+ checkSelectorOrNil notNil ifTrue:[
+ self assert:(val perform:checkSelectorOrNil).
+ ].
+ self assert:(val = valExpected).
+ ].
]
!
-doTestEachFunctionFromSpec:spec
- spec do:[:tuple |
- |source expectError|
-
- source := tuple first.
- expectError := tuple second.
-
- expectError ifTrue:[
- self
- should:[ JavaScriptParser parseFunction:source ]
- raise:Error
- ] ifFalse:[
- JavaScriptParser parseFunction:source.
- ].
+doTestEachFunctionFromSpec:spec
+ spec do:[:tuple |
+ |source expectError|
+
+ source := tuple first.
+ expectError := tuple second.
+
+ expectError ifTrue:[
+ self
+ should:[ JavaScriptParser parseFunction:source ]
+ raise:Error
+ ] ifFalse:[
+ JavaScriptParser parseFunction:source.
+ ].
]
!
@@ -104,11 +104,11 @@
"/ Transcript showCR:(thisContext sender selector , '...').
f := JavaScriptCompiler
- compile:code
- forClass:(receiver class)
- inCategory:nil
- notifying:nil
- install:false.
+ compile:code
+ forClass:(receiver class)
+ inCategory:nil
+ notifying:nil
+ install:false.
"/ f inspect.
@@ -117,7 +117,7 @@
"/ f decompileTo:Transcript.
- result := f valueWithReceiver:receiver arguments:arguments selector:nil search:nil sender:nil.
+ result := f valueWithReceiver:receiver arguments:arguments selector:nil search:nil sender:nil.
^ result
"Modified: / 09-10-2011 / 11:41:51 / cg"
@@ -137,21 +137,21 @@
"/ Transcript showCR:(thisContext sender selector , '...').
Parser parseErrorSignal handle:[:ex |
- errorEncountered := true.
+ errorEncountered := true.
] do:[
- f := JavaScriptCompiler
- compile:code
- forClass:(receiver class)
- inCategory:nil
- notifying:nil
- install:false.
-
- errorEncountered := (f == #Error).
+ f := JavaScriptCompiler
+ compile:code
+ forClass:(receiver class)
+ inCategory:nil
+ notifying:nil
+ install:false.
+
+ errorEncountered := (f == #Error).
].
expectedError == #ParseError ifTrue:[
- self assert:(errorEncountered).
- ^ self
+ self assert:(errorEncountered).
+ ^ self
].
self assert:(errorEncountered not).
@@ -159,9 +159,9 @@
"/ f decompileTo:Transcript.
- self
- should:[f valueWithReceiver:receiver arguments:arguments]
- raise:expectedError
+ self
+ should:[f valueWithReceiver:receiver arguments:arguments]
+ raise:expectedError
"Modified: / 09-10-2011 / 11:41:57 / cg"
!
@@ -178,8 +178,8 @@
setUp
JavaScriptCompiler isNil ifTrue:[
- Smalltalk loadPackage:'stx:libjavascript'.
- JavaScriptParseNodeValidator autoload.
+ Smalltalk loadPackage:'stx:libjavascript'.
+ JavaScriptParseNodeValidator autoload.
].
"Created: / 09-08-2011 / 23:12:13 / cg"
@@ -193,258 +193,258 @@
savedTranscript := Transcript.
[
- Transcript := aStream.
- aBlock value.
+ Transcript := aStream.
+ aBlock value.
] ensure:[
- Transcript := savedTranscript
+ Transcript := savedTranscript
].
! !
!JavaScriptTests methodsFor:'tests'!
testArray01
- self
- execute:'test(arr) {
- return arr[1];
- }'
- for:nil
- arguments:#( #(10 20 30) )
- expect:10
+ self
+ execute:'test(arr) {
+ return arr[1];
+ }'
+ for:nil
+ arguments:#( #(10 20 30) )
+ expect:10
"
self run:#testArray01
- self new testArray01
+ self new testArray01
"
!
testArray02
- self
- execute:'test(arr) {
- arr[1];
- }'
- for:nil
- arguments:#( #(10 20 30) )
- expect:nil
+ self
+ execute:'test(arr) {
+ arr[1];
+ }'
+ for:nil
+ arguments:#( #(10 20 30) )
+ expect:nil
"
self run:#testArray02
- self new testArray02
+ self new testArray02
"
"Modified: / 21-02-2007 / 13:02:39 / cg"
!
testArray03
- self
- execute:'test(arr, val) {
- arr[1] = val;
- return arr;
- }'
- for:nil
- arguments:#( #(10 20 30) 99 ) deepCopy "deepCopy - this is immutable"
- expect:#(99 20 30)
+ self
+ execute:'test(arr, val) {
+ arr[1] = val;
+ return arr;
+ }'
+ for:nil
+ arguments:#( #(10 20 30) 99 ) deepCopy "deepCopy - this is immutable"
+ expect:#(99 20 30)
"
self run:#testArray03
- self new testArray03
+ self new testArray03
"
!
testArray04
- self
- execute:'test() {
- var arr = new Array;
- return arr;
- }'
- for:nil
- arguments:#( )
- expect:#()
+ self
+ execute:'test() {
+ var arr = new Array;
+ return arr;
+ }'
+ for:nil
+ arguments:#( )
+ expect:#()
"
self run:#testArray04
- self new testArray04
+ self new testArray04
"
"Modified: / 21-02-2007 / 13:03:22 / cg"
!
testArray04a
- self
- execute:'test() {
- var arr = new Array;
- return arr;
- }'
- for:nil
- arguments:#( )
- expect:#()
+ self
+ execute:'test() {
+ var arr = new Array;
+ return arr;
+ }'
+ for:nil
+ arguments:#( )
+ expect:#()
"
self run:#testArray04a
- self new testArray04a
+ self new testArray04a
"
"Created: / 21-02-2007 / 13:03:39 / cg"
!
testArray04b
- self
- execute:'test() {
- var arr = Array.new;
- return arr;
- }'
- for:nil
- arguments:#( )
- expect:#()
+ self
+ execute:'test() {
+ var arr = Array.new;
+ return arr;
+ }'
+ for:nil
+ arguments:#( )
+ expect:#()
"
self run:#testArray04b
- self new testArray04b
+ self new testArray04b
"
"Created: / 21-02-2007 / 13:03:48 / cg"
!
testArray04c
- self
- execute:'test() {
- var arr = Array.new();
- return arr;
- }'
- for:nil
- arguments:#( )
- expect:#()
+ self
+ execute:'test() {
+ var arr = Array.new();
+ return arr;
+ }'
+ for:nil
+ arguments:#( )
+ expect:#()
"
self run:#testArray04c
- self new testArray04c
+ self new testArray04c
"
"Created: / 21-02-2007 / 13:04:00 / cg"
!
testArray04d
- self
- execute:'test() {
- var arr = new Array();
- return arr;
- }'
- for:nil
- arguments:#( )
- expect:#()
+ self
+ execute:'test() {
+ var arr = new Array();
+ return arr;
+ }'
+ for:nil
+ arguments:#( )
+ expect:#()
"
self run:#testArray04d
- self new testArray04d
+ self new testArray04d
"
"Created: / 21-02-2007 / 13:04:25 / cg"
!
testArray06a
- self
- execute:'test() {
- var arr = new Array(5);
- return arr;
- }'
- for:nil
- arguments:#( )
- expect:#( nil nil nil nil nil )
+ self
+ execute:'test() {
+ var arr = new Array(5);
+ return arr;
+ }'
+ for:nil
+ arguments:#( )
+ expect:#( nil nil nil nil nil )
"
self run:#testArray06a
- self new testArray06a
+ self new testArray06a
"
"Created: / 21-02-2007 / 13:04:52 / cg"
!
testArray06b
- self
- execute:'test() {
- var arr = Array.new(5);
- return arr;
- }'
- for:nil
- arguments:#( )
- expect:#( nil nil nil nil nil )
+ self
+ execute:'test() {
+ var arr = Array.new(5);
+ return arr;
+ }'
+ for:nil
+ arguments:#( )
+ expect:#( nil nil nil nil nil )
"
self run:#testArray06b
- self new testArray06b
+ self new testArray06b
"
"Created: / 21-02-2007 / 13:05:08 / cg"
!
testArray07
- self
- execute:'test() {
- var arr = new Array(3);
- arr[1] = 41;
- arr[2] = -5;
- arr[3] = 20;
- return arr;
- }'
- for:nil
- arguments:#()
- expect:#( 41 -5 20 ).
+ self
+ execute:'test() {
+ var arr = new Array(3);
+ arr[1] = 41;
+ arr[2] = -5;
+ arr[3] = 20;
+ return arr;
+ }'
+ for:nil
+ arguments:#()
+ expect:#( 41 -5 20 ).
"
self run:#testArray07
- self new testArray07
+ self new testArray07
"
!
testArray08
- self
- execute:'test() {
- var arr = new Array(3);
- arr[1] = 41;
- arr[2] = -5;
- arr[3] = 20;
- return arr;
- }'
- for:nil
- arguments:#( )
- expect:#( 41 -5 20 )
+ self
+ execute:'test() {
+ var arr = new Array(3);
+ arr[1] = 41;
+ arr[2] = -5;
+ arr[3] = 20;
+ return arr;
+ }'
+ for:nil
+ arguments:#( )
+ expect:#( 41 -5 20 )
"
self run:#testArray08
- self new testArray08
+ self new testArray08
"
!
testArray09
- self
- execute:'test() {
- var arr = [1,2,3];
- return arr;
- }'
- for:nil
- arguments:#( )
- expect:#( 1 2 3 )
+ self
+ execute:'test() {
+ var arr = [1,2,3];
+ return arr;
+ }'
+ for:nil
+ arguments:#( )
+ expect:#( 1 2 3 )
"
self run:#testArray09
- self new testArray09
+ self new testArray09
"
"Created: / 21-02-2007 / 13:05:48 / cg"
!
testAssignmentExpression01
- self
- execute:'assign(a, b) {
- var x, y;
-
- x = y = 0;
- x = y = a;
- x = y = b;
- return (x + y);
- }'
- for:nil
- arguments:#(10 20)
- expect:40
+ self
+ execute:'assign(a, b) {
+ var x, y;
+
+ x = y = 0;
+ x = y = a;
+ x = y = b;
+ return (x + y);
+ }'
+ for:nil
+ arguments:#(10 20)
+ expect:40
"
self run:#testAssignmentExpression01
@@ -455,16 +455,16 @@
testAssignmentExpression02
"yes, in JS you can change an argument variable"
- self
- execute:'assign(a, b) {
- var x, y;
-
- a = x = y = 0;
- return (a + b);
- }'
- for:nil
- arguments:#(10 20)
- expect:20
+ self
+ execute:'assign(a, b) {
+ var x, y;
+
+ a = x = y = 0;
+ return (a + b);
+ }'
+ for:nil
+ arguments:#(10 20)
+ expect:20
"
self run:#testAssignmentExpression02
@@ -473,13 +473,13 @@
!
testCommaExpression01
- self
- execute:'comma(a, b, c) {
- return (a , b , c);
- }'
- for:nil
- arguments:#(10 20 30)
- expect:30
+ self
+ execute:'comma(a, b, c) {
+ return (a , b , c);
+ }'
+ for:nil
+ arguments:#(10 20 30)
+ expect:30
"
self run:#testCommaExpression01
@@ -488,13 +488,13 @@
!
testCommaExpression02
- self
- execute:'comma(a, b, c) {
- return (a+10 , b+10 , c+10);
- }'
- for:nil
- arguments:#(10 20 30)
- expect:40
+ self
+ execute:'comma(a, b, c) {
+ return (a+10 , b+10 , c+10);
+ }'
+ for:nil
+ arguments:#(10 20 30)
+ expect:40
"
self run:#testCommaExpression02
@@ -505,9 +505,9 @@
testComments01
|savedTranscript collector expected|
- savedTranscript := Smalltalk at:#Transcript.
+ savedTranscript := Smalltalk at:#Transcript.
[
- Smalltalk at:#Transcript put:(collector := '' writeStream).
+ Smalltalk at:#Transcript put:(collector := '' writeStream).
self
execute:'
testComments() {
@@ -519,7 +519,7 @@
/***/ // Also valid
// Need to test string literals and identifiers
- println("All is well in Javascript");
+ println("All is well in Javascript");
return null;
}
'
@@ -527,7 +527,7 @@
arguments:#( )
expect:nil
] ensure:[
- Smalltalk at:#Transcript put:savedTranscript
+ Smalltalk at:#Transcript put:savedTranscript
].
expected := String streamContents:[:s | s showCR:'All is well in Javascript'].
@@ -535,18 +535,18 @@
"
self run:#testComments01
- self new testComments01
+ self new testComments01
"
!
testConditionalExpression01
- self
- execute:'max(a, b) {
- return (a > b) ? a : b;
- }'
- for:nil
- arguments:#(10 20)
- expect:20
+ self
+ execute:'max(a, b) {
+ return (a > b) ? a : b;
+ }'
+ for:nil
+ arguments:#(10 20)
+ expect:20
"
self run:#testConditionalExpression01
@@ -555,13 +555,13 @@
!
testConditionalExpression02
- self
- execute:'max(a, b) {
- return (a < b) ? a : b;
- }'
- for:nil
- arguments:#(10 20)
- expect:10
+ self
+ execute:'max(a, b) {
+ return (a < b) ? a : b;
+ }'
+ for:nil
+ arguments:#(10 20)
+ expect:10
"
self run:#testConditionalExpression02
@@ -573,19 +573,19 @@
|output|
output := self outputToTranscriptOf:[
- self
- execute:'test(arg) {
- var n;
-
- n = 1;
- do {
- Transcript.showCR(n);
- } while (++n <= 3);
- return n;
- }'
- for:nil
- arguments:#(5)
- expect:4
+ self
+ execute:'test(arg) {
+ var n;
+
+ n = 1;
+ do {
+ Transcript.showCR(n);
+ } while (++n <= 3);
+ return n;
+ }'
+ for:nil
+ arguments:#(5)
+ expect:4
].
self assert:(output asCollectionOfLinesWithReturn asArray = #( '1' '2' '3' ))
@@ -599,20 +599,20 @@
|output|
output := self outputToTranscriptOf:[
- self
- execute:'test(arg) {
- var n;
-
- n = 1;
- do {
- Transcript.showCR(n);
- break;
- } while (true);
- return n;
- }'
- for:nil
- arguments:#(5)
- expect:1
+ self
+ execute:'test(arg) {
+ var n;
+
+ n = 1;
+ do {
+ Transcript.showCR(n);
+ break;
+ } while (true);
+ return n;
+ }'
+ for:nil
+ arguments:#(5)
+ expect:1
].
self assert:(output asCollectionOfLinesWithReturn asArray = #( '1' ))
@@ -626,20 +626,20 @@
|output|
output := self outputToTranscriptOf:[
- self
- execute:'test(arg) {
- var n;
-
- n = 1;
- do {
- break;
- Transcript.showCR(n);
- } while (true);
- return n;
- }'
- for:nil
- arguments:#(5)
- expect:1
+ self
+ execute:'test(arg) {
+ var n;
+
+ n = 1;
+ do {
+ break;
+ Transcript.showCR(n);
+ } while (true);
+ return n;
+ }'
+ for:nil
+ arguments:#(5)
+ expect:1
].
self assert:(output asCollectionOfLinesWithReturn asArray = #( ))
@@ -653,20 +653,20 @@
|output|
output := self outputToTranscriptOf:[
- self
- execute:'test(arg) {
- var n;
-
- n = 1;
- do {
- if (++n == 3) continue;
- Transcript.showCR(n);
- } while (n <= 4);
- return n;
- }'
- for:nil
- arguments:#(5)
- expect:5
+ self
+ execute:'test(arg) {
+ var n;
+
+ n = 1;
+ do {
+ if (++n == 3) continue;
+ Transcript.showCR(n);
+ } while (n <= 4);
+ return n;
+ }'
+ for:nil
+ arguments:#(5)
+ expect:5
].
self assert:(output asCollectionOfLinesWithReturn asArray = #( '2' '4' '5' ))
@@ -680,20 +680,20 @@
|output|
output := self outputToTranscriptOf:[
- self
- execute:'test(arg) {
- var n;
-
- n = 1;
- do {
- if (++n == 3) break;
- Transcript.showCR(n);
- } while (n <= 4);
- return n;
- }'
- for:nil
- arguments:#(5)
- expect:3
+ self
+ execute:'test(arg) {
+ var n;
+
+ n = 1;
+ do {
+ if (++n == 3) break;
+ Transcript.showCR(n);
+ } while (n <= 4);
+ return n;
+ }'
+ for:nil
+ arguments:#(5)
+ expect:3
].
self assert:(output asCollectionOfLinesWithReturn asArray = #( '2' ))
@@ -704,19 +704,19 @@
!
testDoWhile06
- self
- execute:'test(arg) {
- var n;
-
- n = 1;
- do
- n += 1;
- while (n < 4);
- return n;
- }'
- for:nil
- arguments:#(5)
- expect:4
+ self
+ execute:'test(arg) {
+ var n;
+
+ n = 1;
+ do
+ n += 1;
+ while (n < 4);
+ return n;
+ }'
+ for:nil
+ arguments:#(5)
+ expect:4
"
self run:#testDoWhile06
@@ -725,41 +725,41 @@
!
testException01
- self
- execute:'test() {
- try {
- return 10;
- } catch(Error);
- return nil;
- }'
- for:nil
- arguments:#( )
- expect:10
+ self
+ execute:'test() {
+ try {
+ return 10;
+ } catch(Error);
+ return nil;
+ }'
+ for:nil
+ arguments:#( )
+ expect:10
"
self run:#testException01
- self new testException01
+ self new testException01
"
"Modified: / 21-02-2007 / 10:28:50 / cg"
!
testException02
- self
- execute:'test() {
- try {
- Error.raise();
- return 10;
- } catch(Error);
- return nil;
- }'
- for:nil
- arguments:#( )
- expect:nil
+ self
+ execute:'test() {
+ try {
+ Error.raise();
+ return 10;
+ } catch(Error);
+ return nil;
+ }'
+ for:nil
+ arguments:#( )
+ expect:nil
"
self run:#testException02
- self new testException02
+ self new testException02
"
!
@@ -767,34 +767,34 @@
|output|
output := self outputToTranscriptOf:[
- self
- execute:'test(arg) {
- var n;
-
- for (n = 0; n < 10; n++) {
- Transcript.show("hello ");
- Transcript.showCR(n);
- }
- }'
- for:nil
- arguments:#(5)
- expect:nil
+ self
+ execute:'test(arg) {
+ var n;
+
+ for (n = 0; n < 10; n++) {
+ Transcript.show("hello ");
+ Transcript.showCR(n);
+ }
+ }'
+ for:nil
+ arguments:#(5)
+ expect:nil
].
- self assert:(output asCollectionOfLinesWithReturn asArray = #(
- 'hello 0'
- 'hello 1'
- 'hello 2'
- 'hello 3'
- 'hello 4'
- 'hello 5'
- 'hello 6'
- 'hello 7'
- 'hello 8'
- 'hello 9' ))
+ self assert:(output asCollectionOfLinesWithReturn asArray = #(
+ 'hello 0'
+ 'hello 1'
+ 'hello 2'
+ 'hello 3'
+ 'hello 4'
+ 'hello 5'
+ 'hello 6'
+ 'hello 7'
+ 'hello 8'
+ 'hello 9' ))
"
self run:#testFor01
- self new testFor01
+ self new testFor01
"
!
@@ -803,18 +803,18 @@
outStream := '' writeStream.
- self
- execute:'test(arg, out) {
- var n;
-
- for (n = 0; n < arg; n++) {
- out.show("hello ");
- out.showCR(n);
- }
- }'
- for:nil
- arguments:(Array with:4 with:outStream)
- expect:nil.
+ self
+ execute:'test(arg, out) {
+ var n;
+
+ for (n = 0; n < arg; n++) {
+ out.show("hello ");
+ out.showCR(n);
+ }
+ }'
+ for:nil
+ arguments:(Array with:4 with:outStream)
+ expect:nil.
output := outStream contents.
self assert:(output = 'hello 0
@@ -825,28 +825,28 @@
"
self run:#testFor01b
- self new testFor01b
+ self new testFor01b
"
!
testFor01c
- self
- execute:'test(arg) {
- var n, m;
-
- for (n = 0, m = 10; n < 10; n++, m--) {
- Transcript.show(n);
- Transcript.show(" -> ");
- Transcript.showCR(m);
- }
- }'
- for:nil
- arguments:#(5)
- expect:nil
+ self
+ execute:'test(arg) {
+ var n, m;
+
+ for (n = 0, m = 10; n < 10; n++, m--) {
+ Transcript.show(n);
+ Transcript.show(" -> ");
+ Transcript.showCR(m);
+ }
+ }'
+ for:nil
+ arguments:#(5)
+ expect:nil
"
self run:#testFor01c
- self new testFor01c
+ self new testFor01c
"
!
@@ -855,18 +855,18 @@
outStream := '' writeStream.
- self
- execute:'test(arg, out) {
- var n;
-
- for (n = 0; n < arg; n++) {
- out.show("hello ");
- out.showCR(n);
- }
- }'
- for:nil
- arguments:(Array with:4 with:outStream)
- expect:nil.
+ self
+ execute:'test(arg, out) {
+ var n;
+
+ for (n = 0; n < arg; n++) {
+ out.show("hello ");
+ out.showCR(n);
+ }
+ }'
+ for:nil
+ arguments:(Array with:4 with:outStream)
+ expect:nil.
output := outStream contents.
self assert:(output = 'hello 0
@@ -877,7 +877,7 @@
"
self run:#testFor02
- self new testFor02
+ self new testFor02
"
!
@@ -886,18 +886,18 @@
outStream := '' writeStream.
- self
- execute:'test(arg, out) {
- var n;
-
- for (n = 0; n < arg; ) {
- out.show("hello ");
- out.showCR(n++);
- }
- }'
- for:nil
- arguments:(Array with:4 with:outStream)
- expect:nil.
+ self
+ execute:'test(arg, out) {
+ var n;
+
+ for (n = 0; n < arg; ) {
+ out.show("hello ");
+ out.showCR(n++);
+ }
+ }'
+ for:nil
+ arguments:(Array with:4 with:outStream)
+ expect:nil.
output := outStream contents.
self assert:(output = 'hello 0
@@ -908,7 +908,7 @@
"
self run:#testFor02b
- self new testFor02b
+ self new testFor02b
"
!
@@ -917,18 +917,18 @@
outStream := '' writeStream.
- self
- execute:'test(arg, out) {
- var n = 0;
-
- for (; n < arg; ) {
- out.show("hello ");
- out.showCR(n++);
- }
- }'
- for:nil
- arguments:(Array with:4 with:outStream)
- expect:nil.
+ self
+ execute:'test(arg, out) {
+ var n = 0;
+
+ for (; n < arg; ) {
+ out.show("hello ");
+ out.showCR(n++);
+ }
+ }'
+ for:nil
+ arguments:(Array with:4 with:outStream)
+ expect:nil.
output := outStream contents.
self assert:(output = 'hello 0
@@ -939,7 +939,7 @@
"
self run:#testFor03b
- self new testFor03b
+ self new testFor03b
"
!
@@ -948,19 +948,19 @@
outStream := '' writeStream.
- self
- execute:'test(arg, out) {
- var n = 0;
-
- for (; ; ) {
- if (n >= arg) return;
- out.show("hello ");
- out.showCR(n++);
- }
- }'
- for:nil
- arguments:(Array with:4 with:outStream)
- expect:nil.
+ self
+ execute:'test(arg, out) {
+ var n = 0;
+
+ for (; ; ) {
+ if (n >= arg) return;
+ out.show("hello ");
+ out.showCR(n++);
+ }
+ }'
+ for:nil
+ arguments:(Array with:4 with:outStream)
+ expect:nil.
output := outStream contents.
self assert:(output = 'hello 0
@@ -971,16 +971,16 @@
"
self run:#testFor04b
- self new testFor04b
+ self new testFor04b
"
!
testFor05
|savedTranscript collector expected|
- savedTranscript := Smalltalk at:#Transcript.
+ savedTranscript := Smalltalk at:#Transcript.
[
- Smalltalk at:#Transcript put:(collector := '' writeStream).
+ Smalltalk at:#Transcript put:(collector := '' writeStream).
self
execute:'test(arg) {
for (var n = 0; n < arg; n++) {
@@ -991,7 +991,7 @@
arguments:#(5)
expect:nil
] ensure:[
- Smalltalk at:#Transcript put:savedTranscript
+ Smalltalk at:#Transcript put:savedTranscript
].
expected := String streamContents:[:s | 0 to:4 do:[:n | s showCR:n]].
@@ -999,7 +999,7 @@
"
self run:#testFor05
- self new testFor05
+ self new testFor05
"
!
@@ -1008,19 +1008,19 @@
outStream := '' writeStream.
- self
- execute:'test(arg, out) {
- var n = 0;
-
- for (; ; ) {
- if (n >= arg) break;
- out.show("hello ");
- out.showCR(n++);
- }
- }'
- for:nil
- arguments:(Array with:4 with:outStream)
- expect:nil.
+ self
+ execute:'test(arg, out) {
+ var n = 0;
+
+ for (; ; ) {
+ if (n >= arg) break;
+ out.show("hello ");
+ out.showCR(n++);
+ }
+ }'
+ for:nil
+ arguments:(Array with:4 with:outStream)
+ expect:nil.
output := outStream contents.
self assert:(output = 'hello 0
@@ -1031,7 +1031,7 @@
"
self run:#testFor05b
- self new testFor05b
+ self new testFor05b
"
!
@@ -1039,29 +1039,29 @@
|output|
output := '' writeStream.
- self
- execute:'test(arg, out) {
- var n = 0;
-
- for (; ; ) {
- if (n >= arg) break;
- out.show("hello ");
- out.showCR(n++);
- }
- }'
- for:nil
- arguments:(Array with:4 with:output)
- expect:nil.
-
- self assert:(output contents asCollectionOfLinesWithReturn asArray = #(
- 'hello 0'
- 'hello 1'
- 'hello 2'
- 'hello 3'))
+ self
+ execute:'test(arg, out) {
+ var n = 0;
+
+ for (; ; ) {
+ if (n >= arg) break;
+ out.show("hello ");
+ out.showCR(n++);
+ }
+ }'
+ for:nil
+ arguments:(Array with:4 with:output)
+ expect:nil.
+
+ self assert:(output contents asCollectionOfLinesWithReturn asArray = #(
+ 'hello 0'
+ 'hello 1'
+ 'hello 2'
+ 'hello 3'))
"
self run:#testFor05c
- self new testFor05c
+ self new testFor05c
"
!
@@ -1069,30 +1069,30 @@
|output|
output := '' writeStream.
- self
- execute:'test(arg, out) {
- var n = 0;
-
- for (; ; ) {
- n++;
- if (n >= arg) break;
- if (n == 2) continue;
- out.show("hello ");
- out.showCR(n);
- }
- }'
- for:nil
- arguments:(Array with:5 with:output)
- expect:nil.
-
- self assert:(output contents asCollectionOfLinesWithReturn asArray = #(
- 'hello 1'
- 'hello 3'
- 'hello 4' ))
+ self
+ execute:'test(arg, out) {
+ var n = 0;
+
+ for (; ; ) {
+ n++;
+ if (n >= arg) break;
+ if (n == 2) continue;
+ out.show("hello ");
+ out.showCR(n);
+ }
+ }'
+ for:nil
+ arguments:(Array with:5 with:output)
+ expect:nil.
+
+ self assert:(output contents asCollectionOfLinesWithReturn asArray = #(
+ 'hello 1'
+ 'hello 3'
+ 'hello 4' ))
"
self run:#testFor05d
- self new testFor05d
+ self new testFor05d
"
!
@@ -1100,34 +1100,34 @@
|output|
output := '' writeStream.
- self
- execute:'test(arg, out) {
- for (var n = 0, var m = 10; n < 10; n++, m--) {
- out.show(n);
- out.show(" -> ");
- out.showCR(m);
- }
- }'
- for:nil
- arguments:(Array with:5 with:output)
- expect:nil.
-
- self assert:(output contents asCollectionOfLinesWithReturn asArray = #(
- '0 -> 10'
- '1 -> 9'
- '2 -> 8'
- '3 -> 7'
- '4 -> 6'
- '5 -> 5'
- '6 -> 4'
- '7 -> 3'
- '8 -> 2'
- '9 -> 1'
+ self
+ execute:'test(arg, out) {
+ for (var n = 0, var m = 10; n < 10; n++, m--) {
+ out.show(n);
+ out.show(" -> ");
+ out.showCR(m);
+ }
+ }'
+ for:nil
+ arguments:(Array with:5 with:output)
+ expect:nil.
+
+ self assert:(output contents asCollectionOfLinesWithReturn asArray = #(
+ '0 -> 10'
+ '1 -> 9'
+ '2 -> 8'
+ '3 -> 7'
+ '4 -> 6'
+ '5 -> 5'
+ '6 -> 4'
+ '7 -> 3'
+ '8 -> 2'
+ '9 -> 1'
))
"
self run:#testFor06
- self new testFor06
+ self new testFor06
"
!
@@ -1135,30 +1135,30 @@
|output|
output := '' writeStream.
- self
- execute:'test(arg, out) {
- for (var n = 0, var m = 10; n < 10; n++, m--) {
- if ((n >= 3) && (n <= 6)) {
- out.show(n);
- out.show(" -> ");
- out.showCR(m);
- }
- }
- }'
- for:nil
- arguments:(Array with:5 with:output)
- expect:nil.
-
- self assert:(output contents asCollectionOfLinesWithReturn asArray = #(
- '3 -> 7'
- '4 -> 6'
- '5 -> 5'
- '6 -> 4'
+ self
+ execute:'test(arg, out) {
+ for (var n = 0, var m = 10; n < 10; n++, m--) {
+ if ((n >= 3) && (n <= 6)) {
+ out.show(n);
+ out.show(" -> ");
+ out.showCR(m);
+ }
+ }
+ }'
+ for:nil
+ arguments:(Array with:5 with:output)
+ expect:nil.
+
+ self assert:(output contents asCollectionOfLinesWithReturn asArray = #(
+ '3 -> 7'
+ '4 -> 6'
+ '5 -> 5'
+ '6 -> 4'
))
"
self run:#testFor06
- self new testFor06
+ self new testFor06
"
!
@@ -1166,32 +1166,32 @@
|output|
output := '' writeStream.
- self
- execute:'test(arg, out) {
- var x = 10;
-
- for (var n = 0, var m = 10; n < 10; n++, m--) {
- if ((n >= 3) && (n <= 6)) {
- if ((n >= 4) && (n <= 5)) {
- out.show(n);
- out.show(" -> ");
- out.showCR(m);
- }
- }
- }
- }'
- for:nil
- arguments:(Array with:5 with:output)
- expect:nil.
-
- self assert:(output contents asCollectionOfLinesWithReturn asArray = #(
- '4 -> 6'
- '5 -> 5'
+ self
+ execute:'test(arg, out) {
+ var x = 10;
+
+ for (var n = 0, var m = 10; n < 10; n++, m--) {
+ if ((n >= 3) && (n <= 6)) {
+ if ((n >= 4) && (n <= 5)) {
+ out.show(n);
+ out.show(" -> ");
+ out.showCR(m);
+ }
+ }
+ }
+ }'
+ for:nil
+ arguments:(Array with:5 with:output)
+ expect:nil.
+
+ self assert:(output contents asCollectionOfLinesWithReturn asArray = #(
+ '4 -> 6'
+ '5 -> 5'
))
"
self run:#testFor06
- self new testFor06
+ self new testFor06
"
!
@@ -1201,24 +1201,24 @@
JavaScriptParser forInAllowed ifFalse:[^ self].
output := self outputToTranscriptOf:[
- self
- execute:'test(arg) {
- var arr = [ "one", "two", "three" ];
-
- for (var el in arr) {
- Transcript.showCR(el);
- }
- }'
- for:nil
- arguments:#(5)
- expect:nil
+ self
+ execute:'test(arg) {
+ var arr = [ "one", "two", "three" ];
+
+ for (var el in arr) {
+ Transcript.showCR(el);
+ }
+ }'
+ for:nil
+ arguments:#(5)
+ expect:nil
].
self assert:(output asCollectionOfLinesWithReturn asArray = #( 'one' 'two' 'three' ))
"
self run:#testForIn01
- self new testForIn01
+ self new testForIn01
"
!
@@ -1228,31 +1228,31 @@
JavaScriptParser forInAllowed ifFalse:[^ self].
output := '' writeStream.
- self
- execute:'test(arg, output) {
- var sum = 0;
-
- for (var el in arg) {
- var last = el;
- output.showCR(el*el);
- sum += el;
- last = sum;
- }
- return last;
- }'
- for:nil
- arguments:( Array with:#(1 2 3) with:output)
- expect:6.
-
- self assert:(output contents asCollectionOfLinesWithReturn asArray = #(
- '1'
- '4'
- '9'
+ self
+ execute:'test(arg, output) {
+ var sum = 0;
+
+ for (var el in arg) {
+ var last = el;
+ output.showCR(el*el);
+ sum += el;
+ last = sum;
+ }
+ return last;
+ }'
+ for:nil
+ arguments:( Array with:#(1 2 3) with:output)
+ expect:6.
+
+ self assert:(output contents asCollectionOfLinesWithReturn asArray = #(
+ '1'
+ '4'
+ '9'
))
"
self run:#testForIn01
- self new testForIn01
+ self new testForIn01
"
!
@@ -1262,30 +1262,30 @@
JavaScriptParser forInAllowed ifFalse:[^ self].
output := '' writeStream.
- self
- execute:'test(arg, output) {
- var sum = 0;
-
- for (var el in arg) {
- output.showCR(el*el);
- if (el == 1) continue;
- sum += el;
- if (el == 2) break;
- }
- return sum;
- }'
- for:nil
- arguments:( Array with:#(1 2 3) with:output)
- expect:2.
-
- self assert:(output contents asCollectionOfLinesWithReturn asArray = #(
- '1'
- '4'
+ self
+ execute:'test(arg, output) {
+ var sum = 0;
+
+ for (var el in arg) {
+ output.showCR(el*el);
+ if (el == 1) continue;
+ sum += el;
+ if (el == 2) break;
+ }
+ return sum;
+ }'
+ for:nil
+ arguments:( Array with:#(1 2 3) with:output)
+ expect:2.
+
+ self assert:(output contents asCollectionOfLinesWithReturn asArray = #(
+ '1'
+ '4'
))
"
self run:#testForIn01
- self new testForIn01
+ self new testForIn01
"
!
@@ -1295,50 +1295,50 @@
JavaScriptParser forInAllowed ifFalse:[^ self].
output := '' writeStream.
- self
- execute:'test(arg, output) {
- var sum = 0;
-
- for (var el in arg) {
- output.showCR(el*el);
- for (var i in ["a", "b", "c"]) {
- output.showCR(i);
- if (i == "b") break;
- }
- if (el == 1) continue;
- sum += el;
- if (el == 2) break;
- }
- return sum;
- }'
- for:nil
- arguments:( Array with:#(1 2 3) with:output)
- expect:2.
-
- self assert:(output contents asCollectionOfLinesWithReturn asArray = #(
- '1'
- 'a'
- 'b'
- '4'
- 'a'
- 'b'
+ self
+ execute:'test(arg, output) {
+ var sum = 0;
+
+ for (var el in arg) {
+ output.showCR(el*el);
+ for (var i in ["a", "b", "c"]) {
+ output.showCR(i);
+ if (i == "b") break;
+ }
+ if (el == 1) continue;
+ sum += el;
+ if (el == 2) break;
+ }
+ return sum;
+ }'
+ for:nil
+ arguments:( Array with:#(1 2 3) with:output)
+ expect:2.
+
+ self assert:(output contents asCollectionOfLinesWithReturn asArray = #(
+ '1'
+ 'a'
+ 'b'
+ '4'
+ 'a'
+ 'b'
))
"
self run:#testForIn01
- self new testForIn01
+ self new testForIn01
"
!
testIf01
- self
- execute:'max(a, b) {
- if (a > b) return a;
- return b;
- }'
- for:nil
- arguments:#(10 20)
- expect:20
+ self
+ execute:'max(a, b) {
+ if (a > b) return a;
+ return b;
+ }'
+ for:nil
+ arguments:#(10 20)
+ expect:20
"
self run:#testIf01
@@ -1347,15 +1347,15 @@
!
testIf02
- self
- execute:'max(a, b) {
- if (a > b) ;
- else return b;
- return a;
- }'
- for:nil
- arguments:#(10 20)
- expect:20
+ self
+ execute:'max(a, b) {
+ if (a > b) ;
+ else return b;
+ return a;
+ }'
+ for:nil
+ arguments:#(10 20)
+ expect:20
"
self run:#testIf02
@@ -1364,14 +1364,14 @@
!
testIf03
- self
- execute:'max(a, b) {
- if (a > b) return a;
- else return b;
- }'
- for:nil
- arguments:#(10 20)
- expect:20
+ self
+ execute:'max(a, b) {
+ if (a > b) return a;
+ else return b;
+ }'
+ for:nil
+ arguments:#(10 20)
+ expect:20
"
self run:#testIf03
@@ -1383,65 +1383,65 @@
|savedTranscript collector expected|
- savedTranscript := Smalltalk at:#Transcript.
+ savedTranscript := Smalltalk at:#Transcript.
[
- Smalltalk at:#Transcript put:(collector := '' writeStream).
+ Smalltalk at:#Transcript put:(collector := '' writeStream).
self
execute:'
execute() {
function foo()
{
- Transcript.show("foo called\n");
+ Transcript.show("foo called\n");
}
function bar()
{
- Transcript.show("bar called\n");
+ Transcript.show("bar called\n");
}
function bla(n)
{
- Transcript.show("bla called\n");
+ Transcript.show("bla called\n");
}
function test()
{
- foo();
- bar();
- var _fecUs;
- var _fecDs;
- var _cvUs = Array.new(15);
- var _cvDs = Array.new(15);
- var _headerLength = 10;
- var _headerLength2 = 10;
- var _raw = Array.new(20);
-
- for(var l=_headerLength+2;l<=_raw.size;l++)
- {
- var x = _raw[l];
- if(l!!=_raw.size)
- { var y = _raw[l+1]; }
-
- if(_cvUs.size >10 && _cvDs.size>10)
- {
- _fecUs = 15.asInteger - 12.asInteger;
- _fecDs = 20.asInteger - 13.asInteger;
- bla(_fecUs);
- bla(_fecDs);
- bla(_cvUs);
- bla(_cvDs);
- if(_fecUs >=0 && _fecUs >=0)
- {
- Transcript.show("hello\n");
- }
-
- }
- if(_cvUs.size == 5)
- { Transcript.show("end\n"); }
- }
- Transcript.show("bbb\n");
+ foo();
+ bar();
+ var _fecUs;
+ var _fecDs;
+ var _cvUs = Array.new(15);
+ var _cvDs = Array.new(15);
+ var _headerLength = 10;
+ var _headerLength2 = 10;
+ var _raw = Array.new(20);
+
+ for(var l=_headerLength+2;l<=_raw.size;l++)
+ {
+ var x = _raw[l];
+ if(l!!=_raw.size)
+ { var y = _raw[l+1]; }
+
+ if(_cvUs.size >10 && _cvDs.size>10)
+ {
+ _fecUs = 15.asInteger - 12.asInteger;
+ _fecDs = 20.asInteger - 13.asInteger;
+ bla(_fecUs);
+ bla(_fecDs);
+ bla(_cvUs);
+ bla(_cvDs);
+ if(_fecUs >=0 && _fecUs >=0)
+ {
+ Transcript.show("hello\n");
+ }
+
+ }
+ if(_cvUs.size == 5)
+ { Transcript.show("end\n"); }
+ }
+ Transcript.show("bbb\n");
}
test();
@@ -1451,21 +1451,21 @@
arguments:#()
expect:nil
] ensure:[
- Smalltalk at:#Transcript put:savedTranscript
+ Smalltalk at:#Transcript put:savedTranscript
].
- expected := String streamContents:[:s |
- s showCR:'foo called'.
- s showCR:'bar called'.
- 9 timesRepeat:[
- s showCR:'bla called'.
- s showCR:'bla called'.
- s showCR:'bla called'.
- s showCR:'bla called'.
- s showCR:'hello'.
- ].
- s showCR:'bbb'.
- ].
+ expected := String streamContents:[:s |
+ s showCR:'foo called'.
+ s showCR:'bar called'.
+ 9 timesRepeat:[
+ s showCR:'bla called'.
+ s showCR:'bla called'.
+ s showCR:'bla called'.
+ s showCR:'bla called'.
+ s showCR:'hello'.
+ ].
+ s showCR:'bbb'.
+ ].
self assert:(collector contents = expected).
"
@@ -1475,11 +1475,11 @@
!
testLiteralReturn01
- self
- execute:'function f() { return (0); }'
- for:nil
- arguments:#()
- expect:0
+ self
+ execute:'function f() { return (0); }'
+ for:nil
+ arguments:#()
+ expect:0
"
self run:#testLiteralReturn01
@@ -1488,11 +1488,11 @@
!
testLiteralReturn02
- self
- execute:'function f() { return (0.0); }'
- for:nil
- arguments:#()
- expect:0.0
+ self
+ execute:'function f() { return (0.0); }'
+ for:nil
+ arguments:#()
+ expect:0.0
"
self run:#testLiteralReturn02
@@ -1501,11 +1501,11 @@
!
testLiteralReturn03
- self
- execute:'function f() { return ("foo"); }'
- for:nil
- arguments:#()
- expect:'foo'
+ self
+ execute:'function f() { return ("foo"); }'
+ for:nil
+ arguments:#()
+ expect:'foo'
"
self run:#testLiteralReturn03
@@ -1514,11 +1514,11 @@
!
testLiteralReturn04
- self
- execute:'function f() { return (true); }'
- for:nil
- arguments:#()
- expect:true
+ self
+ execute:'function f() { return (true); }'
+ for:nil
+ arguments:#()
+ expect:true
"
self run:#testLiteralReturn04
@@ -1527,11 +1527,11 @@
!
testLiteralReturn05
- self
- execute:'function f() { return (false); }'
- for:nil
- arguments:#()
- expect:false
+ self
+ execute:'function f() { return (false); }'
+ for:nil
+ arguments:#()
+ expect:false
"
self run:#testLiteralReturn05
@@ -1540,11 +1540,11 @@
!
testLiteralReturn06
- self
- execute:'function f() { return (null); }'
- for:nil
- arguments:#()
- expect:nil
+ self
+ execute:'function f() { return (null); }'
+ for:nil
+ arguments:#()
+ expect:nil
"
self run:#testLiteralReturn06
@@ -1553,11 +1553,11 @@
!
testLiteralReturn07
- self
- execute:'function f() { return (nil); }'
- for:nil
- arguments:#()
- expect:nil
+ self
+ execute:'function f() { return (nil); }'
+ for:nil
+ arguments:#()
+ expect:nil
"
self run:#testLiteralReturn07
@@ -1566,11 +1566,11 @@
!
testLiteralReturn08
- self
- execute:'function f() { return ("hello"); }'
- for:nil
- arguments:#()
- expect:'hello'
+ self
+ execute:'function f() { return ("hello"); }'
+ for:nil
+ arguments:#()
+ expect:'hello'
"
self run:#testLiteralReturn08
@@ -1581,8 +1581,8 @@
testLiterals01
|t|
- t := JavaScriptParser
- evaluate:'
+ t := JavaScriptParser
+ evaluate:'
[
{"params": {"name": "q"}, "method": "click"},
{"params": {"text": "hello world", "name": "q"}, "method": "type"},
@@ -1609,10 +1609,10 @@
testLiterals02
|t|
- t := JavaScriptParser
- evaluate:'
- [ 1, 2, 3, 4, 5, 6, 7, 8 ];
- '.
+ t := JavaScriptParser
+ evaluate:'
+ [ 1, 2, 3, 4, 5, 6, 7, 8 ];
+ '.
self assert:(t isArray).
self assert:(t size == 8).
self assert:(t = #(1 2 3 4 5 6 7 8)).
@@ -1624,18 +1624,18 @@
!
testLocalFunction01
- self
- execute:'test(arg) {
- var x ;
-
- function localFunction() { return 10 / arg; };
-
- x = localFunction() + 1;
- return x;
- }'
- for:nil
- arguments:#(5)
- expect:3
+ self
+ execute:'test(arg) {
+ var x ;
+
+ function localFunction() { return 10 / arg; };
+
+ x = localFunction() + 1;
+ return x;
+ }'
+ for:nil
+ arguments:#(5)
+ expect:3
"
self run:#testLocalFunction01
@@ -1647,18 +1647,18 @@
!
testLocalFunction02
- self
- execute:'test(arg) {
- var x ;
-
- function localFunction() { return (10 / arg) from test; };
-
- x = localFunction() + 1;
- return x;
- }'
- for:nil
- arguments:#(5)
- expect:2
+ self
+ execute:'test(arg) {
+ var x ;
+
+ function localFunction() { return (10 / arg) from test; };
+
+ x = localFunction() + 1;
+ return x;
+ }'
+ for:nil
+ arguments:#(5)
+ expect:2
"
self run:#testLocalFunction02
@@ -1669,75 +1669,75 @@
!
testNew01
- self
- execute:'test() {
- var a;
-
- a = Array.new(5);
- return a;
- }'
- for:nil
- arguments:#()
- expect:#(nil nil nil nil nil).
+ self
+ execute:'test() {
+ var a;
+
+ a = Array.new(5);
+ return a;
+ }'
+ for:nil
+ arguments:#()
+ expect:#(nil nil nil nil nil).
"
self run:#testNew01
- self new testNew01
+ self new testNew01
"
!
testNew02
- self
- execute:'test() {
- var a;
-
- a = new Array(5);
- return a;
- }'
- for:nil
- arguments:#()
- expect:#(nil nil nil nil nil).
+ self
+ execute:'test() {
+ var a;
+
+ a = new Array(5);
+ return a;
+ }'
+ for:nil
+ arguments:#()
+ expect:#(nil nil nil nil nil).
"
self run:#testNew02
- self new testNew02
+ self new testNew02
"
!
testNew03
- self
- execute:'test() {
- var days;
-
- days = new Array(7);
- days[1] = "Monday";
- days[2] = "Tuesday";
- days[3] = "Wednesday";
- days[4] = "Thursday";
- days[5] = "Friday";
- days[6] = "Saturday";
- days[7] = "Sunday";
-
- return days;
- }'
- for:nil
- arguments:#()
- expect:#('Monday' 'Tuesday' 'Wednesday' 'Thursday' 'Friday' 'Saturday' 'Sunday')
+ self
+ execute:'test() {
+ var days;
+
+ days = new Array(7);
+ days[1] = "Monday";
+ days[2] = "Tuesday";
+ days[3] = "Wednesday";
+ days[4] = "Thursday";
+ days[5] = "Friday";
+ days[6] = "Saturday";
+ days[7] = "Sunday";
+
+ return days;
+ }'
+ for:nil
+ arguments:#()
+ expect:#('Monday' 'Tuesday' 'Wednesday' 'Thursday' 'Friday' 'Saturday' 'Sunday')
"
self run:#testNew03
- self new testNew03
+ self new testNew03
"
!
testOperators01_plus
- self
- execute:'expr(a, b) {
- return (a + 0);
- }'
- for:nil
- arguments:#(10 20)
- expect:10
+ self
+ execute:'expr(a, b) {
+ return (a + 0);
+ }'
+ for:nil
+ arguments:#(10 20)
+ expect:10
"
self run:#testOperators01_plus
@@ -1746,13 +1746,13 @@
!
testOperators02_plus
- self
- execute:'expr(a, b) {
- return (a + 1);
- }'
- for:nil
- arguments:#(10 20)
- expect:11
+ self
+ execute:'expr(a, b) {
+ return (a + 1);
+ }'
+ for:nil
+ arguments:#(10 20)
+ expect:11
"
self run:#testOperators02_plus
@@ -1761,13 +1761,13 @@
!
testOperators03_minus
- self
- execute:'expr(a, b) {
- return (a - 1);
- }'
- for:nil
- arguments:#(10 20)
- expect:9
+ self
+ execute:'expr(a, b) {
+ return (a - 1);
+ }'
+ for:nil
+ arguments:#(10 20)
+ expect:9
"
self run:#testOperators03_minus
@@ -1776,13 +1776,13 @@
!
testOperators04_plus
- self
- execute:'expr(a, b) {
- return (a + a);
- }'
- for:nil
- arguments:#(10 20)
- expect:20
+ self
+ execute:'expr(a, b) {
+ return (a + a);
+ }'
+ for:nil
+ arguments:#(10 20)
+ expect:20
"
self run:#testOperators04_plus
@@ -1791,13 +1791,13 @@
!
testOperators05_mul
- self
- execute:'expr(a, b) {
- return (a * 0);
- }'
- for:nil
- arguments:#(10 20)
- expect:0
+ self
+ execute:'expr(a, b) {
+ return (a * 0);
+ }'
+ for:nil
+ arguments:#(10 20)
+ expect:0
"
self run:#testOperators05_mul
@@ -1806,13 +1806,13 @@
!
testOperators06_mul
- self
- execute:'expr(a, b) {
- return (a * 1);
- }'
- for:nil
- arguments:#(10 20)
- expect:10
+ self
+ execute:'expr(a, b) {
+ return (a * 1);
+ }'
+ for:nil
+ arguments:#(10 20)
+ expect:10
"
self run:#testOperators06_mul
@@ -1821,13 +1821,13 @@
!
testOperators07_mul
- self
- execute:'expr(a, b) {
- return (a * -1);
- }'
- for:nil
- arguments:#(10 20)
- expect:-10
+ self
+ execute:'expr(a, b) {
+ return (a * -1);
+ }'
+ for:nil
+ arguments:#(10 20)
+ expect:-10
"
self run:#testOperators07_mul
@@ -1836,13 +1836,13 @@
!
testOperators08_mul
- self
- execute:'expr(a, b) {
- return (a * 10);
- }'
- for:nil
- arguments:#(10 20)
- expect:100
+ self
+ execute:'expr(a, b) {
+ return (a * 10);
+ }'
+ for:nil
+ arguments:#(10 20)
+ expect:100
"
self run:#testOperators08_mul
@@ -1851,13 +1851,13 @@
!
testOperators09_mul
- self
- execute:'expr(a, b) {
- return (a * a);
- }'
- for:nil
- arguments:#(10 20)
- expect:100
+ self
+ execute:'expr(a, b) {
+ return (a * a);
+ }'
+ for:nil
+ arguments:#(10 20)
+ expect:100
"
self run:#testOperators09_mul
@@ -1866,13 +1866,13 @@
!
testOperators10_mul
- self
- execute:'expr(a, b) {
- return (a * b);
- }'
- for:nil
- arguments:#(10 20)
- expect:200
+ self
+ execute:'expr(a, b) {
+ return (a * b);
+ }'
+ for:nil
+ arguments:#(10 20)
+ expect:200
"
self run:#testOperators10_mul
@@ -1881,13 +1881,13 @@
!
testOperators11_minus
- self
- execute:'expr(a, b) {
- return (a - b);
- }'
- for:nil
- arguments:#(10 20)
- expect:-10
+ self
+ execute:'expr(a, b) {
+ return (a - b);
+ }'
+ for:nil
+ arguments:#(10 20)
+ expect:-10
"
self run:#testOperators11_minus
@@ -1896,13 +1896,13 @@
!
testOperators12_unaryMinus
- self
- execute:'expr(a) {
- return (-a);
- }'
- for:nil
- arguments:#(10)
- expect:-10
+ self
+ execute:'expr(a) {
+ return (-a);
+ }'
+ for:nil
+ arguments:#(10)
+ expect:-10
"
self run:#testOperators12_unaryMinus
@@ -1911,13 +1911,13 @@
!
testOperators13_minus
- self
- execute:'expr(a, b) {
- return (a - -b);
- }'
- for:nil
- arguments:#(10 20)
- expect:30
+ self
+ execute:'expr(a, b) {
+ return (a - -b);
+ }'
+ for:nil
+ arguments:#(10 20)
+ expect:30
"
self run:#testOperators13_minus
@@ -1926,13 +1926,13 @@
!
testOperators14_unaryMinus
- self
- execute:'expr(a, b) {
- return (a * -b);
- }'
- for:nil
- arguments:#(10 1)
- expect:-10
+ self
+ execute:'expr(a, b) {
+ return (a * -b);
+ }'
+ for:nil
+ arguments:#(10 1)
+ expect:-10
"
self run:#testOperators14_unaryMinus
@@ -1941,13 +1941,13 @@
!
testOperators15_div
- self
- execute:'expr(a, b) {
- return (a / 1.0);
- }'
- for:nil
- arguments:#(10 1)
- expect:10.0
+ self
+ execute:'expr(a, b) {
+ return (a / 1.0);
+ }'
+ for:nil
+ arguments:#(10 1)
+ expect:10.0
"
self run:#testOperators15_div
@@ -1956,13 +1956,13 @@
!
testOperators16a_postInc
- self
- execute:'expr(a, b) {
- return (a++);
- }'
- for:nil
- arguments:#(10 1)
- expect:10
+ self
+ execute:'expr(a, b) {
+ return (a++);
+ }'
+ for:nil
+ arguments:#(10 1)
+ expect:10
"
self run:#testOperators16a_postInc
@@ -1973,15 +1973,15 @@
!
testOperators16b_postInc
- self
- execute:'expr(a, b) {
- var aa = a;
-
- return (aa++);
- }'
- for:nil
- arguments:#(10 1)
- expect:10
+ self
+ execute:'expr(a, b) {
+ var aa = a;
+
+ return (aa++);
+ }'
+ for:nil
+ arguments:#(10 1)
+ expect:10
"
self run:#testOperators16b_postInc
@@ -1990,14 +1990,14 @@
!
testOperators16c_postInc
- self
- execute:'expr(a, b) {
- var t = a++;
- return (t);
- }'
- for:nil
- arguments:#(10 1)
- expect:10
+ self
+ execute:'expr(a, b) {
+ var t = a++;
+ return (t);
+ }'
+ for:nil
+ arguments:#(10 1)
+ expect:10
"
self run:#testOperators16c_postInc
@@ -2008,14 +2008,14 @@
!
testOperators16d_postInc
- self
- execute:'expr(a, b) {
- var t = a++;
- return (a);
- }'
- for:nil
- arguments:#(10 1)
- expect:11
+ self
+ execute:'expr(a, b) {
+ var t = a++;
+ return (a);
+ }'
+ for:nil
+ arguments:#(10 1)
+ expect:11
"
self run:#testOperators16d_postInc
@@ -2026,14 +2026,14 @@
!
testOperators16e_postInc
- self
- execute:'expr(a, b) {
- var t = a++;
- return (b);
- }'
- for:nil
- arguments:#(10 1)
- expect:1
+ self
+ execute:'expr(a, b) {
+ var t = a++;
+ return (b);
+ }'
+ for:nil
+ arguments:#(10 1)
+ expect:1
"
self run:#testOperators16e_postInc
@@ -2044,13 +2044,13 @@
!
testOperators17a_eq
- self
- execute:'expr(a, b) {
- return (a == b);
- }'
- for:nil
- arguments:#(10 10)
- expect:true
+ self
+ execute:'expr(a, b) {
+ return (a == b);
+ }'
+ for:nil
+ arguments:#(10 10)
+ expect:true
"
self run:#testOperators17a_eq
@@ -2059,13 +2059,13 @@
!
testOperators17b_eq
- self
- execute:'expr(a, b) {
- return (a == b);
- }'
- for:nil
- arguments:#(10 11)
- expect:false
+ self
+ execute:'expr(a, b) {
+ return (a == b);
+ }'
+ for:nil
+ arguments:#(10 11)
+ expect:false
"
self run:#testOperators17b_eq
@@ -2074,13 +2074,13 @@
!
testOperators17c_ne
- self
- execute:'expr(a, b) {
- return (a !!= b);
- }'
- for:nil
- arguments:#(10 10)
- expect:false
+ self
+ execute:'expr(a, b) {
+ return (a !!= b);
+ }'
+ for:nil
+ arguments:#(10 10)
+ expect:false
"
self run:#testOperators17c_ne
@@ -2089,13 +2089,13 @@
!
testOperators17d_ne
- self
- execute:'expr(a, b) {
- return (a !!= b);
- }'
- for:nil
- arguments:#(10 11)
- expect:true
+ self
+ execute:'expr(a, b) {
+ return (a !!= b);
+ }'
+ for:nil
+ arguments:#(10 11)
+ expect:true
"
self run:#testOperators17d_ne
@@ -2104,13 +2104,13 @@
!
testOperators18a_eq
- self
- execute:'expr(a, b) {
- return (a == b);
- }'
- for:nil
- arguments:#(10 10.0)
- expect:true
+ self
+ execute:'expr(a, b) {
+ return (a == b);
+ }'
+ for:nil
+ arguments:#(10 10.0)
+ expect:true
"
self run:#testOperators18a_eq
@@ -2119,13 +2119,13 @@
!
testOperators18b_ne
- self
- execute:'expr(a, b) {
- return (a !!= b);
- }'
- for:nil
- arguments:#(10 11.0)
- expect:true
+ self
+ execute:'expr(a, b) {
+ return (a !!= b);
+ }'
+ for:nil
+ arguments:#(10 11.0)
+ expect:true
"
self run:#testOperators18b_ne
@@ -2134,13 +2134,13 @@
!
testOperators19a_identical
- self
- execute:'expr(a, b) {
- return (a === b);
- }'
- for:nil
- arguments:#(10 10)
- expect:true
+ self
+ execute:'expr(a, b) {
+ return (a === b);
+ }'
+ for:nil
+ arguments:#(10 10)
+ expect:true
"
self run:#testOperators19a_identical
@@ -2149,13 +2149,13 @@
!
testOperators19b_identical
- self
- execute:'expr(a, b) {
- return (a === b);
- }'
- for:nil
- arguments:#( 10 10.0 )
- expect:false
+ self
+ execute:'expr(a, b) {
+ return (a === b);
+ }'
+ for:nil
+ arguments:#( 10 10.0 )
+ expect:false
"
self run:#testOperators19b_identical
@@ -2164,13 +2164,13 @@
!
testOperators19c_notIdentical
- self
- execute:'expr(a, b) {
- return (a !!== b);
- }'
- for:nil
- arguments:#( 10 10 )
- expect:false
+ self
+ execute:'expr(a, b) {
+ return (a !!== b);
+ }'
+ for:nil
+ arguments:#( 10 10 )
+ expect:false
"
self run:#testOperators19c_notIdentical
@@ -2179,13 +2179,13 @@
!
testOperators19d_notIdentical
- self
- execute:'expr(a, b) {
- return (a !!== b);
- }'
- for:nil
- arguments:#( 10 10.0 )
- expect:true
+ self
+ execute:'expr(a, b) {
+ return (a !!== b);
+ }'
+ for:nil
+ arguments:#( 10 10.0 )
+ expect:true
"
self run:#testOperators19d_notIdentical
@@ -2194,13 +2194,13 @@
!
testOperators20a_eq
- self
- execute:'expr(a, b) {
- return (a == b);
- }'
- for:nil
- arguments:#( 'foo' 'foo' )
- expect:true
+ self
+ execute:'expr(a, b) {
+ return (a == b);
+ }'
+ for:nil
+ arguments:#( 'foo' 'foo' )
+ expect:true
"
self run:#testOperators20a_eq
@@ -2209,13 +2209,13 @@
!
testOperators20b_eq
- self
- execute:'expr(a, b) {
- return (a == b);
- }'
- for:nil
- arguments:#( 'foo' 'Foo' )
- expect:false
+ self
+ execute:'expr(a, b) {
+ return (a == b);
+ }'
+ for:nil
+ arguments:#( 'foo' 'Foo' )
+ expect:false
"
self run:#testOperators20b_eq
@@ -2224,13 +2224,13 @@
!
testOperators20c_ne
- self
- execute:'expr(a, b) {
- return (a !!= b);
- }'
- for:nil
- arguments:#( 'foo' 'Foo' )
- expect:true
+ self
+ execute:'expr(a, b) {
+ return (a !!= b);
+ }'
+ for:nil
+ arguments:#( 'foo' 'Foo' )
+ expect:true
"
self run:#testOperators20c_ne
@@ -2239,13 +2239,13 @@
!
testOperators20d_ne
- self
- execute:'expr(a, b) {
- return (a !!= b);
- }'
- for:nil
- arguments:#( 'foo' 'foo' )
- expect:false
+ self
+ execute:'expr(a, b) {
+ return (a !!= b);
+ }'
+ for:nil
+ arguments:#( 'foo' 'foo' )
+ expect:false
"
self run:#testOperators20d_ne
@@ -2254,13 +2254,13 @@
!
testOperators21a_ne
- self
- execute:'expr(a) {
- return (a !!= 0);
- }'
- for:nil
- arguments:#('foo')
- expect:true
+ self
+ execute:'expr(a) {
+ return (a !!= 0);
+ }'
+ for:nil
+ arguments:#('foo')
+ expect:true
"
self run:#testOperators21a_ne
@@ -2269,13 +2269,13 @@
!
testOperators21b_ne
- self
- execute:'expr(a) {
- return (a !!= 0);
- }'
- for:nil
- arguments:#(0)
- expect:false
+ self
+ execute:'expr(a) {
+ return (a !!= 0);
+ }'
+ for:nil
+ arguments:#(0)
+ expect:false
"
self run:#testOperators21b_ne
@@ -2284,13 +2284,13 @@
!
testOperators22a_gt
- self
- execute:'expr(a) {
- return (a > 0);
- }'
- for:nil
- arguments:#(0)
- expect:false
+ self
+ execute:'expr(a) {
+ return (a > 0);
+ }'
+ for:nil
+ arguments:#(0)
+ expect:false
"
self run:#testOperators22a_gt
@@ -2299,13 +2299,13 @@
!
testOperators22b_gt
- self
- execute:'expr(a) {
- return (a > 0);
- }'
- for:nil
- arguments:#(1)
- expect:true
+ self
+ execute:'expr(a) {
+ return (a > 0);
+ }'
+ for:nil
+ arguments:#(1)
+ expect:true
"
self run:#testOperators22b_gt
@@ -2314,13 +2314,13 @@
!
testOperators23a_unaryMinus
- self
- execute:'expr(a) {
- return (-a);
- }'
- for:nil
- arguments:#(1)
- expect:-1
+ self
+ execute:'expr(a) {
+ return (-a);
+ }'
+ for:nil
+ arguments:#(1)
+ expect:-1
"
self run:#testOperators23a_unaryMinus
@@ -2329,13 +2329,13 @@
!
testOperators23b_unaryMinus
- self
- execute:'expr(a) {
- return (0 - -a);
- }'
- for:nil
- arguments:#(1)
- expect:1
+ self
+ execute:'expr(a) {
+ return (0 - -a);
+ }'
+ for:nil
+ arguments:#(1)
+ expect:1
"
self run:#testOperators23b_unaryMinus
@@ -2344,13 +2344,13 @@
!
testOperators24a_div
- self
- execute:'expr(a) {
- return (a / 4);
- }'
- for:nil
- arguments:#(4)
- expect:1
+ self
+ execute:'expr(a) {
+ return (a / 4);
+ }'
+ for:nil
+ arguments:#(4)
+ expect:1
"
self run:#testOperators24a_div
@@ -2359,13 +2359,13 @@
!
testOperators24b_div
- self
- execute:'expr(a) {
- return (a / 4.0);
- }'
- for:nil
- arguments:#(4)
- expect:1.0
+ self
+ execute:'expr(a) {
+ return (a / 4.0);
+ }'
+ for:nil
+ arguments:#(4)
+ expect:1.0
"
self run:#testOperators24b_div
@@ -2374,13 +2374,13 @@
!
testOperators24c_div
- self
- execute:'expr(a) {
- return (a / 4);
- }'
- for:nil
- arguments:#(4.0)
- expect:1.0
+ self
+ execute:'expr(a) {
+ return (a / 4);
+ }'
+ for:nil
+ arguments:#(4.0)
+ expect:1.0
"
self run:#testOperators24c_div
@@ -2389,13 +2389,13 @@
!
testOperators24d_div
- self
- execute:'expr(a) {
- return (a / 4.0);
- }'
- for:nil
- arguments:#(4.0)
- expect:1.0
+ self
+ execute:'expr(a) {
+ return (a / 4.0);
+ }'
+ for:nil
+ arguments:#(4.0)
+ expect:1.0
"
self run:#testOperators24d_div
@@ -2404,13 +2404,13 @@
!
testOperators25a_mod
- self
- execute:'expr(a) {
- return (a % 4);
- }'
- for:nil
- arguments:#(4)
- expect:0
+ self
+ execute:'expr(a) {
+ return (a % 4);
+ }'
+ for:nil
+ arguments:#(4)
+ expect:0
"
self run:#testOperators25a_mod
@@ -2419,13 +2419,13 @@
!
testOperators25b_mod
- self
- execute:'expr(a) {
- return (a % 4.0);
- }'
- for:nil
- arguments:#(4)
- expect:0.0
+ self
+ execute:'expr(a) {
+ return (a % 4.0);
+ }'
+ for:nil
+ arguments:#(4)
+ expect:0.0
"
self run:#testOperators25b_mod
@@ -2434,13 +2434,13 @@
!
testOperators25c_mod
- self
- execute:'expr(a) {
- return (a % 4);
- }'
- for:nil
- arguments:#(4.0)
- expect:0.0
+ self
+ execute:'expr(a) {
+ return (a % 4);
+ }'
+ for:nil
+ arguments:#(4.0)
+ expect:0.0
"
self run:#testOperators25c_mod
@@ -2449,13 +2449,13 @@
!
testOperators25d_mod
- self
- execute:'expr(a) {
- return (a % 4.0);
- }'
- for:nil
- arguments:#(4.0)
- expect:0.0
+ self
+ execute:'expr(a) {
+ return (a % 4.0);
+ }'
+ for:nil
+ arguments:#(4.0)
+ expect:0.0
"
self run:#testOperators25d_mod
@@ -2464,13 +2464,13 @@
!
testOperators25e_mod
- self
- execute:'expr(a) {
- return (a % 4);
- }'
- for:nil
- arguments:#(-4)
- expect:0
+ self
+ execute:'expr(a) {
+ return (a % 4);
+ }'
+ for:nil
+ arguments:#(-4)
+ expect:0
"
self run:#testOperators25e_mod
@@ -2479,13 +2479,13 @@
!
testOperators25f_mod
- self
- execute:'expr(a) {
- return (a % 4.0);
- }'
- for:nil
- arguments:#(-4)
- expect:0.0
+ self
+ execute:'expr(a) {
+ return (a % 4.0);
+ }'
+ for:nil
+ arguments:#(-4)
+ expect:0.0
"
self run:#testOperators25f_mod
@@ -2494,13 +2494,13 @@
!
testOperators25g_mod
- self
- execute:'expr(a) {
- return (a % 4);
- }'
- for:nil
- arguments:#(-4.0)
- expect:0.0
+ self
+ execute:'expr(a) {
+ return (a % 4);
+ }'
+ for:nil
+ arguments:#(-4.0)
+ expect:0.0
"
self run:#testOperators25g_mod
@@ -2509,13 +2509,13 @@
!
testOperators25h_mod
- self
- execute:'expr(a) {
- return (a % 4.0);
- }'
- for:nil
- arguments:#(-4.0)
- expect:0.0
+ self
+ execute:'expr(a) {
+ return (a % 4.0);
+ }'
+ for:nil
+ arguments:#(-4.0)
+ expect:0.0
"
self run:#testOperators25h_mod
@@ -2524,15 +2524,15 @@
!
testOperators26a_postInc
- self
- execute:'expr(a) {
- var x = a;
-
- return (x++);
- }'
- for:nil
- arguments:#(1)
- expect:1
+ self
+ execute:'expr(a) {
+ var x = a;
+
+ return (x++);
+ }'
+ for:nil
+ arguments:#(1)
+ expect:1
"
self run:#testOperators26a_postInc
@@ -2541,15 +2541,15 @@
!
testOperators26b_postDec
- self
- execute:'expr(a) {
- var x = a;
-
- return (x--);
- }'
- for:nil
- arguments:#(1)
- expect:1
+ self
+ execute:'expr(a) {
+ var x = a;
+
+ return (x--);
+ }'
+ for:nil
+ arguments:#(1)
+ expect:1
"
self run:#testOperators26b_postDec
@@ -2558,15 +2558,15 @@
!
testOperators26c_preInc
- self
- execute:'expr(a) {
- var x = a;
-
- return (++x);
- }'
- for:nil
- arguments:#(1)
- expect:2
+ self
+ execute:'expr(a) {
+ var x = a;
+
+ return (++x);
+ }'
+ for:nil
+ arguments:#(1)
+ expect:2
"
self run:#testOperators26c_preInc
@@ -2575,15 +2575,15 @@
!
testOperators26d_preDec
- self
- execute:'expr(a) {
- var x = a;
-
- return (--x);
- }'
- for:nil
- arguments:#(1)
- expect:0
+ self
+ execute:'expr(a) {
+ var x = a;
+
+ return (--x);
+ }'
+ for:nil
+ arguments:#(1)
+ expect:0
"
self run:#testOperators26d_preDec
@@ -2592,16 +2592,16 @@
!
testOperators27a_postInc
- self
- execute:'expr(a) {
- var x = a;
-
- x++;
- return (x);
- }'
- for:nil
- arguments:#(1)
- expect:2
+ self
+ execute:'expr(a) {
+ var x = a;
+
+ x++;
+ return (x);
+ }'
+ for:nil
+ arguments:#(1)
+ expect:2
"
self run:#testOperators27a_postInc
@@ -2610,16 +2610,16 @@
!
testOperators27b_postDec
- self
- execute:'expr(a) {
- var x = a;
-
- x--;
- return (x);
- }'
- for:nil
- arguments:#(1)
- expect:0
+ self
+ execute:'expr(a) {
+ var x = a;
+
+ x--;
+ return (x);
+ }'
+ for:nil
+ arguments:#(1)
+ expect:0
"
self run:#testOperators27b_postDec
@@ -2628,16 +2628,16 @@
!
testOperators27c_preInc
- self
- execute:'expr(a) {
- var x = a;
-
- ++x;
- return (x);
- }'
- for:nil
- arguments:#(1)
- expect:2
+ self
+ execute:'expr(a) {
+ var x = a;
+
+ ++x;
+ return (x);
+ }'
+ for:nil
+ arguments:#(1)
+ expect:2
"
self run:#testOperators27c_preInc
@@ -2646,16 +2646,16 @@
!
testOperators27d_preDec
- self
- execute:'expr(a) {
- var x = a;
-
- --x;
- return (x);
- }'
- for:nil
- arguments:#(1)
- expect:0
+ self
+ execute:'expr(a) {
+ var x = a;
+
+ --x;
+ return (x);
+ }'
+ for:nil
+ arguments:#(1)
+ expect:0
"
self run:#testOperators27d_preDec
@@ -2668,13 +2668,13 @@
arr := (1 to:15) asArray.
- self
- execute:'expr(a) {
- return (a[10]++);
- }'
- for:nil
- arguments:{ arr }
- expect:10.
+ self
+ execute:'expr(a) {
+ return (a[10]++);
+ }'
+ for:nil
+ arguments:{ arr }
+ expect:10.
self assert:(arr = #(1 2 3 4 5 6 7 8 9 11 11 12 13 14 15))
@@ -2689,13 +2689,13 @@
arr := (1 to:15) asArray.
- self
- execute:'expr(a) {
- return (--a[10]);
- }'
- for:nil
- arguments:{ arr }
- expect:9.
+ self
+ execute:'expr(a) {
+ return (--a[10]);
+ }'
+ for:nil
+ arguments:{ arr }
+ expect:9.
self assert:(arr = #(1 2 3 4 5 6 7 8 9 9 11 12 13 14 15))
@@ -2706,13 +2706,13 @@
!
testOperators28_not
- self
- execute:'expr(a) {
- return (!! a);
- }'
- for:nil
- arguments:#(true)
- expect:false
+ self
+ execute:'expr(a) {
+ return (!! a);
+ }'
+ for:nil
+ arguments:#(true)
+ expect:false
"
self run:#testOperators28_not
@@ -2721,19 +2721,19 @@
!
testOperators29a_plusAssign
- self
- execute:'expr(a, b, c, d) {
- var s = 0;
- s += a;
- s += b;
- s += c;
- s += d;
- s += 1;
- return (s);
- }'
- for:nil
- arguments:#( 1 2 3 4 )
- expect:11
+ self
+ execute:'expr(a, b, c, d) {
+ var s = 0;
+ s += a;
+ s += b;
+ s += c;
+ s += d;
+ s += 1;
+ return (s);
+ }'
+ for:nil
+ arguments:#( 1 2 3 4 )
+ expect:11
"
self run:#testOperators29a_plusAssign
@@ -2742,19 +2742,19 @@
!
testOperators29c_minusAssign
- self
- execute:'expr(a, b, c, d) {
- var s = 0;
- s -= a;
- s -= b;
- s -= c;
- s -= d;
- s -= 1;
- return (s);
- }'
- for:nil
- arguments:#( 1 2 3 4 )
- expect:-11
+ self
+ execute:'expr(a, b, c, d) {
+ var s = 0;
+ s -= a;
+ s -= b;
+ s -= c;
+ s -= d;
+ s -= 1;
+ return (s);
+ }'
+ for:nil
+ arguments:#( 1 2 3 4 )
+ expect:-11
"
self run:#testOperators29c_minusAssign
@@ -2763,19 +2763,19 @@
!
testOperators30_timesAssign
- self
- execute:'expr(a, b, c, d) {
- var s = 1;
- s *= a;
- s *= b;
- s *= c;
- s *= d;
- s *= 2;
- return (s);
- }'
- for:nil
- arguments:#( 1 2 3 4 )
- expect:48
+ self
+ execute:'expr(a, b, c, d) {
+ var s = 1;
+ s *= a;
+ s *= b;
+ s *= c;
+ s *= d;
+ s *= 2;
+ return (s);
+ }'
+ for:nil
+ arguments:#( 1 2 3 4 )
+ expect:48
"
self run:#testOperators30_timesAssign
@@ -2784,13 +2784,13 @@
!
testOperators31a_shiftLeft
- self
- execute:'expr(a) {
- return (a << 1);
- }'
- for:nil
- arguments:#( 1 )
- expect:2
+ self
+ execute:'expr(a) {
+ return (a << 1);
+ }'
+ for:nil
+ arguments:#( 1 )
+ expect:2
"
self run:#testOperators31a_shiftLeft
@@ -2799,13 +2799,13 @@
!
testOperators31b_shiftLeft
- self
- execute:'expr(a) {
- return (a << 32);
- }'
- for:nil
- arguments:#( 1 )
- expect:16r100000000
+ self
+ execute:'expr(a) {
+ return (a << 32);
+ }'
+ for:nil
+ arguments:#( 1 )
+ expect:16r100000000
"
self run:#testOperators31b_shiftLeft
@@ -2814,16 +2814,16 @@
!
testOperators31c_shiftLeftAssign
- self
- execute:'expr(a) {
- var b = a;
-
- b <<= 1;
- return b;
- }'
- for:nil
- arguments:#( 1 )
- expect:2
+ self
+ execute:'expr(a) {
+ var b = a;
+
+ b <<= 1;
+ return b;
+ }'
+ for:nil
+ arguments:#( 1 )
+ expect:2
"
self run:#testOperators31c_shiftLeftAssign
@@ -2832,13 +2832,13 @@
!
testOperators32a_shiftRight
- self
- execute:'expr(a) {
- return (a >> 1);
- }'
- for:nil
- arguments:#( 2 )
- expect:1
+ self
+ execute:'expr(a) {
+ return (a >> 1);
+ }'
+ for:nil
+ arguments:#( 2 )
+ expect:1
"
self run:#testOperators32a_shiftRight
@@ -2847,16 +2847,16 @@
!
testOperators32b_shiftRightAssign
- self
- execute:'expr(a) {
- var b = a;
-
- b >>= 1;
- return b;
- }'
- for:nil
- arguments:#( 5 )
- expect:2
+ self
+ execute:'expr(a) {
+ var b = a;
+
+ b >>= 1;
+ return b;
+ }'
+ for:nil
+ arguments:#( 5 )
+ expect:2
"
self run:#testOperators32b_shiftRightAssign
@@ -2865,16 +2865,16 @@
!
testOperators33_bitOrAssign
- self
- execute:'expr(a, b) {
- var s = 0;
- s |= a;
- s |= b;
- return (s);
- }'
- for:nil
- arguments:#(1 4)
- expect:5
+ self
+ execute:'expr(a, b) {
+ var s = 0;
+ s |= a;
+ s |= b;
+ return (s);
+ }'
+ for:nil
+ arguments:#(1 4)
+ expect:5
"
self run:#testOperators33_bitOrAssign
@@ -2883,16 +2883,16 @@
!
testOperators34_bitAndAssign
- self
- execute:'expr(a, b) {
- var s = 0xFFFF;
- s &= a;
- s &= b;
- return (s);
- }'
- for:nil
- arguments:#(3 5)
- expect:1
+ self
+ execute:'expr(a, b) {
+ var s = 0xFFFF;
+ s &= a;
+ s &= b;
+ return (s);
+ }'
+ for:nil
+ arguments:#(3 5)
+ expect:1
"
self run:#testOperators34_bitAndAssign
@@ -2901,15 +2901,15 @@
!
testOperators35a_bitXorAssign
- self
- execute:'expr(a) {
- var s = 0xFFFF;
- s ^= a;
- return (s);
- }'
- for:nil
- arguments:#( 1 )
- expect:16rFFFE
+ self
+ execute:'expr(a) {
+ var s = 0xFFFF;
+ s ^= a;
+ return (s);
+ }'
+ for:nil
+ arguments:#( 1 )
+ expect:16rFFFE
"
self run:#testOperators35a_xorAssign
@@ -2918,15 +2918,15 @@
!
testOperators35b_bitXor
- self
- execute:'expr(a) {
- var s = 0xFFFF;
- s = s ^ a;
- return (s);
- }'
- for:nil
- arguments:#( 1 )
- expect:16rFFFE
+ self
+ execute:'expr(a) {
+ var s = 0xFFFF;
+ s = s ^ a;
+ return (s);
+ }'
+ for:nil
+ arguments:#( 1 )
+ expect:16rFFFE
"
self run:#testOperators35b_xor
@@ -2935,13 +2935,13 @@
!
testOperators36a_mod
- self
- execute:'expr(a) {
- return (a % 2);
- }'
- for:nil
- arguments:#(10)
- expect:0
+ self
+ execute:'expr(a) {
+ return (a % 2);
+ }'
+ for:nil
+ arguments:#(10)
+ expect:0
"
self run:#testOperators36a_mod
@@ -2950,13 +2950,13 @@
!
testOperators36b_mod
- self
- execute:'expr(a) {
- return (a % 2);
- }'
- for:nil
- arguments:#(9)
- expect:1
+ self
+ execute:'expr(a) {
+ return (a % 2);
+ }'
+ for:nil
+ arguments:#(9)
+ expect:1
"
self run:#testOperators36b_mod
@@ -2965,13 +2965,13 @@
!
testOperators37a_cond
- self
- execute:'expr(a) {
- return (a ? 1 : 0);
- }'
- for:nil
- arguments:#(true)
- expect:1
+ self
+ execute:'expr(a) {
+ return (a ? 1 : 0);
+ }'
+ for:nil
+ arguments:#(true)
+ expect:1
"
self run:#testOperators37a_cond
@@ -2980,13 +2980,13 @@
!
testOperators37b_cond
- self
- execute:'expr(a) {
- return (a ? 1 : 0);
- }'
- for:nil
- arguments:#(false)
- expect:0
+ self
+ execute:'expr(a) {
+ return (a ? 1 : 0);
+ }'
+ for:nil
+ arguments:#(false)
+ expect:0
"
self run:#testOperators37b_cond
@@ -2995,13 +2995,13 @@
!
testOperators37c_cond
- self
- execute:'expr(a, b) {
- return (a ? (b ? 0 : 1) : (b ? 2 : 3));
- }'
- for:nil
- arguments:#(false false)
- expect:3
+ self
+ execute:'expr(a, b) {
+ return (a ? (b ? 0 : 1) : (b ? 2 : 3));
+ }'
+ for:nil
+ arguments:#(false false)
+ expect:3
"
self run:#testOperators37c_cond
@@ -3010,13 +3010,13 @@
!
testOperators37d_cond
- self
- execute:'expr(a) {
- return (a == 1 ? 2 : 3);
- }'
- for:nil
- arguments:#(1)
- expect:2
+ self
+ execute:'expr(a) {
+ return (a == 1 ? 2 : 3);
+ }'
+ for:nil
+ arguments:#(1)
+ expect:2
"
self run:#testOperators37d_cond
@@ -3025,13 +3025,13 @@
!
testOperators38a_eq
- self
- execute:'expr(a) {
- return (a == 1);
- }'
- for:nil
- arguments:#(1)
- expect:true
+ self
+ execute:'expr(a) {
+ return (a == 1);
+ }'
+ for:nil
+ arguments:#(1)
+ expect:true
"
self run:#testOperators38a_eq
@@ -3040,13 +3040,13 @@
!
testOperators38b_eq
- self
- execute:'expr(a) {
- return (a == 1);
- }'
- for:nil
- arguments:#(1.0)
- expect:true
+ self
+ execute:'expr(a) {
+ return (a == 1);
+ }'
+ for:nil
+ arguments:#(1.0)
+ expect:true
"
self run:#testOperators38b_eq
@@ -3055,13 +3055,13 @@
!
testOperators38c_eq
- self
- execute:'expr(a) {
- return ( "hello"[1].asString == "h" );
- }'
- for:nil
- arguments:#(1.0)
- expect:true
+ self
+ execute:'expr(a) {
+ return ( "hello"[1].asString == "h" );
+ }'
+ for:nil
+ arguments:#(1.0)
+ expect:true
"
self run:#testOperators38c_eq
@@ -3072,13 +3072,13 @@
!
testOperators38c_ne
- self
- execute:'expr(a) {
- return (a !!= 1);
- }'
- for:nil
- arguments:#(1.0)
- expect:false
+ self
+ execute:'expr(a) {
+ return (a !!= 1);
+ }'
+ for:nil
+ arguments:#(1.0)
+ expect:false
"
self run:#testOperators38c_ne
@@ -3087,13 +3087,13 @@
!
testOperators38d_eq
- self
- execute:'expr(a) {
- return ("hello"[1] == $''h'' );
- }'
- for:nil
- arguments:#(1.0)
- expect:true
+ self
+ execute:'expr(a) {
+ return ("hello"[1] == $''h'' );
+ }'
+ for:nil
+ arguments:#(1.0)
+ expect:true
"
self run:#testOperators38d_eq
@@ -3102,13 +3102,13 @@
!
testOperators38d_ne
- self
- execute:'expr(a) {
- return (a !!= 1);
- }'
- for:nil
- arguments:#(2.0)
- expect:true
+ self
+ execute:'expr(a) {
+ return (a !!= 1);
+ }'
+ for:nil
+ arguments:#(2.0)
+ expect:true
"
self run:#testOperators38d_ne
@@ -3117,13 +3117,13 @@
!
testOperators38e_eq
- self
- execute:'expr(a) {
- return ( "hello"[1] == "h"[1] );
- }'
- for:nil
- arguments:#(1.0)
- expect:true
+ self
+ execute:'expr(a) {
+ return ( "hello"[1] == "h"[1] );
+ }'
+ for:nil
+ arguments:#(1.0)
+ expect:true
"
self run:#testOperators38e_eq
@@ -3134,13 +3134,13 @@
!
testOperators38f_eq
- self
- execute:'expr(a) {
- return ( ("hello"[1]).asString == "h" );
- }'
- for:nil
- arguments:#(1.0)
- expect:true
+ self
+ execute:'expr(a) {
+ return ( ("hello"[1]).asString == "h" );
+ }'
+ for:nil
+ arguments:#(1.0)
+ expect:true
"
self run:#testOperators38f_eq
@@ -3151,13 +3151,13 @@
!
testOperators39a_identical
- self
- execute:'expr(a) {
- return (a === 1);
- }'
- for:nil
- arguments:#(1)
- expect:true
+ self
+ execute:'expr(a) {
+ return (a === 1);
+ }'
+ for:nil
+ arguments:#(1)
+ expect:true
"
self run:#testOperators39a_identical
@@ -3166,13 +3166,13 @@
!
testOperators39b_identical
- self
- execute:'expr(a) {
- return (a === 1);
- }'
- for:nil
- arguments:#(1.0)
- expect:false
+ self
+ execute:'expr(a) {
+ return (a === 1);
+ }'
+ for:nil
+ arguments:#(1.0)
+ expect:false
"
self run:#testOperators39b_identical
@@ -3181,13 +3181,13 @@
!
testOperators39c_notIdentical
- self
- execute:'expr(a) {
- return (a !!== 1);
- }'
- for:nil
- arguments:#(1.0)
- expect:true
+ self
+ execute:'expr(a) {
+ return (a !!== 1);
+ }'
+ for:nil
+ arguments:#(1.0)
+ expect:true
"
self run:#testOperators39c_notIdentical
@@ -3196,13 +3196,13 @@
!
testOperators39d_notIdentical
- self
- execute:'expr(a) {
- return (a !!== 1);
- }'
- for:nil
- arguments:#(1)
- expect:false
+ self
+ execute:'expr(a) {
+ return (a !!== 1);
+ }'
+ for:nil
+ arguments:#(1)
+ expect:false
"
self run:#testOperators39d_notIdentical
@@ -3211,13 +3211,13 @@
!
testOperators40a_bitAnd
- self
- execute:'expr(a) {
- return (a & 1);
- }'
- for:nil
- arguments:#(1)
- expect:1
+ self
+ execute:'expr(a) {
+ return (a & 1);
+ }'
+ for:nil
+ arguments:#(1)
+ expect:1
"
self run:#testOperators40a_bitAnd
@@ -3226,13 +3226,13 @@
!
testOperators40b_bitAnd
- self
- execute:'expr(a) {
- return (a & 1);
- }'
- for:nil
- arguments:#(7)
- expect:1
+ self
+ execute:'expr(a) {
+ return (a & 1);
+ }'
+ for:nil
+ arguments:#(7)
+ expect:1
"
self run:#testOperators40b_bitAnd
@@ -3241,13 +3241,13 @@
!
testOperators41a_bitOr
- self
- execute:'expr(a) {
- return (a | 1);
- }'
- for:nil
- arguments:#(6)
- expect:7
+ self
+ execute:'expr(a) {
+ return (a | 1);
+ }'
+ for:nil
+ arguments:#(6)
+ expect:7
"
self run:#testOperators41a_bitOr
@@ -3256,13 +3256,13 @@
!
testOperators42a_bitXor
- self
- execute:'expr(a) {
- return (a ^ 1);
- }'
- for:nil
- arguments:#(7)
- expect:6
+ self
+ execute:'expr(a) {
+ return (a ^ 1);
+ }'
+ for:nil
+ arguments:#(7)
+ expect:6
"
self run:#testOperators42a_bitXor
@@ -3271,13 +3271,13 @@
!
testOperators43a_bitNot
- self
- execute:'expr(a) {
- return (~a);
- }'
- for:nil
- arguments:#(1)
- expect:-2
+ self
+ execute:'expr(a) {
+ return (~a);
+ }'
+ for:nil
+ arguments:#(1)
+ expect:-2
"
self run:#testOperators43a_bitNot
@@ -3286,85 +3286,85 @@
!
testOperators44a_logAnd
- self
- execute:'expr(a, b) {
- return (a && (b > 5));
- }'
- for:nil
- arguments:#(true 6)
- expect:true.
-
- self
- execute:'expr(a, b) {
- return (a && (b > 5));
- }'
- for:nil
- arguments:#(true 5)
- expect:false.
-
- self
- execute:'expr(a, b) {
- return (a > 10 && (b > 5));
- }'
- for:nil
- arguments:#(10 5)
- expect:false.
-
- self
- execute:'expr(a, b) {
- return (a > 10 && (b > 5));
- }'
- for:nil
- arguments:#(11 5)
- expect:false.
-
- self
- execute:'expr(a, b) {
- return (a > 10 && (b > 5));
- }'
- for:nil
- arguments:#(10 6)
- expect:false.
-
- self
- execute:'expr(a, b) {
- return (a > 10 && (b > 5));
- }'
- for:nil
- arguments:#(11 15)
- expect:true.
-
- self
- execute:'expr(a, b) {
- return (a.size > 10 && (b.size > 5));
- }'
- for:nil
- arguments:{Array new:10 . Array new:5}
- expect:false.
-
- self
- execute:'expr(a, b) {
- return (a.size > 10 && (b.size > 5));
- }'
- for:nil
- arguments:{Array new:11 . Array new:5}
- expect:false.
-
- self
- execute:'expr(a, b) {
- return (a.size > 10 && (b.size > 5));
- }'
- for:nil
- arguments:{Array new:10 . Array new:6}
- expect:false.
-
- self
- execute:'expr(a, b) {
- return (a.size > 10 && (b.size > 5));
- }'
- for:nil
- arguments:{Array new:11 . Array new:15}
- expect:true.
+ self
+ execute:'expr(a, b) {
+ return (a && (b > 5));
+ }'
+ for:nil
+ arguments:#(true 6)
+ expect:true.
+
+ self
+ execute:'expr(a, b) {
+ return (a && (b > 5));
+ }'
+ for:nil
+ arguments:#(true 5)
+ expect:false.
+
+ self
+ execute:'expr(a, b) {
+ return (a > 10 && (b > 5));
+ }'
+ for:nil
+ arguments:#(10 5)
+ expect:false.
+
+ self
+ execute:'expr(a, b) {
+ return (a > 10 && (b > 5));
+ }'
+ for:nil
+ arguments:#(11 5)
+ expect:false.
+
+ self
+ execute:'expr(a, b) {
+ return (a > 10 && (b > 5));
+ }'
+ for:nil
+ arguments:#(10 6)
+ expect:false.
+
+ self
+ execute:'expr(a, b) {
+ return (a > 10 && (b > 5));
+ }'
+ for:nil
+ arguments:#(11 15)
+ expect:true.
+
+ self
+ execute:'expr(a, b) {
+ return (a.size > 10 && (b.size > 5));
+ }'
+ for:nil
+ arguments:{Array new:10 . Array new:5}
+ expect:false.
+
+ self
+ execute:'expr(a, b) {
+ return (a.size > 10 && (b.size > 5));
+ }'
+ for:nil
+ arguments:{Array new:11 . Array new:5}
+ expect:false.
+
+ self
+ execute:'expr(a, b) {
+ return (a.size > 10 && (b.size > 5));
+ }'
+ for:nil
+ arguments:{Array new:10 . Array new:6}
+ expect:false.
+
+ self
+ execute:'expr(a, b) {
+ return (a.size > 10 && (b.size > 5));
+ }'
+ for:nil
+ arguments:{Array new:11 . Array new:15}
+ expect:true.
"
self run:#testOperators44a_logAnd
@@ -3376,29 +3376,29 @@
"the right part of a logical and should not be evaluated,
if the left is already false"
- self
- execute:'expr(a, bIn) {
- var x, b;
-
- b = bIn;
- x = (a && (b++ > 5));
- return b;
- }'
- for:nil
- arguments:#(true 5)
- expect:6.
-
- self
- execute:'expr(a, bIn) {
- var x, b;
-
- b = bIn;
- x = (a && (b++ > 5));
- return b;
- }'
- for:nil
- arguments:#(false 5)
- expect:5
+ self
+ execute:'expr(a, bIn) {
+ var x, b;
+
+ b = bIn;
+ x = (a && (b++ > 5));
+ return b;
+ }'
+ for:nil
+ arguments:#(true 5)
+ expect:6.
+
+ self
+ execute:'expr(a, bIn) {
+ var x, b;
+
+ b = bIn;
+ x = (a && (b++ > 5));
+ return b;
+ }'
+ for:nil
+ arguments:#(false 5)
+ expect:5
"
self run:#testOperators44b_logAnd
@@ -3407,29 +3407,29 @@
!
testOperators45a_logOr
- self
- execute:'expr(a, b) {
- return (a || (b > 5));
- }'
- for:nil
- arguments:#(true 6)
- expect:true.
-
- self
- execute:'expr(a, b) {
- return (a || (b > 5));
- }'
- for:nil
- arguments:#(false 6)
- expect:true.
-
- self
- execute:'expr(a, b) {
- return (a || (b > 5));
- }'
- for:nil
- arguments:#(false 5)
- expect:false
+ self
+ execute:'expr(a, b) {
+ return (a || (b > 5));
+ }'
+ for:nil
+ arguments:#(true 6)
+ expect:true.
+
+ self
+ execute:'expr(a, b) {
+ return (a || (b > 5));
+ }'
+ for:nil
+ arguments:#(false 6)
+ expect:true.
+
+ self
+ execute:'expr(a, b) {
+ return (a || (b > 5));
+ }'
+ for:nil
+ arguments:#(false 5)
+ expect:false
"
self run:#testOperators45a_logOr
@@ -3441,29 +3441,29 @@
"the right part of a logical or should not be evaluated,
if the left is already true"
- self
- execute:'expr(a, bIn) {
- var x, b;
-
- b = bIn;
- x = (a || (b++ > 5));
- return b;
- }'
- for:nil
- arguments:#(true 5)
- expect:5.
-
- self
- execute:'expr(a, bIn) {
- var x, b;
-
- b = bIn;
- x = (a || (b++ > 5));
- return b;
- }'
- for:nil
- arguments:#(false 5)
- expect:6
+ self
+ execute:'expr(a, bIn) {
+ var x, b;
+
+ b = bIn;
+ x = (a || (b++ > 5));
+ return b;
+ }'
+ for:nil
+ arguments:#(true 5)
+ expect:5.
+
+ self
+ execute:'expr(a, bIn) {
+ var x, b;
+
+ b = bIn;
+ x = (a || (b++ > 5));
+ return b;
+ }'
+ for:nil
+ arguments:#(false 5)
+ expect:6
"
self run:#testOperators45b_logOr
@@ -3472,72 +3472,72 @@
!
testOperators46_comma
- self
- execute:'expr(a, b, c) {
- var x;
-
- x = a+1, b+1, c+1;
- return x;
- }'
- for:nil
- arguments:#(1 2 3)
- expect:4.
-
- self
- execute:'expr(aIn, bIn, cIn) {
- var x;
- var a = aIn;
- var b = bIn;
- var c = cIn;
-
- x = ++a , ++b, ++c, a+b+c;
- return x;
- }'
- for:nil
- arguments:#(1 2 3)
- expect:9.
-
- self
- execute:'expr(aIn, bIn, cIn) {
- var x;
- var a = aIn;
- var b = bIn;
- var c = cIn;
-
- x = a++ , b++, c++, a+b+c;
- return x;
- }'
- for:nil
- arguments:#(1 2 3)
- expect:9.
-
- self
- execute:'expr(aIn, bIn, cIn) {
- var x;
- var a = aIn;
- var b = bIn;
- var c = cIn;
-
- x = a++ , b++, c++, ++a + ++b + ++c;
- return x;
- }'
- for:nil
- arguments:#(1 2 3)
- expect:12.
-
- self
- execute:'expr(aIn, bIn, cIn) {
- var x;
- var a = aIn;
- var b = bIn;
- var c = cIn;
-
- x = a++ , b++, c++, a++ + b++ + c++;
- return x;
- }'
- for:nil
- arguments:#(1 2 3)
- expect:9.
+ self
+ execute:'expr(a, b, c) {
+ var x;
+
+ x = a+1, b+1, c+1;
+ return x;
+ }'
+ for:nil
+ arguments:#(1 2 3)
+ expect:4.
+
+ self
+ execute:'expr(aIn, bIn, cIn) {
+ var x;
+ var a = aIn;
+ var b = bIn;
+ var c = cIn;
+
+ x = ++a , ++b, ++c, a+b+c;
+ return x;
+ }'
+ for:nil
+ arguments:#(1 2 3)
+ expect:9.
+
+ self
+ execute:'expr(aIn, bIn, cIn) {
+ var x;
+ var a = aIn;
+ var b = bIn;
+ var c = cIn;
+
+ x = a++ , b++, c++, a+b+c;
+ return x;
+ }'
+ for:nil
+ arguments:#(1 2 3)
+ expect:9.
+
+ self
+ execute:'expr(aIn, bIn, cIn) {
+ var x;
+ var a = aIn;
+ var b = bIn;
+ var c = cIn;
+
+ x = a++ , b++, c++, ++a + ++b + ++c;
+ return x;
+ }'
+ for:nil
+ arguments:#(1 2 3)
+ expect:12.
+
+ self
+ execute:'expr(aIn, bIn, cIn) {
+ var x;
+ var a = aIn;
+ var b = bIn;
+ var c = cIn;
+
+ x = a++ , b++, c++, a++ + b++ + c++;
+ return x;
+ }'
+ for:nil
+ arguments:#(1 2 3)
+ expect:9.
"
self run:#testOperators46_comma
self new testOperators46_comma
@@ -3545,21 +3545,21 @@
!
testOperators47_asString
- self
- execute:'expr() {
- return 123.asString;
- }'
- for:nil
- arguments:#()
- expect:'123'.
-
- self
- execute:'expr() {
- return 1.23.asString;
- }'
- for:nil
- arguments:#()
- expect:'1.23'.
+ self
+ execute:'expr() {
+ return 123.asString;
+ }'
+ for:nil
+ arguments:#()
+ expect:'123'.
+
+ self
+ execute:'expr() {
+ return 1.23.asString;
+ }'
+ for:nil
+ arguments:#()
+ expect:'1.23'.
"
self run:#testOperators47_toString
@@ -3568,29 +3568,29 @@
!
testOperators48_isArray
- self
- execute:'expr(arg) {
- return arg.isArray() ;
- }'
- for:nil
- arguments:#(123)
- expect:false.
-
- self
- execute:'expr(arg) {
- return arg.isArray() ;
- }'
- for:nil
- arguments:#('hello')
- expect:false.
-
- self
- execute:'expr(arg) {
- return arg.isArray() ;
- }'
- for:nil
- arguments:#( (1 2 3) )
- expect:true.
+ self
+ execute:'expr(arg) {
+ return arg.isArray() ;
+ }'
+ for:nil
+ arguments:#(123)
+ expect:false.
+
+ self
+ execute:'expr(arg) {
+ return arg.isArray() ;
+ }'
+ for:nil
+ arguments:#('hello')
+ expect:false.
+
+ self
+ execute:'expr(arg) {
+ return arg.isArray() ;
+ }'
+ for:nil
+ arguments:#( (1 2 3) )
+ expect:true.
"
self run:#testOperators48_isArray
@@ -3599,61 +3599,61 @@
!
testOperators49_concat
- self
- execute:'expr(arg1) {
- return arg1.concat() ;
- }'
- for:nil
- arguments:#( 'a')
- expect:'a'.
-
- self
- execute:'expr(arg1, arg2) {
- return arg1.concat(arg2) ;
- }'
- for:nil
- arguments:#( 'a' 'b')
- expect:'ab'.
-
- self
- execute:'expr(arg1, arg2, arg3) {
- return arg1.concat(arg2, arg3) ;
- }'
- for:nil
- arguments:#( 'a' 'b' 'c' )
- expect:'abc'.
-
- self
- execute:'expr() {
- return "a".concat("b", "c", "d", "e", "f") ;
- }'
- for:nil
- arguments:nil
- expect:'abcdef'.
-
- self
- execute:'expr() {
- return "a".concat("b", "c", "d", "e", "f", "g") ;
- }'
- for:nil
- arguments:nil
- expect:'abcdefg'.
-
- self
- execute:'expr() {
- return "a".concat("b", "c", "d", "e", "f", "g", "h") ;
- }'
- for:nil
- arguments:nil
- expect:'abcdefgh'.
-
- self
- execute:'expr(arg1, arg2, arg3) {
- return arg1.concat(arg2, arg3) ;
- }'
- for:nil
- arguments:#( (1) (2) (3) )
- expect:#(1 2 3).
+ self
+ execute:'expr(arg1) {
+ return arg1.concat() ;
+ }'
+ for:nil
+ arguments:#( 'a')
+ expect:'a'.
+
+ self
+ execute:'expr(arg1, arg2) {
+ return arg1.concat(arg2) ;
+ }'
+ for:nil
+ arguments:#( 'a' 'b')
+ expect:'ab'.
+
+ self
+ execute:'expr(arg1, arg2, arg3) {
+ return arg1.concat(arg2, arg3) ;
+ }'
+ for:nil
+ arguments:#( 'a' 'b' 'c' )
+ expect:'abc'.
+
+ self
+ execute:'expr() {
+ return "a".concat("b", "c", "d", "e", "f") ;
+ }'
+ for:nil
+ arguments:nil
+ expect:'abcdef'.
+
+ self
+ execute:'expr() {
+ return "a".concat("b", "c", "d", "e", "f", "g") ;
+ }'
+ for:nil
+ arguments:nil
+ expect:'abcdefg'.
+
+ self
+ execute:'expr() {
+ return "a".concat("b", "c", "d", "e", "f", "g", "h") ;
+ }'
+ for:nil
+ arguments:nil
+ expect:'abcdefgh'.
+
+ self
+ execute:'expr(arg1, arg2, arg3) {
+ return arg1.concat(arg2, arg3) ;
+ }'
+ for:nil
+ arguments:#( (1) (2) (3) )
+ expect:#(1 2 3).
"
self run:#testOperators49_concat
@@ -3663,63 +3663,63 @@
testParserErrors01
self should:[
- self
- execute:'expr(a, ) {
- return (a == b);
- }'
- for:nil
- arguments:#(10 10)
- expect:true
+ self
+ execute:'expr(a, ) {
+ return (a == b);
+ }'
+ for:nil
+ arguments:#(10 10)
+ expect:true
] raise:ParseError.
self should:[
- self
- execute:'expr(a b) {
- return (a == b);
- }'
- for:nil
- arguments:#(10 10)
- expect:true
+ self
+ execute:'expr(a b) {
+ return (a == b);
+ }'
+ for:nil
+ arguments:#(10 10)
+ expect:true
] raise:ParseError.
self should:[
- self
- execute:'expr(x) {
- return (x == 1 ?);
- }'
- for:nil
- arguments:#(10 10)
- expect:true
+ self
+ execute:'expr(x) {
+ return (x == 1 ?);
+ }'
+ for:nil
+ arguments:#(10 10)
+ expect:true
] raise:ParseError.
self should:[
- self
- execute:'expr(x) {
- return (x == 1 ? 1 );
- }'
- for:nil
- arguments:#(10 10)
- expect:true
+ self
+ execute:'expr(x) {
+ return (x == 1 ? 1 );
+ }'
+ for:nil
+ arguments:#(10 10)
+ expect:true
] raise:ParseError.
self should:[
- self
- execute:'expr(x) {
- return (x == 1 ? 1 : );
- }'
- for:nil
- arguments:#(10 10)
- expect:true
+ self
+ execute:'expr(x) {
+ return (x == 1 ? 1 : );
+ }'
+ for:nil
+ arguments:#(10 10)
+ expect:true
] raise:ParseError.
self should:[
- self
- execute:'expr(x) {
- return (x == 1 ? 1 : +);
- }'
- for:nil
- arguments:#(10 10)
- expect:true
+ self
+ execute:'expr(x) {
+ return (x == 1 ? 1 : +);
+ }'
+ for:nil
+ arguments:#(10 10)
+ expect:true
] raise:ParseError.
"
@@ -3729,13 +3729,13 @@
!
testPrecidences01
- self
- execute:'expr(a, b) {
- return (a + 4 * 5 + b);
- }'
- for:nil
- arguments:#(10 20)
- expect:(10 + (4 * 5) + 20)
+ self
+ execute:'expr(a, b) {
+ return (a + 4 * 5 + b);
+ }'
+ for:nil
+ arguments:#(10 20)
+ expect:(10 + (4 * 5) + 20)
"
self run:#testPrecidences01
@@ -3744,13 +3744,13 @@
!
testPrecidences02
- self
- execute:'expr(a, b) {
- return (a * 4 + b * 5);
- }'
- for:nil
- arguments:#(10 20)
- expect:140
+ self
+ execute:'expr(a, b) {
+ return (a * 4 + b * 5);
+ }'
+ for:nil
+ arguments:#(10 20)
+ expect:140
"
self run:#testPrecidences02
@@ -3759,13 +3759,13 @@
!
testPrecidences03
- self
- execute:'expr(a, b) {
- return -(a + b);
- }'
- for:nil
- arguments:#(10 20)
- expect:-30
+ self
+ execute:'expr(a, b) {
+ return -(a + b);
+ }'
+ for:nil
+ arguments:#(10 20)
+ expect:-30
"
self run:#testPrecidences03
@@ -3774,13 +3774,13 @@
!
testPrecidences04
- self
- execute:'expr(a, b) {
- return -a + b;
- }'
- for:nil
- arguments:#(10 20)
- expect:10
+ self
+ execute:'expr(a, b) {
+ return -a + b;
+ }'
+ for:nil
+ arguments:#(10 20)
+ expect:10
"
self run:#testPrecidences04
@@ -3789,13 +3789,13 @@
!
testPrecidences05
- self
- execute:'expr(a, b) {
- return -a + -b;
- }'
- for:nil
- arguments:#(10 20)
- expect:-30
+ self
+ execute:'expr(a, b) {
+ return -a + -b;
+ }'
+ for:nil
+ arguments:#(10 20)
+ expect:-30
"
self run:#testPrecidences05
@@ -3807,44 +3807,44 @@
|output|
output := self outputToTranscriptOf:[
- self
- execute:'
- testPrint() {
- print("1 ");
- print("2 ");
- print("3 ");
- println("4");
- return null;
- }
- '
- for:JavaScriptEnvironment new
- arguments:#( )
- expect:nil.
+ self
+ execute:'
+ testPrint() {
+ print("1 ");
+ print("2 ");
+ print("3 ");
+ println("4");
+ return null;
+ }
+ '
+ for:JavaScriptEnvironment new
+ arguments:#( )
+ expect:nil.
].
self assert:(output = '1 2 3 4\' withCRs).
"
self run:#testPrint
- self new testPrint
+ self new testPrint
"
!
testRecursion01
- self
- execute:'test(n) {
- function factorial(n) {
- if (n > 0) {
- return n * factorial(n-1);
- } else {
- return 1;
- }
- };
-
- return factorial(n);
- }'
- for:nil
- arguments:#(10)
- expect:(10 factorial)
+ self
+ execute:'test(n) {
+ function factorial(n) {
+ if (n > 0) {
+ return n * factorial(n-1);
+ } else {
+ return 1;
+ }
+ };
+
+ return factorial(n);
+ }'
+ for:nil
+ arguments:#(10)
+ expect:(10 factorial)
"
self run:#testRecursion01
@@ -3855,13 +3855,13 @@
!
testReturn01
- self
- execute:'test(n) {
- return 1;
- }'
- for:nil
- arguments:#(10)
- expect:1
+ self
+ execute:'test(n) {
+ return 1;
+ }'
+ for:nil
+ arguments:#(10)
+ expect:1
"
self run:#testReturn01
@@ -3872,16 +3872,16 @@
!
testReturn02
- self
- execute:'test(n) {
- function inner() { return 2 from test; };
-
- inner();
- return 1;
- }'
- for:nil
- arguments:#(10)
- expect:2
+ self
+ execute:'test(n) {
+ function inner() { return 2 from test; };
+
+ inner();
+ return 1;
+ }'
+ for:nil
+ arguments:#(10)
+ expect:2
"
self run:#testReturn02
@@ -3890,22 +3890,22 @@
!
testReturn03
- self
- execute:'test(n) {
- function inner1() {
- function inner2() {
- return 2 from test;
- };
-
- inner2();
- };
-
- inner1();
- return 1;
- }'
- for:nil
- arguments:#(10)
- expect:2
+ self
+ execute:'test(n) {
+ function inner1() {
+ function inner2() {
+ return 2 from test;
+ };
+
+ inner2();
+ };
+
+ inner1();
+ return 1;
+ }'
+ for:nil
+ arguments:#(10)
+ expect:2
"
self run:#testReturn03
@@ -3917,22 +3917,22 @@
"/ currently fails.
^ self.
- self
- execute:'test(n) {
- function inner1() {
- function inner2() {
- return 2 from inner1;
- };
-
- inner2();
- };
-
- inner1();
- return 1;
- }'
- for:nil
- arguments:#(10)
- expectError:#ParseError
+ self
+ execute:'test(n) {
+ function inner1() {
+ function inner2() {
+ return 2 from inner1;
+ };
+
+ inner2();
+ };
+
+ inner1();
+ return 1;
+ }'
+ for:nil
+ arguments:#(10)
+ expectError:#ParseError
"
self run:#testReturn04
@@ -3943,15 +3943,15 @@
!
testReturn05
- self
- execute:'test(n) {
- function inner() { return 2; };
-
- return inner() + 1;
- }'
- for:nil
- arguments:#(10)
- expect:3
+ self
+ execute:'test(n) {
+ function inner() { return 2; };
+
+ return inner() + 1;
+ }'
+ for:nil
+ arguments:#(10)
+ expect:3
"
self run:#testReturn05
@@ -3962,16 +3962,16 @@
!
testReturnNew01
- self
- execute:'test() {
- var someString;
-
- someString = "1234";
- return (new Point).x(someString.asInteger());
- }'
- for:nil
- arguments:#()
- expect:(Point x:1234 y:nil).
+ self
+ execute:'test() {
+ var someString;
+
+ someString = "1234";
+ return (new Point).x(someString.asInteger());
+ }'
+ for:nil
+ arguments:#()
+ expect:(Point x:1234 y:nil).
"
self run:#testReturnNew01
@@ -3984,15 +3984,15 @@
testReturnNew02
|result|
- result := self
- execute:'test() {
- var someString;
-
- someString = "1234";
- return (new ValueHolder).value(someString.asInteger());
- }'
- for:nil
- arguments:#().
+ result := self
+ execute:'test() {
+ var someString;
+
+ someString = "1234";
+ return (new ValueHolder).value(someString.asInteger());
+ }'
+ for:nil
+ arguments:#().
self assert:(result isKindOf:ValueHolder).
self assert:(result value = 1234).
@@ -4005,11 +4005,11 @@
!
testScanner01
- self
- execute:'f() { }'
- for:nil
- arguments:#()
- expect:nil
+ self
+ execute:'f() { }'
+ for:nil
+ arguments:#()
+ expect:nil
"
self run:#testScanner01
@@ -4018,11 +4018,11 @@
!
testScanner02
- self
- execute:'f(a) { }'
- for:nil
- arguments:#(1)
- expect:nil
+ self
+ execute:'f(a) { }'
+ for:nil
+ arguments:#(1)
+ expect:nil
"
self run:#testScanner02
@@ -4031,11 +4031,11 @@
!
testScanner03
- self
- execute:'f(a, b) { }'
- for:nil
- arguments:#(1 2)
- expect:nil
+ self
+ execute:'f(a, b) { }'
+ for:nil
+ arguments:#(1 2)
+ expect:nil
"
self run:#testScanner03
@@ -4044,11 +4044,11 @@
!
testScanner04
- self
- execute:'f(a, b) { return (null); }'
- for:nil
- arguments:#(1 2)
- expect:nil
+ self
+ execute:'f(a, b) { return (null); }'
+ for:nil
+ arguments:#(1 2)
+ expect:nil
"
self run:#testScanner04
@@ -4057,11 +4057,11 @@
!
testScanner05
- self
- execute:'f(a, b) { return (null); }'
- for:nil
- arguments:#(1)
- expectError:(Method wongNumberOfArgumentsSignal)
+ self
+ execute:'f(a, b) { return (null); }'
+ for:nil
+ arguments:#(1)
+ expectError:(Method wongNumberOfArgumentsSignal)
"
self run:#testScanner05
@@ -4072,11 +4072,11 @@
!
testScanner06
- self
- execute:'f() { /* a comment */ return (null); }'
- for:nil
- arguments:#()
- expect:nil
+ self
+ execute:'f() { /* a comment */ return (null); }'
+ for:nil
+ arguments:#()
+ expect:nil
"
self run:#testScanner06
@@ -4085,12 +4085,12 @@
!
testScanner07
- self
- execute:'f() { // an EOL comment
+ self
+ execute:'f() { // an EOL comment
return (null); }'
- for:nil
- arguments:#()
- expect:nil
+ for:nil
+ arguments:#()
+ expect:nil
"
self run:#testScanner07
@@ -4099,12 +4099,12 @@
!
testScanner08
- self
- execute:'f() { // a comment in an /* an EOL comment
+ self
+ execute:'f() { // a comment in an /* an EOL comment
return (null); }'
- for:nil
- arguments:#()
- expect:nil
+ for:nil
+ arguments:#()
+ expect:nil
"
self run:#testScanner08
@@ -4113,12 +4113,12 @@
!
testScanner09
- self
- execute:'f() { // a comment in an /* an EOL */ comment
+ self
+ execute:'f() { // a comment in an /* an EOL */ comment
return (null); }'
- for:nil
- arguments:#()
- expect:nil
+ for:nil
+ arguments:#()
+ expect:nil
"
self run:#testScanner09
@@ -4127,12 +4127,12 @@
!
testScanner10
- self
- execute:'f() { /** a comment */
+ self
+ execute:'f() { /** a comment */
return (null); }'
- for:nil
- arguments:#()
- expect:nil
+ for:nil
+ arguments:#()
+ expect:nil
"
self run:#testScanner10
@@ -4141,12 +4141,12 @@
!
testScanner11
- self
- execute:'f() { /**/
+ self
+ execute:'f() { /**/
return (null); }'
- for:nil
- arguments:#()
- expect:nil
+ for:nil
+ arguments:#()
+ expect:nil
"
self run:#testScanner11
@@ -4158,12 +4158,12 @@
"/ cg: is the comment below legal ?
^ self. "/ assume not
- self
- execute:'f() { /*/
+ self
+ execute:'f() { /*/
return (null); }'
- for:nil
- arguments:#()
- expectError:#ParseError
+ for:nil
+ arguments:#()
+ expectError:#ParseError
"
self run:#testScanner12
@@ -4175,12 +4175,12 @@
"/ cg: is the comment below legal ?
^ self. "/ assume not
- self
- execute:'f_1() { /*/
+ self
+ execute:'f_1() { /*/
return (null); }'
- for:nil
- arguments:#()
- expectError:#ParseError
+ for:nil
+ arguments:#()
+ expectError:#ParseError
"
self run:#testScanner13
@@ -4191,62 +4191,62 @@
testScanner20
#(
- ' = ' $=
- '/* ignored */= ' $=
- '/* ignored */ = ' $=
- ' + ' $+
- ' - ' $-
- ' * ' $*
- ' / ' $/
- ' % ' $%
- ' & ' $&
- ' ^ ' $^
- ' | ' $|
- ' !! ' $!!
- ' < ' $<
- ' > ' $>
-
- ' << ' #'<<'
- ' >> ' #'>>'
- ' == ' #'=='
- ' <= ' #'<='
- ' >= ' #'>='
- ' !!= ' #'!!='
- ' || ' #'||'
- ' && ' #'&&'
- ' ++ ' #'++'
- ' -- ' #'--'
-
- ' += ' #'+='
- ' -= ' #'-='
- ' *= ' #'*='
- ' /= ' #'/='
- ' %= ' #'%='
- ' &= ' #'&='
- ' ^= ' #'^='
- ' |= ' #'|='
-
- ' >>> ' #'>>>'
- ' >>= ' #'>>='
- ' <<= ' #'<<='
- ' === ' #'==='
- ' !!== ' #'!!=='
-
- ' 1 ' #Integer
- ' 12345 ' #Integer
- ' 1.0 ' #Float
- ' 1e10 ' #Float
- ' 1E10 ' #Float
- ' 1E+10 ' #Float
- ' 1E-10 ' #Float
- ' 1.0d ' #Float
- ' 1. ' #Float
-"/ ' 1.' #Float
+ ' = ' $=
+ '/* ignored */= ' $=
+ '/* ignored */ = ' $=
+ ' + ' $+
+ ' - ' $-
+ ' * ' $*
+ ' / ' $/
+ ' % ' $%
+ ' & ' $&
+ ' ^ ' $^
+ ' | ' $|
+ ' !! ' $!!
+ ' < ' $<
+ ' > ' $>
+
+ ' << ' #'<<'
+ ' >> ' #'>>'
+ ' == ' #'=='
+ ' <= ' #'<='
+ ' >= ' #'>='
+ ' !!= ' #'!!='
+ ' || ' #'||'
+ ' && ' #'&&'
+ ' ++ ' #'++'
+ ' -- ' #'--'
+
+ ' += ' #'+='
+ ' -= ' #'-='
+ ' *= ' #'*='
+ ' /= ' #'/='
+ ' %= ' #'%='
+ ' &= ' #'&='
+ ' ^= ' #'^='
+ ' |= ' #'|='
+
+ ' >>> ' #'>>>'
+ ' >>= ' #'>>='
+ ' <<= ' #'<<='
+ ' === ' #'==='
+ ' !!== ' #'!!=='
+
+ ' 1 ' #Integer
+ ' 12345 ' #Integer
+ ' 1.0 ' #Float
+ ' 1e10 ' #Float
+ ' 1E10 ' #Float
+ ' 1E+10 ' #Float
+ ' 1E-10 ' #Float
+ ' 1.0d ' #Float
+ ' 1. ' #Float
+"/ ' 1.' #Float
) pairWiseDo:[:src :expectedToken |
- |scannedToken|
-
- scannedToken := (JavaScriptScanner for:src) nextToken.
- self assert:(scannedToken == expectedToken)
+ |scannedToken|
+
+ scannedToken := (JavaScriptScanner for:src) nextToken.
+ self assert:(scannedToken == expectedToken)
].
"
@@ -4256,107 +4256,107 @@
!
testString01
- self
- execute:'test(str) {
- return "foo".size;
- }'
- for:nil
- arguments:#( nil )
- expect:3
+ self
+ execute:'test(str) {
+ return "foo".size;
+ }'
+ for:nil
+ arguments:#( nil )
+ expect:3
"
self run:#testString01
- self new testString01
+ self new testString01
"
!
testString02
- self
- execute:'test(str) {
- return str.size();
- }'
- for:nil
- arguments:#( 'hello' )
- expect:5
+ self
+ execute:'test(str) {
+ return str.size();
+ }'
+ for:nil
+ arguments:#( 'hello' )
+ expect:5
"
self run:#testString02
- self new testString02
+ self new testString02
"
!
testString03
- self
- execute:'test(str) {
- return str.size;
- }'
- for:nil
- arguments:#( 'hello' )
- expect:5
+ self
+ execute:'test(str) {
+ return str.size;
+ }'
+ for:nil
+ arguments:#( 'hello' )
+ expect:5
"
self run:#testString03
- self new testString03
+ self new testString03
"
!
testString04
- self
- execute:'test(str) {
- return str[1];
- }'
- for:nil
- arguments:#( 'hello' )
- expect:$h
+ self
+ execute:'test(str) {
+ return str[1];
+ }'
+ for:nil
+ arguments:#( 'hello' )
+ expect:$h
"
self run:#testString04
- self new testString04
+ self new testString04
"
!
testString05
- self
- execute:'test(str) {
- return str[1] == "h"[1];
- }'
- for:nil
- arguments:#( 'hello' )
- expect:true
+ self
+ execute:'test(str) {
+ return str[1] == "h"[1];
+ }'
+ for:nil
+ arguments:#( 'hello' )
+ expect:true
"
self run:#testString05
- self new testString05
+ self new testString05
"
!
testString06
- self
- execute:'test(str) {
- return str[1] == $''h'';
- }'
- for:nil
- arguments:#( 'hello' )
- expect:true
+ self
+ execute:'test(str) {
+ return str[1] == $''h'';
+ }'
+ for:nil
+ arguments:#( 'hello' )
+ expect:true
"
self run:#testString06
- self new testString06
+ self new testString06
"
!
testString07
- self
- execute:'test(str) {
- return str[1].isLowercase;
- }'
- for:nil
- arguments:#( 'hello' )
- expect:true
+ self
+ execute:'test(str) {
+ return str[1].isLowercase;
+ }'
+ for:nil
+ arguments:#( 'hello' )
+ expect:true
"
self run:#testString07
- self new testString07
+ self new testString07
"
!
@@ -4364,36 +4364,36 @@
|class1 class2|
Class withoutUpdatingChangesDo:[
- class1 := Class name:'T1' subclassOf:Object.
- class2 := Class name:'T2' subclassOf:class1.
-
- JavaScriptCompiler
- compile:'foo() { return 1; }'
- forClass:class1
- inCategory:nil
- notifying:nil
- install:true.
-
- JavaScriptCompiler
- compile:'foo() { return 2; }'
- forClass:class2
- inCategory:nil
- notifying:nil
- install:true.
-
- JavaScriptCompiler
- compile:'callFoo() { return foo(); }'
- forClass:class2
- inCategory:nil
- notifying:nil
- install:true.
-
- JavaScriptCompiler
- compile:'callSuperFoo() { return super.foo(); }'
- forClass:class2
- inCategory:nil
- notifying:nil
- install:true.
+ class1 := Class name:'T1' subclassOf:Object.
+ class2 := Class name:'T2' subclassOf:class1.
+
+ JavaScriptCompiler
+ compile:'foo() { return 1; }'
+ forClass:class1
+ inCategory:nil
+ notifying:nil
+ install:true.
+
+ JavaScriptCompiler
+ compile:'foo() { return 2; }'
+ forClass:class2
+ inCategory:nil
+ notifying:nil
+ install:true.
+
+ JavaScriptCompiler
+ compile:'callFoo() { return foo(); }'
+ forClass:class2
+ inCategory:nil
+ notifying:nil
+ install:true.
+
+ JavaScriptCompiler
+ compile:'callSuperFoo() { return super.foo(); }'
+ forClass:class2
+ inCategory:nil
+ notifying:nil
+ install:true.
].
self assert:(class2 new callFoo == 2).
@@ -4406,18 +4406,18 @@
!
testSwitch01
- self
- execute:'test(arg) {
- switch (arg) {
- }
- }'
- for:nil
- arguments:#(5)
- expect:nil
+ self
+ execute:'test(arg) {
+ switch (arg) {
+ }
+ }'
+ for:nil
+ arguments:#(5)
+ expect:nil
"
self run:#testSwitch01
- self new testSwitch01
+ self new testSwitch01
"
!
@@ -4425,23 +4425,23 @@
|output|
output := self outputToTranscriptOf:[
- self
- execute:'test(arg) {
- switch (arg) {
- Transcript.show("hello ");
- return 1;
- }
- return 0;
- }'
- for:nil
- arguments:#(5)
- expect:0
+ self
+ execute:'test(arg) {
+ switch (arg) {
+ Transcript.show("hello ");
+ return 1;
+ }
+ return 0;
+ }'
+ for:nil
+ arguments:#(5)
+ expect:0
].
self assert:(output asCollectionOfLinesWithReturn asArray = #( ))
"
self run:#testSwitch02
- self new testSwitch02
+ self new testSwitch02
"
!
@@ -4449,25 +4449,25 @@
|output|
output := self outputToTranscriptOf:[
- self
- execute:'test(arg) {
- switch (arg) {
- Transcript.show("hello ");
- Transcript.show("world ");
- Transcript.cr();
- return 1;
- }
- return 0;
- }'
- for:nil
- arguments:#(5)
- expect:0
+ self
+ execute:'test(arg) {
+ switch (arg) {
+ Transcript.show("hello ");
+ Transcript.show("world ");
+ Transcript.cr();
+ return 1;
+ }
+ return 0;
+ }'
+ for:nil
+ arguments:#(5)
+ expect:0
].
self assert:(output asCollectionOfLinesWithReturn asArray = #() )
"
self run:#testSwitch03
- self new testSwitch03
+ self new testSwitch03
"
!
@@ -4475,26 +4475,26 @@
|output|
output := self outputToTranscriptOf:[
- self
- execute:'test(arg) {
- switch (arg) {
- default:
- Transcript.show("hello ");
- Transcript.show("world ");
- Transcript.cr();
- return 1;
- }
- return 0;
- }'
- for:nil
- arguments:#(5)
- expect:1
+ self
+ execute:'test(arg) {
+ switch (arg) {
+ default:
+ Transcript.show("hello ");
+ Transcript.show("world ");
+ Transcript.cr();
+ return 1;
+ }
+ return 0;
+ }'
+ for:nil
+ arguments:#(5)
+ expect:1
].
self assert:(output = 'hello world \' withCRs).
"
self run:#testSwitch04
- self new testSwitch04
+ self new testSwitch04
"
!
@@ -4502,26 +4502,26 @@
|output|
output := self outputToTranscriptOf:[
- self
- execute:'test(arg) {
- switch (arg) {
- default:
- Transcript.show("hello ");
- Transcript.show("world ");
- return 1;
- Transcript.cr();
- }
- return 0;
- }'
- for:nil
- arguments:#(5)
- expect:1
+ self
+ execute:'test(arg) {
+ switch (arg) {
+ default:
+ Transcript.show("hello ");
+ Transcript.show("world ");
+ return 1;
+ Transcript.cr();
+ }
+ return 0;
+ }'
+ for:nil
+ arguments:#(5)
+ expect:1
].
self assert:(output = 'hello world ').
"
self run:#testSwitch05
- self new testSwitch05
+ self new testSwitch05
"
!
@@ -4529,27 +4529,27 @@
|output|
output := self outputToTranscriptOf:[
- self
- execute:'test(arg) {
- switch (arg) {
- case 1:
- Transcript.showCR("one");
- return 10;
- case 2:
- Transcript.showCR("two");
- return 20;
- }
- return 0;
- }'
- for:nil
- arguments:#(5)
- expect:0
+ self
+ execute:'test(arg) {
+ switch (arg) {
+ case 1:
+ Transcript.showCR("one");
+ return 10;
+ case 2:
+ Transcript.showCR("two");
+ return 20;
+ }
+ return 0;
+ }'
+ for:nil
+ arguments:#(5)
+ expect:0
].
self assert:(output asCollectionOfLinesWithReturn asArray = #( ))
"
self run:#testSwitch06a
- self new testSwitch06a
+ self new testSwitch06a
"
!
@@ -4557,27 +4557,27 @@
|output|
output := self outputToTranscriptOf:[
- self
- execute:'test(arg) {
- switch (arg) {
- case 1:
- Transcript.showCR("one");
- return 10;
- case 2:
- Transcript.showCR("two");
- return 20;
- }
- return 0;
- }'
- for:nil
- arguments:#(1)
- expect:10
+ self
+ execute:'test(arg) {
+ switch (arg) {
+ case 1:
+ Transcript.showCR("one");
+ return 10;
+ case 2:
+ Transcript.showCR("two");
+ return 20;
+ }
+ return 0;
+ }'
+ for:nil
+ arguments:#(1)
+ expect:10
].
self assert:(output asCollectionOfLinesWithReturn asArray = #( 'one'))
"
self run:#testSwitch06b
- self new testSwitch06b
+ self new testSwitch06b
"
!
@@ -4585,27 +4585,27 @@
|output|
output := self outputToTranscriptOf:[
- self
- execute:'test(arg) {
- switch (arg) {
- case 1:
- Transcript.showCR("one");
- return 10;
- case 2:
- Transcript.showCR("two");
- return 20;
- }
- return 0;
- }'
- for:nil
- arguments:#(2)
- expect:20
+ self
+ execute:'test(arg) {
+ switch (arg) {
+ case 1:
+ Transcript.showCR("one");
+ return 10;
+ case 2:
+ Transcript.showCR("two");
+ return 20;
+ }
+ return 0;
+ }'
+ for:nil
+ arguments:#(2)
+ expect:20
].
self assert:(output asCollectionOfLinesWithReturn asArray = #( 'two'))
"
self run:#testSwitch06c
- self new testSwitch06c
+ self new testSwitch06c
"
!
@@ -4613,146 +4613,146 @@
|output|
output := self outputToTranscriptOf:[
- self
- execute:'test(arg) {
- switch (arg) {
- case "hallo":
- Transcript.showCR("Hallo");
- return 10;
- case "hello":
- Transcript.showCR("Hello");
- return 20;
- }
- return 0;
- }'
- for:nil
- arguments:#('hello')
- expect:20
+ self
+ execute:'test(arg) {
+ switch (arg) {
+ case "hallo":
+ Transcript.showCR("Hallo");
+ return 10;
+ case "hello":
+ Transcript.showCR("Hello");
+ return 20;
+ }
+ return 0;
+ }'
+ for:nil
+ arguments:#('hello')
+ expect:20
].
self assert:(output asCollectionOfLinesWithReturn asArray = #( 'Hello'))
"
self run:#testSwitch06d
- self new testSwitch06d
+ self new testSwitch06d
"
!
testSwitch06e
- self
- execute:'test(arg) {
- switch (arg) {
- case 1:
- Transcript.showCR("Hallo");
- return 10;
- case 2:
- Transcript.showCR("Hello");
- return 20;
- }
- return 0;
- }'
- for:nil
- arguments:#(3)
- expect:0
+ self
+ execute:'test(arg) {
+ switch (arg) {
+ case 1:
+ Transcript.showCR("Hallo");
+ return 10;
+ case 2:
+ Transcript.showCR("Hello");
+ return 20;
+ }
+ return 0;
+ }'
+ for:nil
+ arguments:#(3)
+ expect:0
"
self run:#testSwitch06e
- self new testSwitch06e
+ self new testSwitch06e
"
!
testSwitch06f
- self
- execute:'test(arg) {
- var a = 0;
- switch (arg) {
- case 1:
- a = 10;
- break;
- case 2:
- a = 20;
- break;
- }
- return a;
- }'
- for:nil
- arguments:#(1)
- expect:10
+ self
+ execute:'test(arg) {
+ var a = 0;
+ switch (arg) {
+ case 1:
+ a = 10;
+ break;
+ case 2:
+ a = 20;
+ break;
+ }
+ return a;
+ }'
+ for:nil
+ arguments:#(1)
+ expect:10
"
self run:#testSwitch06f
- self new testSwitch06f
+ self new testSwitch06f
"
!
testSwitch06g
- self
- execute:'test(arg) {
- var a = 0;
- switch (arg) {
- case 1:
- a = 10;
- break;
- case 2:
- a = 20;
- break;
- }
- return a;
- }'
- for:nil
- arguments:#(2)
- expect:20
+ self
+ execute:'test(arg) {
+ var a = 0;
+ switch (arg) {
+ case 1:
+ a = 10;
+ break;
+ case 2:
+ a = 20;
+ break;
+ }
+ return a;
+ }'
+ for:nil
+ arguments:#(2)
+ expect:20
"
self run:#testSwitch06g
- self new testSwitch06g
+ self new testSwitch06g
"
!
testSwitch06h
- self
- execute:'test(arg) {
- var a = 0;
- switch (arg) {
- case 1:
- a = 10;
- break;
- case 2:
- a = 20;
- break;
- }
- return a;
- }'
- for:nil
- arguments:#(3)
- expect:0
+ self
+ execute:'test(arg) {
+ var a = 0;
+ switch (arg) {
+ case 1:
+ a = 10;
+ break;
+ case 2:
+ a = 20;
+ break;
+ }
+ return a;
+ }'
+ for:nil
+ arguments:#(3)
+ expect:0
"
self run:#testSwitch06h
- self new testSwitch06h
+ self new testSwitch06h
"
!
testThrow01
"an exception is thrown"
- self
- execute:'test(arg) {
- var handlerWasCalled = false;
-
- function failingMethod() {
- throw Error;
- };
-
- try {
- failingMethod();
- } catch (Error e) {
- handlerWasCalled = true;
- }
- return handlerWasCalled;
- }'
- for:nil
- arguments:#(0)
- expect:true
+ self
+ execute:'test(arg) {
+ var handlerWasCalled = false;
+
+ function failingMethod() {
+ throw Error;
+ };
+
+ try {
+ failingMethod();
+ } catch (Error e) {
+ handlerWasCalled = true;
+ }
+ return handlerWasCalled;
+ }'
+ for:nil
+ arguments:#(0)
+ expect:true
"
self run:#testThrow01
@@ -4763,24 +4763,24 @@
testTryCatch01a
"in this testcase, arg is 5, so no exception should be thrown"
- self
- execute:'test(arg) {
- var handlerWasCalled = false;
-
- function failingMethod() {
- return 10 / arg;
- };
-
- try {
- failingMethod();
- } catch (Error e) {
- handlerWasCalled = true;
- }
- return handlerWasCalled;
- }'
- for:nil
- arguments:#(5)
- expect:false
+ self
+ execute:'test(arg) {
+ var handlerWasCalled = false;
+
+ function failingMethod() {
+ return 10 / arg;
+ };
+
+ try {
+ failingMethod();
+ } catch (Error e) {
+ handlerWasCalled = true;
+ }
+ return handlerWasCalled;
+ }'
+ for:nil
+ arguments:#(5)
+ expect:false
"
self run:#testTryCatch01a
@@ -4791,22 +4791,22 @@
testTryCatch01b
"in this testcase, arg is 0, so an exception should be thrown"
- self
- execute:'test(arg) {
- var handlerWasCalled = false;
-
- function failingMethod() { return 10 / arg; };
-
- try {
- failingMethod();
- } catch (Error e) {
- handlerWasCalled = true;
- }
- return handlerWasCalled;
- }'
- for:nil
- arguments:#(0)
- expect:true
+ self
+ execute:'test(arg) {
+ var handlerWasCalled = false;
+
+ function failingMethod() { return 10 / arg; };
+
+ try {
+ failingMethod();
+ } catch (Error e) {
+ handlerWasCalled = true;
+ }
+ return handlerWasCalled;
+ }'
+ for:nil
+ arguments:#(0)
+ expect:true
"
self run:#testTryCatch01b
@@ -4815,23 +4815,23 @@
!
testTryCatch02a
- self
- execute:'test(arg) {
- var handlerWasCalled = false;
-
- function failingMethod() { return 10 / arg; };
- function exceptionRaised() { handlerWasCalled = true; };
-
- try {
- failingMethod();
- } catch (Error e) {
- exceptionRaised();
- }
- return handlerWasCalled;
- }'
- for:nil
- arguments:#(5)
- expect:false
+ self
+ execute:'test(arg) {
+ var handlerWasCalled = false;
+
+ function failingMethod() { return 10 / arg; };
+ function exceptionRaised() { handlerWasCalled = true; };
+
+ try {
+ failingMethod();
+ } catch (Error e) {
+ exceptionRaised();
+ }
+ return handlerWasCalled;
+ }'
+ for:nil
+ arguments:#(5)
+ expect:false
"
self run:#testTryCatch02a
@@ -4840,23 +4840,23 @@
!
testTryCatch02b
- self
- execute:'test(arg) {
- var handlerWasCalled = false;
-
- function failingMethod() { return 10 / arg; };
- function exceptionRaised() { handlerWasCalled = true; };
-
- try {
- failingMethod();
- } catch (Error e) {
- exceptionRaised();
- }
- return handlerWasCalled;
- }'
- for:nil
- arguments:#(0)
- expect:true
+ self
+ execute:'test(arg) {
+ var handlerWasCalled = false;
+
+ function failingMethod() { return 10 / arg; };
+ function exceptionRaised() { handlerWasCalled = true; };
+
+ try {
+ failingMethod();
+ } catch (Error e) {
+ exceptionRaised();
+ }
+ return handlerWasCalled;
+ }'
+ for:nil
+ arguments:#(0)
+ expect:true
"
self run:#testTryCatch02b
@@ -4865,23 +4865,23 @@
!
testTryCatch03a
- self
- execute:'test(arg) {
- var handlerWasCalled = false;
-
- function failingMethod() { return 10 / arg; };
- function exceptionRaised(e) { handlerWasCalled = true; };
-
- try {
- failingMethod();
- } catch (Error e) {
- exceptionRaised(e);
- }
- return handlerWasCalled;
- }'
- for:nil
- arguments:#(5)
- expect:false
+ self
+ execute:'test(arg) {
+ var handlerWasCalled = false;
+
+ function failingMethod() { return 10 / arg; };
+ function exceptionRaised(e) { handlerWasCalled = true; };
+
+ try {
+ failingMethod();
+ } catch (Error e) {
+ exceptionRaised(e);
+ }
+ return handlerWasCalled;
+ }'
+ for:nil
+ arguments:#(5)
+ expect:false
"
self run:#testTryCatch03a
@@ -4890,23 +4890,23 @@
!
testTryCatch03b
- self
- execute:'test(arg) {
- var handlerWasCalled = false;
-
- function failingMethod() { return 10 / arg; };
- function exceptionRaised(e) { handlerWasCalled = true; };
-
- try {
- failingMethod();
- } catch (Error e) {
- exceptionRaised(e);
- }
- return handlerWasCalled;
- }'
- for:nil
- arguments:#(0)
- expect:true
+ self
+ execute:'test(arg) {
+ var handlerWasCalled = false;
+
+ function failingMethod() { return 10 / arg; };
+ function exceptionRaised(e) { handlerWasCalled = true; };
+
+ try {
+ failingMethod();
+ } catch (Error e) {
+ exceptionRaised(e);
+ }
+ return handlerWasCalled;
+ }'
+ for:nil
+ arguments:#(0)
+ expect:true
"
self run:#testTryCatch03b
@@ -4917,23 +4917,23 @@
testTryCatch04b
self should:[
- self
- execute:'test(arg) {
- var handlerWasCalled = false;
-
- function failingMethod() { return 10 / arg; };
- function exceptionRaised() { handlerWasCalled = true; };
-
- try {
- failingMethod();
- } catch (Error e) {
- exceptionRaised(e);
- }
- return handlerWasCalled;
- }'
- for:nil
- arguments:#(0)
- expect:true
+ self
+ execute:'test(arg) {
+ var handlerWasCalled = false;
+
+ function failingMethod() { return 10 / arg; };
+ function exceptionRaised() { handlerWasCalled = true; };
+
+ try {
+ failingMethod();
+ } catch (Error e) {
+ exceptionRaised(e);
+ }
+ return handlerWasCalled;
+ }'
+ for:nil
+ arguments:#(0)
+ expect:true
] raise: Error.
@@ -4946,12 +4946,12 @@
testTryCatchExceptionInfo
|savedTranscript collector expected|
- savedTranscript := Smalltalk at:#Transcript.
+ savedTranscript := Smalltalk at:#Transcript.
[
- Smalltalk at:#Transcript put:(collector := '' writeStream).
+ Smalltalk at:#Transcript put:(collector := '' writeStream).
self
- execute:'
+ execute:'
test(arg) {
var handlerWasCalled = false;
@@ -4967,9 +4967,9 @@
}'
for:JavaScriptEnvironment new
arguments:#(0)
- expect:true.
+ expect:true.
] ensure:[
- Smalltalk at:#Transcript put:savedTranscript
+ Smalltalk at:#Transcript put:savedTranscript
].
expected := String streamContents:[:s | s showCR:'division by zero'].
@@ -4982,8 +4982,8 @@
!
testTryCatchFinally01
- self
- execute:
+ self
+ execute:
'test(arg) {
var handlerWasCalled = false;
var finallyExecuted = false;
@@ -5002,7 +5002,7 @@
}'
for:nil
arguments:#(0)
- expect:true.
+ expect:true.
"
self run:#testTryCatchFinally01
@@ -5013,11 +5013,11 @@
testTryFinally01
|savedTranscript collector expected|
- savedTranscript := Smalltalk at:#Transcript.
+ savedTranscript := Smalltalk at:#Transcript.
[
- Smalltalk at:#Transcript put:(collector := '' writeStream).
+ Smalltalk at:#Transcript put:(collector := '' writeStream).
self
- execute:
+ execute:
'test(arg) {
var handlerWasCalled = false;
@@ -5060,6 +5060,20 @@
].
self assert:(collector contents = expected).
+ ] ensure:[
+ Smalltalk at:#Transcript put:savedTranscript
+ ].
+
+ expected := String streamContents:[:s |
+ s showCR:'1'.
+ s showCR:'2'.
+ s showCR:'2a'.
+ s showCR:'2b'.
+ s showCR:'2c'.
+ s showCR:'4'.
+ ].
+ self assert:(collector contents = expected).
+
"
self run:#testTryFinally01
self new testTryFinally01
@@ -5070,43 +5084,43 @@
|output|
output := self outputToTranscriptOf:[
- self
- execute:'test(arg) {
- var handler1WasCalled = false;
- var handler2WasCalled = false;
- var finallyActionWasEvaluated = false;
-
- println("1");
- try {
-
- function dummy () {
- println("2a");
- try {
- println("2b");
- return 10 / arg;
- } finally {
- println("2c");
- handler1WasCalled = true;
- }
- };
-
- println("2");
- dummy();
- println("3");
- } catch(Error e) {
- println("e");
- handler2WasCalled = true;
- } finally {
- println("f");
- finallyActionWasEvaluated = true;
- };
-
- println("4");
- return handler1WasCalled && handler2WasCalled && finallyActionWasEvaluated;
- }'
- for:JavaScriptEnvironment new
- arguments:#(0)
- expect:true
+ self
+ execute:'test(arg) {
+ var handler1WasCalled = false;
+ var handler2WasCalled = false;
+ var finallyActionWasEvaluated = false;
+
+ println("1");
+ try {
+
+ function dummy () {
+ println("2a");
+ try {
+ println("2b");
+ return 10 / arg;
+ } finally {
+ println("2c");
+ handler1WasCalled = true;
+ }
+ };
+
+ println("2");
+ dummy();
+ println("3");
+ } catch(Error e) {
+ println("e");
+ handler2WasCalled = true;
+ } finally {
+ println("f");
+ finallyActionWasEvaluated = true;
+ };
+
+ println("4");
+ return handler1WasCalled && handler2WasCalled && finallyActionWasEvaluated;
+ }'
+ for:JavaScriptEnvironment new
+ arguments:#(0)
+ expect:true
].
self assert:(output asCollectionOfLinesWithReturn asArray = #( '1' '2' '2a' '2b' 'e' '2c' 'f' '4'))
@@ -5120,32 +5134,32 @@
|output|
output := self outputToTranscriptOf:[
- self
- execute:'test(arg) {
- var handlerWasCalled = false;
- var finallyActionWasEvaluated = false;
-
- println("1");
- try {
- function dummy() {};
-
- println("2");
- dummy();
- println("3");
- } catch(Error e) {
- println("e");
- handlerWasCalled = true;
- } finally {
- println("f");
- finallyActionWasEvaluated = true;
- };
-
- println("4");
- return !!handlerWasCalled && finallyActionWasEvaluated;
- }'
- for:JavaScriptEnvironment new
- arguments:#(0)
- expect:true
+ self
+ execute:'test(arg) {
+ var handlerWasCalled = false;
+ var finallyActionWasEvaluated = false;
+
+ println("1");
+ try {
+ function dummy() {};
+
+ println("2");
+ dummy();
+ println("3");
+ } catch(Error e) {
+ println("e");
+ handlerWasCalled = true;
+ } finally {
+ println("f");
+ finallyActionWasEvaluated = true;
+ };
+
+ println("4");
+ return !!handlerWasCalled && finallyActionWasEvaluated;
+ }'
+ for:JavaScriptEnvironment new
+ arguments:#(0)
+ expect:true
].
self assert:(output asCollectionOfLinesWithReturn asArray = #( '1' '2' '3' 'f' '4'))
@@ -5156,77 +5170,77 @@
!
testTypeof01
- self
- execute:'test(arg) {
- return typeof(arg);
- }'
- for:nil
- arguments:#(0)
- expect:'number'.
-
- self
- execute:'test(arg) {
- return typeof(arg);
- }'
- for:nil
- arguments:#('foo')
- expect:'string'.
-
- self
- execute:'test(arg) {
- return typeof(arg);
- }'
- for:nil
- arguments:#(true)
- expect:'boolean'.
-
- self
- execute:'test(arg) {
- return typeof(arg);
- }'
- for:nil
- arguments:#(false)
- expect:'boolean'.
-
- self
- execute:'test(arg) {
- return typeof(arg);
- }'
- for:nil
- arguments:#(nil)
- expect:'undefined'.
-
- self
- execute:'test(arg) {
- return typeof(arg);
- }'
- for:nil
- arguments:#( #[1 2 3] )
- expect:'object'.
-
- self
- execute:'test(arg) {
- return typeof(arg);
- }'
- for:nil
- arguments:#( #(1 2 3) )
- expect:'object'.
-
- self
- execute:'test(arg) {
- return typeof(arg);
- }'
- for:nil
- arguments:(Array with:(Point new))
- expect:'object'.
-
- self
- execute:'test(arg) {
- return typeof(arg);
- }'
- for:nil
- arguments:(Array with:Integer)
- expect:'object'.
+ self
+ execute:'test(arg) {
+ return typeof(arg);
+ }'
+ for:nil
+ arguments:#(0)
+ expect:'number'.
+
+ self
+ execute:'test(arg) {
+ return typeof(arg);
+ }'
+ for:nil
+ arguments:#('foo')
+ expect:'string'.
+
+ self
+ execute:'test(arg) {
+ return typeof(arg);
+ }'
+ for:nil
+ arguments:#(true)
+ expect:'boolean'.
+
+ self
+ execute:'test(arg) {
+ return typeof(arg);
+ }'
+ for:nil
+ arguments:#(false)
+ expect:'boolean'.
+
+ self
+ execute:'test(arg) {
+ return typeof(arg);
+ }'
+ for:nil
+ arguments:#(nil)
+ expect:'undefined'.
+
+ self
+ execute:'test(arg) {
+ return typeof(arg);
+ }'
+ for:nil
+ arguments:#( #[1 2 3] )
+ expect:'object'.
+
+ self
+ execute:'test(arg) {
+ return typeof(arg);
+ }'
+ for:nil
+ arguments:#( #(1 2 3) )
+ expect:'object'.
+
+ self
+ execute:'test(arg) {
+ return typeof(arg);
+ }'
+ for:nil
+ arguments:(Array with:(Point new))
+ expect:'object'.
+
+ self
+ execute:'test(arg) {
+ return typeof(arg);
+ }'
+ for:nil
+ arguments:(Array with:Integer)
+ expect:'object'.
"
self run:#testTypeof01
@@ -5235,15 +5249,15 @@
!
testVarDeclaration01
- self
- execute:'expr(a, b) {
- var x = 10;
-
- return x;
- }'
- for:nil
- arguments:#(10 20)
- expect:10
+ self
+ execute:'expr(a, b) {
+ var x = 10;
+
+ return x;
+ }'
+ for:nil
+ arguments:#(10 20)
+ expect:10
"
self run:#testVarDeclaration01
@@ -5252,15 +5266,15 @@
!
testVarDeclaration02
- self
- execute:'expr(a, b) {
- var x = 10;
-
- return (a + x);
- }'
- for:nil
- arguments:#(10 20)
- expect:20
+ self
+ execute:'expr(a, b) {
+ var x = 10;
+
+ return (a + x);
+ }'
+ for:nil
+ arguments:#(10 20)
+ expect:20
"
self run:#testVarDeclaration02
@@ -5269,16 +5283,16 @@
!
testVarDeclaration03
- self
- execute:'expr(a, b) {
- var x = 10;
- var y = x+10;
-
- return (y);
- }'
- for:nil
- arguments:#(10 20)
- expect:20
+ self
+ execute:'expr(a, b) {
+ var x = 10;
+ var y = x+10;
+
+ return (y);
+ }'
+ for:nil
+ arguments:#(10 20)
+ expect:20
"
self run:#testVarDeclaration03
@@ -5287,16 +5301,16 @@
!
testVarDeclaration04
- self
- execute:'expr(a, b) {
- var y = x+10;
- var x = 10;
-
- return (y);
- }'
- for:nil
- arguments:#(10 20)
- expectError:#ParseError
+ self
+ execute:'expr(a, b) {
+ var y = x+10;
+ var x = 10;
+
+ return (y);
+ }'
+ for:nil
+ arguments:#(10 20)
+ expectError:#ParseError
"
self run:#testVarDeclaration04
@@ -5309,19 +5323,19 @@
testVarDeclaration05
"our JS only allows variables declarations at a blocks top"
- self
- execute:'expr(a, b) {
- var y = 10;
-
- y = y + 10;
-
- var x = 10;
-
- return (y);
- }'
- for:nil
- arguments:#(10 20)
- expect:20
+ self
+ execute:'expr(a, b) {
+ var y = 10;
+
+ y = y + 10;
+
+ var x = 10;
+
+ return (y);
+ }'
+ for:nil
+ arguments:#(10 20)
+ expect:20
"
self run:#testVarDeclaration05
@@ -5333,15 +5347,15 @@
testVarDeclaration06
- self
- execute:'expr(x) {
- var y = x + 20;
-
- return (y);
- }'
- for:nil
- arguments:#(10)
- expect:30
+ self
+ execute:'expr(x) {
+ var y = x + 20;
+
+ return (y);
+ }'
+ for:nil
+ arguments:#(10)
+ expect:30
"
self run:#testVarDeclaration06
@@ -5351,15 +5365,15 @@
testVarDeclaration07
- self
- execute:'expr(x) {
- var x = x + 20;
-
- return (x);
- }'
- for:nil
- arguments:#(10)
- expectError:Error
+ self
+ execute:'expr(x) {
+ var x = x + 20;
+
+ return (x);
+ }'
+ for:nil
+ arguments:#(10)
+ expectError:Error
"
self run:#testVarDeclaration07
@@ -5369,15 +5383,15 @@
testVarDeclaration08
- self
- execute:'expr(aIn, bIn, cIn) {
- var a = aIn, b = bIn, c = cIn;
-
- return (a);
- }'
- for:nil
- arguments:#(1 2 3)
- expect:1
+ self
+ execute:'expr(aIn, bIn, cIn) {
+ var a = aIn, b = bIn, c = cIn;
+
+ return (a);
+ }'
+ for:nil
+ arguments:#(1 2 3)
+ expect:1
"
self run:#testVarDeclaration08
@@ -5389,25 +5403,25 @@
|output|
output := self outputToTranscriptOf:[
- self
- execute:'test(arg) {
- var n;
-
- n = arg;
- while (n > 0) {
- n--;
- Transcript.showCR("hello");
- }
- }'
- for:nil
- arguments:#(5)
- expect:nil
+ self
+ execute:'test(arg) {
+ var n;
+
+ n = arg;
+ while (n > 0) {
+ n--;
+ Transcript.showCR("hello");
+ }
+ }'
+ for:nil
+ arguments:#(5)
+ expect:nil
].
self assert:(output asCollectionOfLinesWithReturn asArray = #( 'hello' 'hello' 'hello' 'hello' 'hello' ))
"
self run:#testWhile01
- self new testWhile01
+ self new testWhile01
"
!
@@ -5415,19 +5429,19 @@
|output|
output := self outputToTranscriptOf:[
- self
- execute:'test(arg) {
- var n;
-
- n = 1;
- while (n <= arg) {
- n++;
- Transcript.showCR("hello");
- }
- }'
- for:nil
- arguments:#(5)
- expect:nil
+ self
+ execute:'test(arg) {
+ var n;
+
+ n = 1;
+ while (n <= arg) {
+ n++;
+ Transcript.showCR("hello");
+ }
+ }'
+ for:nil
+ arguments:#(5)
+ expect:nil
].
self assert:(output asCollectionOfLinesWithReturn asArray = #( 'hello' 'hello' 'hello' 'hello' 'hello' ))
@@ -5441,18 +5455,18 @@
|output|
output := self outputToTranscriptOf:[
- self
- execute:'test(arg) {
- var n;
-
- n = 1;
- while (n <= arg) {
- Transcript.showCR(n++);
- }
- }'
- for:nil
- arguments:#(5)
- expect:nil
+ self
+ execute:'test(arg) {
+ var n;
+
+ n = 1;
+ while (n <= arg) {
+ Transcript.showCR(n++);
+ }
+ }'
+ for:nil
+ arguments:#(5)
+ expect:nil
].
self assert:(output asCollectionOfLinesWithReturn asArray = #( '1' '2' '3' '4' '5' ))
@@ -5466,18 +5480,18 @@
|output|
output := self outputToTranscriptOf:[
- self
- execute:'test(arg) {
- var n;
-
- n = 1;
- while (n++ <= arg) {
- Transcript.showCR(n);
- }
- }'
- for:nil
- arguments:#(5)
- expect:nil
+ self
+ execute:'test(arg) {
+ var n;
+
+ n = 1;
+ while (n++ <= arg) {
+ Transcript.showCR(n);
+ }
+ }'
+ for:nil
+ arguments:#(5)
+ expect:nil
].
self assert:(output asCollectionOfLinesWithReturn asArray = #( '2' '3' '4' '5' '6'))
@@ -5491,18 +5505,18 @@
|output|
output := self outputToTranscriptOf:[
- self
- execute:'test(arg) {
- var n;
-
- n = 1;
- while (n++ <= arg) {
- Transcript.showCR(n);
- }
- }'
- for:nil
- arguments:#(5)
- expect:nil
+ self
+ execute:'test(arg) {
+ var n;
+
+ n = 1;
+ while (n++ <= arg) {
+ Transcript.showCR(n);
+ }
+ }'
+ for:nil
+ arguments:#(5)
+ expect:nil
].
self assert:(output asCollectionOfLinesWithReturn asArray = #( '2' '3' '4' '5' '6'))
@@ -5516,19 +5530,19 @@
|output|
output := self outputToTranscriptOf:[
- self
- execute:'test(arg) {
- var n;
-
- n = 1;
- while (n++ <= arg) {
- if (n == 3) continue;
- Transcript.showCR(n);
- }
- }'
- for:nil
- arguments:#(5)
- expect:nil
+ self
+ execute:'test(arg) {
+ var n;
+
+ n = 1;
+ while (n++ <= arg) {
+ if (n == 3) continue;
+ Transcript.showCR(n);
+ }
+ }'
+ for:nil
+ arguments:#(5)
+ expect:nil
].
self assert:(output asCollectionOfLinesWithReturn asArray = #( '2' '4' '5' '6'))
@@ -5545,18 +5559,18 @@
|output|
output := self outputToTranscriptOf:[
- self
- execute:'test(arg) {
- var n;
-
- n = 1;
- while (n++ < arg) {
- }
- Transcript.showCR(n);
- }'
- for:nil
- arguments:#(5)
- expect:nil
+ self
+ execute:'test(arg) {
+ var n;
+
+ n = 1;
+ while (n++ < arg) {
+ }
+ Transcript.showCR(n);
+ }'
+ for:nil
+ arguments:#(5)
+ expect:nil
].
self assert:(output asCollectionOfLinesWithReturn asArray = #( '6'))
@@ -5572,48 +5586,48 @@
|spec|
spec := #(
- ('1' #isInteger 1)
- ('0' #isInteger 0)
- ('-1' #isInteger -1)
- ('12345678901234567890' #isInteger 12345678901234567890)
- ('0x0' #isInteger 0)
- ('0x1' #isInteger 1)
- ('0xFFFF' #isInteger 16rFFFF)
- ('0xffff' #isInteger 16rFFFF)
- ('0xFFFFFFFFFFFFFFFF' #isInteger 16rFFFFFFFFFFFFFFFF)
- ('0777' #isInteger 8r777)
-
- ('1.2345' #isFloat 1.2345)
- ('-1.2345' #isFloat -1.2345)
-
- ('nil' #isNil nil)
- ('null' #isNil nil)
- ('true' nil true)
- ('false' nil false)
-
- ('"aString"' #isString 'aString' )
- ('''anotherString''' #isString 'anotherString' )
- ('''anoth"er"String''' #isString 'anoth"er"String' )
- ('"anoth''er''String"' #isString 'anoth''er''String' )
- ('"hello"' #isString 'hello' )
- ('"\b"' #isString (#eval 'Character backspace asString') )
- ('"\f"' #isString (#eval 'Character ff asString') )
- ('"\t"' #isString (#eval 'Character tab asString') )
- ('"\r"' #isString (#eval 'Character return asString') )
- ('"\n"' #isString (#eval 'Character nl asString') )
- ('"\''"' #isString '''' )
- ('"\""' #isString '"' )
-
- ('[ 1 , 2 , 3]' #isArray #(1 2 3) )
- ('[1,2,3]' #isArray #(1 2 3) )
- ('[1,2,3]' #isArray #(1 2 3) )
- ('["a","b","c"]' #isArray #('a' 'b' 'c') )
- ('[]' #isArray #() )
- ('[null]' #isArray #( nil ) )
-
- ('[1,[2,[3]]]' #isArray #(1 (2 (3))) )
-
- ).
+ ('1' #isInteger 1)
+ ('0' #isInteger 0)
+ ('-1' #isInteger -1)
+ ('12345678901234567890' #isInteger 12345678901234567890)
+ ('0x0' #isInteger 0)
+ ('0x1' #isInteger 1)
+ ('0xFFFF' #isInteger 16rFFFF)
+ ('0xffff' #isInteger 16rFFFF)
+ ('0xFFFFFFFFFFFFFFFF' #isInteger 16rFFFFFFFFFFFFFFFF)
+ ('0777' #isInteger 8r777)
+
+ ('1.2345' #isFloat 1.2345)
+ ('-1.2345' #isFloat -1.2345)
+
+ ('nil' #isNil nil)
+ ('null' #isNil nil)
+ ('true' nil true)
+ ('false' nil false)
+
+ ('"aString"' #isString 'aString' )
+ ('''anotherString''' #isString 'anotherString' )
+ ('''anoth"er"String''' #isString 'anoth"er"String' )
+ ('"anoth''er''String"' #isString 'anoth''er''String' )
+ ('"hello"' #isString 'hello' )
+ ('"\b"' #isString (#eval 'Character backspace asString') )
+ ('"\f"' #isString (#eval 'Character ff asString') )
+ ('"\t"' #isString (#eval 'Character tab asString') )
+ ('"\r"' #isString (#eval 'Character return asString') )
+ ('"\n"' #isString (#eval 'Character nl asString') )
+ ('"\''"' #isString '''' )
+ ('"\""' #isString '"' )
+
+ ('[ 1 , 2 , 3]' #isArray #(1 2 3) )
+ ('[1,2,3]' #isArray #(1 2 3) )
+ ('[1,2,3]' #isArray #(1 2 3) )
+ ('["a","b","c"]' #isArray #('a' 'b' 'c') )
+ ('[]' #isArray #() )
+ ('[null]' #isArray #( nil ) )
+
+ ('[1,[2,[3]]]' #isArray #(1 (2 (3))) )
+
+ ).
self doTestEachFromSpec:spec.
@@ -5627,17 +5641,17 @@
|spec|
spec := #(
- ('"\x00"' #isString (#eval '(Character value:0) asString') )
- ('"\x01"' #isString (#eval '(Character value:1) asString') )
- ('"\x1a"' #isString (#eval '(Character value:16r1a) asString') )
- ('"\x000"' #isString (#eval '(Character value:0) asString , ''0'' ') )
- ('"\xgg"' #isString (#error ) )
- ('"\xg"' #isString (#error ) )
- ('"\x"' #isString (#error ) )
- ('"\x0g"' #isString (#error ) )
- ('"\u1234"' #isString (#eval '(Character value:16r1234) asString ') )
- ('"\uFFFF"' #isString (#eval '(Character value:16rFFFF) asString ') )
- ).
+ ('"\x00"' #isString (#eval '(Character value:0) asString') )
+ ('"\x01"' #isString (#eval '(Character value:1) asString') )
+ ('"\x1a"' #isString (#eval '(Character value:16r1a) asString') )
+ ('"\x000"' #isString (#eval '(Character value:0) asString , ''0'' ') )
+ ('"\xgg"' #isString (#error ) )
+ ('"\xg"' #isString (#error ) )
+ ('"\x"' #isString (#error ) )
+ ('"\x0g"' #isString (#error ) )
+ ('"\u1234"' #isString (#eval '(Character value:16r1234) asString ') )
+ ('"\uFFFF"' #isString (#eval '(Character value:16rFFFF) asString ') )
+ ).
self doTestEachFromSpec:spec.
@@ -5651,11 +5665,11 @@
|spec|
spec := #(
- ('// ignored
- 1' #isInteger 1 )
- ('/* ignored */ 2' #isInteger 2 )
- ('/* ign//ored */ 3' #isInteger 3 )
- ).
+ ('// ignored
+ 1' #isInteger 1 )
+ ('/* ignored */ 2' #isInteger 2 )
+ ('/* ign//ored */ 3' #isInteger 3 )
+ ).
self doTestEachFromSpec:spec.
@@ -5671,21 +5685,21 @@
|spec|
spec := #(
- ('$''a''' #isCharacter (#eval '$a ') )
- ('$''\n''' #isCharacter (#eval '(Character nl)') )
- ('$''\r''' #isCharacter (#eval '(Character return)') )
- ('$''\b''' #isCharacter (#eval '(Character backspace)') )
- ('$''\x00''' #isCharacter (#eval '(Character value:0)') )
- ('$''\x01''' #isCharacter (#eval '(Character value:1)') )
- ('$''\x1a''' #isCharacter (#eval '(Character value:16r1a)') )
- ('$''\x000''' #isCharacter (#error ) )
- ('$''\xgg''' #isCharacter (#error ) )
- ('$''\xg''' #isCharacter (#error ) )
- ('$''\x''' #isCharacter (#error ) )
- ('$''\x0g''' #isCharacter (#error ) )
- ('$''\u1234''' #isCharacter (#eval '(Character value:16r1234) ') )
- ('$''\uFFFF''' #isCharacter (#eval '(Character value:16rFFFF) ') )
- ).
+ ('$''a''' #isCharacter (#eval '$a ') )
+ ('$''\n''' #isCharacter (#eval '(Character nl)') )
+ ('$''\r''' #isCharacter (#eval '(Character return)') )
+ ('$''\b''' #isCharacter (#eval '(Character backspace)') )
+ ('$''\x00''' #isCharacter (#eval '(Character value:0)') )
+ ('$''\x01''' #isCharacter (#eval '(Character value:1)') )
+ ('$''\x1a''' #isCharacter (#eval '(Character value:16r1a)') )
+ ('$''\x000''' #isCharacter (#error ) )
+ ('$''\xgg''' #isCharacter (#error ) )
+ ('$''\xg''' #isCharacter (#error ) )
+ ('$''\x''' #isCharacter (#error ) )
+ ('$''\x0g''' #isCharacter (#error ) )
+ ('$''\u1234''' #isCharacter (#eval '(Character value:16r1234) ') )
+ ('$''\uFFFF''' #isCharacter (#eval '(Character value:16rFFFF) ') )
+ ).
self doTestEachFromSpec:spec.
@@ -5698,28 +5712,28 @@
test_10_parse_expression1
|spec|
- spec := #(
- ('1+1' nil 2 )
- ('1-1' nil 0 )
- ('2*2' nil 4 )
- ('4/2' nil 2 )
- ('5%3' nil 2 )
- ('1234567890*1234567890' nil 1524157875019052100 )
- ('1234567890/1234567890' nil 1 )
- ('1234567890/1234567890.0' nil 1.0 )
-
- ('1>0' nil true )
- ('1<0' nil false )
- ('1<=0' nil false )
- ('1>=0' nil true )
- ('1==0' nil false )
- ('1!!=0' nil true )
- ('1!!=1' nil false )
-
- ('3&5' nil 1 )
- ('3|5' nil 7 )
- ('5^1' nil 4 )
- ).
+ spec := #(
+ ('1+1' nil 2 )
+ ('1-1' nil 0 )
+ ('2*2' nil 4 )
+ ('4/2' nil 2 )
+ ('5%3' nil 2 )
+ ('1234567890*1234567890' nil 1524157875019052100 )
+ ('1234567890/1234567890' nil 1 )
+ ('1234567890/1234567890.0' nil 1.0 )
+
+ ('1>0' nil true )
+ ('1<0' nil false )
+ ('1<=0' nil false )
+ ('1>=0' nil true )
+ ('1==0' nil false )
+ ('1!!=0' nil true )
+ ('1!!=1' nil false )
+
+ ('3&5' nil 1 )
+ ('3|5' nil 7 )
+ ('5^1' nil 4 )
+ ).
self doTestEachFromSpec:spec.
"
@@ -5733,11 +5747,11 @@
test_11_parse_expression2
|spec|
- spec := #(
- ('1=0' nil ( #error ) )
- ('"abc"[0]' nil ( #error ) )
- ('"abc"[1]' nil $a )
- ).
+ spec := #(
+ ('1=0' nil ( #error ) )
+ ('"abc"[0]' nil ( #error ) )
+ ('"abc"[1]' nil $a )
+ ).
self doTestEachFromSpec:spec.
"
@@ -5750,17 +5764,17 @@
|spec|
"/ spec is { source shouldErrBoolean }
- spec := #(
- ('
+ spec := #(
+ ('
execute(in1) {
var t;
Dialog.information((t = in1.value()) == nil ? "nil" : t);
-}'
+}'
false
- )
-
- ).
+ )
+
+ ).
self doTestEachFunctionFromSpec:spec.
"
@@ -5772,7 +5786,7 @@
test_40_parse_function
| tree |
- tree := JavaScriptParser parseExpression:'this.bar("arg1", 1)'.
+ tree := JavaScriptParser parseExpression:'this.bar("arg1", 1)'.
self assert: tree selectorPosition = (6 to: 8)
"Created: / 17-11-2014 / 13:28:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -5781,7 +5795,7 @@
test_41_parse_function
| tree |
- tree := JavaScriptParser parseExpression:'this.bar'.
+ tree := JavaScriptParser parseExpression:'this.bar'.
self assert: tree selectorPosition = (6 to: 8)
"Created: / 17-11-2014 / 13:31:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -5789,8 +5803,8 @@
xtestInnerFunctionWithInitializedLocals
- self
- execute:'
+ self
+ execute:'
execute() {
function foo() {}
function bar() {}
@@ -5798,22 +5812,22 @@
function test()
{
- foo();
- bar();
- var a;
- var b;
- var c = Array.new(15);
- var d = 20;
-
- return [ a , b , c , d ];
+ foo();
+ bar();
+ var a;
+ var b;
+ var c = Array.new(15);
+ var d = 20;
+
+ return [ a , b , c , d ];
}
test();
}
'
- for:nil
- arguments:#()
- expect:{ nil . nil . (Array new:15) . 20 }
+ for:nil
+ arguments:#()
+ expect:{ nil . nil . (Array new:15) . 20 }
"
self run:#testInnerFunctionWithInitializedLocals
@@ -5822,28 +5836,28 @@
!
xtestNew04
- self
- execute:'test() {
- var days;
-
- days = new Array(7,2);
- days[1,1] = "Monday";
- days[2,1] = "Tuesday";
- days[3,1] = "Wednesday";
- days[4,1] = "Thursday";
- days[5,1] = "Friday";
- days[6,1] = "Saturday";
- days[7,1] = "Sunday";
-
- return days;
- }'
- for:nil
- arguments:#()
- expect:#('Monday' 'Tuesday' 'Wednesday' 'Thursday' 'Friday' 'Saturday' 'Sunday')
+ self
+ execute:'test() {
+ var days;
+
+ days = new Array(7,2);
+ days[1,1] = "Monday";
+ days[2,1] = "Tuesday";
+ days[3,1] = "Wednesday";
+ days[4,1] = "Thursday";
+ days[5,1] = "Friday";
+ days[6,1] = "Saturday";
+ days[7,1] = "Sunday";
+
+ return days;
+ }'
+ for:nil
+ arguments:#()
+ expect:#('Monday' 'Tuesday' 'Wednesday' 'Thursday' 'Friday' 'Saturday' 'Sunday')
"
self run:#testNew04
- self new testNew04
+ self new testNew04
"
"Created: / 23-02-2007 / 12:24:50 / cg"
--- a/RegressionTests__KoelnerPhoneticCodeStringComparatorTest.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__KoelnerPhoneticCodeStringComparatorTest.st Thu Jun 30 09:02:08 2016 +0100
@@ -21,17 +21,17 @@
testSomeCombinations
|code s|
- "/ compares all 4-char combinations against
+ "/ compares all 4-char combinations against
$A to:$Z do:[:c1 |
- $A to:$Z do:[:c2 |
- $A to:$Z do:[:c3 |
- $A to:$Z do:[:c4 |
- s := String with:c1 with:c2 with:c3 with:c4.
- code := (sc phoneticStringsFor:s) first.
- self assert:( code = s asKoelnerPhoneticCode).
- ].
- ].
- ].
+ $A to:$Z do:[:c2 |
+ $A to:$Z do:[:c3 |
+ $A to:$Z do:[:c4 |
+ s := String with:c1 with:c2 with:c3 with:c4.
+ code := (sc phoneticStringsFor:s) first.
+ self assert:( code = s asKoelnerPhoneticCode).
+ ].
+ ].
+ ].
].
!
@@ -45,20 +45,20 @@
#( 'Acton' 'Ashdown' 'Ashton' 'Astin' 'Aston' 'Austen' 'Austin' 'Austine' 'Axten')
do:[:w |
- code := koeln value:(w).
- self assert:( code = (w asKoelnerPhoneticCode)).
+ code := koeln value:(w).
+ self assert:( code = (w asKoelnerPhoneticCode)).
].
#( 'Reader' 'Reeder' 'Rider' 'Ritter' 'Rothera' 'Rothra' 'Ruder' 'Rutter' 'Ryder')
do:[:w |
- code := koeln value:(w).
- self assert:( code = (w asKoelnerPhoneticCode)).
+ code := koeln value:(w).
+ self assert:( code = (w asKoelnerPhoneticCode)).
].
#( 'Wace' 'Waugh' 'Wookey')
do:[:w |
- code := koeln value:(w).
- self assert:( code = (w asKoelnerPhoneticCode)).
+ code := koeln value:(w).
+ self assert:( code = (w asKoelnerPhoneticCode)).
].
code := koeln value:('Abbot').
--- a/RegressionTests__LabelResizingTest.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__LabelResizingTest.st Thu Jun 30 09:02:08 2016 +0100
@@ -16,7 +16,7 @@
documentation to be added.
[author:]
- ca (ca@IDEFIX)
+ ca (ca@IDEFIX)
[instance variables:]
@@ -30,16 +30,16 @@
examples
"
Starting the application:
- [exBegin]
+ [exBegin]
Claus open
- [exEnd]
+ [exEnd]
more examples to be added:
- [exBegin]
- ... add code fragment for
+ [exBegin]
+ ... add code fragment for
... executable example here ...
- [exEnd]
+ [exEnd]
"
!
@@ -64,367 +64,367 @@
<resource: #canvas>
- ^
+ ^
#(FullSpec
- name: windowSpec
- window:
+ name: windowSpec
+ window:
(WindowSpec
- label: 'Claus'
- name: 'Claus'
- min: (Point 10 10)
- max: (Point 1024 768)
- bounds: (Rectangle 0 0 518 496)
- menu: mainMenu
- )
- component:
+ label: 'Claus'
+ name: 'Claus'
+ min: (Point 10 10)
+ max: (Point 1024 768)
+ bounds: (Rectangle 0 0 518 496)
+ menu: mainMenu
+ )
+ component:
(SpecCollection
- collection: (
- (ViewSpec
- name: 'Box'
- layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- backgroundColor: (Color 86.999313344015 86.999313344015 86.999313344015)
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Label'
- name: 'Label'
- layout: (AlignmentOrigin -5 1.0 5 0 1 0)
- visibilityChannel: visibleHolder
- backgroundColor: (Color 49.999237048905 100.0 49.999237048905)
- translateLabel: true
- labelChannel: lableHolder
- resizeForLabel: true
- adjust: left
- postBuildCallback: postBuildLabel:
- )
- (ActionButtonSpec
- label: 'Button'
- name: 'Button'
- layout: (AlignmentOrigin -5 1.0 40 0 1 0)
- visibilityChannel: visibleHolder
- backgroundColor: (Color 49.999237048905 100.0 49.999237048905)
- translateLabel: true
- labelChannel: lableHolder
- resizeForLabel: true
- )
- (LabelSpec
- label: 'Point'
- name: 'Point'
- layout: (Point 5 5)
- translateLabel: true
- labelChannel: lableHolder
- resizeForLabel: true
- )
- (LabelSpec
- label: 'Alignment Origin TopLeft'
- name: 'Alignment Origin TopLeft'
- layout: (AlignmentOrigin 5 0 30 0 0 0)
- translateLabel: true
- labelChannel: lableHolder
- resizeForLabel: true
- )
- (LabelSpec
- label: 'Origin'
- name: 'Origin'
- layout: (LayoutOrigin 5 0 55 0)
- translateLabel: true
- labelChannel: lableHolder
- resizeForLabel: true
- )
- )
-
- )
- )
- (LabelSpec
- label: 'Variable Horizontal Panel'
- name: 'Variable Horizontal Panel'
- layout: (LayoutFrame 0 0.0 90 0 0 1.0 120 0)
- backgroundColor: (Color 49.999237048905 49.999237048905 100.0)
- translateLabel: true
- resizeForLabel: true
- )
- (VariableHorizontalPanelSpec
- name: 'VariableHorizontalPanel'
- layout: (LayoutFrame 0 0.0 120 0 0 1.0 170 0)
- snapMode: both
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Label'
- name: 'Label1'
- backgroundColor: (Color 49.999237048905 100.0 49.999237048905)
- translateLabel: true
- labelChannel: lableHolder
- resizeForLabel: true
- )
- (ActionButtonSpec
- label: 'Button'
- name: 'Button1'
- backgroundColor: (Color 49.999237048905 100.0 49.999237048905)
- translateLabel: true
- labelChannel: lableHolder
- resizeForLabel: true
- )
- (LabelSpec
- label: 'Label'
- name: 'Label2'
- backgroundColor: (Color 49.999237048905 100.0 49.999237048905)
- translateLabel: true
- labelChannel: lableHolder
- resizeForLabel: true
- )
- )
-
- )
- handles: (Any 0.33333333333333 0.66666666666667 1.0)
- )
- (LabelSpec
- label: 'Horizontal Panel'
- name: 'Horizontal Panel'
- layout: (LayoutFrame 0 0.0 170 0 0 1.0 200 0)
- backgroundColor: (Color 49.999237048905 49.999237048905 100.0)
- translateLabel: true
- resizeForLabel: true
- )
- (HorizontalPanelViewSpec
- name: 'HorizontalPanel'
- layout: (LayoutFrame 0 0.0 200 0 0 1.0 250 0)
- horizontalLayout: center
- verticalLayout: center
- horizontalSpace: 3
- verticalSpace: 3
- elementsChangeSize: true
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Label'
- name: 'Label3'
- backgroundColor: (Color 49.999237048905 100.0 49.999237048905)
- translateLabel: true
- labelChannel: lableHolder
- resizeForLabel: true
- extent: (Point 74 20)
- )
- (ActionButtonSpec
- label: 'Button'
- name: 'Button2'
- backgroundColor: (Color 49.999237048905 100.0 49.999237048905)
- translateLabel: true
- labelChannel: lableHolder
- resizeForLabel: true
- extent: (Point 78 24)
- )
- (LabelSpec
- label: 'Label'
- name: 'Label4'
- backgroundColor: (Color 49.999237048905 100.0 49.999237048905)
- translateLabel: true
- labelChannel: lableHolder
- resizeForLabel: true
- extent: (Point 74 20)
- )
- )
-
- )
- )
- (LabelSpec
- label: 'Vertical Panels'
- name: 'Vertical Panels'
- layout: (LayoutFrame 0 0.0 250 0 0 1.0 280 0)
- backgroundColor: (Color 49.999237048905 49.999237048905 100.0)
- translateLabel: true
- )
- (HorizontalPanelViewSpec
- name: 'All Panels'
- layout: (LayoutFrame 0 0.0 280 0 0 1.0 -5 1.0)
- horizontalLayout: fitSpace
- verticalLayout: fitSpace
- horizontalSpace: 3
- verticalSpace: 3
- component:
- (SpecCollection
- collection: (
- (ViewSpec
- name: 'VerticalPanelView'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Vertical Panel'
- name: 'Vertical Panel'
- layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 30 0)
- backgroundColor: (Color 49.999237048905 49.999237048905 100.0)
- translateLabel: true
- )
- (VerticalPanelViewSpec
- name: 'VerticalPanel'
- layout: (LayoutFrame 0 0.0 32 0.0 0 1.0 0 1.0)
- horizontalLayout: center
- verticalLayout: center
- horizontalSpace: 3
- verticalSpace: 3
- elementsChangeSize: true
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Label'
- name: 'Label5'
- backgroundColor: (Color 49.999237048905 100.0 49.999237048905)
- translateLabel: true
- labelChannel: lableHolder
- resizeForLabel: true
- extent: (Point 74 20)
- )
- (ActionButtonSpec
- label: 'Button'
- name: 'Button3'
- backgroundColor: (Color 49.999237048905 100.0 49.999237048905)
- translateLabel: true
- labelChannel: lableHolder
- resizeForLabel: true
- extent: (Point 78 24)
- )
- (LabelSpec
- label: 'Label'
- name: 'Label6'
- backgroundColor: (Color 49.999237048905 100.0 49.999237048905)
- translateLabel: true
- labelChannel: lableHolder
- resizeForLabel: true
- extent: (Point 74 20)
- )
- )
-
- )
- )
- )
-
- )
- extent: (Point 168 205)
- )
- (ViewSpec
- name: 'PanelView'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Panel'
- name: 'PanelLabel'
- layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 30 0)
- backgroundColor: (Color 49.999237048905 49.999237048905 100.0)
- translateLabel: true
- )
- (PanelViewSpec
- name: 'Panel'
- layout: (LayoutFrame 0 0.0 32 0.0 0 1.0 0 1.0)
- horizontalLayout: fitSpace
- verticalLayout: fitSpace
- horizontalSpace: 3
- verticalSpace: 3
- elementsChangeSize: true
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Label'
- name: 'Label7'
- backgroundColor: (Color 49.999237048905 100.0 49.999237048905)
- translateLabel: true
- labelChannel: lableHolder
- resizeForLabel: true
- extent: (Point 74 20)
- )
- (ActionButtonSpec
- label: 'Button'
- name: 'Button4'
- backgroundColor: (Color 49.999237048905 100.0 49.999237048905)
- translateLabel: true
- labelChannel: lableHolder
- resizeForLabel: true
- extent: (Point 78 24)
- )
- (LabelSpec
- label: 'Label'
- name: 'Label9'
- backgroundColor: (Color 49.999237048905 100.0 49.999237048905)
- translateLabel: true
- labelChannel: lableHolder
- resizeForLabel: true
- extent: (Point 74 20)
- )
- )
-
- )
- )
- )
-
- )
- extent: (Point 169 205)
- )
- (ViewSpec
- name: 'VariableVerticalPanelView'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Variable Vertical Panel'
- name: 'Variable Vertical Panel'
- layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 30 0)
- backgroundColor: (Color 49.999237048905 49.999237048905 100.0)
- translateLabel: true
- )
- (VariableVerticalPanelSpec
- name: 'VariableVerticalPanel'
- layout: (LayoutFrame 0 0.0 32 0.0 0 1.0 0 1.0)
- snapMode: both
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Label'
- name: 'Label8'
- backgroundColor: (Color 49.999237048905 100.0 49.999237048905)
- translateLabel: true
- labelChannel: lableHolder
- resizeForLabel: true
- )
- (ActionButtonSpec
- label: 'Button'
- name: 'Button5'
- backgroundColor: (Color 49.999237048905 100.0 49.999237048905)
- translateLabel: true
- labelChannel: lableHolder
- resizeForLabel: true
- )
- (LabelSpec
- label: 'Label'
- name: 'Label10'
- backgroundColor: (Color 49.999237048905 100.0 49.999237048905)
- translateLabel: true
- labelChannel: lableHolder
- resizeForLabel: true
- )
- )
-
- )
- handles: (Any 0.33333333333333 0.66666666666667 1.0)
- )
- )
-
- )
- extent: (Point 169 205)
- )
- )
-
- )
- )
- )
-
- )
+ collection: (
+ (ViewSpec
+ name: 'Box'
+ layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+ backgroundColor: (Color 86.999313344015 86.999313344015 86.999313344015)
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Label'
+ name: 'Label'
+ layout: (AlignmentOrigin -5 1.0 5 0 1 0)
+ visibilityChannel: visibleHolder
+ backgroundColor: (Color 49.999237048905 100.0 49.999237048905)
+ translateLabel: true
+ labelChannel: lableHolder
+ resizeForLabel: true
+ adjust: left
+ postBuildCallback: postBuildLabel:
+ )
+ (ActionButtonSpec
+ label: 'Button'
+ name: 'Button'
+ layout: (AlignmentOrigin -5 1.0 40 0 1 0)
+ visibilityChannel: visibleHolder
+ backgroundColor: (Color 49.999237048905 100.0 49.999237048905)
+ translateLabel: true
+ labelChannel: lableHolder
+ resizeForLabel: true
+ )
+ (LabelSpec
+ label: 'Point'
+ name: 'Point'
+ layout: (Point 5 5)
+ translateLabel: true
+ labelChannel: lableHolder
+ resizeForLabel: true
+ )
+ (LabelSpec
+ label: 'Alignment Origin TopLeft'
+ name: 'Alignment Origin TopLeft'
+ layout: (AlignmentOrigin 5 0 30 0 0 0)
+ translateLabel: true
+ labelChannel: lableHolder
+ resizeForLabel: true
+ )
+ (LabelSpec
+ label: 'Origin'
+ name: 'Origin'
+ layout: (LayoutOrigin 5 0 55 0)
+ translateLabel: true
+ labelChannel: lableHolder
+ resizeForLabel: true
+ )
+ )
+
+ )
+ )
+ (LabelSpec
+ label: 'Variable Horizontal Panel'
+ name: 'Variable Horizontal Panel'
+ layout: (LayoutFrame 0 0.0 90 0 0 1.0 120 0)
+ backgroundColor: (Color 49.999237048905 49.999237048905 100.0)
+ translateLabel: true
+ resizeForLabel: true
+ )
+ (VariableHorizontalPanelSpec
+ name: 'VariableHorizontalPanel'
+ layout: (LayoutFrame 0 0.0 120 0 0 1.0 170 0)
+ snapMode: both
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Label'
+ name: 'Label1'
+ backgroundColor: (Color 49.999237048905 100.0 49.999237048905)
+ translateLabel: true
+ labelChannel: lableHolder
+ resizeForLabel: true
+ )
+ (ActionButtonSpec
+ label: 'Button'
+ name: 'Button1'
+ backgroundColor: (Color 49.999237048905 100.0 49.999237048905)
+ translateLabel: true
+ labelChannel: lableHolder
+ resizeForLabel: true
+ )
+ (LabelSpec
+ label: 'Label'
+ name: 'Label2'
+ backgroundColor: (Color 49.999237048905 100.0 49.999237048905)
+ translateLabel: true
+ labelChannel: lableHolder
+ resizeForLabel: true
+ )
+ )
+
+ )
+ handles: (Any 0.33333333333333 0.66666666666667 1.0)
+ )
+ (LabelSpec
+ label: 'Horizontal Panel'
+ name: 'Horizontal Panel'
+ layout: (LayoutFrame 0 0.0 170 0 0 1.0 200 0)
+ backgroundColor: (Color 49.999237048905 49.999237048905 100.0)
+ translateLabel: true
+ resizeForLabel: true
+ )
+ (HorizontalPanelViewSpec
+ name: 'HorizontalPanel'
+ layout: (LayoutFrame 0 0.0 200 0 0 1.0 250 0)
+ horizontalLayout: center
+ verticalLayout: center
+ horizontalSpace: 3
+ verticalSpace: 3
+ elementsChangeSize: true
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Label'
+ name: 'Label3'
+ backgroundColor: (Color 49.999237048905 100.0 49.999237048905)
+ translateLabel: true
+ labelChannel: lableHolder
+ resizeForLabel: true
+ extent: (Point 74 20)
+ )
+ (ActionButtonSpec
+ label: 'Button'
+ name: 'Button2'
+ backgroundColor: (Color 49.999237048905 100.0 49.999237048905)
+ translateLabel: true
+ labelChannel: lableHolder
+ resizeForLabel: true
+ extent: (Point 78 24)
+ )
+ (LabelSpec
+ label: 'Label'
+ name: 'Label4'
+ backgroundColor: (Color 49.999237048905 100.0 49.999237048905)
+ translateLabel: true
+ labelChannel: lableHolder
+ resizeForLabel: true
+ extent: (Point 74 20)
+ )
+ )
+
+ )
+ )
+ (LabelSpec
+ label: 'Vertical Panels'
+ name: 'Vertical Panels'
+ layout: (LayoutFrame 0 0.0 250 0 0 1.0 280 0)
+ backgroundColor: (Color 49.999237048905 49.999237048905 100.0)
+ translateLabel: true
+ )
+ (HorizontalPanelViewSpec
+ name: 'All Panels'
+ layout: (LayoutFrame 0 0.0 280 0 0 1.0 -5 1.0)
+ horizontalLayout: fitSpace
+ verticalLayout: fitSpace
+ horizontalSpace: 3
+ verticalSpace: 3
+ component:
+ (SpecCollection
+ collection: (
+ (ViewSpec
+ name: 'VerticalPanelView'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Vertical Panel'
+ name: 'Vertical Panel'
+ layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 30 0)
+ backgroundColor: (Color 49.999237048905 49.999237048905 100.0)
+ translateLabel: true
+ )
+ (VerticalPanelViewSpec
+ name: 'VerticalPanel'
+ layout: (LayoutFrame 0 0.0 32 0.0 0 1.0 0 1.0)
+ horizontalLayout: center
+ verticalLayout: center
+ horizontalSpace: 3
+ verticalSpace: 3
+ elementsChangeSize: true
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Label'
+ name: 'Label5'
+ backgroundColor: (Color 49.999237048905 100.0 49.999237048905)
+ translateLabel: true
+ labelChannel: lableHolder
+ resizeForLabel: true
+ extent: (Point 74 20)
+ )
+ (ActionButtonSpec
+ label: 'Button'
+ name: 'Button3'
+ backgroundColor: (Color 49.999237048905 100.0 49.999237048905)
+ translateLabel: true
+ labelChannel: lableHolder
+ resizeForLabel: true
+ extent: (Point 78 24)
+ )
+ (LabelSpec
+ label: 'Label'
+ name: 'Label6'
+ backgroundColor: (Color 49.999237048905 100.0 49.999237048905)
+ translateLabel: true
+ labelChannel: lableHolder
+ resizeForLabel: true
+ extent: (Point 74 20)
+ )
+ )
+
+ )
+ )
+ )
+
+ )
+ extent: (Point 168 205)
+ )
+ (ViewSpec
+ name: 'PanelView'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Panel'
+ name: 'PanelLabel'
+ layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 30 0)
+ backgroundColor: (Color 49.999237048905 49.999237048905 100.0)
+ translateLabel: true
+ )
+ (PanelViewSpec
+ name: 'Panel'
+ layout: (LayoutFrame 0 0.0 32 0.0 0 1.0 0 1.0)
+ horizontalLayout: fitSpace
+ verticalLayout: fitSpace
+ horizontalSpace: 3
+ verticalSpace: 3
+ elementsChangeSize: true
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Label'
+ name: 'Label7'
+ backgroundColor: (Color 49.999237048905 100.0 49.999237048905)
+ translateLabel: true
+ labelChannel: lableHolder
+ resizeForLabel: true
+ extent: (Point 74 20)
+ )
+ (ActionButtonSpec
+ label: 'Button'
+ name: 'Button4'
+ backgroundColor: (Color 49.999237048905 100.0 49.999237048905)
+ translateLabel: true
+ labelChannel: lableHolder
+ resizeForLabel: true
+ extent: (Point 78 24)
+ )
+ (LabelSpec
+ label: 'Label'
+ name: 'Label9'
+ backgroundColor: (Color 49.999237048905 100.0 49.999237048905)
+ translateLabel: true
+ labelChannel: lableHolder
+ resizeForLabel: true
+ extent: (Point 74 20)
+ )
+ )
+
+ )
+ )
+ )
+
+ )
+ extent: (Point 169 205)
+ )
+ (ViewSpec
+ name: 'VariableVerticalPanelView'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Variable Vertical Panel'
+ name: 'Variable Vertical Panel'
+ layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 30 0)
+ backgroundColor: (Color 49.999237048905 49.999237048905 100.0)
+ translateLabel: true
+ )
+ (VariableVerticalPanelSpec
+ name: 'VariableVerticalPanel'
+ layout: (LayoutFrame 0 0.0 32 0.0 0 1.0 0 1.0)
+ snapMode: both
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Label'
+ name: 'Label8'
+ backgroundColor: (Color 49.999237048905 100.0 49.999237048905)
+ translateLabel: true
+ labelChannel: lableHolder
+ resizeForLabel: true
+ )
+ (ActionButtonSpec
+ label: 'Button'
+ name: 'Button5'
+ backgroundColor: (Color 49.999237048905 100.0 49.999237048905)
+ translateLabel: true
+ labelChannel: lableHolder
+ resizeForLabel: true
+ )
+ (LabelSpec
+ label: 'Label'
+ name: 'Label10'
+ backgroundColor: (Color 49.999237048905 100.0 49.999237048905)
+ translateLabel: true
+ labelChannel: lableHolder
+ resizeForLabel: true
+ )
+ )
+
+ )
+ handles: (Any 0.33333333333333 0.66666666666667 1.0)
+ )
+ )
+
+ )
+ extent: (Point 169 205)
+ )
+ )
+
+ )
+ )
+ )
+
+ )
)
! !
@@ -444,54 +444,54 @@
<resource: #menu>
- ^
+ ^
#(Menu
- (
- (MenuItem
- label: 'Label(smaller)'
- itemValue: doChangeLabel:
- translateLabel: true
- argument: smaller
- )
- (MenuItem
- label: 'Label(larger)'
- itemValue: doChangeLabel:
- translateLabel: true
- argument: larger
- )
- (MenuItem
- label: 'Label(null)'
- itemValue: doChangeLabel:
- translateLabel: true
- argument: null
- )
- (MenuItem
- label: 'Visibility'
- itemValue: doToggleVisibility
- translateLabel: true
- isButton: true
- startGroup: right
- )
- (MenuItem
- label: 'Inspect'
- translateLabel: true
- startGroup: right
- submenu:
- (Menu
- (
- (MenuItem
- label: 'Label(View)'
- itemValue: doInspectLabelView
- translateLabel: true
- )
- )
- nil
- nil
- )
- )
- )
- nil
- nil
+ (
+ (MenuItem
+ label: 'Label(smaller)'
+ itemValue: doChangeLabel:
+ translateLabel: true
+ argument: smaller
+ )
+ (MenuItem
+ label: 'Label(larger)'
+ itemValue: doChangeLabel:
+ translateLabel: true
+ argument: larger
+ )
+ (MenuItem
+ label: 'Label(null)'
+ itemValue: doChangeLabel:
+ translateLabel: true
+ argument: null
+ )
+ (MenuItem
+ label: 'Visibility'
+ itemValue: doToggleVisibility
+ translateLabel: true
+ isButton: true
+ startGroup: right
+ )
+ (MenuItem
+ label: 'Inspect'
+ translateLabel: true
+ startGroup: right
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ label: 'Label(View)'
+ itemValue: doInspectLabelView
+ translateLabel: true
+ )
+ )
+ nil
+ nil
+ )
+ )
+ )
+ nil
+ nil
)
! !
@@ -501,22 +501,22 @@
|label size|
how == #null ifTrue:[
- size := 0.
+ size := 0.
] ifFalse:[
- size := self lableHolder value size.
+ size := self lableHolder value size.
- how == #smaller ifTrue:[
- size := (size - 2) max:2.
- ] ifFalse:[
- size == 0 ifTrue:[ size := 8 ]
- ifFalse:[ size := size + 2 ].
- ]
+ how == #smaller ifTrue:[
+ size := (size - 2) max:2.
+ ] ifFalse:[
+ size == 0 ifTrue:[ size := 8 ]
+ ifFalse:[ size := size + 2 ].
+ ]
].
label := String new:size.
1 to:size do:[:i| |c|
- c := i \\ 10.
- c == 0 ifTrue:[ label at:i put:$- ]
- ifFalse:[ label at:i put:(Character digitValue:c) ].
+ c := i \\ 10.
+ c == 0 ifTrue:[ label at:i put:$- ]
+ ifFalse:[ label at:i put:(Character digitValue:c) ].
].
self lableHolder value:label.
!
@@ -535,7 +535,7 @@
|holder|
(holder := builder bindingAt:#lableHolder) isNil ifTrue:[
- builder aspectAt:#lableHolder put:(holder := '' asValue).
+ builder aspectAt:#lableHolder put:(holder := '' asValue).
].
^ holder
!
@@ -544,7 +544,7 @@
|holder|
(holder := builder bindingAt:#visibleHolder) isNil ifTrue:[
- builder aspectAt:#visibleHolder put:(holder := false asValue).
+ builder aspectAt:#visibleHolder put:(holder := false asValue).
].
^ holder
! !
--- a/RegressionTests__LargeFloatTest.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__LargeFloatTest.st Thu Jun 30 09:02:08 2016 +0100
@@ -20,19 +20,19 @@
one := aFloatClass unity. "/ 1.0 in this class
half := one coerce:0.5.
- x := one.
+ x := one.
count := 0.
[ one + x ~= one] whileTrue:[
- x := x * half.
- count := count + 1.
+ x := x * half.
+ count := count + 1.
].
^ count
"
- self basicNew actualPrecisionOf:ShortFloat
- self basicNew actualPrecisionOf:Float
- self basicNew actualPrecisionOf:LongFloat
+ self basicNew actualPrecisionOf:ShortFloat
+ self basicNew actualPrecisionOf:Float
+ self basicNew actualPrecisionOf:LongFloat
"
! !
@@ -89,46 +89,46 @@
|check posInf negInf|
- check :=
- [:v1 :v2 |
+ check :=
+ [:v1 :v2 |
- posInf := v1 uncheckedDivide: v2.
+ posInf := v1 uncheckedDivide: v2.
- self assert:( posInf isMemberOf:v1 class ).
- self assert:( posInf isNaN not ).
- self assert:( posInf isFinite not ).
- self assert:( posInf isInfinite ).
- self assert:( posInf positive ).
- self assert:( posInf negative not ).
- self assert:( posInf isNegativeInfinity not).
- self assert:( posInf isPositiveInfinity ).
+ self assert:( posInf isMemberOf:v1 class ).
+ self assert:( posInf isNaN not ).
+ self assert:( posInf isFinite not ).
+ self assert:( posInf isInfinite ).
+ self assert:( posInf positive ).
+ self assert:( posInf negative not ).
+ self assert:( posInf isNegativeInfinity not).
+ self assert:( posInf isPositiveInfinity ).
- negInf := v1 negated uncheckedDivide: v2.
+ negInf := v1 negated uncheckedDivide: v2.
- self assert:( negInf isMemberOf:v1 class ).
- self assert:( negInf isNaN not ).
- self assert:( negInf isFinite not ).
- self assert:( negInf isInfinite ).
- self assert:( negInf positive not).
- self assert:( negInf negative ).
- self assert:( negInf isNegativeInfinity ).
- self assert:( negInf isPositiveInfinity not ).
+ self assert:( negInf isMemberOf:v1 class ).
+ self assert:( negInf isNaN not ).
+ self assert:( negInf isFinite not ).
+ self assert:( negInf isInfinite ).
+ self assert:( negInf positive not).
+ self assert:( negInf negative ).
+ self assert:( negInf isNegativeInfinity ).
+ self assert:( negInf isPositiveInfinity not ).
- self assert:( negInf + negInf = negInf).
- self assert:( posInf + posInf = posInf).
- self assert:( negInf + posInf) isNaN.
- self assert:( posInf + negInf) isNaN.
+ self assert:( negInf + negInf = negInf).
+ self assert:( posInf + posInf = posInf).
+ self assert:( negInf + posInf) isNaN.
+ self assert:( posInf + negInf) isNaN.
- self assert:( negInf - posInf = negInf).
- self assert:( negInf - negInf) isNaN.
- self assert:( posInf - negInf = posInf).
- self assert:( posInf - posInf) isNaN.
+ self assert:( negInf - posInf = negInf).
+ self assert:( negInf - negInf) isNaN.
+ self assert:( posInf - negInf = posInf).
+ self assert:( posInf - posInf) isNaN.
- self assert:( posInf + v1) = posInf.
- self assert:( posInf - v1) = posInf.
- self assert:( negInf + v1) = negInf.
- self assert:( negInf - v1) = negInf.
- ].
+ self assert:( posInf + v1) = posInf.
+ self assert:( posInf - v1) = posInf.
+ self assert:( negInf + v1) = negInf.
+ self assert:( negInf - v1) = negInf.
+ ].
check value: 1.0 asLargeFloat value: 0.0 asLargeFloat.
@@ -263,20 +263,20 @@
"/ arcCos 0.5
"/ arcTan 0.5
- sinh 0.5
- cosh 0.5
- tanh 0.5
- arcSinh 0.5
- arcCosh 1.5
- arcTanh 0.5
+ sinh 0.5
+ cosh 0.5
+ tanh 0.5
+ arcSinh 0.5
+ arcCosh 1.5
+ arcTanh 0.5
) pairWiseDo:[:op :arg |
"/ self assert:( arg asLargeFloat perform:op ) class == LargeFloat.
- ( arg asLargeFloat perform:op ) class == LargeFloat ifFalse:[
- Transcript showCR:'warning: missing LargeFloat function: ' , op.
- ].
+ ( arg asLargeFloat perform:op ) class == LargeFloat ifFalse:[
+ Transcript showCR:'warning: missing LargeFloat function: ' , op.
+ ].
- self assert:( (arg perform:op) - (arg asLargeFloat perform:op) ) < 0.000001.
- self assert:( (arg perform:op) - (arg perform:op) asLargeFloat ) < 0.000001.
+ self assert:( (arg perform:op) - (arg asLargeFloat perform:op) ) < 0.000001.
+ self assert:( (arg perform:op) - (arg perform:op) asLargeFloat ) < 0.000001.
].
"
@@ -288,8 +288,8 @@
|check|
check := [:num |
- self assert:( num fractionPart + num truncated ) = num.
- self assert:( num fractionPart + num truncated ) class == num class.
+ self assert:( num fractionPart + num truncated ) = num.
+ self assert:( num fractionPart + num truncated ) class == num class.
].
check value:1.6 asLargeFloat.
@@ -308,69 +308,69 @@
self assert:( 1.6 asLargeFloat floorAsFloat ) class == LargeFloat.
- self assert:( 0.4 asLargeFloat rounded ) class == SmallInteger.
- self assert:( 0.4 asLargeFloat rounded = 0 ).
- self assert:( 0.5 asLargeFloat rounded = 1 ).
- self assert:( 0.6 asLargeFloat rounded = 1 ).
- self assert:( -0.4 asLargeFloat rounded = 0 ).
- self assert:( -0.5 asLargeFloat rounded = -1 ).
- self assert:( -0.6 asLargeFloat rounded = -1 ).
+ self assert:( 0.4 asLargeFloat rounded ) class == SmallInteger.
+ self assert:( 0.4 asLargeFloat rounded = 0 ).
+ self assert:( 0.5 asLargeFloat rounded = 1 ).
+ self assert:( 0.6 asLargeFloat rounded = 1 ).
+ self assert:( -0.4 asLargeFloat rounded = 0 ).
+ self assert:( -0.5 asLargeFloat rounded = -1 ).
+ self assert:( -0.6 asLargeFloat rounded = -1 ).
- self assert:( 0.4 asLargeFloat roundedAsFloat ) class == LargeFloat.
- self assert:( 0.4 asLargeFloat roundedAsFloat = 0.0 ).
- self assert:( 0.5 asLargeFloat roundedAsFloat = 1.0 ).
- self assert:( 0.6 asLargeFloat roundedAsFloat = 1.0 ).
- self assert:( -0.4 asLargeFloat roundedAsFloat = 0 ).
- self assert:( -0.5 asLargeFloat roundedAsFloat = -1.0 ).
- self assert:( -0.6 asLargeFloat roundedAsFloat = -1.0 ).
+ self assert:( 0.4 asLargeFloat roundedAsFloat ) class == LargeFloat.
+ self assert:( 0.4 asLargeFloat roundedAsFloat = 0.0 ).
+ self assert:( 0.5 asLargeFloat roundedAsFloat = 1.0 ).
+ self assert:( 0.6 asLargeFloat roundedAsFloat = 1.0 ).
+ self assert:( -0.4 asLargeFloat roundedAsFloat = 0 ).
+ self assert:( -0.5 asLargeFloat roundedAsFloat = -1.0 ).
+ self assert:( -0.6 asLargeFloat roundedAsFloat = -1.0 ).
- self assert:( 0.4 truncated ) class == SmallInteger.
- self assert:( 0.4 truncated = 0 ).
- self assert:( 0.5 truncated = 0 ).
- self assert:( 0.6 truncated = 0 ).
- self assert:( -0.4 truncated = 0 ).
- self assert:( -0.5 truncated = 0 ).
- self assert:( -0.6 truncated = 0 ).
+ self assert:( 0.4 truncated ) class == SmallInteger.
+ self assert:( 0.4 truncated = 0 ).
+ self assert:( 0.5 truncated = 0 ).
+ self assert:( 0.6 truncated = 0 ).
+ self assert:( -0.4 truncated = 0 ).
+ self assert:( -0.5 truncated = 0 ).
+ self assert:( -0.6 truncated = 0 ).
- self assert:( 0.4 truncatedAsFloat ) class == Float.
- self assert:( 0.4 truncatedAsFloat = 0.0 ).
- self assert:( 0.5 truncatedAsFloat = 0.0 ).
- self assert:( 0.6 truncatedAsFloat = 0.0 ).
- self assert:( -0.4 truncatedAsFloat = 0 ).
- self assert:( -0.5 truncatedAsFloat = 0.0 ).
- self assert:( -0.6 truncatedAsFloat = 0.0 ).
+ self assert:( 0.4 truncatedAsFloat ) class == Float.
+ self assert:( 0.4 truncatedAsFloat = 0.0 ).
+ self assert:( 0.5 truncatedAsFloat = 0.0 ).
+ self assert:( 0.6 truncatedAsFloat = 0.0 ).
+ self assert:( -0.4 truncatedAsFloat = 0 ).
+ self assert:( -0.5 truncatedAsFloat = 0.0 ).
+ self assert:( -0.6 truncatedAsFloat = 0.0 ).
- self assert:( 0.4 asShortFloat truncated ) class == SmallInteger.
- self assert:( 0.4 asShortFloat truncated = 0 ).
- self assert:( 0.5 asShortFloat truncated = 0 ).
- self assert:( 0.6 asShortFloat truncated = 0 ).
- self assert:( -0.4 asShortFloat truncated = 0 ).
- self assert:( -0.5 asShortFloat truncated = 0 ).
- self assert:( -0.6 asShortFloat truncated = 0 ).
+ self assert:( 0.4 asShortFloat truncated ) class == SmallInteger.
+ self assert:( 0.4 asShortFloat truncated = 0 ).
+ self assert:( 0.5 asShortFloat truncated = 0 ).
+ self assert:( 0.6 asShortFloat truncated = 0 ).
+ self assert:( -0.4 asShortFloat truncated = 0 ).
+ self assert:( -0.5 asShortFloat truncated = 0 ).
+ self assert:( -0.6 asShortFloat truncated = 0 ).
- self assert:( 0.4 asShortFloat truncatedAsFloat ) class == ShortFloat.
- self assert:( 0.4 asShortFloat truncatedAsFloat = 0.0 ).
- self assert:( 0.5 asShortFloat truncatedAsFloat = 0.0 ).
- self assert:( 0.6 asShortFloat truncatedAsFloat = 0.0 ).
- self assert:( -0.4 asShortFloat truncatedAsFloat = 0 ).
- self assert:( -0.5 asShortFloat truncatedAsFloat = 0.0 ).
- self assert:( -0.6 asShortFloat truncatedAsFloat = 0.0 ).
+ self assert:( 0.4 asShortFloat truncatedAsFloat ) class == ShortFloat.
+ self assert:( 0.4 asShortFloat truncatedAsFloat = 0.0 ).
+ self assert:( 0.5 asShortFloat truncatedAsFloat = 0.0 ).
+ self assert:( 0.6 asShortFloat truncatedAsFloat = 0.0 ).
+ self assert:( -0.4 asShortFloat truncatedAsFloat = 0 ).
+ self assert:( -0.5 asShortFloat truncatedAsFloat = 0.0 ).
+ self assert:( -0.6 asShortFloat truncatedAsFloat = 0.0 ).
- self assert:( 0.4 asLargeFloat truncated ) class == SmallInteger.
- self assert:( 0.4 asLargeFloat truncated = 0 ).
- self assert:( 0.5 asLargeFloat truncated = 0 ).
- self assert:( 0.6 asLargeFloat truncated = 0 ).
- self assert:( -0.4 asLargeFloat truncated = 0 ).
- self assert:( -0.5 asLargeFloat truncated = 0 ).
- self assert:( -0.6 asLargeFloat truncated = 0 ).
+ self assert:( 0.4 asLargeFloat truncated ) class == SmallInteger.
+ self assert:( 0.4 asLargeFloat truncated = 0 ).
+ self assert:( 0.5 asLargeFloat truncated = 0 ).
+ self assert:( 0.6 asLargeFloat truncated = 0 ).
+ self assert:( -0.4 asLargeFloat truncated = 0 ).
+ self assert:( -0.5 asLargeFloat truncated = 0 ).
+ self assert:( -0.6 asLargeFloat truncated = 0 ).
- self assert:( 0.4 asLargeFloat truncatedAsFloat ) class == LargeFloat.
- self assert:( 0.4 asLargeFloat truncatedAsFloat = 0.0 ).
- self assert:( 0.5 asLargeFloat truncatedAsFloat = 0.0 ).
- self assert:( 0.6 asLargeFloat truncatedAsFloat = 0.0 ).
- self assert:( -0.4 asLargeFloat truncatedAsFloat = 0 ).
- self assert:( -0.5 asLargeFloat truncatedAsFloat = 0.0 ).
- self assert:( -0.6 asLargeFloat truncatedAsFloat = 0.0 ).
+ self assert:( 0.4 asLargeFloat truncatedAsFloat ) class == LargeFloat.
+ self assert:( 0.4 asLargeFloat truncatedAsFloat = 0.0 ).
+ self assert:( 0.5 asLargeFloat truncatedAsFloat = 0.0 ).
+ self assert:( 0.6 asLargeFloat truncatedAsFloat = 0.0 ).
+ self assert:( -0.4 asLargeFloat truncatedAsFloat = 0 ).
+ self assert:( -0.5 asLargeFloat truncatedAsFloat = 0.0 ).
+ self assert:( -0.6 asLargeFloat truncatedAsFloat = 0.0 ).
"
self basicNew test07_Truncation
@@ -378,7 +378,7 @@
!
test08_Representation
-"/ self assert:( 0.0 asLargeFloat exponent = 0 ).
+"/ self assert:( 0.0 asLargeFloat exponent = 0 ).
"/ self assert:( 1.0 asLargeFloat exponent = 0 "1" ).
"/ self assert:( 2.0 asLargeFloat exponent = 1 "2" ).
"/ self assert:( 3.0 asLargeFloat exponent = 2 ).
@@ -395,24 +395,24 @@
!
test09_Testing
- self assert:( 0.0 asLargeFloat isZero ).
- self assert:( 1.0 asLargeFloat isZero not ).
+ self assert:( 0.0 asLargeFloat isZero ).
+ self assert:( 1.0 asLargeFloat isZero not ).
- self assert:( 0.0 asLargeFloat negative not ).
- self assert:( 1.0 asLargeFloat negative not ).
- self assert:( -1.0 asLargeFloat negative ).
+ self assert:( 0.0 asLargeFloat negative not ).
+ self assert:( 1.0 asLargeFloat negative not ).
+ self assert:( -1.0 asLargeFloat negative ).
- self assert:( 0.0 asLargeFloat positive ).
- self assert:( 1.0 asLargeFloat positive ).
- self assert:( -1.0 asLargeFloat positive not ).
+ self assert:( 0.0 asLargeFloat positive ).
+ self assert:( 1.0 asLargeFloat positive ).
+ self assert:( -1.0 asLargeFloat positive not ).
- self assert:( 0.0 asLargeFloat strictlyPositive not ).
- self assert:( 1.0 asLargeFloat strictlyPositive ).
- self assert:( -1.0 asLargeFloat strictlyPositive not ).
+ self assert:( 0.0 asLargeFloat strictlyPositive not ).
+ self assert:( 1.0 asLargeFloat strictlyPositive ).
+ self assert:( -1.0 asLargeFloat strictlyPositive not ).
- self assert:( 0.0 asLargeFloat sign == 0 ).
- self assert:( 1.0 asLargeFloat sign == 1 ).
- self assert:( -1.0 asLargeFloat sign == -1 ).
+ self assert:( 0.0 asLargeFloat sign == 0 ).
+ self assert:( 1.0 asLargeFloat sign == 1 ).
+ self assert:( -1.0 asLargeFloat sign == -1 ).
"
self basicNew test09_Testing
--- a/RegressionTests__LinkedListTest.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__LinkedListTest.st Thu Jun 30 09:02:08 2016 +0100
@@ -28,15 +28,15 @@
l add:2.
self assert:l size == 2.
-
+
"
- self new testBasic1
+ self new testBasic1
"
!
testIndexOf
"value comparing (used to work with links only, in previous versions; now works with values also)"
-
+
|l one two three four five|
one := 'one'.
@@ -50,7 +50,7 @@
l add:two.
l add:three.
l add:four.
-
+
self assert:l notEmpty.
self assert:l size == 4.
@@ -65,20 +65,20 @@
self assert:(l identityIndexOf:three) == 3.
self assert:(l identityIndexOf:four) == 4.
self assert:(l identityIndexOf:five) == 0.
-
+
self assert:(l identityIndexOf:one copy) == 0.
self assert:(l identityIndexOf:two copy) == 0.
self assert:(l identityIndexOf:three copy) == 0.
self assert:(l identityIndexOf:four copy) == 0.
"
- self new testBasic1
+ self new testBasic1
"
!
testRemove
"removing (used to work with links only, in previous versions; now works with values also)"
-
+
|l one two three four five e1 e2|
one := 'one'.
@@ -92,18 +92,18 @@
l add:two.
l add:three.
l add:four.
-
+
self assert:l notEmpty.
self assert:l size == 4.
e1 := l remove:'one'.
self assert:l size == 3.
self assert:e1 = 'one'.
-
+
e2 := l remove:'one' ifAbsent:nil.
self assert:e2 isNil.
self assert:l size == 3.
-
+
e1 := l removeIdentical:two.
self assert:l size == 2.
self assert:e1 = 'two'.
@@ -113,7 +113,7 @@
self assert:e2 isNil.
"
- self new testRemove
+ self new testRemove
"
! !
--- a/RegressionTests__LiteralsInMethodTests.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__LiteralsInMethodTests.st Thu Jun 30 09:02:08 2016 +0100
@@ -16,7 +16,7 @@
documentation to be added.
[author:]
- cg
+ cg
[instance variables:]
@@ -33,7 +33,7 @@
"only a check-method"
(arg class == Array) ifTrue:[
- arg yourself
+ arg yourself
].
"Created: / 08-08-2011 / 20:26:31 / cg"
--- a/RegressionTests__MakefileTests.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__MakefileTests.st Thu Jun 30 09:02:08 2016 +0100
@@ -20,11 +20,11 @@
documentation
"
- This testcase tests St/X makefiles used to build
+ This testcase tests St/X makefiles used to build
standalone applications.
[author:]
- Jan Vrany <jan.vrany@fit.cvut.cz>
+ Jan Vrany <jan.vrany@fit.cvut.cz>
[instance variables:]
@@ -73,9 +73,9 @@
] ifFalse:[
cmd := 'make -f Makefile.init ', target
].
- self
- assert: (OperatingSystem executeCommand: cmd inDirectory: packageDir)
- description: 'Failed to make target ''', target, ''' in test package'.
+ self
+ assert: (OperatingSystem executeCommand: cmd inDirectory: packageDir)
+ description: 'Failed to make target ''', target, ''' in test package'.
"Created: / 14-08-2013 / 18:26:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 19-11-2013 / 18:49:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -97,10 +97,10 @@
packageDir := (Smalltalk getPackageDirectoryForPackage: Object package) directory directory.
components := (package copyReplaceAll: $: with:$/) tokensBasedOn: $/.
components do:[:each |
- packageDir := packageDir / each.
+ packageDir := packageDir / each.
].
packageDir exists ifTrue:[
- packageDir recursiveRemove.
+ packageDir recursiveRemove.
].
packageDir recursiveMakeDirectory
@@ -126,67 +126,67 @@
!MakefileTests methodsFor:'tests-helpers'!
-run:packageIdent type:packageType toolchain:toolchain
+run:packageIdent type:packageType toolchain:toolchain
| packageDef startup |
"/ Compile all classes...
Class packageQuerySignal answer:package do:[
- (self class privateClasses select:[:cls | cls packageIdent = packageIdent ]) do:[:cls |
- | copy |
+ (self class privateClasses select:[:cls | cls packageIdent = packageIdent ]) do:[:cls |
+ | copy |
- copy := cls superclass
- subclass: cls nameWithoutPrefix
- instanceVariableNames:(cls instVarNames asStringWith:' ')
- classVariableNames:(cls classVarNames asStringWith:' ')
- poolDictionaries:cls poolDictionaries
- category:'** tmp **'.
- cls methodDictionary do:[:each |
- copy compile:each source classified:each category.
- ].
- cls class methodDictionary do:[:each |
- copy class compile:each source classified:each category.
- ].
- (copy inheritsFrom:StandaloneStartup) ifTrue:[
- startup := copy.
- ].
- ].
- ].
-
+ copy := cls superclass
+ subclass: cls nameWithoutPrefix
+ instanceVariableNames:(cls instVarNames asStringWith:' ')
+ classVariableNames:(cls classVarNames asStringWith:' ')
+ poolDictionaries:cls poolDictionaries
+ category:'** tmp **'.
+ cls methodDictionary do:[:each |
+ copy compile:each source classified:each category.
+ ].
+ cls class methodDictionary do:[:each |
+ copy class compile:each source classified:each category.
+ ].
+ (copy inheritsFrom:StandaloneStartup) ifTrue:[
+ startup := copy.
+ ].
+ ].
+ ].
+
"/ Create project definition class.
- Class packageQuerySignal answer:package do:[
- packageDef := ProjectDefinition
- definitionClassForPackage:package
- projectType:packageType
- createIfAbsent:true.
- packageDef theNonMetaclass
- forEachContentsMethodsCodeToCompileDo:[:code :category | packageDef theMetaclass compile:code classified:category ]
- "/ignoreOldEntries: false
- ignoreOldDefinition: false.
- packageDef isApplicationDefinition ifTrue:[
- packageDef class compile:'startupClassName ^ ' , startup fullName storeString.
- ].
- ].
+ Class packageQuerySignal answer:package do:[
+ packageDef := ProjectDefinition
+ definitionClassForPackage:package
+ projectType:packageType
+ createIfAbsent:true.
+ packageDef theNonMetaclass
+ forEachContentsMethodsCodeToCompileDo:[:code :category | packageDef theMetaclass compile:code classified:category ]
+ "/ignoreOldEntries: false
+ ignoreOldDefinition: false.
+ packageDef isApplicationDefinition ifTrue:[
+ packageDef class compile:'startupClassName ^ ' , startup fullName storeString.
+ ].
+ ].
"/ Fileout to package directory...
-
- packageDef classes do:[:class |
- | container |
+
+ packageDef classes do:[:class |
+ | container |
- container := (class fullName copyReplaceAll:$: with:$_) , '.st'.
- (packageDir / container)
- writingFileDo:[:f |
- AbstractSourceCodeManager
- fileOutSourceCodeOf:class
- on:f
- withTimeStamp:false
- withInitialize:true
- withDefinition:true
- methodFilter:[:mth | mth package = package ]
- ]
+ container := (class fullName copyReplaceAll:$: with:$_) , '.st'.
+ (packageDir / container)
+ writingFileDo:[:f |
+ AbstractSourceCodeManager
+ fileOutSourceCodeOf:class
+ on:f
+ withTimeStamp:false
+ withInitialize:true
+ withDefinition:true
+ methodFilter:[:mth | mth package = package ]
+ ]
].
-
+
"/ Generate build support files...
-
- packageDef fileNamesToGenerate keys do:[:filename |
+
+ packageDef fileNamesToGenerate keys do:[:filename |
| contents file |
contents := packageDef generateFile:filename.
@@ -215,16 +215,16 @@
main:args
args isEmpty ifTrue:[
- Smalltalk exit: 0.
+ Smalltalk exit: 0.
].
args size ~~ 1 ifTrue:[
- Smalltalk exit: 127.
+ Smalltalk exit: 127.
].
[
- Smalltalk exit: args first asInteger.
+ Smalltalk exit: args first asInteger.
] on: Error do:[:ex|
- Smalltalk exit: 126.
+ Smalltalk exit: 126.
].
"Created: / 19-11-2013 / 13:12:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
--- a/RegressionTests__MeasurementValueTests.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__MeasurementValueTests.st Thu Jun 30 09:02:08 2016 +0100
@@ -16,7 +16,7 @@
documentation to be added.
[author:]
- cg (cg@FUSI)
+ cg (cg@FUSI)
[instance variables:]
--- a/RegressionTests__MemoryTest.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__MemoryTest.st Thu Jun 30 09:02:08 2016 +0100
@@ -16,7 +16,7 @@
documentation to be added.
[author:]
- Michael Beyl (mb@bart)
+ Michael Beyl (mb@bart)
[instance variables:]
@@ -34,8 +34,8 @@
!MemoryTest methodsFor:'tests'!
test1
- "cg: whoever wrote this test:
- please add some comment on what is actually tested"
+ "cg: whoever wrote this test:
+ please add some comment on what is actually tested"
|x y z|
1 to: 100 do: [:rep|
@@ -49,14 +49,14 @@
y attributes: (Array with: (XML::Attribute name: 'a' value: '1')
with: (XML::Attribute name: 'a' value: '1')).
1 to: 1000 do: [:j |
- y addNode: (z := XML::Element tag: 'y').
+ y addNode: (z := XML::Element tag: 'y').
z attributes: (Array with: (XML::Attribute name: 'a' value: '1')
with: (XML::Attribute name: 'a' value: '1')).]].
ObjectMemory garbageCollect.
x nodesDo: [:el |
(el isKindOf: XML::Element)
ifTrue: [(el attributeNamed:'a')
- value: ((el valueOfAttribute:'a' ifAbsent:[]) asNumber * 10 / 3 ) asString]
+ value: ((el valueOfAttribute:'a' ifAbsent:[]) asNumber * 10 / 3 ) asString]
].
]
--- a/RegressionTests__MetaNumbersTest.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__MetaNumbersTest.st Thu Jun 30 09:02:08 2016 +0100
@@ -18,68 +18,68 @@
|check|
check := [:nan |
- self assert:( nan isNaN ).
- self assert:( nan isFinite not ).
+ self assert:( nan isNaN ).
+ self assert:( nan isFinite not ).
- nan isLimitedPrecisionReal ifTrue:[
- self assert:( nan asFloat isNaN ).
- self assert:( nan asLargeFloat isNaN ).
- self assert:( nan asShortFloat isNaN ).
- self assert:( nan asLongFloat isNaN ).
- ].
+ nan isLimitedPrecisionReal ifTrue:[
+ self assert:( nan asFloat isNaN ).
+ self assert:( nan asLargeFloat isNaN ).
+ self assert:( nan asShortFloat isNaN ).
+ self assert:( nan asLongFloat isNaN ).
+ ].
- "/ self assert:( nan asFraction isNaN ).
- "/ self assert:( nan asInteger isNaN ).
- self should:[ nan asFraction ] raise:DomainError.
- self should:[ nan asInteger ] raise:DomainError.
+ "/ self assert:( nan asFraction isNaN ).
+ "/ self assert:( nan asInteger isNaN ).
+ self should:[ nan asFraction ] raise:DomainError.
+ self should:[ nan asInteger ] raise:DomainError.
- self assert:( nan + 1 ) isNaN.
- self assert:( nan + 1.0 ) isNaN.
- self assert:( nan + 1.0 asShortFloat ) isNaN.
- self assert:( nan + 1.0 asLongFloat ) isNaN.
- self assert:( nan + 1.0 asLargeFloat ) isNaN.
+ self assert:( nan + 1 ) isNaN.
+ self assert:( nan + 1.0 ) isNaN.
+ self assert:( nan + 1.0 asShortFloat ) isNaN.
+ self assert:( nan + 1.0 asLongFloat ) isNaN.
+ self assert:( nan + 1.0 asLargeFloat ) isNaN.
- self assert:( 1 + nan ) isNaN.
- self assert:( 1.0 + nan ) isNaN.
- self assert:( 1.0 asShortFloat + nan ) isNaN.
- self assert:( 1.0 asLongFloat + nan ) isNaN.
- self assert:( 1.0 asLargeFloat + nan ) isNaN.
+ self assert:( 1 + nan ) isNaN.
+ self assert:( 1.0 + nan ) isNaN.
+ self assert:( 1.0 asShortFloat + nan ) isNaN.
+ self assert:( 1.0 asLongFloat + nan ) isNaN.
+ self assert:( 1.0 asLargeFloat + nan ) isNaN.
- self assert:( nan - 1 ) isNaN.
- self assert:( nan - 1.0 ) isNaN.
- self assert:( nan - 1.0 asShortFloat ) isNaN.
- self assert:( nan - 1.0 asLongFloat ) isNaN.
- self assert:( nan - 1.0 asLargeFloat ) isNaN.
+ self assert:( nan - 1 ) isNaN.
+ self assert:( nan - 1.0 ) isNaN.
+ self assert:( nan - 1.0 asShortFloat ) isNaN.
+ self assert:( nan - 1.0 asLongFloat ) isNaN.
+ self assert:( nan - 1.0 asLargeFloat ) isNaN.
- self assert:( 1 - nan ) isNaN.
- self assert:( 1.0 - nan ) isNaN.
- self assert:( 1.0 asShortFloat - nan ) isNaN.
- self assert:( 1.0 asLongFloat - nan ) isNaN.
- self assert:( 1.0 asLargeFloat - nan ) isNaN.
+ self assert:( 1 - nan ) isNaN.
+ self assert:( 1.0 - nan ) isNaN.
+ self assert:( 1.0 asShortFloat - nan ) isNaN.
+ self assert:( 1.0 asLongFloat - nan ) isNaN.
+ self assert:( 1.0 asLargeFloat - nan ) isNaN.
- self assert:( nan * 1 ) isNaN.
- self assert:( nan * 1.0 ) isNaN.
- self assert:( nan * 1.0 asShortFloat ) isNaN.
- self assert:( nan * 1.0 asLongFloat ) isNaN.
- self assert:( nan * 1.0 asLargeFloat ) isNaN.
+ self assert:( nan * 1 ) isNaN.
+ self assert:( nan * 1.0 ) isNaN.
+ self assert:( nan * 1.0 asShortFloat ) isNaN.
+ self assert:( nan * 1.0 asLongFloat ) isNaN.
+ self assert:( nan * 1.0 asLargeFloat ) isNaN.
- self assert:( 1 * nan ) isNaN.
- self assert:( 1.0 * nan ) isNaN.
- self assert:( 1.0 asShortFloat * nan ) isNaN.
- self assert:( 1.0 asLongFloat * nan ) isNaN.
- self assert:( 1.0 asLargeFloat * nan ) isNaN.
+ self assert:( 1 * nan ) isNaN.
+ self assert:( 1.0 * nan ) isNaN.
+ self assert:( 1.0 asShortFloat * nan ) isNaN.
+ self assert:( 1.0 asLongFloat * nan ) isNaN.
+ self assert:( 1.0 asLargeFloat * nan ) isNaN.
- self assert:( nan / 1 ) isNaN.
- self assert:( nan / 1.0 ) isNaN.
- self assert:( nan / 1.0 asShortFloat ) isNaN.
- self assert:( nan / 1.0 asLongFloat ) isNaN.
- self assert:( nan / 1.0 asLargeFloat ) isNaN.
+ self assert:( nan / 1 ) isNaN.
+ self assert:( nan / 1.0 ) isNaN.
+ self assert:( nan / 1.0 asShortFloat ) isNaN.
+ self assert:( nan / 1.0 asLongFloat ) isNaN.
+ self assert:( nan / 1.0 asLargeFloat ) isNaN.
- self assert:( 1 / nan ) isNaN.
- self assert:( 1.0 / nan ) isNaN.
- self assert:( 1.0 asShortFloat / nan ) isNaN.
- self assert:( 1.0 asLongFloat / nan ) isNaN.
- self assert:( 1.0 asLargeFloat / nan ) isNaN.
+ self assert:( 1 / nan ) isNaN.
+ self assert:( 1.0 / nan ) isNaN.
+ self assert:( 1.0 asShortFloat / nan ) isNaN.
+ self assert:( 1.0 asLongFloat / nan ) isNaN.
+ self assert:( 1.0 asLargeFloat / nan ) isNaN.
].
check value:(0.0 uncheckedDivide: 0.0).
@@ -98,83 +98,83 @@
|check posInf negInf|
- check :=
- [:v1 :v2 |
+ check :=
+ [:v1 :v2 |
- posInf := v1 uncheckedDivide: v2.
- negInf := v1 negated uncheckedDivide: v2.
+ posInf := v1 uncheckedDivide: v2.
+ negInf := v1 negated uncheckedDivide: v2.
- v1 isLimitedPrecisionReal ifTrue:[
- self assert:( posInf isMemberOf:v1 class ).
- self assert:( negInf isMemberOf:v1 class ).
- ].
- self assert:( posInf isNaN not ).
- self assert:( posInf isFinite not ).
- self assert:( posInf isInfinite ).
- self assert:( posInf positive ).
- self assert:( posInf negative not ).
- self assert:( posInf isNegativeInfinity not).
- self assert:( posInf isPositiveInfinity ).
+ v1 isLimitedPrecisionReal ifTrue:[
+ self assert:( posInf isMemberOf:v1 class ).
+ self assert:( negInf isMemberOf:v1 class ).
+ ].
+ self assert:( posInf isNaN not ).
+ self assert:( posInf isFinite not ).
+ self assert:( posInf isInfinite ).
+ self assert:( posInf positive ).
+ self assert:( posInf negative not ).
+ self assert:( posInf isNegativeInfinity not).
+ self assert:( posInf isPositiveInfinity ).
- self assert:( negInf isNaN not ).
- self assert:( negInf isFinite not ).
- self assert:( negInf isInfinite ).
- self assert:( negInf positive not).
- self assert:( negInf negative ).
- self assert:( negInf isNegativeInfinity ).
- self assert:( negInf isPositiveInfinity not ).
+ self assert:( negInf isNaN not ).
+ self assert:( negInf isFinite not ).
+ self assert:( negInf isInfinite ).
+ self assert:( negInf positive not).
+ self assert:( negInf negative ).
+ self assert:( negInf isNegativeInfinity ).
+ self assert:( negInf isPositiveInfinity not ).
- self assert:( negInf + negInf = negInf).
- self assert:( posInf + posInf = posInf).
- "/ self assert:( negInf + posInf) isNaN.
- self assert:( Number undefinedResultSignal ignoreIn:[ negInf + posInf]) isNaN.
- "/ self should:[ negInf + posInf ] raise:Number undefinedResultSignal.
- self assert:( Number undefinedResultSignal ignoreIn:[ posInf + negInf]) isNaN.
+ self assert:( negInf + negInf = negInf).
+ self assert:( posInf + posInf = posInf).
+ "/ self assert:( negInf + posInf) isNaN.
+ self assert:( Number undefinedResultSignal ignoreIn:[ negInf + posInf]) isNaN.
+ "/ self should:[ negInf + posInf ] raise:Number undefinedResultSignal.
+ self assert:( Number undefinedResultSignal ignoreIn:[ posInf + negInf]) isNaN.
- self assert:( negInf - posInf = negInf).
- self assert:( Number undefinedResultSignal ignoreIn:[ negInf - negInf]) isNaN.
- self assert:( posInf - negInf = posInf).
- self assert:( Number undefinedResultSignal ignoreIn:[ posInf - posInf]) isNaN.
+ self assert:( negInf - posInf = negInf).
+ self assert:( Number undefinedResultSignal ignoreIn:[ negInf - negInf]) isNaN.
+ self assert:( posInf - negInf = posInf).
+ self assert:( Number undefinedResultSignal ignoreIn:[ posInf - posInf]) isNaN.
- self assert:( posInf + v1) = posInf.
- self assert:( posInf - v1) = posInf.
- self assert:( negInf + v1) = negInf.
- self assert:( negInf - v1) = negInf.
+ self assert:( posInf + v1) = posInf.
+ self assert:( posInf - v1) = posInf.
+ self assert:( negInf + v1) = negInf.
+ self assert:( negInf - v1) = negInf.
- self assert:( posInf + 1) = posInf.
- self assert:( posInf + 1.0) = posInf.
- self assert:( posInf + 1.0 asShortFloat) = posInf.
- self assert:( posInf + 1.0 asLongFloat) = posInf.
- self assert:( posInf + 1.0 asLargeFloat) = posInf.
- self assert:( posInf + (1/2)) = posInf.
- self assert:( posInf + 100 factorial) = posInf.
+ self assert:( posInf + 1) = posInf.
+ self assert:( posInf + 1.0) = posInf.
+ self assert:( posInf + 1.0 asShortFloat) = posInf.
+ self assert:( posInf + 1.0 asLongFloat) = posInf.
+ self assert:( posInf + 1.0 asLargeFloat) = posInf.
+ self assert:( posInf + (1/2)) = posInf.
+ self assert:( posInf + 100 factorial) = posInf.
- self assert:( negInf + 1) = negInf.
- self assert:( negInf + 1.0) = negInf.
- self assert:( negInf + 1.0 asShortFloat) = negInf.
- self assert:( negInf + 1.0 asLongFloat) = negInf.
- self assert:( negInf + 1.0 asLargeFloat) = negInf.
- self assert:( negInf + (1/2)) = negInf.
- "take care, that the factorial is not poitive infinite when converting"
- self assert:( negInf + 20 factorial asShortFloat) = negInf.
+ self assert:( negInf + 1) = negInf.
+ self assert:( negInf + 1.0) = negInf.
+ self assert:( negInf + 1.0 asShortFloat) = negInf.
+ self assert:( negInf + 1.0 asLongFloat) = negInf.
+ self assert:( negInf + 1.0 asLargeFloat) = negInf.
+ self assert:( negInf + (1/2)) = negInf.
+ "take care, that the factorial is not poitive infinite when converting"
+ self assert:( negInf + 20 factorial asShortFloat) = negInf.
- self assert:( 1 + posInf) = posInf.
- self assert:( 1.0 + posInf) = posInf.
- self assert:( 1.0 asShortFloat + posInf) = posInf.
- self assert:( 1.0 asLongFloat + posInf) = posInf.
- self assert:( 1.0 asLargeFloat + posInf) = posInf.
- self assert:( (1/2) + posInf) = posInf.
- self assert:( 20 factorial + posInf) = posInf.
+ self assert:( 1 + posInf) = posInf.
+ self assert:( 1.0 + posInf) = posInf.
+ self assert:( 1.0 asShortFloat + posInf) = posInf.
+ self assert:( 1.0 asLongFloat + posInf) = posInf.
+ self assert:( 1.0 asLargeFloat + posInf) = posInf.
+ self assert:( (1/2) + posInf) = posInf.
+ self assert:( 20 factorial + posInf) = posInf.
- self assert:( 1 + negInf) = negInf.
- self assert:( 1.0 + negInf) = negInf.
- self assert:( 1.0 asShortFloat + negInf) = negInf.
- self assert:( 1.0 asLongFloat + negInf) = negInf.
- self assert:( 1.0 asLargeFloat + negInf) = negInf.
- self assert:( (1/2) + negInf) = negInf.
- "take care, that the factorial is not poitive infinite when converting"
- self assert:( 20 factorial + negInf) = negInf.
- ].
+ self assert:( 1 + negInf) = negInf.
+ self assert:( 1.0 + negInf) = negInf.
+ self assert:( 1.0 asShortFloat + negInf) = negInf.
+ self assert:( 1.0 asLongFloat + negInf) = negInf.
+ self assert:( 1.0 asLargeFloat + negInf) = negInf.
+ self assert:( (1/2) + negInf) = negInf.
+ "take care, that the factorial is not poitive infinite when converting"
+ self assert:( 20 factorial + negInf) = negInf.
+ ].
check value: 1.0 value: 0.0.
check value: 1.0 asShortFloat value: 0.0 asShortFloat.
--- a/RegressionTests__MiracodeStringComparatorTest.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__MiracodeStringComparatorTest.st Thu Jun 30 09:02:08 2016 +0100
@@ -34,26 +34,26 @@
#( 'Acton' 'Ashdown' 'Ashton' 'Astin' 'Aston' 'Austen' 'Austin' 'Austine' 'Axten')
do:[:w |
- code := soundex value:(w).
- self assert:( code = 'A235').
- mcode := miracode value:(w).
- self assert:( mcode = 'A235').
+ code := soundex value:(w).
+ self assert:( code = 'A235').
+ mcode := miracode value:(w).
+ self assert:( mcode = 'A235').
].
#( 'Reader' 'Reeder' 'Rider' 'Ritter' 'Rothera' 'Rothra' 'Ruder' 'Rutter' 'Ryder')
do:[:w |
- code := soundex value:(w).
- self assert:( code = 'R360').
- mcode := miracode value:(w).
- self assert:( mcode = 'R360').
+ code := soundex value:(w).
+ self assert:( code = 'R360').
+ mcode := miracode value:(w).
+ self assert:( mcode = 'R360').
].
#( 'Wace' 'Waugh' 'Wookey')
do:[:w |
- code := soundex value:(w).
- self assert:( code = 'W200').
- mcode := miracode value:(w).
- self assert:( mcode = 'W200').
+ code := soundex value:(w).
+ self assert:( code = 'W200').
+ mcode := miracode value:(w).
+ self assert:( mcode = 'W200').
].
code := soundex value:('Abbot').
@@ -129,19 +129,19 @@
"/ self assert: ( miracode value:( 'Ashcroft' )) = 'A22613' .
self assert: ( miracode value:( 'Ashcroft' )) = 'A261' .
- self assert: ( miracode value:( 'Tymczak' )) = 'T522' .
- self assert: ( miracode value:( 'Jackson' )) = 'J250' .
- self assert: ( miracode value:( 'Pfister' )) = 'P236' .
- self assert: ( miracode value:( 'Gutierrez' )) = 'G362' .
- self assert: ( miracode value:( 'Lee' )) = 'L000' .
- "/ self assert: ( miracode value:( 'Washington' )) = 'W25235' .
- self assert: ( miracode value:( 'Washington' )) = 'W252' .
+ self assert: ( miracode value:( 'Tymczak' )) = 'T522' .
+ self assert: ( miracode value:( 'Jackson' )) = 'J250' .
+ self assert: ( miracode value:( 'Pfister' )) = 'P236' .
+ self assert: ( miracode value:( 'Gutierrez' )) = 'G362' .
+ self assert: ( miracode value:( 'Lee' )) = 'L000' .
+ "/ self assert: ( miracode value:( 'Washington' )) = 'W25235' .
+ self assert: ( miracode value:( 'Washington' )) = 'W252' .
- self assert: ( miracode value:( 'Williams' )) = 'W452' .
- "/ self assert: ( miracode value:( 'Baragwanath' )) = 'B6253' .
- self assert: ( miracode value:( 'Baragwanath' )) = 'B625' .
- self assert: ( miracode value:( 'Donnell' )) = 'D540' .
- self assert: ( miracode value:( 'Lloyd' )) = 'L300' .
+ self assert: ( miracode value:( 'Williams' )) = 'W452' .
+ "/ self assert: ( miracode value:( 'Baragwanath' )) = 'B6253' .
+ self assert: ( miracode value:( 'Baragwanath' )) = 'B625' .
+ self assert: ( miracode value:( 'Donnell' )) = 'D540' .
+ self assert: ( miracode value:( 'Lloyd' )) = 'L300' .
self assert: ( miracode value:( 'Woolcock' )) = 'W422' .
! !
@@ -150,3 +150,4 @@
version
^ '$Header$'
! !
+
--- a/RegressionTests__MySQLSoundexStringComparatorTest.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__MySQLSoundexStringComparatorTest.st Thu Jun 30 09:02:08 2016 +0100
@@ -30,20 +30,20 @@
#( 'Acton' 'Ashdown' 'Ashton' 'Astin' 'Aston' 'Austen' 'Austin' 'Austine' 'Axten')
do:[:w |
- code := msoundex value:(w).
- self assert:( code = 'A235').
+ code := msoundex value:(w).
+ self assert:( code = 'A235').
].
#( 'Reader' 'Reeder' 'Rider' 'Ritter' 'Rothera' 'Rothra' 'Ruder' 'Rutter' 'Ryder')
do:[:w |
- code := msoundex value:(w).
- self assert:( code = 'R360').
+ code := msoundex value:(w).
+ self assert:( code = 'R360').
].
#( 'Wace' 'Waugh' 'Wookey')
do:[:w |
- code := msoundex value:(w).
- self assert:( code = 'W200').
+ code := msoundex value:(w).
+ self assert:( code = 'W200').
].
code := msoundex value:('Abbot').
@@ -102,17 +102,17 @@
self assert: ( msoundex value:( 'ADWD' )) = 'A300' . "/ DIFFERENT from simple soundex
self assert: ( msoundex value:( 'Ashcroft' )) = 'A2613' .
- self assert: ( msoundex value:( 'Tymczak' )) = 'T520' .
- self assert: ( msoundex value:( 'Jackson' )) = 'J500' .
- self assert: ( msoundex value:( 'Pfister' )) = 'P236' .
- self assert: ( msoundex value:( 'Gutierrez' )) = 'G362' .
- self assert: ( msoundex value:( 'Lee' )) = 'L000' .
- self assert: ( msoundex value:( 'Washington' )) = 'W25235' .
+ self assert: ( msoundex value:( 'Tymczak' )) = 'T520' .
+ self assert: ( msoundex value:( 'Jackson' )) = 'J500' .
+ self assert: ( msoundex value:( 'Pfister' )) = 'P236' .
+ self assert: ( msoundex value:( 'Gutierrez' )) = 'G362' .
+ self assert: ( msoundex value:( 'Lee' )) = 'L000' .
+ self assert: ( msoundex value:( 'Washington' )) = 'W25235' .
- self assert: ( msoundex value:( 'Williams' )) = 'W452' .
- self assert: ( msoundex value:( 'Baragwanath' )) = 'B6253' .
- self assert: ( msoundex value:( 'Donnell' )) = 'D540' .
- self assert: ( msoundex value:( 'Lloyd' )) = 'L300' .
+ self assert: ( msoundex value:( 'Williams' )) = 'W452' .
+ self assert: ( msoundex value:( 'Baragwanath' )) = 'B6253' .
+ self assert: ( msoundex value:( 'Donnell' )) = 'D540' .
+ self assert: ( msoundex value:( 'Lloyd' )) = 'L300' .
self assert: ( msoundex value:( 'Woolcock' )) = 'W420' .
! !
@@ -121,3 +121,4 @@
version
^ '$Header$'
! !
+
--- a/RegressionTests__NumberTest.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__NumberTest.st Thu Jun 30 09:02:08 2016 +0100
@@ -32,7 +32,7 @@
tearDown
Class withoutUpdatingChangesDo:[
- self class removeSelector:#testEQ
+ self class removeSelector:#testEQ
].
! !
--- a/RegressionTests__OS_OLE_Tests.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__OS_OLE_Tests.st Thu Jun 30 09:02:08 2016 +0100
@@ -16,7 +16,7 @@
documentation to be added.
[author:]
- cg (cg@FUSI)
+ cg (cg@FUSI)
[instance variables:]
@@ -74,8 +74,8 @@
!
test03_coInitialize
- OleCom coInitialize.
- OleCom coUninitialize.
+ OleCom coInitialize.
+ OleCom coUninitialize.
"
self run:#test03_coInitialize
--- a/RegressionTests__OperatingSystemTest.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__OperatingSystemTest.st Thu Jun 30 09:02:08 2016 +0100
@@ -30,13 +30,13 @@
outStr nextPutLineBlock:[:line | Transcript bold; showCR:line ].
OperatingSystem
- executeCommand:'ls'
- inputFrom:nil
- outputTo:outStr
- errorTo:errStr
- inDirectory:nil
- lineWise:true
- onError:[:status | exitStatus := status].
+ executeCommand:'ls'
+ inputFrom:nil
+ outputTo:outStr
+ errorTo:errStr
+ inDirectory:nil
+ lineWise:true
+ onError:[:status | exitStatus := status].
"
self new testActorStream
@@ -51,17 +51,17 @@
1 to:50 do:[:counter |
"/ Transcript show:counter; showCR:':'.
- outStr := '' writeStream.
- errStr := '' writeStream.
- OperatingSystem
- executeCommand:'ls'
- inputFrom:nil
- outputTo:outStr
- errorTo:errStr
- onError:[:status | exitStatus := status].
- self assert:(outStr contents = expected).
- self assert:(errStr contents isEmpty).
- self assert:(exitStatus isNil).
+ outStr := '' writeStream.
+ errStr := '' writeStream.
+ OperatingSystem
+ executeCommand:'ls'
+ inputFrom:nil
+ outputTo:outStr
+ errorTo:errStr
+ onError:[:status | exitStatus := status].
+ self assert:(outStr contents = expected).
+ self assert:(errStr contents isEmpty).
+ self assert:(exitStatus isNil).
].
"
@@ -74,19 +74,19 @@
1 to:50 do:[:counter |
"/ Transcript show:counter; showCR:':'.
- outStr := '' writeStream.
- errStr := '' writeStream.
- OperatingSystem
- executeCommand:'ls /fooBar'
- inputFrom:nil
- outputTo:outStr
- errorTo:errStr
- onError:[:status | exitStatus := status].
- self assert:(outStr contents isEmpty).
- self assert:(errStr contents notEmpty).
- self assert:(exitStatus success not).
- self assert:(exitStatus stillAlive not).
- self assert:(exitStatus couldNotExecute not).
+ outStr := '' writeStream.
+ errStr := '' writeStream.
+ OperatingSystem
+ executeCommand:'ls /fooBar'
+ inputFrom:nil
+ outputTo:outStr
+ errorTo:errStr
+ onError:[:status | exitStatus := status].
+ self assert:(outStr contents isEmpty).
+ self assert:(errStr contents notEmpty).
+ self assert:(exitStatus success not).
+ self assert:(exitStatus stillAlive not).
+ self assert:(exitStatus couldNotExecute not).
].
"
@@ -99,19 +99,19 @@
1 to:50 do:[:counter |
"/ Transcript show:counter; showCR:':'.
- outStr := '' writeStream.
- errStr := '' writeStream.
- OperatingSystem
- executeCommand:'blabla /fooBar'
- inputFrom:nil
- outputTo:outStr
- errorTo:errStr
- onError:[:status | exitStatus := status].
- self assert:(exitStatus success not).
- self assert:(exitStatus stillAlive not).
- self assert:(exitStatus couldNotExecute).
- self assert:(outStr contents isEmpty).
- self assert:(errStr contents notEmpty).
+ outStr := '' writeStream.
+ errStr := '' writeStream.
+ OperatingSystem
+ executeCommand:'blabla /fooBar'
+ inputFrom:nil
+ outputTo:outStr
+ errorTo:errStr
+ onError:[:status | exitStatus := status].
+ self assert:(exitStatus success not).
+ self assert:(exitStatus stillAlive not).
+ self assert:(exitStatus couldNotExecute).
+ self assert:(outStr contents isEmpty).
+ self assert:(errStr contents notEmpty).
].
"
--- a/RegressionTests__OperationInQueueTests.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__OperationInQueueTests.st Thu Jun 30 09:02:08 2016 +0100
@@ -37,7 +37,7 @@
!
test3
- |op opQ val1 val2 val3 val1b val2b val3b
+ |op opQ val1 val2 val3 val1b val2b val3b
rslt rslt1 rslt2 rslt3 p0 p1 p2 p3 rslt1b rslt2b rslt3b p1b p2b p3b sz|
opQ := OperationQueue new.
--- a/RegressionTests__PTYTest.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__PTYTest.st Thu Jun 30 09:02:08 2016 +0100
@@ -21,7 +21,7 @@
master nextPutLine:'1234567890'.
'1234567890' do:[:ch |
- self assert:(slave next = ch).
+ self assert:(slave next = ch).
].
self assert:(slave next = Character linefeed).
--- a/RegressionTests__PipeStreamTest.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__PipeStreamTest.st Thu Jun 30 09:02:08 2016 +0100
@@ -1,5 +1,6 @@
"{ Package: 'stx:goodies/regression' }"
+"{ Package: 'stx:goodies/regression' }"
"{ NameSpace: RegressionTests }"
TestCase subclass:#PipeStreamTest
@@ -19,42 +20,42 @@
threads := 200.
"/ There's limit to 50 open files in BCC5.5 libc, sigh.
(OperatingSystem getCCDefine = '__BORLANDC__') ifTrue:[
- threads := 20.
+ threads := 20.
].
ok := true.
blocker := Semaphore new: 2 - threads.
- makeReader := [ :stream |
- [
- | c |
- c := 0.
- [ stream atEnd ] whileFalse:[
- stream next.
- c := c + 1.
- ].
- ok := ok and:[ count == c ].
- blocker signal.
- ].
+ makeReader := [ :stream |
+ [
+ | c |
+ c := 0.
+ [ stream atEnd ] whileFalse:[
+ stream next.
+ c := c + 1.
+ ].
+ ok := ok and:[ count == c ].
+ blocker signal.
+ ].
].
- makeWriter := [ :stream |
- [
+ makeWriter := [ :stream |
+ [
[ count timesRepeat:[stream nextPut: $P] ] on: Error do:[ :ex |
Transcript showCR: 'ERROR in writer: ', ex description.
ex suspendedContext fullPrintOn: Transcript.
- ok := false
+ ok := false
] ensure:[
stream close.
- ]
+ ]
]
].
2 to: threads do:[:i |
| pipe rs rp ws wp |
- pipe := NonPositionableExternalStream makePipe.
- rs := pipe at:1.
- ws := pipe at:2.
+ pipe := NonPositionableExternalStream makePipe.
+ rs := pipe at:1.
+ ws := pipe at:2.
rp := (makeReader value: rs) newProcess.
rp name: i printString , ' R ' , testSelector.
@@ -84,14 +85,14 @@
s := PipeStream readingFrom:'sleep 5'.
p := [
- s readWait.
- 'readWait finished' printCR.
+ s readWait.
+ 'readWait finished' printCR.
] forkAt:7.
count := 0.
[p isDead] whileFalse:[
- Delay waitForMilliseconds:5.
- p interruptWith:[count := count + 1].
+ Delay waitForMilliseconds:5.
+ p interruptWith:[count := count + 1].
].
('readWait interrupted <1p> times' expandMacrosWith:count) printCR.
@@ -117,14 +118,14 @@
s := PipeStream readingFrom:'sleep 5; echo hello'.
p := [
- s readWait.
- 'readWait finished' printCR.
+ s readWait.
+ 'readWait finished' printCR.
] forkAt:7.
count := 0.
[p isDead] whileFalse:[
- Delay waitForMilliseconds:5.
- p interruptWith:[count := count + 1].
+ Delay waitForMilliseconds:5.
+ p interruptWith:[count := count + 1].
].
('readWait interrupted <1p> times' expandMacrosWith:count) printCR.
@@ -151,17 +152,17 @@
s := PipeStream readingFrom:'sleep 5'.
p := [
- [
- 'read: ' print. s nextLine printCR.
- ] on: Error do:[:ex|
- error := ex.
- ]
+ [
+ 'read: ' print. s nextLine printCR.
+ ] on: Error do:[:ex|
+ error := ex.
+ ]
] forkAt:7.
count := 0.
[p isDead] whileFalse:[
- Delay waitForMilliseconds:5.
- p interruptWith:[count := count + 1].
+ Delay waitForMilliseconds:5.
+ p interruptWith:[count := count + 1].
].
('read interrupted <1p> times' expandMacrosWith:count) printCR.
@@ -189,23 +190,23 @@
s := PipeStream readingFrom:'sleep 5; echo hello'.
p := [
- [
- 'read: ' print. s nextLine printCR.
- ] on: Error do:[:ex|
- error := ex.
- ]
+ [
+ 'read: ' print. s nextLine printCR.
+ ] on: Error do:[:ex|
+ error := ex.
+ ]
] forkAt:7.
count := 0.
[p isDead] whileFalse:[
- Delay waitForMilliseconds:5.
- p interruptWith:[count := count + 1].
+ Delay waitForMilliseconds:5.
+ p interruptWith:[count := count + 1].
].
('read interrupted <1p> times' expandMacrosWith:count) printCR.
s close.
- self assert: error isNil
+ self assert: error isNil
"
self test7
--- a/RegressionTests__PowerSetTests.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__PowerSetTests.st Thu Jun 30 09:02:08 2016 +0100
@@ -24,16 +24,16 @@
self assert:(p size = 8). "/ [] [1] [2] [3] [1 2] [1 3] [2 3] [1 2 3]
#(
- #()
- #(1)
- #(2)
- #(3)
- #(1 2)
- #(1 3)
- #(2 3)
- #(1 2 3)
+ #()
+ #(1)
+ #(2)
+ #(3)
+ #(1 2)
+ #(1 3)
+ #(2 3)
+ #(1 2 3)
) do:[:eachExpectedElement |
- self assert:(p includes: eachExpectedElement asSet).
+ self assert:(p includes: eachExpectedElement asSet).
].
"
@@ -47,7 +47,7 @@
p := PowerSet for:(1 to:1000).
self assert:(p notEmpty).
- self assert:(p size = (2 raisedTo:1000)).
+ self assert:(p size = (2 raisedTo:1000)).
"
self new test02
--- a/RegressionTests__ProcessTest.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__ProcessTest.st Thu Jun 30 09:02:08 2016 +0100
@@ -16,10 +16,10 @@
tearDown
- subProcesses notEmptyOrNil ifTrue:[
- subProcesses do:[:aProcess|
- aProcess terminate.
- ].
+ subProcesses notEmptyOrNil ifTrue:[
+ subProcesses do:[:aProcess|
+ aProcess terminate.
+ ].
].
"Modified: / 19-09-2014 / 13:27:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -31,9 +31,9 @@
| blocker lastId maxId iters |
- self
- skipIf: Processor maxProcessId > 500000
- description: 'Processor maxProcessId is huge, would take really a long time'.
+ self
+ skipIf: Processor maxProcessId > 500000
+ description: 'Processor maxProcessId is huge, would take really a long time'.
blocker := Semaphore new.
lastId := Processor activeProcess id.
@@ -41,14 +41,14 @@
iters := 0.
[ lastId ~~ maxId ] whileTrue:[
- [ lastId := Processor activeProcess id. blocker signal ] fork.
- blocker wait.
- iters := iters + 1.
- iters > maxId ifTrue:[
- "/ OK, we tried long enough. The system is probably already
- "/ reusing Process id's so it may never reach maxId.
- ^ self.
- ].
+ [ lastId := Processor activeProcess id. blocker signal ] fork.
+ blocker wait.
+ iters := iters + 1.
+ iters > maxId ifTrue:[
+ "/ OK, we tried long enough. The system is probably already
+ "/ reusing Process id's so it may never reach maxId.
+ ^ self.
+ ].
].
"/ OK, we reached the limit. Try once again to spawn a new
"/ thread and assert its id is smaller then the limit.
@@ -66,16 +66,16 @@
| block masterTask allProcesses|
subProcesses := OrderedCollection new.
- block := [
- 1 to:10 do:[:index|
- |subTask|
- subTask := [[true] whileTrue:[]] newProcess.
- subTask name:'TestTask no:', index asString.
- subTask priority:4.
- subProcesses add:subTask.
- subTask resume.
- ].
- [true] whileTrue:[Delay waitForSeconds:10].
+ block := [
+ 1 to:10 do:[:index|
+ |subTask|
+ subTask := [[true] whileTrue:[]] newProcess.
+ subTask name:'TestTask no:', index asString.
+ subTask priority:4.
+ subProcesses add:subTask.
+ subTask resume.
+ ].
+ [true] whileTrue:[Delay waitForSeconds:10].
].
masterTask := block newProcess.
@@ -87,12 +87,12 @@
Delay waitForSeconds:0.5.
masterTask terminateWithAllSubprocessesInGroup.
- masterTask waitUntilTerminated.
+ masterTask waitUntilTerminated.
Delay waitForSeconds:1.
allProcesses := ProcessorScheduler knownProcesses asOrderedCollection select:[:p | p isDead not].
subProcesses do:[:aProcess|
- self should:((allProcesses includes:aProcess) not).
+ self should:((allProcesses includes:aProcess) not).
].
"
--- a/RegressionTests__ProjectDefinitionTests.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__ProjectDefinitionTests.st Thu Jun 30 09:02:08 2016 +0100
@@ -21,16 +21,16 @@
classes := OrderedCollection new.
methods := OrderedCollection new.
Smalltalk allClassesDo:[:cls|
- (cls package notNil and:[cls package startsWith:'stx:goodies/regression/testData']) ifTrue:[
- classes add: cls
- ] ifFalse:[
- cls methodsDo:[:m|(m package notNil and:[m package startsWith:'stx:goodies/regression/testData']) ifTrue:[methods add: m]].
- cls class methodsDo:[:m|(m package notNil and:[m package startsWith:'stx:goodies/regression/testData']) ifTrue:[methods add: m]].
- ]
+ (cls package notNil and:[cls package startsWith:'stx:goodies/regression/testData']) ifTrue:[
+ classes add: cls
+ ] ifFalse:[
+ cls methodsDo:[:m|(m package notNil and:[m package startsWith:'stx:goodies/regression/testData']) ifTrue:[methods add: m]].
+ cls class methodsDo:[:m|(m package notNil and:[m package startsWith:'stx:goodies/regression/testData']) ifTrue:[methods add: m]].
+ ]
].
Class withoutUpdatingChangesDo:[
- classes do:[:cls|Smalltalk removeClass: cls].
- methods do:[:m|m mclass removeSelector: m selector]
+ classes do:[:cls|Smalltalk removeClass: cls].
+ methods do:[:m|m mclass removeSelector: m selector]
].
"Created: / 22-03-2013 / 11:31:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -98,10 +98,10 @@
Transcript showCR:'loading p1utf8 package...'.
[
- Smalltalk loadPackage: 'stx:goodies/regression/testData/packages/p1utf8'.
+ Smalltalk loadPackage: 'stx:goodies/regression/testData/packages/p1utf8'.
] ifCurtailed:[
- thisContext fullPrintAll
- ].
+ thisContext fullPrintAll
+ ].
Transcript showCR:'done.'.
self assert: (Smalltalk at:#ProjectDefinitionTestsP1UTF8Bar) notNil.
--- a/RegressionTests__QueueTest.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__QueueTest.st Thu Jun 30 09:02:08 2016 +0100
@@ -35,7 +35,7 @@
self assert:(el==2).
"
- self new testBasic1
+ self new testBasic1
"
!
@@ -63,7 +63,7 @@
self assert:(el==5).
"
- self new testBasic2
+ self new testBasic2
"
!
@@ -92,7 +92,7 @@
self assert:(el==5).
"
- self new testBasic3
+ self new testBasic3
"
!
@@ -121,7 +121,7 @@
self assert:(el==1).
"
- self new testBasic4
+ self new testBasic4
"
!
@@ -143,13 +143,13 @@
self assert:(el==1).
"
- self new testBasic5
+ self new testBasic5
"
!
testRemoveAll
0 to:10 do:[:i|
- self removeAllSize:10 fill:i.
+ self removeAllSize:10 fill:i.
].
! !
--- a/RegressionTests__QuickTestRunner.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__QuickTestRunner.st Thu Jun 30 09:02:08 2016 +0100
@@ -3,10 +3,10 @@
"{ NameSpace: RegressionTests }"
Object subclass:#QuickTestRunner
- instanceVariableNames:'suite anyError result'
- classVariableNames:''
- poolDictionaries:''
- category:'tests-Regression'
+ instanceVariableNames:'suite anyError result'
+ classVariableNames:''
+ poolDictionaries:''
+ category:'tests-Regression'
!
!QuickTestRunner class methodsFor:'documentation'!
@@ -14,12 +14,12 @@
documentation
"
ATTENTION: if you change anything here, please verify compatibility with the
- SeltTestRunner script found in exept/regression.
+ SeltTestRunner script found in stx/goodies/regression.
This is meant to be called via a script or command-line argument, when executing
selftests via jenkins.
- Runs a number of tests from the exept:regression package (see list below)
+ Runs a number of tests from the stx:goodies/regression package (see list below)
executed through SelfTestRunner script using the following command line:
stx --noBanner -I --execute SelfTestRunner.st
@@ -28,15 +28,15 @@
to use with jenkins (+ jUnit plugin):
use the following buildscript (in jenkins):
(after checkout of stx)
- cd stx
- call bmake
- cd goodies\selftest
- ..\..\projects\smalltalk\stx.com --noBanner -I --execute SelfTestRunner.st
+ cd stx
+ call bmake
+ cd goodies\selftest
+ ..\..\projects\smalltalk\stx.com --noBanner -I --execute SelfTestRunner.st
and configure the jenkins junit plugin, to scan for 'testresult.xml'
[author:]
- Claus Gittinger
+ Claus Gittinger
[instance variables:]
@@ -62,12 +62,12 @@
runner := self new.
runner
- prepare;
- buildSuite;
- runSuite.
+ prepare;
+ buildSuite;
+ runSuite.
Smalltalk isStandAloneApp ifTrue:[
- Smalltalk exit:(runner anyError ifTrue:[1] ifFalse:[0])
+ Smalltalk exit:(runner anyError ifTrue:[1] ifFalse:[0])
].
! !
@@ -83,17 +83,17 @@
Stdout showCR:'Loading regression tests...'.
self listOfTestClasses do:[:className |
- |fullName|
+ |fullName|
- fullName := ('RegressionTests::',className).
- Stdout showCR:('Loading ',className,'...').
- Smalltalk fileInClass:fullName package:'stx:goodies/regression'.
- (Smalltalk classNamed:fullName) isNil ifTrue:[
- Stdout showCR:('**** Ouch - missing class: "',fullName,'"').
- anyMissing := true.
- ] ifFalse:[
- suite addTest:(Smalltalk classNamed:fullName) suite.
- ]
+ fullName := ('RegressionTests::',className).
+ Stdout showCR:('Loading ',className,'...').
+ Smalltalk fileInClass:fullName package:'stx:goodies/regression'.
+ (Smalltalk classNamed:fullName) isNil ifTrue:[
+ Stdout showCR:('**** Ouch - missing class: "',fullName,'"').
+ anyMissing := true.
+ ] ifFalse:[
+ suite addTest:(Smalltalk classNamed:fullName) suite.
+ ]
].
anyError := anyError | anyMissing.
@@ -102,9 +102,9 @@
generateReport
Stdout showCR:'Generating report...'.
TestResultReporter
- report:result
- format:#xml_jUnit
- as:'testresult.xml'.
+ report:result
+ format:#xml_jUnit
+ as:'testresult.xml'.
Stdout showCR:'Summary:'.
Stdout showCR:(' %1 tests;' bindWith:result runCount).
@@ -115,15 +115,15 @@
listOfTestClasses
"*** IMPORTANT *** "
- "* To add a new test please edit exept_regression>>testCaseNamesWithoutNamespace"
+ "* To add a new test please edit stx_goodies_regression>>testCaseNamesWithoutNamespace"
"*** ********* *** "
- Smalltalk fileInClass:#'exept_regression' package:'stx:goodies/regression'.
- (Smalltalk at: #'exept_regression') isNil ifTrue:[
- Stdout showCR:('ERROR: Ouch - missing class: "exept_regression"').
- Stdout showCR:('EXIT').
- Smalltalk exit: 1.
+ Smalltalk fileInClass:#'stx_goodies_regression' package:'stx:goodies/regression'.
+ (Smalltalk at: #'stx_goodies_regression') isNil ifTrue:[
+ Stdout showCR:('ERROR: Ouch - missing class: "stx_goodies_regression"').
+ Stdout showCR:('EXIT').
+ Smalltalk exit: 1.
].
- ^(Smalltalk at: #'exept_regression') testCaseNamesWithoutNamespace
+ ^(Smalltalk at: #'stx_goodies_regression') testCaseNamesWithoutNamespace
"Modified: / 21-02-2013 / 18:05:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
@@ -142,8 +142,8 @@
ObjectMemory infoPrinting:false.
Processor activeProcess exceptionHandlerSet
- on:(Class updateChangeFileQuerySignal)
- do:[:ex | ex proceedWith:false ].
+ on:(Class updateChangeFileQuerySignal)
+ do:[:ex | ex proceedWith:false ].
Stdout showCR:'Selftest Started'.
@@ -159,11 +159,11 @@
runSuite
Stdout showCR:'Running suite...'.
result := suite
- run:TestResultStX new beforeEachDo:[:test |
- Stdout showCR:('- running ',test printString).
- ]
- afterEachDo:[:test| ]
- debug:(Smalltalk commandLineArgumentNamed:'--debug') notNil.
+ run:TestResultStX new beforeEachDo:[:test |
+ Stdout showCR:('- running ',test printString).
+ ]
+ afterEachDo:[:test| ]
+ debug:(Smalltalk commandLineArgumentNamed:'--debug') notNil.
! !
!QuickTestRunner methodsFor:'initialization'!
--- a/RegressionTests__STCCompilerTests.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__STCCompilerTests.st Thu Jun 30 09:02:08 2016 +0100
@@ -16,7 +16,7 @@
documentation to be added.
[author:]
- cg
+ cg
[instance variables:]
@@ -34,32 +34,32 @@
| b |
- b := [:arg1 |
- |local1|
+ b := [:arg1 |
+ |local1|
- local1 := #local1.
- 1 to:3 do:[:argb_1 |
- |localb_1 localb_2|
+ local1 := #local1.
+ 1 to:3 do:[:argb_1 |
+ |localb_1 localb_2|
- localb_1 := #localb_1.
- localb_2 := #localb_2.
- 1 to:5 do:[:argbb_1 |
- |localbb_1 localbb_2|
+ localb_1 := #localb_1.
+ localb_2 := #localb_2.
+ 1 to:5 do:[:argbb_1 |
+ |localbb_1 localbb_2|
- localbb_1 := #localbb_1.
- localbb_2 := #localbb_2.
- argbb_1 == 3 ifTrue:[
- ^ [:argbbb_1 |
- |localbbb_1 localbbb_2|
+ localbb_1 := #localbb_1.
+ localbb_2 := #localbb_2.
+ argbb_1 == 3 ifTrue:[
+ ^ [:argbbb_1 |
+ |localbbb_1 localbbb_2|
- localbbb_1 := #localbbb_1.
- localbbb_2 := #localbbb_2.
+ localbbb_1 := #localbbb_1.
+ localbbb_2 := #localbbb_2.
- localb_1 "/ here, in old stc versions, localb_2 is returned
- ].
- ].
- ]
- ]
+ localb_1 "/ here, in old stc versions, localb_2 is returned
+ ].
+ ].
+ ]
+ ]
].
^ b value:#arg1
@@ -70,31 +70,31 @@
| b |
- b := [:arg1 |
- |local1|
+ b := [:arg1 |
+ |local1|
- local1 := #local1.
- 1 to:3 do:[:argb_1 |
- |localb_1 localb_2|
+ local1 := #local1.
+ 1 to:3 do:[:argb_1 |
+ |localb_1 localb_2|
- localb_1 := #localb_1.
- localb_2 := #localb_2.
- 1 to:5 do:[:argbb_1 |
- |localbb_1 localbb_2|
+ localb_1 := #localb_1.
+ localb_2 := #localb_2.
+ 1 to:5 do:[:argbb_1 |
+ |localbb_1 localbb_2|
- localbb_1 := #localbb_1.
- localbb_2 := #localbb_2.
- argbb_1 == 3 ifTrue:[
- ^ [:argbbb_1 |
- |localbbb_1 localbbb_2|
+ localbb_1 := #localbb_1.
+ localbb_2 := #localbb_2.
+ argbb_1 == 3 ifTrue:[
+ ^ [:argbbb_1 |
+ |localbbb_1 localbbb_2|
- localbbb_1 := #localbbb_1.
- localbbb_2 := #localbbb_2.
- argbb_1
- ].
- ].
- ]
- ]
+ localbbb_1 := #localbbb_1.
+ localbbb_2 := #localbbb_2.
+ argbb_1
+ ].
+ ].
+ ]
+ ]
].
^ b value:#arg1
@@ -119,22 +119,22 @@
stc generates bad code for the bitOr expression in nextLittleEndianNumber"
Class withoutUpdatingChangesDo:[
- (STCCompilerInterface new)
- compileToMachineCode:'hello
+ (STCCompilerInterface new)
+ compileToMachineCode:'hello
%{
console_printf("hello world\n");
%}
'
- forClass:self class
- selector:#'hello'
- inCategory:'tests'
- notifying:nil
- install:true
- skipIfSame:false
- silent:true.
+ forClass:self class
+ selector:#'hello'
+ inCategory:'tests'
+ notifying:nil
+ install:true
+ skipIfSame:false
+ silent:true.
- self hello.
- self class removeSelector:#hello.
+ self hello.
+ self class removeSelector:#hello.
].
"
@@ -152,23 +152,23 @@
|val|
Class withoutUpdatingChangesDo:[
- (STCCompilerInterface new)
- compileToMachineCode:'x123
+ (STCCompilerInterface new)
+ compileToMachineCode:'x123
%{
RETURN(__MKSMALLINT(123));
%}
'
- forClass:self class
- selector:#'x123'
- inCategory:'tests'
- notifying:nil
- install:true
- skipIfSame:false
- silent:true.
+ forClass:self class
+ selector:#'x123'
+ inCategory:'tests'
+ notifying:nil
+ install:true
+ skipIfSame:false
+ silent:true.
- val := self x123.
- self assert:(val == 123).
- self class removeSelector:#x123.
+ val := self x123.
+ self assert:(val == 123).
+ self class removeSelector:#x123.
].
"
@@ -181,7 +181,7 @@
test03_compilation
"As of 2013-09-04, instance variables of Class are not visible
- in class methods of ordinary classes.
+ in class methods of ordinary classes.
For bytecode-compiled method they are.
This tests checks for this bug.
@@ -190,33 +190,33 @@
|val|
[
Class withoutUpdatingChangesDo:[
- "/ Check bytecode version first...
- self class class compile:'returnMyName
+ "/ Check bytecode version first...
+ self class class compile:'returnMyName
^ name
'.
- val := self class returnMyName.
- self assert:(val == self class name).
- self class class removeSelector:#returnMyName.
+ val := self class returnMyName.
+ self assert:(val == self class name).
+ self class class removeSelector:#returnMyName.
- "/ Now, compile the same source using stc and check...
- (STCCompilerInterface new)
- compileToMachineCode:'returnMyName
+ "/ Now, compile the same source using stc and check...
+ (STCCompilerInterface new)
+ compileToMachineCode:'returnMyName
^ name
'
- forClass:self class class
- selector:#'returnMyName'
- inCategory:'tests'
- notifying:nil
- install:true
- skipIfSame:false
- silent:true.
+ forClass:self class class
+ selector:#'returnMyName'
+ inCategory:'tests'
+ notifying:nil
+ install:true
+ skipIfSame:false
+ silent:true.
- val := self class returnMyName.
- self assert:(val == self class name).
- self class class removeSelector:#returnMyName.
+ val := self class returnMyName.
+ self assert:(val == self class name).
+ self class class removeSelector:#returnMyName.
].
] ensure:[
- self class class removeSelector:#returnMyName.
+ self class class removeSelector:#returnMyName.
]
"
@@ -238,32 +238,32 @@
| sizes |
[
Class withoutUpdatingChangesDo:[
- (STCCompilerInterface new)
- compileToMachineCode:'doubleArraySize
- | arr size1 size2 |
+ (STCCompilerInterface new)
+ compileToMachineCode:'doubleArraySize
+ | arr size1 size2 |
- arr := DoubleArray new: 8.
- size1 := arr size.
+ arr := DoubleArray new: 8.
+ size1 := arr size.
%{
- size2 = __MKINT(__doubleArraySize(arr));
+ size2 = __MKINT(__doubleArraySize(arr));
%}.
- ^ Array with: size1 with: size2.
+ ^ Array with: size1 with: size2.
'
- forClass:self class class
- selector:#'doubleArraySize'
- inCategory:'tests'
- notifying:nil
- install:true
- skipIfSame:false
- silent:true.
+ forClass:self class class
+ selector:#'doubleArraySize'
+ inCategory:'tests'
+ notifying:nil
+ install:true
+ skipIfSame:false
+ silent:true.
- sizes := self class perform: #doubleArraySize.
- self assert:(sizes first == 8).
- self assert:(sizes second == 8).
- self class class removeSelector:#doubleArraySize.
+ sizes := self class perform: #doubleArraySize.
+ self assert:(sizes first == 8).
+ self assert:(sizes second == 8).
+ self class class removeSelector:#doubleArraySize.
].
] ensure:[
- self class class removeSelector:#doubleArraySize.
+ self class class removeSelector:#doubleArraySize.
]
"
@@ -282,32 +282,32 @@
|val mthd|
Class withoutUpdatingChangesDo:[
- self class recompile:#'nextLittleEndianNumber:from:'.
+ self class recompile:#'nextLittleEndianNumber:from:'.
- val := self nextLittleEndianNumber:4 from:#[1 2 3 4].
- self assert:(val = 16r04030201).
- val := self nextLittleEndianNumber:8 from:#[1 2 3 4 5 6 7 8].
- self assert:(val = 16r0807060504030201).
+ val := self nextLittleEndianNumber:4 from:#[1 2 3 4].
+ self assert:(val = 16r04030201).
+ val := self nextLittleEndianNumber:8 from:#[1 2 3 4 5 6 7 8].
+ self assert:(val = 16r0807060504030201).
- mthd := self class compiledMethodAt:#'nextLittleEndianNumber:from:'.
- (STCCompilerInterface new)
- compileToMachineCode:mthd source
- forClass:self class
- selector:#'nextLittleEndianNumber:from:'
- inCategory:mthd category
- notifying:nil
- install:true
- skipIfSame:false
- silent:true.
+ mthd := self class compiledMethodAt:#'nextLittleEndianNumber:from:'.
+ (STCCompilerInterface new)
+ compileToMachineCode:mthd source
+ forClass:self class
+ selector:#'nextLittleEndianNumber:from:'
+ inCategory:mthd category
+ notifying:nil
+ install:true
+ skipIfSame:false
+ silent:true.
- self
- assert:mthd ~= (self class compiledMethodAt:#'nextLittleEndianNumber:from:')
- description:'Could not compile with STC'.
+ self
+ assert:mthd ~= (self class compiledMethodAt:#'nextLittleEndianNumber:from:')
+ description:'Could not compile with STC'.
- val := self nextLittleEndianNumber:4 from:#[1 2 3 4].
- self assert:(val = 16r04030201).
- val := self nextLittleEndianNumber:8 from:#[1 2 3 4 5 6 7 8].
- self assert:(val = 16r0807060504030201).
+ val := self nextLittleEndianNumber:4 from:#[1 2 3 4].
+ self assert:(val = 16r04030201).
+ val := self nextLittleEndianNumber:8 from:#[1 2 3 4 5 6 7 8].
+ self assert:(val = 16r0807060504030201).
].
"
@@ -325,27 +325,27 @@
|blk mthd|
Class withoutUpdatingChangesDo:[
- self class recompile:#'inlinedBlockVariables1'.
- blk := self inlinedBlockVariables1.
- self assert:((blk value:#argbbb_1) == #localb_1).
+ self class recompile:#'inlinedBlockVariables1'.
+ blk := self inlinedBlockVariables1.
+ self assert:((blk value:#argbbb_1) == #localb_1).
- mthd := self class compiledMethodAt:#'inlinedBlockVariables1'.
- (STCCompilerInterface new)
- compileToMachineCode:mthd source
- forClass:self class
- selector:#'inlinedBlockVariables1'
- inCategory:mthd category
- notifying:nil
- install:true
- skipIfSame:false
- silent:true.
+ mthd := self class compiledMethodAt:#'inlinedBlockVariables1'.
+ (STCCompilerInterface new)
+ compileToMachineCode:mthd source
+ forClass:self class
+ selector:#'inlinedBlockVariables1'
+ inCategory:mthd category
+ notifying:nil
+ install:true
+ skipIfSame:false
+ silent:true.
- self
- assert:mthd ~= (self class compiledMethodAt:#'inlinedBlockVariables1')
- description:'Could not compile with STC'.
+ self
+ assert:mthd ~= (self class compiledMethodAt:#'inlinedBlockVariables1')
+ description:'Could not compile with STC'.
- blk := self inlinedBlockVariables1.
- self assert:((blk value:#argbbb_1) == #localb_1).
+ blk := self inlinedBlockVariables1.
+ self assert:((blk value:#argbbb_1) == #localb_1).
].
"
@@ -363,27 +363,27 @@
|blk mthd|
Class withoutUpdatingChangesDo:[
- self class recompile:#'inlinedBlockVariables2'.
- blk := self inlinedBlockVariables2.
- self assert:((blk value:#argbbb_1) == 3).
+ self class recompile:#'inlinedBlockVariables2'.
+ blk := self inlinedBlockVariables2.
+ self assert:((blk value:#argbbb_1) == 3).
- mthd := self class compiledMethodAt:#'inlinedBlockVariables2'.
- (STCCompilerInterface new)
- compileToMachineCode:mthd source
- forClass:self class
- selector:#'inlinedBlockVariables2'
- inCategory:mthd category
- notifying:nil
- install:true
- skipIfSame:false
- silent:true.
+ mthd := self class compiledMethodAt:#'inlinedBlockVariables2'.
+ (STCCompilerInterface new)
+ compileToMachineCode:mthd source
+ forClass:self class
+ selector:#'inlinedBlockVariables2'
+ inCategory:mthd category
+ notifying:nil
+ install:true
+ skipIfSame:false
+ silent:true.
- self
- assert:mthd ~= (self class compiledMethodAt:#'inlinedBlockVariables2')
- description:'Could not compile with STC'.
+ self
+ assert:mthd ~= (self class compiledMethodAt:#'inlinedBlockVariables2')
+ description:'Could not compile with STC'.
- blk := self inlinedBlockVariables2.
- self assert:((blk value:#argbbb_1) == 3).
+ blk := self inlinedBlockVariables2.
+ self assert:((blk value:#argbbb_1) == 3).
].
"
@@ -398,32 +398,32 @@
|sizes|
[
- Class
- withoutUpdatingChangesDo:[
- "/ Now, compile the same source using stc and check...
- (STCCompilerInterface new)
- compileToMachineCode:'longIntegerArray_size
- | arr size1 size2 |
+ Class
+ withoutUpdatingChangesDo:[
+ "/ Now, compile the same source using stc and check...
+ (STCCompilerInterface new)
+ compileToMachineCode:'longIntegerArray_size
+ | arr size1 size2 |
- arr := LongIntegerArray new: 8.
- size1 := arr size.
+ arr := LongIntegerArray new: 8.
+ size1 := arr size.
%{
- size2 = __MKINT(__longIntegerArraySize(arr));
+ size2 = __MKINT(__longIntegerArraySize(arr));
%}.
- ^ Array with: size1 with: size2.
+ ^ Array with: size1 with: size2.
'
- forClass:self class class
- selector:#'longIntegerArray_size'
- inCategory:'tests'
- notifying:nil
- install:true
- skipIfSame:false
- silent:true.
- sizes := self class perform:#'longIntegerArray_size'.
- self assert:(sizes first == 8).
- self assert:(sizes second == 8).
- self class class removeSelector:#'longIntegerArray_size'.
- ].
+ forClass:self class class
+ selector:#'longIntegerArray_size'
+ inCategory:'tests'
+ notifying:nil
+ install:true
+ skipIfSame:false
+ silent:true.
+ sizes := self class perform:#'longIntegerArray_size'.
+ self assert:(sizes first == 8).
+ self assert:(sizes second == 8).
+ self class class removeSelector:#'longIntegerArray_size'.
+ ].
] ensure:[ self class class removeSelector:#'longIntegerArray_size'. ]
"
@@ -438,54 +438,54 @@
verbose := false.
[
- Class
- withoutUpdatingChangesDo:[
- (STCCompilerInterface new)
- compileToMachineCode:'longIntegerArray_i_element
- | arr v1 v8 |
+ Class
+ withoutUpdatingChangesDo:[
+ (STCCompilerInterface new)
+ compileToMachineCode:'longIntegerArray_i_element
+ | arr v1 v8 |
- arr := LongIntegerArray new: 8.
- arr at: 1 put: 11123456789.
- arr at: 8 put: 11123456789.
- self assert: (arr at: 1) = 11123456789.
- self assert: (arr at: 8) = 11123456789.
+ arr := LongIntegerArray new: 8.
+ arr at: 1 put: 11123456789.
+ arr at: 8 put: 11123456789.
+ self assert: (arr at: 1) = 11123456789.
+ self assert: (arr at: 8) = 11123456789.
%{
- __uint64__ val;
- console_printf("arr: arr = 0x%x\n", (INT)arr);
+ __uint64__ val;
+ console_printf("arr: arr = 0x%x\n", (INT)arr);
#if defined(__x86_64__)
- val = 0x0001000100010001;
+ val = 0x0001000100010001;
#else
- val.lo = 1; val.hi = 1;
+ val.lo = 1; val.hi = 1;
#endif
- val = __LongIntegerArrayInstPtr(arr)->i_element[0];
+ val = __LongIntegerArrayInstPtr(arr)->i_element[0];
// console_printf("v1: val.lo = %d, val.hi = %d\n", val.lo, val.hi);
- v1 = __MKUINT64(&val);
- val = __LongIntegerArrayInstPtr(arr)->i_element[7];
-// console_printf("v2: val.lo = %d, val.hi = %d\n", val.lo, val.hi);
- v8 = __MKUINT64(&val);
+ v1 = __MKUINT64(&val);
+ val = __LongIntegerArrayInstPtr(arr)->i_element[7];
+// console_printf("v2: val.lo = %d, val.hi = %d\n", val.lo, val.hi);
+ v8 = __MKUINT64(&val);
%}.
- v1 errorPrintCR.
- v8 errorPrintCR.
- ^ Array with: v1 with: v8.
+ v1 errorPrintCR.
+ v8 errorPrintCR.
+ ^ Array with: v1 with: v8.
'
- forClass:self class class
- selector:#'longIntegerArray_i_element'
- inCategory:'tests'
- notifying:nil
- install:true
- skipIfSame:false
- silent:true.
- 1 to:100 do:[:i |
- verbose ifTrue:[
+ forClass:self class class
+ selector:#'longIntegerArray_i_element'
+ inCategory:'tests'
+ notifying:nil
+ install:true
+ skipIfSame:false
+ silent:true.
+ 1 to:100 do:[:i |
+ verbose ifTrue:[
('Pass ' , i printString) errorPrintCR.
- ].
- sizes := self class perform:#'longIntegerArray_i_element'.
- self assert:(sizes first = 11123456789) description:('failed in pass ',i printString).
- self assert:(sizes second = 11123456789) description:('failed in pass ',i printString).
- ].
- self class class removeSelector:#'longIntegerArray_i_element'.
- ].
+ ].
+ sizes := self class perform:#'longIntegerArray_i_element'.
+ self assert:(sizes first = 11123456789) description:('failed in pass ',i printString).
+ self assert:(sizes second = 11123456789) description:('failed in pass ',i printString).
+ ].
+ self class class removeSelector:#'longIntegerArray_i_element'.
+ ].
] ensure:[ self class class removeSelector:#'longIntegerArray_i_element'. ]
"
@@ -502,9 +502,9 @@
|verbose arr scaveneges|
verbose := false.
-
- verbose ifTrue:[
- ('=====') errorPrintCR
+
+ verbose ifTrue:[
+ ('=====') errorPrintCR
].
arr := LongIntegerArray new:8.
@@ -513,32 +513,33 @@
self assert:(arr at:1) = 11123456789.
self assert:(arr at:8) = 11123456789.
- verbose ifTrue:[
+ verbose ifTrue:[
(' arr = 0x' , (ObjectMemory addressOf:arr) hexPrintString) errorPrintCR.
].
- 1 to:100 do:[:i |
- verbose ifTrue:[
+ 1 to:100 do:[:i |
+ verbose ifTrue:[
('Pass ' , i printString) errorPrintCR.
- ].
-
- scaveneges := ObjectMemory scavengeCount.
- [
- scaveneges == ObjectMemory scavengeCount
- ] whileTrue:[
- "/ Allocate some gagbage"
- Array new:(Random nextIntegerBetween:1 and:100)
- ].
- verbose ifTrue:[
+ ].
+
+ scaveneges := ObjectMemory scavengeCount.
+ [
+ scaveneges == ObjectMemory scavengeCount
+ ] whileTrue:[
+ "/ Allocate some gagbage"
+ Array new:(Random nextIntegerBetween:1 and:100)
+ ].
+ verbose ifTrue:[
('B: arr = 0x' , (ObjectMemory addressOf:arr) hexPrintString) errorPrintCR.
(' arr at: 1 ==> ' , (arr at:1) printString) errorPrintCR.
(' arr at: 8 ==> ' , (arr at:8) printString) errorPrintCR.
- ].
- self assert:(arr at:1) = 11123456789 description:('failed in pass ',i printString).
- self assert:(arr at:8) = 11123456789 description:('failed in pass ',i printString).
- verbose ifTrue:[
+ ].
+ self assert:(arr at:1) = 11123456789 description:('failed in pass ',i printString).
+ self assert:(arr at:8) = 11123456789 description:('failed in pass ',i printString).
+ verbose ifTrue:[
('A: arr = 0x' , (ObjectMemory addressOf:arr) hexPrintString) errorPrintCR.
]
+ ]
]
"
@@ -551,32 +552,32 @@
|sizes|
[
- Class
- withoutUpdatingChangesDo:[
- "/ Now, compile the same source using stc and check...
- (STCCompilerInterface new)
- compileToMachineCode:'signedLongIntegerArray_size
- | arr size1 size2 |
+ Class
+ withoutUpdatingChangesDo:[
+ "/ Now, compile the same source using stc and check...
+ (STCCompilerInterface new)
+ compileToMachineCode:'signedLongIntegerArray_size
+ | arr size1 size2 |
- arr := SignedLongIntegerArray new: 8.
- size1 := arr size.
+ arr := SignedLongIntegerArray new: 8.
+ size1 := arr size.
%{
- size2 = __MKINT(__signedLongIntegerArraySize(arr));
+ size2 = __MKINT(__signedLongIntegerArraySize(arr));
%}.
- ^ Array with: size1 with: size2.
+ ^ Array with: size1 with: size2.
'
- forClass:self class class
- selector:#'signedLongIntegerArray_size'
- inCategory:'tests'
- notifying:nil
- install:true
- skipIfSame:false
- silent:true.
- sizes := self class perform:#'signedLongIntegerArray_size'.
- self assert:(sizes first == 8).
- self assert:(sizes second == 8).
- self class class removeSelector:#'signedLongIntegerArray_size'.
- ].
+ forClass:self class class
+ selector:#'signedLongIntegerArray_size'
+ inCategory:'tests'
+ notifying:nil
+ install:true
+ skipIfSame:false
+ silent:true.
+ sizes := self class perform:#'signedLongIntegerArray_size'.
+ self assert:(sizes first == 8).
+ self assert:(sizes second == 8).
+ self class class removeSelector:#'signedLongIntegerArray_size'.
+ ].
] ensure:[ self class class removeSelector:#'signedLongIntegerArray_size'. ]
"
@@ -589,38 +590,38 @@
|sizes|
[
- Class
- withoutUpdatingChangesDo:[
- (STCCompilerInterface new)
- compileToMachineCode:'signedLongIntegerArray_i_element
- | arr v1 v8 |
+ Class
+ withoutUpdatingChangesDo:[
+ (STCCompilerInterface new)
+ compileToMachineCode:'signedLongIntegerArray_i_element
+ | arr v1 v8 |
- arr := SignedLongIntegerArray new: 8.
- arr at: 1 put: 1123456789.
- arr at: 8 put: 1123456789.
+ arr := SignedLongIntegerArray new: 8.
+ arr at: 1 put: 1123456789.
+ arr at: 8 put: 1123456789.
%{
- __int64__ val;
- val = __SignedLongIntegerArrayInstPtr(arr)->i_element[0];
- v1 = __MKINT64(&val);
- val = __SignedLongIntegerArrayInstPtr(arr)->i_element[7];
- v8 = __MKINT64(&val);
+ __int64__ val;
+ val = __SignedLongIntegerArrayInstPtr(arr)->i_element[0];
+ v1 = __MKINT64(&val);
+ val = __SignedLongIntegerArrayInstPtr(arr)->i_element[7];
+ v8 = __MKINT64(&val);
%}.
- ^ Array with: v1 with: v8.
+ ^ Array with: v1 with: v8.
'
- forClass:self class class
- selector:#'signedLongIntegerArray_i_element'
- inCategory:'tests'
- notifying:nil
- install:true
- skipIfSame:false
- silent:true.
- sizes := self class perform:#'signedLongIntegerArray_i_element'.
- self assert:(sizes first = 1123456789).
- self assert:(sizes second = 1123456789).
- self class class removeSelector:#'signedLongIntegerArray_i_element'.
- ].
+ forClass:self class class
+ selector:#'signedLongIntegerArray_i_element'
+ inCategory:'tests'
+ notifying:nil
+ install:true
+ skipIfSame:false
+ silent:true.
+ sizes := self class perform:#'signedLongIntegerArray_i_element'.
+ self assert:(sizes first = 1123456789).
+ self assert:(sizes second = 1123456789).
+ self class class removeSelector:#'signedLongIntegerArray_i_element'.
+ ].
] ensure:[ self class class removeSelector:#'signedLongIntegerArray_i_element'. ]
"
--- a/RegressionTests__ScaledDecimalTest.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__ScaledDecimalTest.st Thu Jun 30 09:02:08 2016 +0100
@@ -36,209 +36,209 @@
!
test02_AsNumber
- "Ensure no loss of precision"
+ "Ensure no loss of precision"
- | sd |
- sd := '1.40s2' asNumber.
- self assert: (ScaledDecimal ? FixedPoint) == sd class.
- self assert: sd scale == 2.
+ | sd |
+ sd := '1.40s2' asNumber.
+ self assert: (ScaledDecimal ? FixedPoint) == sd class.
+ self assert: sd scale == 2.
- Smalltalk isSmalltalkX ifTrue:[
- self assert: '1.40' = sd printString.
- self assert: '1.40s2' = sd storeString.
- ] ifFalse:[
- self assert: '1.40s2' = sd printString.
- ]
+ Smalltalk isSmalltalkX ifTrue:[
+ self assert: '1.40' = sd printString.
+ self assert: '1.40s2' = sd storeString.
+ ] ifFalse:[
+ self assert: '1.40s2' = sd printString.
+ ]
"Created: / 09-08-2011 / 21:25:31 / cg"
!
test03_AsNumberNegatedWithoutDecimalPoint
- | sd |
- sd := '-123s0' asNumber.
- self assert: (ScaledDecimal ? FixedPoint) == sd class.
- self assert: sd scale == 0.
+ | sd |
+ sd := '-123s0' asNumber.
+ self assert: (ScaledDecimal ? FixedPoint) == sd class.
+ self assert: sd scale == 0.
- Smalltalk isSmalltalkX ifTrue:[
- self assert: '-123' = sd printString.
- self assert: '-123s0' = sd storeString.
- ] ifFalse:[
- self assert: '-123s0' = sd printString.
- ]
+ Smalltalk isSmalltalkX ifTrue:[
+ self assert: '-123' = sd printString.
+ self assert: '-123s0' = sd storeString.
+ ] ifFalse:[
+ self assert: '-123s0' = sd printString.
+ ]
"Created: / 09-08-2011 / 21:25:43 / cg"
!
test04_AsNumberNegatedWithoutDecimalPoint2
- | sd |
- sd := '-123s2' asNumber.
- self assert: (ScaledDecimal ? FixedPoint) == sd class.
- self assert: sd scale == 2.
+ | sd |
+ sd := '-123s2' asNumber.
+ self assert: (ScaledDecimal ? FixedPoint) == sd class.
+ self assert: sd scale == 2.
- Smalltalk isSmalltalkX ifTrue:[
- self assert: '-123.00' = sd printString.
- self assert: '-123.00s2' = sd storeString.
- ] ifFalse:[
- self assert: '-123.00s2' = sd printString.
- ]
+ Smalltalk isSmalltalkX ifTrue:[
+ self assert: '-123.00' = sd printString.
+ self assert: '-123.00s2' = sd storeString.
+ ] ifFalse:[
+ self assert: '-123.00s2' = sd printString.
+ ]
"Created: / 09-08-2011 / 21:25:54 / cg"
!
test05_AsNumberWithExtendedScale
- | sd |
- sd := '123s2' asNumber.
- self assert: (ScaledDecimal ? FixedPoint) == sd class.
- self assert: sd scale == 2.
+ | sd |
+ sd := '123s2' asNumber.
+ self assert: (ScaledDecimal ? FixedPoint) == sd class.
+ self assert: sd scale == 2.
- Smalltalk isSmalltalkX ifTrue:[
- self assert: '123.00' = sd printString.
- self assert: '123.00s2' = sd storeString.
- ] ifFalse:[
- self assert: '123.00s2' = sd printString.
- ]
+ Smalltalk isSmalltalkX ifTrue:[
+ self assert: '123.00' = sd printString.
+ self assert: '123.00s2' = sd storeString.
+ ] ifFalse:[
+ self assert: '123.00s2' = sd printString.
+ ]
"Created: / 09-08-2011 / 21:25:59 / cg"
!
test06_AsNumberWithRadix
- | sd oldSetting |
+ | sd oldSetting |
- Smalltalk isSmalltalkX ifTrue:[
- oldSetting := ParserFlags allowFixedPointLiterals.
- ParserFlags allowFixedPointLiterals:true.
- [
- sd := Number readSmalltalkSyntaxFrom:'10r-22.2s5'.
- ] ensure:[
- ParserFlags allowFixedPointLiterals:oldSetting.
- ]
- ] ifFalse:[
- sd := '10r-22.2s5' asNumber.
- ].
+ Smalltalk isSmalltalkX ifTrue:[
+ oldSetting := ParserFlags allowFixedPointLiterals.
+ ParserFlags allowFixedPointLiterals:true.
+ [
+ sd := Number readSmalltalkSyntaxFrom:'10r-22.2s5'.
+ ] ensure:[
+ ParserFlags allowFixedPointLiterals:oldSetting.
+ ]
+ ] ifFalse:[
+ sd := '10r-22.2s5' asNumber.
+ ].
- self assert: (ScaledDecimal ? FixedPoint) == sd class.
- self assert: sd scale == 5.
+ self assert: (ScaledDecimal ? FixedPoint) == sd class.
+ self assert: sd scale == 5.
- Smalltalk isSmalltalkX ifTrue:[
- self assert: '-22.20000' = sd printString.
- self assert: '-22.20000s5' = sd storeString.
- ] ifFalse:[
- self assert: '-22.20000s5' = sd printString.
- ]
+ Smalltalk isSmalltalkX ifTrue:[
+ self assert: '-22.20000' = sd printString.
+ self assert: '-22.20000s5' = sd storeString.
+ ] ifFalse:[
+ self assert: '-22.20000s5' = sd printString.
+ ]
"Created: / 09-08-2011 / 21:26:05 / cg"
!
test07_AsNumberWithSuperfluousDecimalPoint
- | sd |
- sd := '123.s2' asNumber.
- self assert: (ScaledDecimal ? FixedPoint) == sd class.
- self assert: sd scale == 2.
+ | sd |
+ sd := '123.s2' asNumber.
+ self assert: (ScaledDecimal ? FixedPoint) == sd class.
+ self assert: sd scale == 2.
- Smalltalk isSmalltalkX ifTrue:[
- self assert: '123.00' = sd printString.
- self assert: '123.00s2' = sd storeString.
- ] ifFalse:[
- self assert: '123.00s2' = sd printString.
- ]
+ Smalltalk isSmalltalkX ifTrue:[
+ self assert: '123.00' = sd printString.
+ self assert: '123.00s2' = sd storeString.
+ ] ifFalse:[
+ self assert: '123.00s2' = sd printString.
+ ]
"Created: / 09-08-2011 / 21:26:20 / cg"
!
test08_AsNumberWithoutDecimalPoint
- | sd |
- sd := '123s0' asNumber.
- self assert: (ScaledDecimal ? FixedPoint) == sd class.
- self assert: sd scale == 0.
+ | sd |
+ sd := '123s0' asNumber.
+ self assert: (ScaledDecimal ? FixedPoint) == sd class.
+ self assert: sd scale == 0.
- Smalltalk isSmalltalkX ifTrue:[
- self assert: '123' = sd printString.
- self assert: '123s0' = sd storeString.
- ] ifFalse:[
- self assert: '123s0' = sd printString.
- ]
+ Smalltalk isSmalltalkX ifTrue:[
+ self assert: '123' = sd printString.
+ self assert: '123s0' = sd storeString.
+ ] ifFalse:[
+ self assert: '123s0' = sd printString.
+ ]
"Created: / 09-08-2011 / 21:26:25 / cg"
!
test09_AsNumberWithoutDecimalPoint2
- | sd |
- sd := '123s2' asNumber.
- self assert: (ScaledDecimal ? FixedPoint) == sd class.
- self assert: sd scale == 2.
+ | sd |
+ sd := '123s2' asNumber.
+ self assert: (ScaledDecimal ? FixedPoint) == sd class.
+ self assert: sd scale == 2.
- Smalltalk isSmalltalkX ifTrue:[
- self assert: '123.00' = sd printString.
- self assert: '123.00s2' = sd storeString.
- ] ifFalse:[
- self assert: '123.00s2' = sd printString.
- ]
+ Smalltalk isSmalltalkX ifTrue:[
+ self assert: '123.00' = sd printString.
+ self assert: '123.00s2' = sd storeString.
+ ] ifFalse:[
+ self assert: '123.00s2' = sd printString.
+ ]
"Created: / 09-08-2011 / 21:26:30 / cg"
!
test10_ConvertFromFloat
- | aFloat sd f2 diff |
- aFloat := 11/13 asFloat.
- sd := aFloat asScaledDecimal: 2.
- self assert: 2 == sd scale.
- Smalltalk isSmalltalkX ifTrue:[
- self assert: '0.85' = sd printString.
- ] ifFalse:[
- self assert: '0.84s2' = sd printString.
- ].
- f2 := sd asFloat.
- diff := f2 - aFloat.
- self assert: diff < 1.0e-9. "actually, f = f2, but this is not a requirement"
+ | aFloat sd f2 diff |
+ aFloat := 11/13 asFloat.
+ sd := aFloat asScaledDecimal: 2.
+ self assert: 2 == sd scale.
+ Smalltalk isSmalltalkX ifTrue:[
+ self assert: '0.85' = sd printString.
+ ] ifFalse:[
+ self assert: '0.84s2' = sd printString.
+ ].
+ f2 := sd asFloat.
+ diff := f2 - aFloat.
+ self assert: diff < 1.0e-9. "actually, f = f2, but this is not a requirement"
"Created: / 09-08-2011 / 21:26:38 / cg"
!
test11_ConvertFromFraction
- | sd |
- sd := (13 / 11) asScaledDecimal: 6.
- self assert: (ScaledDecimal ? FixedPoint) == sd class.
- Smalltalk isSmalltalkX ifTrue:[
- self assert: ('1.181818' = sd printString).
- ] ifFalse:[
- self assert: ('1.181818s6' = sd printString).
- ].
- self assert: 6 == sd scale
+ | sd |
+ sd := (13 / 11) asScaledDecimal: 6.
+ self assert: (ScaledDecimal ? FixedPoint) == sd class.
+ Smalltalk isSmalltalkX ifTrue:[
+ self assert: ('1.181818' = sd printString).
+ ] ifFalse:[
+ self assert: ('1.181818s6' = sd printString).
+ ].
+ self assert: 6 == sd scale
"Created: / 09-08-2011 / 21:26:43 / cg"
!
test12_ConvertFromInteger
- "Converting an Integer to a ScaledDecimal yields a ScaledDecimal with
- scale 0, regardless of the scale specified in the #asScaledDecimal: message."
+ "Converting an Integer to a ScaledDecimal yields a ScaledDecimal with
+ scale 0, regardless of the scale specified in the #asScaledDecimal: message."
- | sd |
+ | sd |
- Smalltalk isSmalltalkX ifTrue:[
- "/ I think this behavior is wrong.
- ^ self.
- ].
+ Smalltalk isSmalltalkX ifTrue:[
+ "/ I think this behavior is wrong.
+ ^ self.
+ ].
- sd := 13 asScaledDecimal: 6.
- self assert: 0 = sd scale.
- self assert: ('13s0' = sd printString).
- sd := -13 asScaledDecimal: 6.
- self assert: 0 = sd scale.
- self assert: ('-13s0' = sd printString).
- sd := 130000000013 asScaledDecimal: 6.
- self assert: 0 = sd scale.
- self assert: ('130000000013s0' = sd printString).
- sd := -130000000013 asScaledDecimal: 6.
- self assert: 0 = sd scale.
- self assert: ('-130000000013s0' = sd printString)
+ sd := 13 asScaledDecimal: 6.
+ self assert: 0 = sd scale.
+ self assert: ('13s0' = sd printString).
+ sd := -13 asScaledDecimal: 6.
+ self assert: 0 = sd scale.
+ self assert: ('-13s0' = sd printString).
+ sd := 130000000013 asScaledDecimal: 6.
+ self assert: 0 = sd scale.
+ self assert: ('130000000013s0' = sd printString).
+ sd := -130000000013 asScaledDecimal: 6.
+ self assert: 0 = sd scale.
+ self assert: ('-130000000013s0' = sd printString)
"Created: / 09-08-2011 / 21:26:46 / cg"
!
@@ -246,25 +246,25 @@
test13_Literal1
"s2 is not a message to be sent to a float"
- self
- shouldnt:[ self literal_helper1 ]
- raise:MessageNotUnderstood
+ self
+ shouldnt:[ self literal_helper1 ]
+ raise:MessageNotUnderstood
"Created: / 09-08-2011 / 21:26:55 / cg"
!
test14_Literal2
- | sd |
+ | sd |
- sd := 1.40s2.
- self assert: (ScaledDecimal ? FixedPoint) == sd class.
- self assert: sd scale == 2.
- Smalltalk isSmalltalkX ifTrue:[
- self assert: '1.40' = sd printString.
- self assert: '1.40s2' = sd storeString.
- ] ifFalse:[
- self assert: '1.40s2' = sd printString.
- ].
+ sd := 1.40s2.
+ self assert: (ScaledDecimal ? FixedPoint) == sd class.
+ self assert: sd scale == 2.
+ Smalltalk isSmalltalkX ifTrue:[
+ self assert: '1.40' = sd printString.
+ self assert: '1.40s2' = sd storeString.
+ ] ifFalse:[
+ self assert: '1.40s2' = sd printString.
+ ].
"Created: / 09-08-2011 / 21:27:01 / cg"
!
@@ -273,19 +273,19 @@
|value|
Class withoutUpdatingChangesDo:[
- self class
- compile:
+ self class
+ compile:
'literal_helper2
^ 1.40s2.
'
- classified:'temporary'.
+ classified:'temporary'.
- Compiler stcCompileMethod:(self class compiledMethodAt:#literal_helper2).
+ Compiler stcCompileMethod:(self class compiledMethodAt:#literal_helper2).
].
- self
- shouldnt:[ self literal_helper2 ]
- raise:MessageNotUnderstood.
+ self
+ shouldnt:[ self literal_helper2 ]
+ raise:MessageNotUnderstood.
value := self literal_helper2.
self assert:( value isFixedPoint ).
@@ -296,33 +296,33 @@
!
test16_PrintString
- "The printed representation of a ScaledDecimal is truncated, not rounded.
- Not sure if this is right, so this test describes the current Squeak implementation.
- If someone knows a reason that rounding would be preferable, then update
- this test."
+ "The printed representation of a ScaledDecimal is truncated, not rounded.
+ Not sure if this is right, so this test describes the current Squeak implementation.
+ If someone knows a reason that rounding would be preferable, then update
+ this test."
- | sd |
+ | sd |
- sd := (13 / 11) asScaledDecimal: 6.
- Smalltalk isSmalltalkX ifTrue:[
- self assert: ('1.181818' = sd printString).
- ] ifFalse:[
- self assert: ('1.181818s6' = sd printString).
- ].
+ sd := (13 / 11) asScaledDecimal: 6.
+ Smalltalk isSmalltalkX ifTrue:[
+ self assert: ('1.181818' = sd printString).
+ ] ifFalse:[
+ self assert: ('1.181818s6' = sd printString).
+ ].
- sd := (13 / 11) asScaledDecimal: 5.
- Smalltalk isSmalltalkX ifTrue:[
- self assert: ('1.18182' = sd printString).
- ] ifFalse:[
- self deny: ('1.18182s5' = sd printString).
- ].
+ sd := (13 / 11) asScaledDecimal: 5.
+ Smalltalk isSmalltalkX ifTrue:[
+ self assert: ('1.18182' = sd printString).
+ ] ifFalse:[
+ self deny: ('1.18182s5' = sd printString).
+ ].
- sd := (13 / 11) asScaledDecimal: 5.
- Smalltalk isSmalltalkX ifTrue:[
- self deny: ('1.18181' = sd printString).
- ] ifFalse:[
- self assert: ('1.18181s5' = sd printString).
- ].
+ sd := (13 / 11) asScaledDecimal: 5.
+ Smalltalk isSmalltalkX ifTrue:[
+ self deny: ('1.18181' = sd printString).
+ ] ifFalse:[
+ self assert: ('1.18181s5' = sd printString).
+ ].
"Created: / 09-08-2011 / 21:27:49 / cg"
!
@@ -331,11 +331,11 @@
|check|
check := [:originalNum |
- |s readNum|
+ |s readNum|
- s := originalNum storeString.
- readNum := Number readFrom:s.
- self assert:readNum = originalNum.
+ s := originalNum storeString.
+ readNum := Number readFrom:s.
+ self assert:readNum = originalNum.
].
check value:((FixedPoint fromString:'0.66666666') ).
--- a/RegressionTests__SegmentedOrderedCollectionTests.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__SegmentedOrderedCollectionTests.st Thu Jun 30 09:02:08 2016 +0100
@@ -16,7 +16,7 @@
documentation to be added.
[author:]
- cg
+ cg
[instance variables:]
@@ -42,14 +42,14 @@
self assert:(c last == 10).
20 to:20000 by:10 do:[:each |
- c add:each
+ c add:each
].
self assert:(c size == 2000).
self assert:(c first == 10).
self assert:(c last == 20000).
1 to:1000 do:[:i |
- c removeFirst
+ c removeFirst
].
self assert:(c first == 10010).
self assert:(c last == 20000).
@@ -75,10 +75,10 @@
self assert:(c first == 15000).
1 to:999 do:[:i |
- c addFirst:i
+ c addFirst:i
].
1 to:999 do:[:i |
- self assert:(c at:i) == (1000-i).
+ self assert:(c at:i) == (1000-i).
].
self assert:(c size == (501+999)).
@@ -94,7 +94,7 @@
c removeIndex:250.
999 to:1 by:-1 do:[:i |
- self assert:(c removeFirst == i)
+ self assert:(c removeFirst == i)
].
c removeFirst.
@@ -117,7 +117,7 @@
self assert:(c at:1) == 15010.
self assert:(c at:2) == 19990.
3 to:1000 do:[:i |
- self assert:(c at:i) == nil
+ self assert:(c at:i) == nil
].
c grow:105.
@@ -125,7 +125,7 @@
self assert:(c at:1) == 15010.
self assert:(c at:2) == 19990.
3 to:105 do:[:i |
- self assert:(c at:i) == nil
+ self assert:(c at:i) == nil
].
"
@@ -140,18 +140,18 @@
"/ adding at the end: OC is faster
tAdd := TimeDuration toRun:[
- c := SegmentedOrderedCollection new.
- 1 to:200000 do:[:i |
- c add:i
- ].
+ c := SegmentedOrderedCollection new.
+ 1 to:200000 do:[:i |
+ c add:i
+ ].
].
Transcript show:'Time to add 200000 elements to sc: '; showCR:tAdd.
tAdd := TimeDuration toRun:[
- c := OrderedCollection new.
- 1 to:200000 do:[:i |
- c add:i
- ].
+ c := OrderedCollection new.
+ 1 to:200000 do:[:i |
+ c add:i
+ ].
].
Transcript show:'Time to add 200000 elements to oc: '; showCR:tAdd.
@@ -160,17 +160,17 @@
c := SegmentedOrderedCollection withAll:(1 to:200000).
tRemove := TimeDuration toRun:[
- 1 to:200000 do:[:i |
- c removeFirst
- ].
+ 1 to:200000 do:[:i |
+ c removeFirst
+ ].
].
Transcript show:'Time to remove 200000 elements from sc: '; showCR:tRemove.
c := OrderedCollection withAll:(1 to:200000).
tRemove := TimeDuration toRun:[
- 1 to:200000 do:[:i |
- c removeFirst
- ].
+ 1 to:200000 do:[:i |
+ c removeFirst
+ ].
].
Transcript show:'Time to remove 200000 elements from oc: '; showCR:tRemove.
@@ -179,17 +179,17 @@
c := SegmentedOrderedCollection withAll:(1 to:200000).
tRemove := TimeDuration toRun:[
- 1 to:100000 do:[:i |
- c removeIndex:2000
- ].
+ 1 to:100000 do:[:i |
+ c removeIndex:2000
+ ].
].
Transcript show:'Time to remove 100000 elements from inside sc: '; showCR:tRemove.
c := OrderedCollection withAll:(1 to:200000).
tRemove := TimeDuration toRun:[
- 1 to:100000 do:[:i |
- c removeIndex:2000
- ].
+ 1 to:100000 do:[:i |
+ c removeIndex:2000
+ ].
].
Transcript show:'Time to remove 100000 elements from inside oc: '; showCR:tRemove.
--- a/RegressionTests__ServerSocketTest.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__ServerSocketTest.st Thu Jun 30 09:02:08 2016 +0100
@@ -16,7 +16,7 @@
documentation to be added.
[author:]
- james (james@CHANTI)
+ james (james@CHANTI)
[instance variables:]
@@ -57,7 +57,7 @@
serverListenSocket listenFor:1.
clientSocket := Socket newTCPclientToHost:'localhost' port:9998.
- self assert:clientSocket notNil.
+ self assert:clientSocket notNil.
clientSocket buffered:false.
Transcript showCR:'client: socket connected it'.
'can now do transfer via sock'.
@@ -72,7 +72,7 @@
serverSocket close.
serverListenSocket close.
-
+
"
self run:#test1
--- a/RegressionTests__SharedQueueTest.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__SharedQueueTest.st Thu Jun 30 09:02:08 2016 +0100
@@ -23,19 +23,19 @@
s2 := ReadWriteStream on:(Array new:1000).
p1 := [
- [
- s1 nextPut:q next
- ] loop.
+ [
+ s1 nextPut:q next
+ ] loop.
] fork.
p2 := [
- [
- s2 nextPut:q next
- ] loop.
+ [
+ s2 nextPut:q next
+ ] loop.
] fork.
1 to:1000 do:[:i|
- q nextPut:i
+ q nextPut:i
].
Delay waitForMilliseconds:20.
@@ -52,17 +52,17 @@
next2 := s2 next.
1 to: 1000 do:[:i|
- self should:[
- next1 == i ifTrue:[
- next1 := s1 next.
- true.
- ] ifFalse:[
- next2 == i ifTrue:[
- next2 := s2 next.
- true
- ].
- ]
- ]
+ self should:[
+ next1 == i ifTrue:[
+ next1 := s1 next.
+ true.
+ ] ifFalse:[
+ next2 == i ifTrue:[
+ next2 := s2 next.
+ true
+ ].
+ ]
+ ]
].
!
@@ -77,25 +77,25 @@
s2 := ReadWriteStream on:(Array new:20000).
p1 := [
- [
- s1 nextPut:q next
- ] loop.
+ [
+ s1 nextPut:q next
+ ] loop.
] fork.
p2 := [
- [
- s2 nextPut:q next
- ] loop.
+ [
+ s2 nextPut:q next
+ ] loop.
] fork.
pw := [
- 1 to:10000 do:[:i|
- q nextPut:i+scale
- ].
+ 1 to:10000 do:[:i|
+ q nextPut:i+scale
+ ].
] fork.
1 to:10000 do:[:i|
- q nextPut:i
+ q nextPut:i
].
pw waitUntilTerminated.
@@ -111,23 +111,23 @@
next1 := next2 := 0.
self should:[
- s1 contents conform:[:i|
- i < scale ifTrue:[
- next1 < i and:[next1 := i. true]
- ] ifFalse:[
- next2 < i and:[next2 := i. true]
- ].
- ].
+ s1 contents conform:[:i|
+ i < scale ifTrue:[
+ next1 < i and:[next1 := i. true]
+ ] ifFalse:[
+ next2 < i and:[next2 := i. true]
+ ].
+ ].
].
next1 := next2 := 0.
self should:[
- s2 contents conform:[:i|
- i < scale ifTrue:[
- next1 < i and:[next1 := i. true]
- ] ifFalse:[
- next2 < i and:[next2 := i. true]
- ].
- ].
+ s2 contents conform:[:i|
+ i < scale ifTrue:[
+ next1 < i and:[next1 := i. true]
+ ] ifFalse:[
+ next2 < i and:[next2 := i. true]
+ ].
+ ].
].
s1 reset.
@@ -138,8 +138,8 @@
all addAll:s2 contents.
1 to: 10000 do:[:i|
- self assert:((all at:i) == i).
- self assert:((all at:(i+10000)) == (i+scale)).
+ self assert:((all at:i) == i).
+ self assert:((all at:(i+10000)) == (i+scale)).
].
!
--- a/RegressionTests__SmallIntegerTest.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__SmallIntegerTest.st Thu Jun 30 09:02:08 2016 +0100
@@ -19,248 +19,248 @@
!SmallIntegerTest methodsFor:'tests-arithmetic'!
testBitShift
- #(
- (1 1 2)
- (1 2 4)
- (1 3 8)
- (1 7 16r080)
- (1 8 16r100)
- (1 15 16r08000)
- (1 16 16r10000)
- (1 17 16r20000)
- (1 30 16r040000000)
- (1 31 16r080000000)
- (1 32 16r100000000)
- (1 33 16r200000000)
+ #(
+ (1 1 2)
+ (1 2 4)
+ (1 3 8)
+ (1 7 16r080)
+ (1 8 16r100)
+ (1 15 16r08000)
+ (1 16 16r10000)
+ (1 17 16r20000)
+ (1 30 16r040000000)
+ (1 31 16r080000000)
+ (1 32 16r100000000)
+ (1 33 16r200000000)
- (1 62 16r04000000000000000)
- (1 63 16r08000000000000000)
- (1 64 16r10000000000000000)
- (1 65 16r20000000000000000)
+ (1 62 16r04000000000000000)
+ (1 63 16r08000000000000000)
+ (1 64 16r10000000000000000)
+ (1 65 16r20000000000000000)
- (1 126 16r040000000000000000000000000000000)
- (1 127 16r080000000000000000000000000000000)
- (1 128 16r100000000000000000000000000000000)
- (1 129 16r200000000000000000000000000000000)
+ (1 126 16r040000000000000000000000000000000)
+ (1 127 16r080000000000000000000000000000000)
+ (1 128 16r100000000000000000000000000000000)
+ (1 129 16r200000000000000000000000000000000)
- (16r10 1 16r20)
- (16r10 2 16r40)
- (16r10 3 16r80)
- (16r10 7 16r0800)
- (16r10 8 16r1000)
- (16r10 15 16r080000)
- (16r10 16 16r100000)
- (16r10 17 16r200000)
- (16r10 30 16r0400000000)
- (16r10 31 16r0800000000)
- (16r10 32 16r1000000000)
- (16r10 33 16r2000000000)
+ (16r10 1 16r20)
+ (16r10 2 16r40)
+ (16r10 3 16r80)
+ (16r10 7 16r0800)
+ (16r10 8 16r1000)
+ (16r10 15 16r080000)
+ (16r10 16 16r100000)
+ (16r10 17 16r200000)
+ (16r10 30 16r0400000000)
+ (16r10 31 16r0800000000)
+ (16r10 32 16r1000000000)
+ (16r10 33 16r2000000000)
- (16r10 62 16r040000000000000000)
- (16r10 63 16r080000000000000000)
- (16r10 64 16r100000000000000000)
- (16r10 65 16r200000000000000000)
+ (16r10 62 16r040000000000000000)
+ (16r10 63 16r080000000000000000)
+ (16r10 64 16r100000000000000000)
+ (16r10 65 16r200000000000000000)
- (16r10 126 16r0400000000000000000000000000000000)
- (16r10 127 16r0800000000000000000000000000000000)
- (16r10 128 16r1000000000000000000000000000000000)
- (16r10 129 16r2000000000000000000000000000000000)
+ (16r10 126 16r0400000000000000000000000000000000)
+ (16r10 127 16r0800000000000000000000000000000000)
+ (16r10 128 16r1000000000000000000000000000000000)
+ (16r10 129 16r2000000000000000000000000000000000)
) triplesDo:[:val :cnt :expected |
- |rslt1 rslt2|
-
- rslt1 := val bitShift:cnt.
- self assert:(rslt1 = expected).
- expected class == SmallInteger ifTrue:[
- self assert:(rslt1 == expected)
- ].
- rslt2 := rslt1 bitShift:cnt negated.
- self assert:(rslt2 = val).
- val class == SmallInteger ifTrue:[
- self assert:(rslt2 == val)
- ].
+ |rslt1 rslt2|
+
+ rslt1 := val bitShift:cnt.
+ self assert:(rslt1 = expected).
+ expected class == SmallInteger ifTrue:[
+ self assert:(rslt1 == expected)
+ ].
+ rslt2 := rslt1 bitShift:cnt negated.
+ self assert:(rslt2 = val).
+ val class == SmallInteger ifTrue:[
+ self assert:(rslt2 == val)
+ ].
].
!
testBitShiftNegative
- #(
- (-1 1 -2)
- (-1 2 -4)
- (-1 3 -8)
- (-1 7 -16r080)
- (-1 8 -16r100)
- (-1 15 -16r08000)
- (-1 16 -16r10000)
- (-1 17 -16r20000)
- (-1 30 -16r040000000)
- (-1 31 -16r080000000)
- (-1 32 -16r100000000)
- (-1 33 -16r200000000)
+ #(
+ (-1 1 -2)
+ (-1 2 -4)
+ (-1 3 -8)
+ (-1 7 -16r080)
+ (-1 8 -16r100)
+ (-1 15 -16r08000)
+ (-1 16 -16r10000)
+ (-1 17 -16r20000)
+ (-1 30 -16r040000000)
+ (-1 31 -16r080000000)
+ (-1 32 -16r100000000)
+ (-1 33 -16r200000000)
- (-1 62 -16r04000000000000000)
- (-1 63 -16r08000000000000000)
- (-1 64 -16r10000000000000000)
- (-1 65 -16r20000000000000000)
+ (-1 62 -16r04000000000000000)
+ (-1 63 -16r08000000000000000)
+ (-1 64 -16r10000000000000000)
+ (-1 65 -16r20000000000000000)
- (-1 126 -16r040000000000000000000000000000000)
- (-1 127 -16r080000000000000000000000000000000)
- (-1 128 -16r100000000000000000000000000000000)
- (-1 129 -16r200000000000000000000000000000000)
+ (-1 126 -16r040000000000000000000000000000000)
+ (-1 127 -16r080000000000000000000000000000000)
+ (-1 128 -16r100000000000000000000000000000000)
+ (-1 129 -16r200000000000000000000000000000000)
- (-16r10 1 -16r20)
- (-16r10 2 -16r40)
- (-16r10 3 -16r80)
- (-16r10 7 -16r0800)
- (-16r10 8 -16r1000)
- (-16r10 15 -16r080000)
- (-16r10 16 -16r100000)
- (-16r10 17 -16r200000)
- (-16r10 30 -16r0400000000)
- (-16r10 31 -16r0800000000)
- (-16r10 32 -16r1000000000)
- (-16r10 33 -16r2000000000)
+ (-16r10 1 -16r20)
+ (-16r10 2 -16r40)
+ (-16r10 3 -16r80)
+ (-16r10 7 -16r0800)
+ (-16r10 8 -16r1000)
+ (-16r10 15 -16r080000)
+ (-16r10 16 -16r100000)
+ (-16r10 17 -16r200000)
+ (-16r10 30 -16r0400000000)
+ (-16r10 31 -16r0800000000)
+ (-16r10 32 -16r1000000000)
+ (-16r10 33 -16r2000000000)
- (-16r10 62 -16r040000000000000000)
- (-16r10 63 -16r080000000000000000)
- (-16r10 64 -16r100000000000000000)
- (-16r10 65 -16r200000000000000000)
+ (-16r10 62 -16r040000000000000000)
+ (-16r10 63 -16r080000000000000000)
+ (-16r10 64 -16r100000000000000000)
+ (-16r10 65 -16r200000000000000000)
- (-16r10 126 -16r0400000000000000000000000000000000)
- (-16r10 127 -16r0800000000000000000000000000000000)
- (-16r10 128 -16r1000000000000000000000000000000000)
- (-16r10 129 -16r2000000000000000000000000000000000)
+ (-16r10 126 -16r0400000000000000000000000000000000)
+ (-16r10 127 -16r0800000000000000000000000000000000)
+ (-16r10 128 -16r1000000000000000000000000000000000)
+ (-16r10 129 -16r2000000000000000000000000000000000)
) triplesDo:[:val :cnt :expected |
- |rslt1 rslt2|
-
- rslt1 := val bitShift:cnt.
- self assert:(rslt1 = expected).
- expected class == SmallInteger ifTrue:[
- self assert:(rslt1 == expected)
- ].
- rslt2 := rslt1 bitShift:cnt negated.
- self assert:(rslt2 = val).
- val class == SmallInteger ifTrue:[
- self assert:(rslt2 == val)
- ].
+ |rslt1 rslt2|
+
+ rslt1 := val bitShift:cnt.
+ self assert:(rslt1 = expected).
+ expected class == SmallInteger ifTrue:[
+ self assert:(rslt1 == expected)
+ ].
+ rslt2 := rslt1 bitShift:cnt negated.
+ self assert:(rslt2 = val).
+ val class == SmallInteger ifTrue:[
+ self assert:(rslt2 == val)
+ ].
].
!
testDivide
- |zero _1 _2 _3 _4 _m2 _m4|
+ |zero _1 _2 _3 _4 _m2 _m4|
- "circumvent compiler error about division by zero"
- zero := 0.
+ "circumvent compiler error about division by zero"
+ zero := 0.
- self assert: 2 / 1 = 2.
- self assert: (3 / 2) isFraction.
- self assert: 4 / 2 = 2.
- self assert: 4 / -2 = -2.
- self assert: -4 / 2 = -2.
- self assert: -4 / -2 = 2.
- self should: [ 1 / zero ] raise: ZeroDivide.
+ self assert: 2 / 1 = 2.
+ self assert: (3 / 2) isFraction.
+ self assert: 4 / 2 = 2.
+ self assert: 4 / -2 = -2.
+ self assert: -4 / 2 = -2.
+ self assert: -4 / -2 = 2.
+ self should: [ 1 / zero ] raise: ZeroDivide.
- _1 := 1.
- _2 := 2.
- _3 := 3.
- _4 := 4.
- _m2 := -2.
- _m4 := -4.
+ _1 := 1.
+ _2 := 2.
+ _3 := 3.
+ _4 := 4.
+ _m2 := -2.
+ _m4 := -4.
- self assert: _2 / _1 = _2.
- self assert: (_3 / _2) isFraction.
- self assert: _4 / _2 = 2.
- self assert: _4 / _m2 = -2.
- self assert: _m4 / _2 = -2.
- self assert: _m4 / _m2 = 2.
+ self assert: _2 / _1 = _2.
+ self assert: (_3 / _2) isFraction.
+ self assert: _4 / _2 = 2.
+ self assert: _4 / _m2 = -2.
+ self assert: _m4 / _2 = -2.
+ self assert: _m4 / _m2 = 2.
!
testMultiply
|i ii|
- #(
- 16r3fff
- 16r7fff
- 16rffff
- 16r3fffffff
- 16r7fffffff
- 16rffffffff
- 16r20000000
- 16r40000000
- 16r80000000
- 16r100000000
- 16r20000001
- 16r40000001
- 16r80000001
- 16r100000001
+ #(
+ 16r3fff
+ 16r7fff
+ 16rffff
+ 16r3fffffff
+ 16r7fffffff
+ 16rffffffff
+ 16r20000000
+ 16r40000000
+ 16r80000000
+ 16r100000000
+ 16r20000001
+ 16r40000001
+ 16r80000001
+ 16r100000001
- "/ for 64 bit machines:
- 16r3fffffffffffffff
- 16r7fffffffffffffff
- 16rffffffffffffffff
- 16r2000000000000000
- 16r4000000000000000
- 16r8000000000000000
- 16r10000000000000000
- 16r2000000000000001
- 16r4000000000000001
- 16r8000000000000001
- 16r10000000000000001
+ "/ for 64 bit machines:
+ 16r3fffffffffffffff
+ 16r7fffffffffffffff
+ 16rffffffffffffffff
+ 16r2000000000000000
+ 16r4000000000000000
+ 16r8000000000000000
+ 16r10000000000000000
+ 16r2000000000000001
+ 16r4000000000000001
+ 16r8000000000000001
+ 16r10000000000000001
) do:[:x |
- i := x.
- ii := i * i.
- self assert:((ii / i) = i).
- i class == SmallInteger ifTrue:[
- self assert:((ii / i) == i).
- ].
+ i := x.
+ ii := i * i.
+ self assert:((ii / i) = i).
+ i class == SmallInteger ifTrue:[
+ self assert:((ii / i) == i).
+ ].
- i := x negated.
- ii := i * i.
- self assert:((ii / i) = i).
- i class == SmallInteger ifTrue:[
- self assert:((ii / i) == i).
- ].
+ i := x negated.
+ ii := i * i.
+ self assert:((ii / i) = i).
+ i class == SmallInteger ifTrue:[
+ self assert:((ii / i) == i).
+ ].
].
!
testNegation
|i iN iNN|
- #(
- 16r3fffffff
- 16r7fffffff
- 16rffffffff
- 16r20000000
- 16r40000000
- 16r80000000
- 16r100000000
- 16r20000001
- 16r40000001
- 16r80000001
- 16r100000001
+ #(
+ 16r3fffffff
+ 16r7fffffff
+ 16rffffffff
+ 16r20000000
+ 16r40000000
+ 16r80000000
+ 16r100000000
+ 16r20000001
+ 16r40000001
+ 16r80000001
+ 16r100000001
- "/ for 64bit machines:
- 16r3fffffffffffffff
- 16r7fffffffffffffff
- 16rffffffffffffffff
- 16r2000000000000000
- 16r4000000000000000
- 16r8000000000000000
- 16r10000000000000000
- 16r2000000000000001
- 16r4000000000000001
- 16r8000000000000001
- 16r10000000000000001
+ "/ for 64bit machines:
+ 16r3fffffffffffffff
+ 16r7fffffffffffffff
+ 16rffffffffffffffff
+ 16r2000000000000000
+ 16r4000000000000000
+ 16r8000000000000000
+ 16r10000000000000000
+ 16r2000000000000001
+ 16r4000000000000001
+ 16r8000000000000001
+ 16r10000000000000001
) do:[:x |
- i := x.
- iN := i negated.
- iNN := iN negated.
- self assert:(i = iNN).
- i class == SmallInteger ifTrue:[
- self assert:(i == iNN).
- ].
+ i := x.
+ iN := i negated.
+ iNN := iN negated.
+ self assert:(i = iNN).
+ i class == SmallInteger ifTrue:[
+ self assert:(i == iNN).
+ ].
].
self assert:(SmallInteger maxVal negated class == SmallInteger).
self assert:(SmallInteger maxVal negated negated == SmallInteger maxVal).
-
+
self assert:(SmallInteger maxVal negated -1 == SmallInteger minVal).
self assert:(SmallInteger minVal negated negated class == SmallInteger).
! !
@@ -268,32 +268,32 @@
!SmallIntegerTest methodsFor:'tests-class protocol'!
testBasicNew
- self should: [SmallInteger basicNew] raise: TestResult error.
+ self should: [SmallInteger basicNew] raise: TestResult error.
!
testMaxVal
"/ the original code did not check for pointer-size;
Smalltalk isSmalltalkX ifTrue:[
- SmallInteger maxBytes == 4 ifTrue:[
- self should: [SmallInteger maxVal = 16r3FFFFFFF].
- self should: [SmallInteger maxVal == 16r3FFFFFFF].
- ] ifFalse:[
- self should: [SmallInteger maxVal = 16r3FFFFFFFFFFFFFFF].
- self should: [SmallInteger maxVal == 16r3FFFFFFFFFFFFFFF].
- ].
+ SmallInteger maxBytes == 4 ifTrue:[
+ self should: [SmallInteger maxVal = 16r3FFFFFFF].
+ self should: [SmallInteger maxVal == 16r3FFFFFFF].
+ ] ifFalse:[
+ self should: [SmallInteger maxVal = 16r3FFFFFFFFFFFFFFF].
+ self should: [SmallInteger maxVal == 16r3FFFFFFFFFFFFFFF].
+ ].
] ifFalse:[
- self should: [SmallInteger maxVal = 16r3FFFFFFF].
+ self should: [SmallInteger maxVal = 16r3FFFFFFF].
]
!
testMaxValPointerSizeConsistency
SmallInteger maxBytes == 4 ifTrue:[
- self assert: ((SmallInteger maxBits == 31) or:[SmallInteger maxBits == 32]).
- self assert: (ExternalAddress pointerSize == 4).
+ self assert: ((SmallInteger maxBits == 31) or:[SmallInteger maxBits == 32]).
+ self assert: (ExternalAddress pointerSize == 4).
] ifFalse:[
- self assert: ((SmallInteger maxBits == 63) or:[SmallInteger maxBits == 64]).
- self assert: (ExternalAddress pointerSize == 8).
+ self assert: ((SmallInteger maxBits == 63) or:[SmallInteger maxBits == 64]).
+ self assert: (ExternalAddress pointerSize == 8).
]
!
@@ -301,20 +301,20 @@
"/ the original code did not check for pointer-size;
Smalltalk isSmalltalkX ifTrue:[
- SmallInteger maxBytes == 4 ifTrue:[
- self should: [SmallInteger minVal = -16r40000000].
- self should: [SmallInteger minVal == -16r40000000].
- ] ifFalse:[
- self should: [SmallInteger minVal = -16r4000000000000000].
- self should: [SmallInteger minVal == -16r4000000000000000].
- ].
+ SmallInteger maxBytes == 4 ifTrue:[
+ self should: [SmallInteger minVal = -16r40000000].
+ self should: [SmallInteger minVal == -16r40000000].
+ ] ifFalse:[
+ self should: [SmallInteger minVal = -16r4000000000000000].
+ self should: [SmallInteger minVal == -16r4000000000000000].
+ ].
] ifFalse:[
- self should: [SmallInteger minVal = -16r40000000].
+ self should: [SmallInteger minVal = -16r40000000].
]
!
testNew
- self should: [SmallInteger new] raise: TestResult error.
+ self should: [SmallInteger new] raise: TestResult error.
! !
!SmallIntegerTest class methodsFor:'documentation'!
--- a/RegressionTests__SnapshotRestartTests.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__SnapshotRestartTests.st Thu Jun 30 09:02:08 2016 +0100
@@ -25,13 +25,13 @@
innerSuite := ToRunOnFreshAndRestartedSnapshotTests buildSuite.
expected := '%1 run, %1 passed, 0 skipped, 0 failed, 0 errors ### HERE ### ' bindWith: innerSuite tests size.
logfile readingFileDo:[:s |
- [ s atEnd ] whileFalse:[
- | line |
+ [ s atEnd ] whileFalse:[
+ | line |
- line := s nextLine.
- "/ Uss starts with because on Windows you get 0xD chars at the end, sigh
- (line startsWith: expected) ifTrue:[ ^ self ].
- ]
+ line := s nextLine.
+ "/ Uss starts with because on Windows you get 0xD chars at the end, sigh
+ (line startsWith: expected) ifTrue:[ ^ self ].
+ ]
].
"
logfile contents asString
@@ -86,9 +86,9 @@
] ifFalse:[
cmd := 'make -f Makefile.init ', target
].
- self
- assert: (OperatingSystem executeCommand: cmd inDirectory: pkgdir)
- description: 'Failed to make target ''', target, ''' in test package'.
+ self
+ assert: (OperatingSystem executeCommand: cmd inDirectory: pkgdir)
+ description: 'Failed to make target ''', target, ''' in test package'.
"Created: / 14-08-2013 / 18:26:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 27-04-2016 / 09:32:26 / jv"
@@ -104,9 +104,9 @@
log := FileStream newTemporaryIn: Filename currentDirectory nameTemplate: ('RegressionTests__SnapshotRestartTests-' , testSelector , '%1-%2.log').
logfile := log fileName.
[
- OperatingSystem executeCommand: ('%1 --execute %2' bindWith: exe with: script asAbsoluteFilename pathName) outputTo: log errorTo: log inDirectory: tmpdir pathName.
+ OperatingSystem executeCommand: ('%1 --execute %2' bindWith: exe with: script asAbsoluteFilename pathName) outputTo: log errorTo: log inDirectory: tmpdir pathName.
] ensure:[
- log close.
+ log close.
].
self assertAllTestsPassed: logfile.
@@ -121,9 +121,9 @@
log := FileStream newTemporaryIn: Filename currentDirectory nameTemplate: ('RegressionTests__SnapshotRestartTests-' , testSelector , '%1-%2.log').
logfile := log fileName.
[
- OperatingSystem executeCommand: ('%1 -i %2' bindWith: exe with: (tmpdir / 'restart.img') pathName ) outputTo: log errorTo: log inDirectory: tmpdir pathName
+ OperatingSystem executeCommand: ('%1 -i %2' bindWith: exe with: (tmpdir / 'restart.img') pathName ) outputTo: log errorTo: log inDirectory: tmpdir pathName
] ensure:[
- log close.
+ log close.
].
self assertAllTestsPassed: logfile.
@@ -189,7 +189,7 @@
test_01
"/ Use Smalltalk at: to workaround compiler bug...
- self assert: (Smalltalk at: #'RegressionTests::SnapshotRestartTestsObject') notNil.
+ self assert: (Smalltalk at: #'RegressionTests::SnapshotRestartTestsObject') notNil.
self assert: ((Smalltalk at: #'RegressionTests::SnapshotRestartTestsObject') new addSimple: 12 to: 12) == 24
"Created: / 14-08-2013 / 19:46:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -198,7 +198,7 @@
test_02
- "/ Use Smalltalk at: to workaround compiler bug...
+ "/ Use Smalltalk at: to workaround compiler bug...
self assert: (Smalltalk at: #'RegressionTests::SnapshotRestartTestsObject') notNil.
self assert: ((Smalltalk at: #'RegressionTests::SnapshotRestartTestsObject') new addUsingBlock: 10 to: 10) == 20
--- a/RegressionTests__SocketTests.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__SocketTests.st Thu Jun 30 09:02:08 2016 +0100
@@ -19,25 +19,25 @@
port := 80.
n1 := n2 := 0.
- p1 :=
- [
- [true] whileTrue:[
- sock := Socket newTCPclientToAddress:host port:port.
- Processor yield.
- n1 := n1 + 1.
- sock close
- ]
- ] newProcess.
+ p1 :=
+ [
+ [true] whileTrue:[
+ sock := Socket newTCPclientToAddress:host port:port.
+ Processor yield.
+ n1 := n1 + 1.
+ sock close
+ ]
+ ] newProcess.
- p2 :=
- [
- [true] whileTrue:[
- sock := Socket newTCPclientToAddress:host port:port.
- Processor yield.
- n2 := n2 + 1.
- sock close
- ]
- ] newProcess.
+ p2 :=
+ [
+ [true] whileTrue:[
+ sock := Socket newTCPclientToAddress:host port:port.
+ Processor yield.
+ n2 := n2 + 1.
+ sock close
+ ]
+ ] newProcess.
p1 resume.
p2 resume.
@@ -60,37 +60,37 @@
port := 80.
n1 := n2 := 0.
- p1 :=
- [
- |host|
+ p1 :=
+ [
+ |host|
- [true] whileTrue:[
- host := 'www.nonexisting-%1.de' bindWith:(UUID genRandomUUID).
- HostNameLookupError handle:[:ex |
- ] do:[
- sock := Socket newTCPclientToAddress:host port:port.
- Processor yield.
- n1 := n1 + 1.
- sock close
- ].
- ]
- ] newProcess.
+ [true] whileTrue:[
+ host := 'www.nonexisting-%1.de' bindWith:(UUID genRandomUUID).
+ HostNameLookupError handle:[:ex |
+ ] do:[
+ sock := Socket newTCPclientToAddress:host port:port.
+ Processor yield.
+ n1 := n1 + 1.
+ sock close
+ ].
+ ]
+ ] newProcess.
- p2 :=
- [
- |host|
+ p2 :=
+ [
+ |host|
- [true] whileTrue:[
- host := 'www.nonexisting-%1.de' bindWith:(UUID genRandomUUID).
- HostNameLookupError handle:[:ex |
- ] do:[
- sock := Socket newTCPclientToAddress:host port:port.
- Processor yield.
- n2 := n2 + 1.
- sock close
- ]
- ]
- ] newProcess.
+ [true] whileTrue:[
+ host := 'www.nonexisting-%1.de' bindWith:(UUID genRandomUUID).
+ HostNameLookupError handle:[:ex |
+ ] do:[
+ sock := Socket newTCPclientToAddress:host port:port.
+ Processor yield.
+ n2 := n2 + 1.
+ sock close
+ ]
+ ]
+ ] newProcess.
p1 resume.
p2 resume.
@@ -112,7 +112,7 @@
|addr hostNameFromOS nm|
OperatingSystem isUNIXlike ifTrue:[
- hostNameFromOS := PipeStream outputFromCommand:'hostname'.
+ hostNameFromOS := PipeStream outputFromCommand:'hostname'.
].
addr := IPSocketAddress localHost.
@@ -123,7 +123,7 @@
addr := IPSocketAddress addressString:'127.0.0.1'.
self assert:(addr hostAddress = #[127 0 0 1]).
- addr port:51121.
+ addr port:51121.
nm := addr hostName.
self assert:(nm notEmptyOrNil).
self assert:(addr hostAddress = #[127 0 0 1]).
--- a/RegressionTests__SortTests.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__SortTests.st Thu Jun 30 09:02:08 2016 +0100
@@ -16,7 +16,7 @@
documentation to be added.
[author:]
- mb (mb@sixtyfour)
+ mb (mb@sixtyfour)
[instance variables:]
@@ -38,7 +38,7 @@
self assert:(mergeSorted isSorted).
self assert:(mergeSorted = definitivelySorted).
- quickSorted := data copy quickSort.
+ quickSorted := data copy quickSort.
self assert:(quickSorted isSorted).
self assert:(quickSorted = definitivelySorted).
!
--- a/RegressionTests__SoundexStringComparatorTest.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__SoundexStringComparatorTest.st Thu Jun 30 09:02:08 2016 +0100
@@ -21,17 +21,17 @@
testSomeCombinations
|code s|
- "/ compares all 4-char combinations against
+ "/ compares all 4-char combinations against
$A to:$Z do:[:c1 |
- $A to:$Z do:[:c2 |
- $A to:$Z do:[:c3 |
- $A to:$Z do:[:c4 |
- s := String with:c1 with:c2 with:c3 with:c4.
- code := (sc phoneticStringsFor:s) first.
- self assert:( code = s asSoundexCode).
- ].
- ].
- ].
+ $A to:$Z do:[:c2 |
+ $A to:$Z do:[:c3 |
+ $A to:$Z do:[:c4 |
+ s := String with:c1 with:c2 with:c3 with:c4.
+ code := (sc phoneticStringsFor:s) first.
+ self assert:( code = s asSoundexCode).
+ ].
+ ].
+ ].
].
!
@@ -47,20 +47,20 @@
#( 'Acton' 'Ashdown' 'Ashton' 'Astin' 'Aston' 'Austen' 'Austin' 'Austine' 'Axten')
do:[:w |
- code := soundex value:(w).
- self assert:( code = 'A235').
+ code := soundex value:(w).
+ self assert:( code = 'A235').
].
#( 'Reader' 'Reeder' 'Rider' 'Ritter' 'Rothera' 'Rothra' 'Ruder' 'Rutter' 'Ryder')
do:[:w |
- code := soundex value:(w).
- self assert:( code = 'R360').
+ code := soundex value:(w).
+ self assert:( code = 'R360').
].
#( 'Wace' 'Waugh' 'Wookey')
do:[:w |
- code := soundex value:(w).
- self assert:( code = 'W200').
+ code := soundex value:(w).
+ self assert:( code = 'W200').
].
code := soundex value:('Abbot').
@@ -124,19 +124,19 @@
"/ self assert: ( soundex value:( 'Ashcroft' )) = 'A22613' .
self assert: ( soundex value:( 'Ashcroft' )) = 'A226' .
- self assert: ( soundex value:( 'Tymczak' )) = 'T522' .
- self assert: ( soundex value:( 'Jackson' )) = 'J250' .
- self assert: ( soundex value:( 'Pfister' )) = 'P236' .
- self assert: ( soundex value:( 'Gutierrez' )) = 'G362' .
- self assert: ( soundex value:( 'Lee' )) = 'L000' .
- "/ self assert: ( soundex value:( 'Washington' )) = 'W25235' .
- self assert: ( soundex value:( 'Washington' )) = 'W252' .
+ self assert: ( soundex value:( 'Tymczak' )) = 'T522' .
+ self assert: ( soundex value:( 'Jackson' )) = 'J250' .
+ self assert: ( soundex value:( 'Pfister' )) = 'P236' .
+ self assert: ( soundex value:( 'Gutierrez' )) = 'G362' .
+ self assert: ( soundex value:( 'Lee' )) = 'L000' .
+ "/ self assert: ( soundex value:( 'Washington' )) = 'W25235' .
+ self assert: ( soundex value:( 'Washington' )) = 'W252' .
- self assert: ( soundex value:( 'Williams' )) = 'W452' .
- "/ self assert: ( soundex value:( 'Baragwanath' )) = 'B6253' .
- self assert: ( soundex value:( 'Baragwanath' )) = 'B625' .
- self assert: ( soundex value:( 'Donnell' )) = 'D540' .
- self assert: ( soundex value:( 'Lloyd' )) = 'L300' .
+ self assert: ( soundex value:( 'Williams' )) = 'W452' .
+ "/ self assert: ( soundex value:( 'Baragwanath' )) = 'B6253' .
+ self assert: ( soundex value:( 'Baragwanath' )) = 'B625' .
+ self assert: ( soundex value:( 'Donnell' )) = 'D540' .
+ self assert: ( soundex value:( 'Lloyd' )) = 'L300' .
self assert: ( soundex value:( 'Woolcock' )) = 'W422' .
self assert: ( soundex value:( 'Cook' )) = 'C200' .
@@ -168,3 +168,4 @@
version
^ '$Header$'
! !
+
--- a/RegressionTests__StackFrameTest.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__StackFrameTest.st Thu Jun 30 09:02:08 2016 +0100
@@ -14,12 +14,12 @@
testUnlimitedStack1
10 timesRepeat:[
- |a|
+ |a|
- a := Array with:('1' copy) with:('2' copy) with:('3' copy) with:('4' copy) with:('5' copy).
- self unlimitedStackTest1:a.
- true.
- ]
+ a := Array with:('1' copy) with:('2' copy) with:('3' copy) with:('4' copy) with:('5' copy).
+ self unlimitedStackTest1:a.
+ true.
+ ]
"
self run:#testUnlimitedStack1
@@ -43,19 +43,19 @@
OBJ __returnCode;
if (!__isString(__ArrayInstPtr(anArray)->a_element[0])) {
- printf("OOPS\n");
+ printf("OOPS\n");
};
if (!__isString(__ArrayInstPtr(anArray)->a_element[1])) {
- printf("OOPS\n");
+ printf("OOPS\n");
};
if (!__isString(__ArrayInstPtr(anArray)->a_element[2])) {
- printf("OOPS\n");
+ printf("OOPS\n");
};
if (!__isString(__ArrayInstPtr(anArray)->a_element[3])) {
- printf("OOPS\n");
+ printf("OOPS\n");
};
if (!__isString(__ArrayInstPtr(anArray)->a_element[4])) {
- printf("OOPS\n");
+ printf("OOPS\n");
};
__PROTECT__(anArray);
__scavenge();
@@ -63,19 +63,19 @@
if (!__isString(__ArrayInstPtr(anArray)->a_element[0])) {
- printf("OOPS2\n");
+ printf("OOPS2\n");
};
if (!__isString(__ArrayInstPtr(anArray)->a_element[1])) {
- printf("OOPS2\n");
+ printf("OOPS2\n");
};
if (!__isString(__ArrayInstPtr(anArray)->a_element[2])) {
- printf("OOPS2\n");
+ printf("OOPS2\n");
};
if (!__isString(__ArrayInstPtr(anArray)->a_element[3])) {
- printf("OOPS2\n");
+ printf("OOPS2\n");
};
if (!__isString(__ArrayInstPtr(anArray)->a_element[4])) {
- printf("OOPS2\n");
+ printf("OOPS2\n");
};
%}.
! !
--- a/RegressionTests__StreamUpToTests.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__StreamUpToTests.st Thu Jun 30 09:02:08 2016 +0100
@@ -16,7 +16,7 @@
documentation to be added.
[author:]
- ca
+ ca
[instance variables:]
@@ -80,7 +80,7 @@
self assert:( 'abcd' readStream upTo:$c ) = 'ab'.
self assert:( 'abcd' readStream upTo:$c; position ) = 3.
- self assert:( 'abcd' readStream upTo:$1 ) = 'abcd'.
+ self assert:( 'abcd' readStream upTo:$1 ) = 'abcd'.
self assert:( 'abcd' readStream upTo:$1; position ) = 4.
self assert:( 'abcd' readStream upTo:$a ) = ''.
--- a/RegressionTests__TSTreeTests.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__TSTreeTests.st Thu Jun 30 09:02:08 2016 +0100
@@ -14,8 +14,8 @@
setUp
tree := self tstreeClass new.
- self words shuffled do:[:ea |
- tree at:ea put:ea asUppercase
+ self words shuffled do:[:ea |
+ tree at:ea put:ea asUppercase
].
empty := self tstreeClass new.
!
@@ -25,7 +25,7 @@
self assert: (tree at: 'abelmosk') = 'ABELMOSK'.
self assert: (tree at: 'abracadabra' ifAbsent: [42]) = 42.
self assert: (tree at: '' ifAbsent: [42]) = 42.
- self assert: (empty at: 'foo' ifAbsent: [42]) = 42
+ self assert: (empty at: 'foo' ifAbsent: [42]) = 42
!
testMatch
@@ -101,7 +101,7 @@
aberroscope
aberuncator
abet
-abetment)
+abetment)
! !
!TSTreeTests class methodsFor:'documentation'!
--- a/RegressionTests__TestDialogs1.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__TestDialogs1.st Thu Jun 30 09:02:08 2016 +0100
@@ -16,7 +16,7 @@
documentation to be added.
[author:]
- Claus Gittinger (cg@alan)
+ Claus Gittinger (cg@alan)
[see also:]
@@ -29,16 +29,16 @@
examples
"
Starting the application:
- [exBegin]
+ [exBegin]
TestApplication1 open
- [exEnd]
+ [exEnd]
more examples to be added:
- [exBegin]
- ... add code fragment for
+ [exBegin]
+ ... add code fragment for
... executable example here ...
- [exEnd]
+ [exEnd]
"
!
@@ -62,37 +62,37 @@
<resource: #canvas>
- ^
+ ^
#(#FullSpec
- #name: #dialogSpec1
- #window:
+ #name: #dialogSpec1
+ #window:
#(#WindowSpec
- #label: #TestApplication1
- #name: #TestApplication1
- #min: #(#Point 10 10)
- #max: #(#Point 1280 1024)
- #bounds: #(#Rectangle 16 46 316 346)
- )
- #component:
+ #label: #TestApplication1
+ #name: #TestApplication1
+ #min: #(#Point 10 10)
+ #max: #(#Point 1280 1024)
+ #bounds: #(#Rectangle 16 46 316 346)
+ )
+ #component:
#(#SpecCollection
- #collection: #(
- #(#ActionButtonSpec
- #label: 'OK'
- #name: 'Button1'
- #layout: #(#LayoutFrame 7 0 271 0 132 0 293 0)
- #translateLabel: true
- #model: #accept
- )
- #(#ActionButtonSpec
- #label: 'Cancel'
- #name: 'Button2'
- #layout: #(#LayoutFrame 167 0 271 0 292 0 293 0)
- #translateLabel: true
- #model: #cancel
- )
- )
-
- )
+ #collection: #(
+ #(#ActionButtonSpec
+ #label: 'OK'
+ #name: 'Button1'
+ #layout: #(#LayoutFrame 7 0 271 0 132 0 293 0)
+ #translateLabel: true
+ #model: #accept
+ )
+ #(#ActionButtonSpec
+ #label: 'Cancel'
+ #name: 'Button2'
+ #layout: #(#LayoutFrame 167 0 271 0 292 0 293 0)
+ #translateLabel: true
+ #model: #cancel
+ )
+ )
+
+ )
)
!
@@ -110,42 +110,42 @@
<resource: #canvas>
- ^
+ ^
#(#FullSpec
- #name: #dialogSpec2
- #window:
+ #name: #dialogSpec2
+ #window:
#(#WindowSpec
- #label: #TestApplication1
- #name: #TestApplication1
- #min: #(#Point 10 10)
- #max: #(#Point 1280 1024)
- #bounds: #(#Rectangle 16 46 316 346)
- )
- #component:
+ #label: #TestApplication1
+ #name: #TestApplication1
+ #min: #(#Point 10 10)
+ #max: #(#Point 1280 1024)
+ #bounds: #(#Rectangle 16 46 316 346)
+ )
+ #component:
#(#SpecCollection
- #collection: #(
- #(#ActionButtonSpec
- #label: 'OK'
- #name: 'Button1'
- #layout: #(#LayoutFrame 7 0 271 0 132 0 293 0)
- #translateLabel: true
- #model: #accept
- )
- #(#ActionButtonSpec
- #label: 'Cancel'
- #name: 'Button2'
- #layout: #(#LayoutFrame 167 0 271 0 292 0 293 0)
- #translateLabel: true
- #model: #cancel
- )
- #(#InputFieldSpec
- #name: 'EntryField1'
- #layout: #(#LayoutFrame 50 0 127 0 255 0 149 0)
- #acceptOnPointerLeave: false
- )
- )
-
- )
+ #collection: #(
+ #(#ActionButtonSpec
+ #label: 'OK'
+ #name: 'Button1'
+ #layout: #(#LayoutFrame 7 0 271 0 132 0 293 0)
+ #translateLabel: true
+ #model: #accept
+ )
+ #(#ActionButtonSpec
+ #label: 'Cancel'
+ #name: 'Button2'
+ #layout: #(#LayoutFrame 167 0 271 0 292 0 293 0)
+ #translateLabel: true
+ #model: #cancel
+ )
+ #(#InputFieldSpec
+ #name: 'EntryField1'
+ #layout: #(#LayoutFrame 50 0 127 0 255 0 149 0)
+ #acceptOnPointerLeave: false
+ )
+ )
+
+ )
)
!
@@ -163,38 +163,38 @@
<resource: #canvas>
- ^
+ ^
#(#FullSpec
- #name: #dialogSpec3
- #window:
+ #name: #dialogSpec3
+ #window:
#(#WindowSpec
- #label: #TestApplication1
- #name: #TestApplication1
- #min: #(#Point 10 10)
- #max: #(#Point 1280 1024)
- #bounds: #(#Rectangle 16 46 316 346)
- )
- #component:
+ #label: #TestApplication1
+ #name: #TestApplication1
+ #min: #(#Point 10 10)
+ #max: #(#Point 1280 1024)
+ #bounds: #(#Rectangle 16 46 316 346)
+ )
+ #component:
#(#SpecCollection
- #collection: #(
- #(#ActionButtonSpec
- #label: 'OK'
- #name: 'Button1'
- #layout: #(#LayoutFrame 7 0 271 0 132 0 293 0)
- #translateLabel: true
- #model: #accept
- #isDefault: true
- )
- #(#ActionButtonSpec
- #label: 'Cancel'
- #name: 'Button2'
- #layout: #(#LayoutFrame 167 0 271 0 292 0 293 0)
- #translateLabel: true
- #model: #cancel
- )
- )
-
- )
+ #collection: #(
+ #(#ActionButtonSpec
+ #label: 'OK'
+ #name: 'Button1'
+ #layout: #(#LayoutFrame 7 0 271 0 132 0 293 0)
+ #translateLabel: true
+ #model: #accept
+ #isDefault: true
+ )
+ #(#ActionButtonSpec
+ #label: 'Cancel'
+ #name: 'Button2'
+ #layout: #(#LayoutFrame 167 0 271 0 292 0 293 0)
+ #translateLabel: true
+ #model: #cancel
+ )
+ )
+
+ )
)
!
@@ -212,43 +212,43 @@
<resource: #canvas>
- ^
+ ^
#(#FullSpec
- #name: #dialogSpec3
- #window:
+ #name: #dialogSpec3
+ #window:
#(#WindowSpec
- #label: #TestApplication1
- #name: #TestApplication1
- #min: #(#Point 10 10)
- #max: #(#Point 1280 1024)
- #bounds: #(#Rectangle 16 46 316 346)
- )
- #component:
+ #label: #TestApplication1
+ #name: #TestApplication1
+ #min: #(#Point 10 10)
+ #max: #(#Point 1280 1024)
+ #bounds: #(#Rectangle 16 46 316 346)
+ )
+ #component:
#(#SpecCollection
- #collection: #(
- #(#ActionButtonSpec
- #label: 'OK'
- #name: 'Button1'
- #layout: #(#LayoutFrame 7 0 271 0 132 0 293 0)
- #translateLabel: true
- #model: #accept
- #isDefault: true
- )
- #(#ActionButtonSpec
- #label: 'Cancel'
- #name: 'Button2'
- #layout: #(#LayoutFrame 167 0 271 0 292 0 293 0)
- #translateLabel: true
- #model: #cancel
- )
- #(#InputFieldSpec
- #name: 'EntryField1'
- #layout: #(#LayoutFrame 50 0 127 0 255 0 149 0)
- #acceptOnPointerLeave: false
- )
- )
-
- )
+ #collection: #(
+ #(#ActionButtonSpec
+ #label: 'OK'
+ #name: 'Button1'
+ #layout: #(#LayoutFrame 7 0 271 0 132 0 293 0)
+ #translateLabel: true
+ #model: #accept
+ #isDefault: true
+ )
+ #(#ActionButtonSpec
+ #label: 'Cancel'
+ #name: 'Button2'
+ #layout: #(#LayoutFrame 167 0 271 0 292 0 293 0)
+ #translateLabel: true
+ #model: #cancel
+ )
+ #(#InputFieldSpec
+ #name: 'EntryField1'
+ #layout: #(#LayoutFrame 50 0 127 0 255 0 149 0)
+ #acceptOnPointerLeave: false
+ )
+ )
+
+ )
)
!
@@ -267,31 +267,31 @@
<resource: #canvas>
- ^
+ ^
#(#FullSpec
- #name: #windowSpec
- #window:
+ #name: #windowSpec
+ #window:
#(#WindowSpec
- #label: 'TestApplication1'
- #name: 'TestApplication1'
- #min: #(#Point 10 10)
- #max: #(#Point 1024 768)
- #bounds: #(#Rectangle 16 46 316 346)
- #menu: #mainMenu
- )
- #component:
+ #label: 'TestApplication1'
+ #name: 'TestApplication1'
+ #min: #(#Point 10 10)
+ #max: #(#Point 1024 768)
+ #bounds: #(#Rectangle 16 46 316 346)
+ #menu: #mainMenu
+ )
+ #component:
#(#SpecCollection
- #collection: #(
- #(#LabelSpec
- #label: 'Label'
- #name: 'Label1'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- #translateLabel: true
- #labelChannel: #infoMessageHolder
- )
- )
-
- )
+ #collection: #(
+ #(#LabelSpec
+ #label: 'Label'
+ #name: 'Label1'
+ #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+ #translateLabel: true
+ #labelChannel: #infoMessageHolder
+ )
+ )
+
+ )
)
! !
@@ -310,56 +310,56 @@
<resource: #menu>
^ #(#Menu
- #(
- #(#MenuItem
- #label: 'File'
- #translateLabel: true
- #submenu:
- #(#Menu
- #(
- #(#MenuItem
- #label: 'Exit'
- #translateLabel: true
- #value: #closeRequest
- )
- ) nil
- nil
- )
- )
- #(#MenuItem
- #label: 'Tests'
- #translateLabel: true
- #submenu:
- #(#Menu
- #(
- #(#MenuItem
- #label: 'Dialog1'
- #translateLabel: true
- #value: #testDialog1
- )
- #(#MenuItem
- #label: 'Dialog2'
- #translateLabel: true
- #value: #testDialog2
- )
- #(#MenuItem
- #label: 'Dialog3'
- #translateLabel: true
- #value: #testDialog3
- )
- #(#MenuItem
- #label: 'Dialog4'
- #translateLabel: true
- #value: #testDialog4
- )
- ) nil
- nil
- )
- )
+ #(
+ #(#MenuItem
+ #label: 'File'
+ #translateLabel: true
+ #submenu:
+ #(#Menu
+ #(
+ #(#MenuItem
+ #label: 'Exit'
+ #translateLabel: true
+ #value: #closeRequest
+ )
+ ) nil
+ nil
+ )
+ )
+ #(#MenuItem
+ #label: 'Tests'
+ #translateLabel: true
+ #submenu:
+ #(#Menu
+ #(
+ #(#MenuItem
+ #label: 'Dialog1'
+ #translateLabel: true
+ #value: #testDialog1
+ )
+ #(#MenuItem
+ #label: 'Dialog2'
+ #translateLabel: true
+ #value: #testDialog2
+ )
+ #(#MenuItem
+ #label: 'Dialog3'
+ #translateLabel: true
+ #value: #testDialog3
+ )
+ #(#MenuItem
+ #label: 'Dialog4'
+ #translateLabel: true
+ #value: #testDialog4
+ )
+ ) nil
+ nil
+ )
+ )
- ) nil
- nil
+ ) nil
+ nil
)
! !
@@ -376,11 +376,11 @@
|holder|
(holder := builder bindingAt:#infoMessageHolder) isNil ifTrue:[
- holder := ValueHolder new.
- builder aspectAt:#infoMessageHolder put:holder.
+ holder := ValueHolder new.
+ builder aspectAt:#infoMessageHolder put:holder.
- holder value:'
-Please check that
+ holder value:'
+Please check that
all dialogs (open via the ''Tests''-menuItem)
close when their OK-Button is pressed.
'.
@@ -410,7 +410,7 @@
postBuildWith:aBuilder
"This is a hook method generated by the Browser.
It will be invoked during the initialization of your app/dialog,
- after all of the visual components have been built,
+ after all of the visual components have been built,
but BEFORE the top window is made visible.
Add any app-specific actions here (reading files, setting up values etc.)
See also #postOpenWith:, which is invoked after opening."
--- a/RegressionTests__TimeAndDateTest.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__TimeAndDateTest.st Thu Jun 30 09:02:08 2016 +0100
@@ -15,35 +15,35 @@
test_01_ReadingTimes
self assert:(Time readFrom:'0:00' ) = (Time hour:0 minute:0 second:0).
- self assert:(Time readFrom:'2:00' ) = (Time hour:2 minute:0 second:0).
- self assert:(Time readFrom:'12:00' ) = (Time hour:12 minute:0 second:0).
- self assert:(Time readFrom:'14:00' ) = (Time hour:14 minute:0 second:0).
- self assert:(Time readFrom:'23:00' ) = (Time hour:23 minute:0 second:0).
- self assert:(Time readFrom:'24:00' ) = (Time hour:0 minute:0 second:0).
- self assert:(Time readFrom:'2:30 am' ) = (Time hour:2 minute:30 second:0).
- self assert:(Time readFrom:'2:30 pm' ) = (Time hour:14 minute:30 second:0).
+ self assert:(Time readFrom:'2:00' ) = (Time hour:2 minute:0 second:0).
+ self assert:(Time readFrom:'12:00' ) = (Time hour:12 minute:0 second:0).
+ self assert:(Time readFrom:'14:00' ) = (Time hour:14 minute:0 second:0).
+ self assert:(Time readFrom:'23:00' ) = (Time hour:23 minute:0 second:0).
+ self assert:(Time readFrom:'24:00' ) = (Time hour:0 minute:0 second:0).
+ self assert:(Time readFrom:'2:30 am' ) = (Time hour:2 minute:30 second:0).
+ self assert:(Time readFrom:'2:30 pm' ) = (Time hour:14 minute:30 second:0).
self assert:(Time readFrom:'14' ) = (Time hour:14 minute:0 second:0).
- self assert:(Time readFrom:'2 am' ) = (Time hour:2 minute:0 second:0).
- self assert:(Time readFrom:'2 pm' ) = (Time hour:14 minute:0 second:0).
- self assert:(Time readFrom:'12:05 pm') = (Time hour:12 minute:5 second:0).
- self assert:(Time readFrom:'12:06 am') = (Time hour:0 minute:6 second:0).
+ self assert:(Time readFrom:'2 am' ) = (Time hour:2 minute:0 second:0).
+ self assert:(Time readFrom:'2 pm' ) = (Time hour:14 minute:0 second:0).
+ self assert:(Time readFrom:'12:05 pm') = (Time hour:12 minute:5 second:0).
+ self assert:(Time readFrom:'12:06 am') = (Time hour:0 minute:6 second:0).
- self assert:(Time readFrom:'18:22:00') = (Time hour:18 minute:22 second:0).
- self assert:(Time readFrom:'14:00:11') = (Time hour:14 minute:0 second:11).
- self assert:(Time readFrom:'7:00:11' ) = (Time hour:7 minute:0 second:11).
- self assert:(Time readFrom:'24:00:00') = (Time hour:0 minute:0 second:0).
- self assert:(Time readFrom:'0:00:00' ) = (Time hour:0 minute:0 second:0).
- self assert:(Time readFrom:'12:00:00') = (Time hour:12 minute:0 second:0).
- self assert:(Time readFrom:'0:00:00' ) = (Time hour:0 minute:0 second:0).
- self assert:(Time readFrom:'6:22:00 pm' ) = (Time hour:18 minute:22 second:0).
- self assert:(Time readFrom:'2:00:11 pm' ) = (Time hour:14 minute:0 second:11).
- self assert:(Time readFrom:'7:00:11 am' ) = (Time hour:7 minute:0 second:11).
- self assert:(Time readFrom:'12:00:00 am') = (Time hour:0 minute:0 second:0).
- self assert:(Time readFrom:'0:00:00 am' ) = (Time hour:0 minute:0 second:0).
+ self assert:(Time readFrom:'18:22:00') = (Time hour:18 minute:22 second:0).
+ self assert:(Time readFrom:'14:00:11') = (Time hour:14 minute:0 second:11).
+ self assert:(Time readFrom:'7:00:11' ) = (Time hour:7 minute:0 second:11).
+ self assert:(Time readFrom:'24:00:00') = (Time hour:0 minute:0 second:0).
+ self assert:(Time readFrom:'0:00:00' ) = (Time hour:0 minute:0 second:0).
+ self assert:(Time readFrom:'12:00:00') = (Time hour:12 minute:0 second:0).
+ self assert:(Time readFrom:'0:00:00' ) = (Time hour:0 minute:0 second:0).
+ self assert:(Time readFrom:'6:22:00 pm' ) = (Time hour:18 minute:22 second:0).
+ self assert:(Time readFrom:'2:00:11 pm' ) = (Time hour:14 minute:0 second:11).
+ self assert:(Time readFrom:'7:00:11 am' ) = (Time hour:7 minute:0 second:11).
+ self assert:(Time readFrom:'12:00:00 am') = (Time hour:0 minute:0 second:0).
+ self assert:(Time readFrom:'0:00:00 am' ) = (Time hour:0 minute:0 second:0).
self should:[ Time readFrom:'24:00:00 am' ] raise:TimeConversionError.
- self assert:(Time readFrom:'12:00:00 pm') = (Time hour:12 minute:0 second:0).
+ self assert:(Time readFrom:'12:00:00 pm') = (Time hour:12 minute:0 second:0).
self assert:(Time readFrom:'0:00:00 pm' onError:'invalid') = 'invalid'.
- self should:[ Time readFrom:'24:00:00 pm' ] raise:TimeConversionError.
+ self should:[ Time readFrom:'24:00:00 pm' ] raise:TimeConversionError.
"
self new test_01_Reading
@@ -52,73 +52,73 @@
test_02_ReadingDates
- self assert:(Date
- readFrom:'2-may-2010'
- printFormat:'%d-%shortMonthName-%y'
- language:'en'
- onError:[self error]
- ) = (Date newDay:2 month:5 year:2010).
+ self assert:(Date
+ readFrom:'2-may-2010'
+ printFormat:'%d-%shortMonthName-%y'
+ language:'en'
+ onError:[self error]
+ ) = (Date newDay:2 month:5 year:2010).
{
- { '3-jan-2012' . (Date newDay:3 month:1 year:2012) } .
- { '15-feb-2012' . (Date newDay:15 month:2 year:2012) } .
- { '06-mar-2011' . (Date newDay:6 month:3 year:2011) } .
- { '19-apr-2013' . (Date newDay:19 month:4 year:2013) } .
- { '21-may-2015' . (Date newDay:21 month:5 year:2015) } .
- { '21-jun-2015' . (Date newDay:21 month:6 year:2015) } .
- { '21-jul-2015' . (Date newDay:21 month:7 year:2015) } .
- { '21-aug-2015' . (Date newDay:21 month:8 year:2015) } .
- { '21-sep-2015' . (Date newDay:21 month:9 year:2015) } .
- { '21-oct-2015' . (Date newDay:21 month:10 year:2015) } .
- { '21-nov-2015' . (Date newDay:21 month:11 year:2015) } .
- { '21-dec-2015' . (Date newDay:21 month:12 year:2015) } .
+ { '3-jan-2012' . (Date newDay:3 month:1 year:2012) } .
+ { '15-feb-2012' . (Date newDay:15 month:2 year:2012) } .
+ { '06-mar-2011' . (Date newDay:6 month:3 year:2011) } .
+ { '19-apr-2013' . (Date newDay:19 month:4 year:2013) } .
+ { '21-may-2015' . (Date newDay:21 month:5 year:2015) } .
+ { '21-jun-2015' . (Date newDay:21 month:6 year:2015) } .
+ { '21-jul-2015' . (Date newDay:21 month:7 year:2015) } .
+ { '21-aug-2015' . (Date newDay:21 month:8 year:2015) } .
+ { '21-sep-2015' . (Date newDay:21 month:9 year:2015) } .
+ { '21-oct-2015' . (Date newDay:21 month:10 year:2015) } .
+ { '21-nov-2015' . (Date newDay:21 month:11 year:2015) } .
+ { '21-dec-2015' . (Date newDay:21 month:12 year:2015) } .
} do:[:eachTestPair |
- self assert:(Date
- readFrom:(eachTestPair first)
- printFormat:'%d-%shortMonthName-%y'
- language:'en'
- onError:[self error]
- ) = (eachTestPair second).
+ self assert:(Date
+ readFrom:(eachTestPair first)
+ printFormat:'%d-%shortMonthName-%y'
+ language:'en'
+ onError:[self error]
+ ) = (eachTestPair second).
].
- self assert:(Date
- readFrom:'2-may-2010'
- printFormat:'%d-%monthName-%y'
- language:'en'
- onError:[self error]
- ) = (Date newDay:2 month:5 year:2010).
+ self assert:(Date
+ readFrom:'2-may-2010'
+ printFormat:'%d-%monthName-%y'
+ language:'en'
+ onError:[self error]
+ ) = (Date newDay:2 month:5 year:2010).
- self assert:(Date
- readFrom:'2-may-2010'
- printFormat:'%d-%(shortMonthName)-%y'
- language:'en'
- onError:[self error]
- ) = (Date newDay:2 month:5 year:2010).
+ self assert:(Date
+ readFrom:'2-may-2010'
+ printFormat:'%d-%(shortMonthName)-%y'
+ language:'en'
+ onError:[self error]
+ ) = (Date newDay:2 month:5 year:2010).
- self assert:(Date
- readFrom:'2-may-2010'
- printFormat:'%d-%(monthName)-%y'
- language:'en'
- onError:[self error]
- ) = (Date newDay:2 month:5 year:2010).
+ self assert:(Date
+ readFrom:'2-may-2010'
+ printFormat:'%d-%(monthName)-%y'
+ language:'en'
+ onError:[self error]
+ ) = (Date newDay:2 month:5 year:2010).
- self assert:(Date
- readFrom:'2-5-2010'
- printFormat:'%d-%m-%y'
- onError:[self error]
- ) = (Date newDay:2 month:5 year:2010).
+ self assert:(Date
+ readFrom:'2-5-2010'
+ printFormat:'%d-%m-%y'
+ onError:[self error]
+ ) = (Date newDay:2 month:5 year:2010).
- self assert:(Date
- readFrom:'5/2/2010'
- printFormat:'%m/%d/%y'
- onError:[self error]
- ) = (Date newDay:2 month:5 year:2010).
+ self assert:(Date
+ readFrom:'5/2/2010'
+ printFormat:'%m/%d/%y'
+ onError:[self error]
+ ) = (Date newDay:2 month:5 year:2010).
- self assert:(Date
- readFrom:'2010-5-2'
- printFormat:'%y-%m-%d'
- onError:[self error]
- ) = (Date newDay:2 month:5 year:2010).
+ self assert:(Date
+ readFrom:'2010-5-2'
+ printFormat:'%y-%m-%d'
+ onError:[self error]
+ ) = (Date newDay:2 month:5 year:2010).
"
self new test_02_ReadingDates
@@ -144,9 +144,9 @@
"/ every 4th of january is in the 1st week
1902 to:2100 do:[:y |
- |d|
- d := Date newDay:4 month:1 year:y.
- self assert:d weekInYear == 1.
+ |d|
+ d := Date newDay:4 month:1 year:y.
+ self assert:d weekInYear == 1.
].
"
@@ -159,9 +159,9 @@
^ self.
"/ currently fails for date before 1901
1900 to:1905 do:[:y |
- |d|
- d := Date newDay:4 month:1 year:y.
- self assert:d weekInYear == 1.
+ |d|
+ d := Date newDay:4 month:1 year:y.
+ self assert:d weekInYear == 1.
].
"
@@ -171,40 +171,40 @@
test_05_weekDayConversion
{
- { #( 6 53 2004) "2004-W53-6" . (Date newDay:1 month:1 year:2005) } .
- { #( 7 53 2004) "2004-W53-7" . (Date newDay:2 month:1 year:2005) } .
- { #( 6 52 2005) "2005-W52-6" . (Date newDay:31 month:12 year:2005) } .
- { #( 1 1 2007) "2007-W01-1" . (Date newDay:1 month:1 year:2007) } .
- { #( 7 52 2007) "2007-W52-7" . (Date newDay:30 month:12 year:2007) } .
+ { #( 6 53 2004) "2004-W53-6" . (Date newDay:1 month:1 year:2005) } .
+ { #( 7 53 2004) "2004-W53-7" . (Date newDay:2 month:1 year:2005) } .
+ { #( 6 52 2005) "2005-W52-6" . (Date newDay:31 month:12 year:2005) } .
+ { #( 1 1 2007) "2007-W01-1" . (Date newDay:1 month:1 year:2007) } .
+ { #( 7 52 2007) "2007-W52-7" . (Date newDay:30 month:12 year:2007) } .
- { #( 1 1 2008) "2008-W01-1" . (Date newDay:31 month:12 year:2007) } .
- { #( 2 1 2008) "2008-W01-2" . (Date newDay:1 month:1 year:2008) } .
- { #( 7 52 2008) "2008-W52-7" . (Date newDay:28 month:12 year:2008) } .
+ { #( 1 1 2008) "2008-W01-1" . (Date newDay:31 month:12 year:2007) } .
+ { #( 2 1 2008) "2008-W01-2" . (Date newDay:1 month:1 year:2008) } .
+ { #( 7 52 2008) "2008-W52-7" . (Date newDay:28 month:12 year:2008) } .
- { #( 1 1 2009) "2009-W01-1" . (Date newDay:29 month:12 year:2008) } .
- { #( 2 1 2009) "2009-W01-2" . (Date newDay:30 month:12 year:2008) } .
- { #( 3 1 2009) "2009-W01-3" . (Date newDay:31 month:12 year:2008) } .
- { #( 4 1 2009) "2009-W01-4" . (Date newDay:1 month:1 year:2009) } .
+ { #( 1 1 2009) "2009-W01-1" . (Date newDay:29 month:12 year:2008) } .
+ { #( 2 1 2009) "2009-W01-2" . (Date newDay:30 month:12 year:2008) } .
+ { #( 3 1 2009) "2009-W01-3" . (Date newDay:31 month:12 year:2008) } .
+ { #( 4 1 2009) "2009-W01-4" . (Date newDay:1 month:1 year:2009) } .
- { #( 4 53 2009) "2009-W53-4" . (Date newDay:31 month:12 year:2009) } .
- { #( 5 53 2009) "2009-W53-5" . (Date newDay:1 month:1 year:2010) } .
- { #( 6 53 2009) "2009-W53-6" . (Date newDay:2 month:1 year:2010) } .
- { #( 7 53 2009) "2009-W53-7" . (Date newDay:3 month:1 year:2010) } .
+ { #( 4 53 2009) "2009-W53-4" . (Date newDay:31 month:12 year:2009) } .
+ { #( 5 53 2009) "2009-W53-5" . (Date newDay:1 month:1 year:2010) } .
+ { #( 6 53 2009) "2009-W53-6" . (Date newDay:2 month:1 year:2010) } .
+ { #( 7 53 2009) "2009-W53-7" . (Date newDay:3 month:1 year:2010) } .
- { #( 1 1 1997) "1997-W01-1" . (Date newDay:30 month:12 year:1996) } .
+ { #( 1 1 1997) "1997-W01-1" . (Date newDay:30 month:12 year:1996) } .
} do:[:eachPair |
- |dwy d1 d2 dayInWeek weekNr year|
+ |dwy d1 d2 dayInWeek weekNr year|
- dwy := eachPair first.
- dayInWeek := dwy first.
- weekNr := dwy second.
- year := dwy third.
- d1 := Date newDayInWeek:dayInWeek week:weekNr year:year.
+ dwy := eachPair first.
+ dayInWeek := dwy first.
+ weekNr := dwy second.
+ year := dwy third.
+ d1 := Date newDayInWeek:dayInWeek week:weekNr year:year.
- d2 := eachPair second.
- self assert:(d1 = d2) description:'wrong: ',d1 printString, ' vs. ',d2 printString.
- self assert:(d1 weekInYear == weekNr).
- self assert:(d1 dayInWeek == dayInWeek).
+ d2 := eachPair second.
+ self assert:(d1 = d2) description:'wrong: ',d1 printString, ' vs. ',d2 printString.
+ self assert:(d1 weekInYear == weekNr).
+ self assert:(d1 dayInWeek == dayInWeek).
]
"
@@ -214,35 +214,35 @@
test_06_readingISO8601
{
- { '2004-W53-6' . 'sat' . (Date newDay:1 month:1 year:2005) } .
- { '2004-W53-7' . 'sun' . (Date newDay:2 month:1 year:2005) } .
- { '2005-W52-6' . 'sat' . (Date newDay:31 month:12 year:2005) } .
- { '2007-W01-1' . 'mon' . (Date newDay:1 month:1 year:2007) } .
- { '2007-W52-7' . 'sun' . (Date newDay:30 month:12 year:2007) } .
+ { '2004-W53-6' . 'sat' . (Date newDay:1 month:1 year:2005) } .
+ { '2004-W53-7' . 'sun' . (Date newDay:2 month:1 year:2005) } .
+ { '2005-W52-6' . 'sat' . (Date newDay:31 month:12 year:2005) } .
+ { '2007-W01-1' . 'mon' . (Date newDay:1 month:1 year:2007) } .
+ { '2007-W52-7' . 'sun' . (Date newDay:30 month:12 year:2007) } .
- { '2008-W01-1' . 'mon' . (Date newDay:31 month:12 year:2007) } .
- { '2008-W01-2' . 'tue' . (Date newDay:1 month:1 year:2008) } .
- { '2008-W52-7' . 'sun' . (Date newDay:28 month:12 year:2008) } .
+ { '2008-W01-1' . 'mon' . (Date newDay:31 month:12 year:2007) } .
+ { '2008-W01-2' . 'tue' . (Date newDay:1 month:1 year:2008) } .
+ { '2008-W52-7' . 'sun' . (Date newDay:28 month:12 year:2008) } .
- { '2009-W01-1' . 'mon' . (Date newDay:29 month:12 year:2008) } .
- { '2009-W01-2' . 'tue' . (Date newDay:30 month:12 year:2008) } .
- { '2009-W01-3' . 'wed' . (Date newDay:31 month:12 year:2008) } .
- { '2009-W01-4' . 'thu' . (Date newDay:1 month:1 year:2009) } .
+ { '2009-W01-1' . 'mon' . (Date newDay:29 month:12 year:2008) } .
+ { '2009-W01-2' . 'tue' . (Date newDay:30 month:12 year:2008) } .
+ { '2009-W01-3' . 'wed' . (Date newDay:31 month:12 year:2008) } .
+ { '2009-W01-4' . 'thu' . (Date newDay:1 month:1 year:2009) } .
- { '2009-W53-4' . 'thu' . (Date newDay:31 month:12 year:2009) } .
- { '2009-W53-5' . 'fri' . (Date newDay:1 month:1 year:2010) } .
- { '2009-W53-6' . 'sat' . (Date newDay:2 month:1 year:2010) } .
- { '2009-W53-7' . 'sun' . (Date newDay:3 month:1 year:2010) } .
+ { '2009-W53-4' . 'thu' . (Date newDay:31 month:12 year:2009) } .
+ { '2009-W53-5' . 'fri' . (Date newDay:1 month:1 year:2010) } .
+ { '2009-W53-6' . 'sat' . (Date newDay:2 month:1 year:2010) } .
+ { '2009-W53-7' . 'sun' . (Date newDay:3 month:1 year:2010) } .
} do:[:eachTriple |
- |input expected expectedDayName got gotName|
+ |input expected expectedDayName got gotName|
- input := eachTriple first.
- expectedDayName := eachTriple second.
- expected := eachTriple third.
- got := (Timestamp readIso8601FormatFrom:input onError:nil) asDate.
- self assert:(got = expected) description:'wrong: ',input.
- gotName := got abbreviatedDayNameForLanguage:#en.
- self assert:gotName = expectedDayName description:'expected: ',expectedDayName asString,' got: ',gotName asString.
+ input := eachTriple first.
+ expectedDayName := eachTriple second.
+ expected := eachTriple third.
+ got := (Timestamp readIso8601FormatFrom:input onError:nil) asDate.
+ self assert:(got = expected) description:'wrong: ',input.
+ gotName := got abbreviatedDayNameForLanguage:#en.
+ self assert:gotName = expectedDayName description:'expected: ',expectedDayName asString,' got: ',gotName asString.
]
"
@@ -257,72 +257,72 @@
(but not for data exchange)"
{
- { '1995-02-20T13:11:06.123' . '1995-02-20 13:11:06.123' } .
- { '1995-02-20T13:11:06' . '1995-02-20 13:11:06' } .
- { '1995-02T13:11:06' . '1995-02-01 13:11:06' } .
- { '1995T13:11:06' . '1995-01-01 13:11:06' } .
- { '1995T13:11' . '1995-01-01 13:11:00' } .
- { '1995T13:11.5' . '1995-01-01 13:11:30' } .
- { '1995T13:11,5' . '1995-01-01 13:11:30' } .
- { '1995T13' . '1995-01-01 13:00:00' } .
- { '1995T13.25' . '1995-01-01 13:15:00' } .
- { '1995T13.333333' . '1995-01-01 13:19:59.999' } .
- { '1995' . '1995-01-01 00:00:00' } .
- { '1995-02' . '1995-02-01 00:00:00' } .
- { '19950204' . '1995-02-04 00:00:00' } .
+ { '1995-02-20T13:11:06.123' . '1995-02-20 13:11:06.123' } .
+ { '1995-02-20T13:11:06' . '1995-02-20 13:11:06' } .
+ { '1995-02T13:11:06' . '1995-02-01 13:11:06' } .
+ { '1995T13:11:06' . '1995-01-01 13:11:06' } .
+ { '1995T13:11' . '1995-01-01 13:11:00' } .
+ { '1995T13:11.5' . '1995-01-01 13:11:30' } .
+ { '1995T13:11,5' . '1995-01-01 13:11:30' } .
+ { '1995T13' . '1995-01-01 13:00:00' } .
+ { '1995T13.25' . '1995-01-01 13:15:00' } .
+ { '1995T13.333333' . '1995-01-01 13:19:59.999' } .
+ { '1995' . '1995-01-01 00:00:00' } .
+ { '1995-02' . '1995-02-01 00:00:00' } .
+ { '19950204' . '1995-02-04 00:00:00' } .
"/ day in year
- { '1995-001' . '1995-01-01 00:00:00' } .
- { '1995-035' . '1995-02-04 00:00:00' } .
- { '1995035' . '1995-02-04 00:00:00' } .
+ { '1995-001' . '1995-01-01 00:00:00' } .
+ { '1995-035' . '1995-02-04 00:00:00' } .
+ { '1995035' . '1995-02-04 00:00:00' } .
- { '1997-01-01' . '1997-01-01 00:00:00' } .
+ { '1997-01-01' . '1997-01-01 00:00:00' } .
"/ week and weekday
- { '1997-W01' . '1996-12-30 00:00:00' } .
- { '1997W01' . '1996-12-30 00:00:00' } .
- { '1997W01-1' . '1996-12-30 00:00:00' } .
- { '1997W011' . '1996-12-30 00:00:00' } .
- { '1997W01' . '1996-12-30 00:00:00' } .
- { '1997W01-2' . '1996-12-31 00:00:00' } .
- { '1997-W01-2' . '1996-12-31 00:00:00' } .
- { '1997W012' . '1996-12-31 00:00:00' } .
- { '2014W40' . '2014-09-29 00:00:00' } .
- { '2014W44-4' . '2014-10-30 00:00:00' } .
- { '2014W01' . '2013-12-30 00:00:00' } .
- { '2014W01-1' . '2013-12-30 00:00:00' } .
- { '2014W01-2' . '2013-12-31 00:00:00' } .
- { '2014W01-3' . '2014-01-01 00:00:00' } .
+ { '1997-W01' . '1996-12-30 00:00:00' } .
+ { '1997W01' . '1996-12-30 00:00:00' } .
+ { '1997W01-1' . '1996-12-30 00:00:00' } .
+ { '1997W011' . '1996-12-30 00:00:00' } .
+ { '1997W01' . '1996-12-30 00:00:00' } .
+ { '1997W01-2' . '1996-12-31 00:00:00' } .
+ { '1997-W01-2' . '1996-12-31 00:00:00' } .
+ { '1997W012' . '1996-12-31 00:00:00' } .
+ { '2014W40' . '2014-09-29 00:00:00' } .
+ { '2014W44-4' . '2014-10-30 00:00:00' } .
+ { '2014W01' . '2013-12-30 00:00:00' } .
+ { '2014W01-1' . '2013-12-30 00:00:00' } .
+ { '2014W01-2' . '2013-12-31 00:00:00' } .
+ { '2014W01-3' . '2014-01-01 00:00:00' } .
- { '1995-02-20 13:11' . '1995-02-20 13:11:00' } .
- { '1995-02-20 1311' . '1995-02-20 13:11:00' } .
- { '1995-02-20 13' . '1995-02-20 13:00:00' } .
- { '1995-02-20 235959' . '1995-02-20 23:59:59' } .
- { '19950220 235959' . '1995-02-20 23:59:59' } .
- { '19950220 23:59:59.9942' . '1995-02-20 23:59:59.994' } .
- { '19950220 235959.9942' . '1995-02-20 23:59:59.994' } .
+ { '1995-02-20 13:11' . '1995-02-20 13:11:00' } .
+ { '1995-02-20 1311' . '1995-02-20 13:11:00' } .
+ { '1995-02-20 13' . '1995-02-20 13:00:00' } .
+ { '1995-02-20 235959' . '1995-02-20 23:59:59' } .
+ { '19950220 235959' . '1995-02-20 23:59:59' } .
+ { '19950220 23:59:59.9942' . '1995-02-20 23:59:59.994' } .
+ { '19950220 235959.9942' . '1995-02-20 23:59:59.994' } .
"/ local vs. UTC
- { '1995-02-20 13:11:06' . '1995-02-20 13:11:06' } .
- { '1995-02-20 13:11:06Z' . '1995-02-20 13:11:06Z' } .
- { '1995-02-20 13:11:06+01' . '1995-02-20 13:11:06+01' } .
- { '1995-02-20 13:11:06+01:00' . '1995-02-20 13:11:06+01' } .
- { '1995-02-20 13:11:06+01:30' . '1995-02-20 13:11:06+01:30' } .
- { '1995-02-20 13:11:06+0130' . '1995-02-20 13:11:06+01:30' } .
- { '1995-02-20 13:11:06-01' . '1995-02-20 13:11:06-01' } .
- { '1995-02-20 13:11:06-01:00' . '1995-02-20 13:11:06-01' } .
- { '1995-02-20 13:11:06-01:30' . '1995-02-20 13:11:06-01:30' } .
- { '1995-02-20 13:11:06-0130' . '1995-02-20 13:11:06-01:30' } .
+ { '1995-02-20 13:11:06' . '1995-02-20 13:11:06' } .
+ { '1995-02-20 13:11:06Z' . '1995-02-20 13:11:06Z' } .
+ { '1995-02-20 13:11:06+01' . '1995-02-20 13:11:06+01' } .
+ { '1995-02-20 13:11:06+01:00' . '1995-02-20 13:11:06+01' } .
+ { '1995-02-20 13:11:06+01:30' . '1995-02-20 13:11:06+01:30' } .
+ { '1995-02-20 13:11:06+0130' . '1995-02-20 13:11:06+01:30' } .
+ { '1995-02-20 13:11:06-01' . '1995-02-20 13:11:06-01' } .
+ { '1995-02-20 13:11:06-01:00' . '1995-02-20 13:11:06-01' } .
+ { '1995-02-20 13:11:06-01:30' . '1995-02-20 13:11:06-01:30' } .
+ { '1995-02-20 13:11:06-0130' . '1995-02-20 13:11:06-01:30' } .
"/ 24 is allowed with ISO, and is 00:00 of the next day:
- { '1995-02-20 24:00:00' . '1995-02-21 00:00:00' } .
+ { '1995-02-20 24:00:00' . '1995-02-21 00:00:00' } .
} do:[:eachPair |
- |s1 t expected got|
+ |s1 t expected got|
- s1 := eachPair first.
- t := Timestamp readIso8601FormatFrom:s1.
- expected := eachPair second.
- got := t asString.
- self assert:(got = expected) description:'expected: ',expected,' got:',got.
+ s1 := eachPair first.
+ t := Timestamp readIso8601FormatFrom:s1.
+ expected := eachPair second.
+ got := t asString.
+ self assert:(got = expected) description:'expected: ',expected,' got:',got.
].
"
@@ -334,72 +334,72 @@
"tests reading into an utc timestamp"
{
- { '1995-02-20T13:11:06.123' . '1995-02-20 13:11:06.123Z' } .
- { '1995-02-20T13:11:06' . '1995-02-20 13:11:06Z' } .
- { '1995-02T13:11:06' . '1995-02-01 13:11:06Z' } .
- { '1995T13:11:06' . '1995-01-01 13:11:06Z' } .
- { '1995T13:11' . '1995-01-01 13:11:00Z' } .
- { '1995T13:11.5' . '1995-01-01 13:11:30Z' } .
- { '1995T13:11,5' . '1995-01-01 13:11:30Z' } .
- { '1995T13' . '1995-01-01 13:00:00Z' } .
- { '1995T13.25' . '1995-01-01 13:15:00Z' } .
- { '1995T13.333333' . '1995-01-01 13:19:59.999Z' } .
- { '1995' . '1995-01-01 00:00:00Z' } .
- { '1995-02' . '1995-02-01 00:00:00Z' } .
- { '19950204' . '1995-02-04 00:00:00Z' } .
+ { '1995-02-20T13:11:06.123' . '1995-02-20 13:11:06.123Z' } .
+ { '1995-02-20T13:11:06' . '1995-02-20 13:11:06Z' } .
+ { '1995-02T13:11:06' . '1995-02-01 13:11:06Z' } .
+ { '1995T13:11:06' . '1995-01-01 13:11:06Z' } .
+ { '1995T13:11' . '1995-01-01 13:11:00Z' } .
+ { '1995T13:11.5' . '1995-01-01 13:11:30Z' } .
+ { '1995T13:11,5' . '1995-01-01 13:11:30Z' } .
+ { '1995T13' . '1995-01-01 13:00:00Z' } .
+ { '1995T13.25' . '1995-01-01 13:15:00Z' } .
+ { '1995T13.333333' . '1995-01-01 13:19:59.999Z' } .
+ { '1995' . '1995-01-01 00:00:00Z' } .
+ { '1995-02' . '1995-02-01 00:00:00Z' } .
+ { '19950204' . '1995-02-04 00:00:00Z' } .
"/ day in year
- { '1995-001' . '1995-01-01 00:00:00Z' } .
- { '1995-035' . '1995-02-04 00:00:00Z' } .
- { '1995035' . '1995-02-04 00:00:00Z' } .
+ { '1995-001' . '1995-01-01 00:00:00Z' } .
+ { '1995-035' . '1995-02-04 00:00:00Z' } .
+ { '1995035' . '1995-02-04 00:00:00Z' } .
- { '1997-01-01' . '1997-01-01 00:00:00Z' } .
+ { '1997-01-01' . '1997-01-01 00:00:00Z' } .
"/ week and weekday
- { '1997-W01' . '1996-12-30 00:00:00Z' } .
- { '1997W01' . '1996-12-30 00:00:00Z' } .
- { '1997W01-1' . '1996-12-30 00:00:00Z' } .
- { '1997W011' . '1996-12-30 00:00:00Z' } .
- { '1997W01' . '1996-12-30 00:00:00Z' } .
- { '1997W01-2' . '1996-12-31 00:00:00Z' } .
- { '1997-W01-2' . '1996-12-31 00:00:00Z' } .
- { '1997W012' . '1996-12-31 00:00:00Z' } .
- { '2014W40' . '2014-09-29 00:00:00Z' } .
- { '2014W44-4' . '2014-10-30 00:00:00Z' } .
- { '2014W01' . '2013-12-30 00:00:00Z' } .
- { '2014W01-1' . '2013-12-30 00:00:00Z' } .
- { '2014W01-2' . '2013-12-31 00:00:00Z' } .
- { '2014W01-3' . '2014-01-01 00:00:00Z' } .
+ { '1997-W01' . '1996-12-30 00:00:00Z' } .
+ { '1997W01' . '1996-12-30 00:00:00Z' } .
+ { '1997W01-1' . '1996-12-30 00:00:00Z' } .
+ { '1997W011' . '1996-12-30 00:00:00Z' } .
+ { '1997W01' . '1996-12-30 00:00:00Z' } .
+ { '1997W01-2' . '1996-12-31 00:00:00Z' } .
+ { '1997-W01-2' . '1996-12-31 00:00:00Z' } .
+ { '1997W012' . '1996-12-31 00:00:00Z' } .
+ { '2014W40' . '2014-09-29 00:00:00Z' } .
+ { '2014W44-4' . '2014-10-30 00:00:00Z' } .
+ { '2014W01' . '2013-12-30 00:00:00Z' } .
+ { '2014W01-1' . '2013-12-30 00:00:00Z' } .
+ { '2014W01-2' . '2013-12-31 00:00:00Z' } .
+ { '2014W01-3' . '2014-01-01 00:00:00Z' } .
- { '1995-02-20 13:11' . '1995-02-20 13:11:00Z' } .
- { '1995-02-20 1311' . '1995-02-20 13:11:00Z' } .
- { '1995-02-20 13' . '1995-02-20 13:00:00Z' } .
- { '1995-02-20 235959' . '1995-02-20 23:59:59Z' } .
- { '19950220 235959' . '1995-02-20 23:59:59Z' } .
- { '19950220 23:59:59.9942' . '1995-02-20 23:59:59.994Z' } .
- { '19950220 235959.9942' . '1995-02-20 23:59:59.994Z' } .
+ { '1995-02-20 13:11' . '1995-02-20 13:11:00Z' } .
+ { '1995-02-20 1311' . '1995-02-20 13:11:00Z' } .
+ { '1995-02-20 13' . '1995-02-20 13:00:00Z' } .
+ { '1995-02-20 235959' . '1995-02-20 23:59:59Z' } .
+ { '19950220 235959' . '1995-02-20 23:59:59Z' } .
+ { '19950220 23:59:59.9942' . '1995-02-20 23:59:59.994Z' } .
+ { '19950220 235959.9942' . '1995-02-20 23:59:59.994Z' } .
"/ local vs. UTC
- { '1995-02-20 13:11:06' . '1995-02-20 13:11:06Z' } .
- { '1995-02-20 13:11:06Z' . '1995-02-20 13:11:06Z' } .
+ { '1995-02-20 13:11:06' . '1995-02-20 13:11:06Z' } .
+ { '1995-02-20 13:11:06Z' . '1995-02-20 13:11:06Z' } .
{ '1995-02-20 13:11:06+01' . '1995-02-20 12:11:06Z' } . "/ notice the changed time here!!!!!!
- { '1995-02-20 13:11:06+01:00' . '1995-02-20 12:11:06Z' } . "/ notice the changed time here!!!!!!
- { '1995-02-20 13:11:06+01:30' . '1995-02-20 11:41:06Z' } . "/ notice the changed time here!!!!!!
- { '1995-02-20 13:11:06+0130' . '1995-02-20 11:41:06Z' } . "/ notice the changed time here!!!!!!
- { '1995-02-20 13:11:06-01' . '1995-02-20 14:11:06Z' } .
- { '1995-02-20 13:11:06-01:00' . '1995-02-20 14:11:06Z' } .
- { '1995-02-20 13:11:06-01:30' . '1995-02-20 14:41:06Z' } .
- { '1995-02-20 13:11:06-0130' . '1995-02-20 14:41:06Z' } .
+ { '1995-02-20 13:11:06+01:00' . '1995-02-20 12:11:06Z' } . "/ notice the changed time here!!!!!!
+ { '1995-02-20 13:11:06+01:30' . '1995-02-20 11:41:06Z' } . "/ notice the changed time here!!!!!!
+ { '1995-02-20 13:11:06+0130' . '1995-02-20 11:41:06Z' } . "/ notice the changed time here!!!!!!
+ { '1995-02-20 13:11:06-01' . '1995-02-20 14:11:06Z' } .
+ { '1995-02-20 13:11:06-01:00' . '1995-02-20 14:11:06Z' } .
+ { '1995-02-20 13:11:06-01:30' . '1995-02-20 14:41:06Z' } .
+ { '1995-02-20 13:11:06-0130' . '1995-02-20 14:41:06Z' } .
"/ 24 is allowed with ISO, and is 00:00 of the next day:
- { '1995-02-20 24:00:00' . '1995-02-21 00:00:00Z' } .
+ { '1995-02-20 24:00:00' . '1995-02-21 00:00:00Z' } .
} do:[:eachPair |
- |s1 t expected got|
+ |s1 t expected got|
- s1 := eachPair first.
- t := UtcTimestamp readIso8601FormatFrom:s1.
- expected := eachPair second.
- got := t asString.
- self assert:(got = expected) description:'expected: ',expected,' got:',got.
+ s1 := eachPair first.
+ t := UtcTimestamp readIso8601FormatFrom:s1.
+ expected := eachPair second.
+ got := t asString.
+ self assert:(got = expected) description:'expected: ',expected,' got:',got.
].
"
@@ -415,8 +415,8 @@
reader := Timestamp::TimestampISO8601Builder.
ts := UtcTimestamp
- year: 2005 month: 6 day: 15
- hour: 0 minute: 0 second: 0 millisecond: 0.
+ year: 2005 month: 6 day: 15
+ hour: 0 minute: 0 second: 0 millisecond: 0.
"Test common dates"
self assert: ts = (reader read: '20050615' withClass:UtcTimestamp).
@@ -504,8 +504,8 @@
reader := Timestamp::TimestampISO8601Builder.
ts := UtcTimestamp
- year: 2005 month: 6 day: 15
- hour: 17 minute: 37 second: 0 millisecond: 0.
+ year: 2005 month: 6 day: 15
+ hour: 17 minute: 37 second: 0 millisecond: 0.
self assert: ts = (reader read: '2005-06-15T17:37Z' withClass:UtcTimestamp).
self assert: ts = (reader read: '2005-06-15T17:37+0000' withClass:UtcTimestamp).
@@ -521,18 +521,18 @@
test_12_dateQueries
|d1 d2 d3|
- d1 := Date newDay:1 month:2 year:1940.
- d2 := Date newDay:1 month:2 year:1941.
+ d1 := Date newDay:1 month:2 year:1940.
+ d2 := Date newDay:1 month:2 year:1941.
self assert:(d2 - d1) = 366.
d1 := Date newDay:1 month:2 year:1840.
- d2 := Date newDay:1 month:2 year:1841.
+ d2 := Date newDay:1 month:2 year:1841.
self assert:(d2 - d1) = 366.
self assert:(d1 addDays:366) = d2.
- Date leapYear:1540.
- d1 := Date newDay:1 month:2 year:1540.
- d2 := Date newDay:1 month:2 year:1541.
+ Date leapYear:1540.
+ d1 := Date newDay:1 month:2 year:1540.
+ d2 := Date newDay:1 month:2 year:1541.
self assert:(d2 - d1) = 366.
d1 := Date newDay:1 year:1901.
@@ -555,8 +555,8 @@
self assert:(d3 month = 1).
self assert:(d3 year = 1899).
- d1 := Date newDay:1 month:2 year:2540.
- d2 := Date newDay:1 month:2 year:2541.
+ d1 := Date newDay:1 month:2 year:2540.
+ d2 := Date newDay:1 month:2 year:2541.
self assert:(d2 - d1) = 366.
@@ -569,11 +569,11 @@
|d1 d2 local utc|
d1 := UtcTimestamp newDay:1 month:1 year:2000.
- d2 := UtcTimestamp newDay:1 month:1 year:2001.
+ d2 := UtcTimestamp newDay:1 month:1 year:2001.
self assert:(d2 - d1) days = 366.
d1 := UtcTimestamp newDay:2 month:1 year:1940.
- d2 := UtcTimestamp newDay:2 month:1 year:1941.
+ d2 := UtcTimestamp newDay:2 month:1 year:1941.
self assert:d1 asDate year = 1940.
self assert:d2 asDate year = 1941.
self assert:d1 asDate month = 1.
@@ -586,7 +586,7 @@
self assert:(d2 - d1) days = 366.
d1 := UtcTimestamp newDay:1 month:1 year:1840.
- d2 := UtcTimestamp newDay:1 month:1 year:1841.
+ d2 := UtcTimestamp newDay:1 month:1 year:1841.
self assert:d1 asDate isLeapYear.
self assert:d2 asDate isLeapYear not.
self assert:(d2 - d1) days = 366.
@@ -594,31 +594,31 @@
self assert:(d1 addDays:366) = d2.
d1 := UtcTimestamp newDay:1 month:1 year:1540.
- d2 := UtcTimestamp newDay:1 month:1 year:1541.
+ d2 := UtcTimestamp newDay:1 month:1 year:1541.
self assert:d1 asDate isLeapYear.
self assert:d2 asDate isLeapYear not.
self assert:(d2 - d1) days = 366.
d1 := Timestamp newDay:1 month:1 year:1540.
- d2 := Timestamp newDay:1 month:1 year:1541.
+ d2 := Timestamp newDay:1 month:1 year:1541.
self assert:d1 asDate isLeapYear.
self assert:d2 asDate isLeapYear not.
self assert:(d2 - d1) days = 366.
d1 := Timestamp newDay:1 month:1 year:2038.
- d2 := Timestamp newDay:1 month:1 year:2039.
+ d2 := Timestamp newDay:1 month:1 year:2039.
self assert:d1 asDate isLeapYear not.
self assert:d2 asDate isLeapYear not.
self assert:(d2 - d1) days = 365.
d1 := Timestamp newDay:1 month:1 year:2540.
- d2 := Timestamp newDay:1 month:1 year:2541.
+ d2 := Timestamp newDay:1 month:1 year:2541.
self assert:d1 asDate isLeapYear.
self assert:d2 asDate isLeapYear not.
self assert:(d2 - d1) days = 366.
d1 := Timestamp newDay:1 month:1 year:3540.
- d2 := Timestamp newDay:1 month:1 year:3541.
+ d2 := Timestamp newDay:1 month:1 year:3541.
self assert:d1 asDate isLeapYear.
self assert:d2 asDate isLeapYear not.
self assert:(d2 - d1) days = 366.
@@ -635,6 +635,18 @@
self assert:d2 asDate isLeapYear not.
self assert:(d2 - d1) days = 366.
+ d1 := Timestamp newDay:1 month:1 year:1969.
+ d2 := Timestamp newDay:1 month:1 year:1970.
+ self assert:d1 asDate isLeapYear not.
+ self assert:d2 asDate isLeapYear not.
+ self assert:(d2 - d1) days = 365.
+
+ d1 := Timestamp newDay:1 month:1 year:1600.
+ d2 := Timestamp newDay:1 month:1 year:1601.
+ self assert:d1 asDate isLeapYear.
+ self assert:d2 asDate isLeapYear not.
+ self assert:(d2 - d1) days = 366.
+
"/ local time vs. utc time
local := Timestamp newDay:1 month:1 year:1940.
utc := UtcTimestamp newDay:1 month:1 year:1940.
@@ -642,12 +654,12 @@
"/ tz time vs. utc time
utc := Timestamp readFrom:'20000102T123000Z'.
- local := Timestamp readFrom:'20000102T123000+02'.
+ local := Timestamp readFrom:'20000102T123000+02'.
self assert:(utc - local) asSeconds = 7200.
"/ tz time vs. utc time
utc := UtcTimestamp readFrom:'20000102T123000Z'.
- local := UtcTimestamp readFrom:'20000102T123000-02'.
+ local := UtcTimestamp readFrom:'20000102T123000-02'.
self assert:(utc - local) asSeconds = -7200.
"
@@ -669,21 +681,21 @@
self assert:(t2 - t1) seconds = 1.
t1 := UtcTimestamp readFrom:'20000102T133045Z'.
- t2 := t1 addDays:1.
+ t2 := t1 addDays:1.
self assert:(t2 printString = '2000-01-03 13:30:45Z').
t1 := Timestamp readFrom:'20000102T133045+01'.
- t2 := t1 addDays:1.
+ t2 := t1 addDays:1.
self assert:(t2 printString = '2000-01-03 13:30:45+01').
t1 := UtcTimestamp readFrom:'20000102T133045Z'.
- t2 := Timestamp readFrom:'20000102T133045Z'.
+ t2 := Timestamp readFrom:'20000102T133045Z'.
self assert:(t1 = t2).
- t2 := Timestamp readFrom:'20000102T143045+01'.
+ t2 := Timestamp readFrom:'20000102T143045+01'.
self assert:(t1 = t2).
- t2 := Timestamp readFrom:'20000102T123045-01'.
+ t2 := Timestamp readFrom:'20000102T123045-01'.
self assert:(t1 = t2).
t2 := Timestamp readFrom:'20000102T123045'. "/ a local one
@@ -698,20 +710,20 @@
self assert:(t1 printString = '2000-01-02 13:30:45Z').
"
- self new test_14_arithmetic
+ self new test_14_arithmetic
"
!
test_15_misc
#( 1700 1800 1900 2100 2200 ) do:[:y |
- self assert:(Date leapYear:y) not
+ self assert:(Date leapYear:y) not
].
#( 1600 2000 2400 ) do:[:y |
- self assert:(Date leapYear:y)
+ self assert:(Date leapYear:y)
].
"
- self new test_15_misc
+ self new test_15_misc
"
!
--- a/RegressionTests__TimeDurationTest.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__TimeDurationTest.st Thu Jun 30 09:02:08 2016 +0100
@@ -14,53 +14,53 @@
test_01_PrintingReading
#(
- (0 0 0 0)
- (0 0 0 1)
- (0 0 0 9)
- (0 0 0 10)
- (0 0 0 11)
- (0 0 0 99)
- (0 0 0 100)
- (0 0 0 101)
- (0 0 0 999)
- (0 0 0 1000)
- (0 0 0 1001)
+ (0 0 0 0)
+ (0 0 0 1)
+ (0 0 0 9)
+ (0 0 0 10)
+ (0 0 0 11)
+ (0 0 0 99)
+ (0 0 0 100)
+ (0 0 0 101)
+ (0 0 0 999)
+ (0 0 0 1000)
+ (0 0 0 1001)
- (0 33 0 123)
- (2 0 0 123)
- (2 33 0 123)
- (100 33 0 123)
- (10000 33 0 123)
- (1000000 33 0 123)
+ (0 33 0 123)
+ (2 0 0 123)
+ (2 33 0 123)
+ (100 33 0 123)
+ (10000 33 0 123)
+ (1000000 33 0 123)
- (2 33 0 0)
- (2 0 0 0)
- (24 0 0 0)
- (0 0 0 123)
+ (2 33 0 0)
+ (2 0 0 0)
+ (24 0 0 0)
+ (0 0 0 123)
) do:[:hmsms |
- |h m s ms d1 d2 s1 s2|
+ |h m s ms d1 d2 s1 s2|
- h := hmsms first.
- m := hmsms second.
- s := hmsms third.
- ms := hmsms fourth.
- d1 := TimeDuration hours:h minutes:m seconds:s milliseconds:ms.
- s1 := d1 printString.
- d2 := TimeDuration readFrom:s1.
- s2 := d2 printString.
- self assert:(d1 = d2).
- self assert:(d1 timeEncoding = d2 timeEncoding).
- self assert:(s1 = s2).
+ h := hmsms first.
+ m := hmsms second.
+ s := hmsms third.
+ ms := hmsms fourth.
+ d1 := TimeDuration hours:h minutes:m seconds:s milliseconds:ms.
+ s1 := d1 printString.
+ d2 := TimeDuration readFrom:s1.
+ s2 := d2 printString.
+ self assert:(d1 = d2).
+ self assert:(d1 timeEncoding = d2 timeEncoding).
+ self assert:(s1 = s2).
].
-"/ (TimeDuration hours:0 minutes:0 seconds:0 milliseconds:123) printStringFormat:'%h:%m:%s'
-"/ (TimeDuration hours:0 minutes:0 seconds:10 milliseconds:123) printStringFormat:'%h:%m:%s'
-"/ (TimeDuration hours:0 minutes:33 seconds:0 milliseconds:123) printStringFormat:'%h:%m:%s'
-"/ (TimeDuration hours:2 minutes:33 seconds:0 milliseconds:123) printStringFormat:'%h:%m:%s'
-"/ (TimeDuration hours:100 minutes:33 seconds:0 milliseconds:123) printStringFormat:'%h:%m:%s'
-"/ (TimeDuration hours:10000 minutes:33 seconds:0 milliseconds:123) printStringFormat:'%h:%m:%s'
-"/ (TimeDuration hours:1000000 minutes:33 seconds:0 milliseconds:123) printStringFormat:'%h:%m:%s'
+"/ (TimeDuration hours:0 minutes:0 seconds:0 milliseconds:123) printStringFormat:'%h:%m:%s'
+"/ (TimeDuration hours:0 minutes:0 seconds:10 milliseconds:123) printStringFormat:'%h:%m:%s'
+"/ (TimeDuration hours:0 minutes:33 seconds:0 milliseconds:123) printStringFormat:'%h:%m:%s'
+"/ (TimeDuration hours:2 minutes:33 seconds:0 milliseconds:123) printStringFormat:'%h:%m:%s'
+"/ (TimeDuration hours:100 minutes:33 seconds:0 milliseconds:123) printStringFormat:'%h:%m:%s'
+"/ (TimeDuration hours:10000 minutes:33 seconds:0 milliseconds:123) printStringFormat:'%h:%m:%s'
+"/ (TimeDuration hours:1000000 minutes:33 seconds:0 milliseconds:123) printStringFormat:'%h:%m:%s'
"
self new test_01_PrintingReading
--- a/RegressionTests__UninterpretedBytesTest.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__UninterpretedBytesTest.st Thu Jun 30 09:02:08 2016 +0100
@@ -67,38 +67,38 @@
"/ check immutablility checks
bytes := #[ 16rFF 16r00 ] beImmutable.
- self
- should:[
- bytes byteAt:1 put:0
- ]
- raise:NoModificationError.
+ self
+ should:[
+ bytes byteAt:1 put:0
+ ]
+ raise:NoModificationError.
self assert:(bytes at:1) == 16rFF.
"/ check bounds checks
#(3 0 -1 -2) do:[:badIndex |
- self
- should:[
- #[ 16rFF 16r00 ] byteAt:badIndex
- ]
- raise:SubscriptOutOfBoundsError.
+ self
+ should:[
+ #[ 16rFF 16r00 ] byteAt:badIndex
+ ]
+ raise:SubscriptOutOfBoundsError.
- self
- should:[
- #[ 16rFF 16r00 ] signedByteAt:badIndex
- ]
- raise:SubscriptOutOfBoundsError.
+ self
+ should:[
+ #[ 16rFF 16r00 ] signedByteAt:badIndex
+ ]
+ raise:SubscriptOutOfBoundsError.
- self
- should:[
- #[ 16rFF 16r00 ] byteAt:badIndex put:0
- ]
- raise:SubscriptOutOfBoundsError.
+ self
+ should:[
+ #[ 16rFF 16r00 ] byteAt:badIndex put:0
+ ]
+ raise:SubscriptOutOfBoundsError.
- self
- should:[
- #[ 16rFF 16r00 ] signedByteAt:badIndex put:0
- ]
- raise:SubscriptOutOfBoundsError.
+ self
+ should:[
+ #[ 16rFF 16r00 ] signedByteAt:badIndex put:0
+ ]
+ raise:SubscriptOutOfBoundsError.
]
"
@@ -109,106 +109,106 @@
test01_int16Access
|check bytes|
- check :=
- [:bytes1 :bytes2 |
- |wBytes|
+ check :=
+ [:bytes1 :bytes2 |
+ |wBytes|
- "/ bytes1 := #[ 16r10 16r20 16r30 16r40 ].
- self assert:(bytes1 unsignedInt16At:1 MSB:true) = 16r1020.
- self assert:(bytes1 unsignedInt16At:1 MSB:false) = 16r2010.
- self assert:(bytes1 unsignedInt16At:2 MSB:true) = 16r2030.
- self assert:(bytes1 unsignedInt16At:2 MSB:false) = 16r3020.
- self assert:(bytes1 unsignedInt16At:3 MSB:true) = 16r3040.
- self assert:(bytes1 unsignedInt16At:3 MSB:false) = 16r4030.
+ "/ bytes1 := #[ 16r10 16r20 16r30 16r40 ].
+ self assert:(bytes1 unsignedInt16At:1 MSB:true) = 16r1020.
+ self assert:(bytes1 unsignedInt16At:1 MSB:false) = 16r2010.
+ self assert:(bytes1 unsignedInt16At:2 MSB:true) = 16r2030.
+ self assert:(bytes1 unsignedInt16At:2 MSB:false) = 16r3020.
+ self assert:(bytes1 unsignedInt16At:3 MSB:true) = 16r3040.
+ self assert:(bytes1 unsignedInt16At:3 MSB:false) = 16r4030.
- self assert:(bytes1 signedInt16At:1 MSB:true) = 16r1020.
- self assert:(bytes1 signedInt16At:1 MSB:false) = 16r2010.
- self assert:(bytes1 signedInt16At:2 MSB:true) = 16r2030.
- self assert:(bytes1 signedInt16At:2 MSB:false) = 16r3020.
- self assert:(bytes1 signedInt16At:3 MSB:true) = 16r3040.
- self assert:(bytes1 signedInt16At:3 MSB:false) = 16r4030.
+ self assert:(bytes1 signedInt16At:1 MSB:true) = 16r1020.
+ self assert:(bytes1 signedInt16At:1 MSB:false) = 16r2010.
+ self assert:(bytes1 signedInt16At:2 MSB:true) = 16r2030.
+ self assert:(bytes1 signedInt16At:2 MSB:false) = 16r3020.
+ self assert:(bytes1 signedInt16At:3 MSB:true) = 16r3040.
+ self assert:(bytes1 signedInt16At:3 MSB:false) = 16r4030.
- "/ bytes2 := #[ 16rFF 16r7F 16r80 16r81 ].
- self assert:(bytes2 unsignedInt16At:1 MSB:true) = 16rFF7F.
- self assert:(bytes2 unsignedInt16At:1 MSB:false) = 16r7FFF.
- self assert:(bytes2 unsignedInt16At:2 MSB:true) = 16r7F80.
- self assert:(bytes2 unsignedInt16At:2 MSB:false) = 16r807F.
- self assert:(bytes2 unsignedInt16At:3 MSB:true) = 16r8081.
- self assert:(bytes2 unsignedInt16At:3 MSB:false) = 16r8180.
+ "/ bytes2 := #[ 16rFF 16r7F 16r80 16r81 ].
+ self assert:(bytes2 unsignedInt16At:1 MSB:true) = 16rFF7F.
+ self assert:(bytes2 unsignedInt16At:1 MSB:false) = 16r7FFF.
+ self assert:(bytes2 unsignedInt16At:2 MSB:true) = 16r7F80.
+ self assert:(bytes2 unsignedInt16At:2 MSB:false) = 16r807F.
+ self assert:(bytes2 unsignedInt16At:3 MSB:true) = 16r8081.
+ self assert:(bytes2 unsignedInt16At:3 MSB:false) = 16r8180.
- self assert:(bytes2 signedInt16At:1 MSB:true) = -129. "/ 16rFF7F signExtendedShortValue
- self assert:(bytes2 signedInt16At:1 MSB:false) = 16r7FFF.
- self assert:(bytes2 signedInt16At:2 MSB:true) = 16r7F80.
- self assert:(bytes2 signedInt16At:2 MSB:false) = -32641. "/ 16r807F signExtendedShortValue.
- self assert:(bytes2 signedInt16At:3 MSB:true) = -32639. "/ 16r8081 signExtendedShortValue.
- self assert:(bytes2 signedInt16At:3 MSB:false) = -32384. "/ 16r8180 signExtendedShortValue.
+ self assert:(bytes2 signedInt16At:1 MSB:true) = -129. "/ 16rFF7F signExtendedShortValue
+ self assert:(bytes2 signedInt16At:1 MSB:false) = 16r7FFF.
+ self assert:(bytes2 signedInt16At:2 MSB:true) = 16r7F80.
+ self assert:(bytes2 signedInt16At:2 MSB:false) = -32641. "/ 16r807F signExtendedShortValue.
+ self assert:(bytes2 signedInt16At:3 MSB:true) = -32639. "/ 16r8081 signExtendedShortValue.
+ self assert:(bytes2 signedInt16At:3 MSB:false) = -32384. "/ 16r8180 signExtendedShortValue.
- wBytes := bytes2 copy.
+ wBytes := bytes2 copy.
- wBytes unsignedInt16At:1 put:16r1020 MSB:false.
- self assert:(wBytes unsignedInt16At:1 MSB:false) = 16r1020.
- self assert:(wBytes signedInt16At:1 MSB:false) = 16r1020.
+ wBytes unsignedInt16At:1 put:16r1020 MSB:false.
+ self assert:(wBytes unsignedInt16At:1 MSB:false) = 16r1020.
+ self assert:(wBytes signedInt16At:1 MSB:false) = 16r1020.
- wBytes unsignedInt16At:1 put:16r1020 MSB:true.
- self assert:(wBytes unsignedInt16At:1 MSB:false) = 16r2010.
- self assert:(wBytes signedInt16At:1 MSB:false) = 16r2010.
+ wBytes unsignedInt16At:1 put:16r1020 MSB:true.
+ self assert:(wBytes unsignedInt16At:1 MSB:false) = 16r2010.
+ self assert:(wBytes signedInt16At:1 MSB:false) = 16r2010.
- wBytes unsignedInt16At:1 put:16rFFFE MSB:false.
- self assert:(wBytes unsignedInt16At:1 MSB:false) = 16rFFFE.
- self assert:(wBytes signedInt16At:1 MSB:false) = -2.
+ wBytes unsignedInt16At:1 put:16rFFFE MSB:false.
+ self assert:(wBytes unsignedInt16At:1 MSB:false) = 16rFFFE.
+ self assert:(wBytes signedInt16At:1 MSB:false) = -2.
- wBytes unsignedInt16At:1 put:16rFFFE MSB:true.
- self assert:(wBytes unsignedInt16At:1 MSB:false) = 16rFEFF.
- self assert:(wBytes signedInt16At:1 MSB:false) = -257. "/ 16rFEFF signExtendedShortValue
+ wBytes unsignedInt16At:1 put:16rFFFE MSB:true.
+ self assert:(wBytes unsignedInt16At:1 MSB:false) = 16rFEFF.
+ self assert:(wBytes signedInt16At:1 MSB:false) = -257. "/ 16rFEFF signExtendedShortValue
- wBytes signedInt16At:1 put:16r1020 MSB:false.
- self assert:(wBytes unsignedInt16At:1 MSB:false) = 16r1020.
- self assert:(wBytes signedInt16At:1 MSB:false) = 16r1020.
+ wBytes signedInt16At:1 put:16r1020 MSB:false.
+ self assert:(wBytes unsignedInt16At:1 MSB:false) = 16r1020.
+ self assert:(wBytes signedInt16At:1 MSB:false) = 16r1020.
- wBytes signedInt16At:1 put:16r1020 MSB:true.
- self assert:(wBytes unsignedInt16At:1 MSB:false) = 16r2010.
- self assert:(wBytes signedInt16At:1 MSB:false) = 16r2010.
+ wBytes signedInt16At:1 put:16r1020 MSB:true.
+ self assert:(wBytes unsignedInt16At:1 MSB:false) = 16r2010.
+ self assert:(wBytes signedInt16At:1 MSB:false) = 16r2010.
- wBytes signedInt16At:1 put:-3 MSB:false.
- self assert:(wBytes unsignedInt16At:1 MSB:false) = 16rFFFD.
- self assert:(wBytes signedInt16At:1 MSB:false) = -3.
- ].
+ wBytes signedInt16At:1 put:-3 MSB:false.
+ self assert:(wBytes unsignedInt16At:1 MSB:false) = 16rFFFD.
+ self assert:(wBytes signedInt16At:1 MSB:false) = -3.
+ ].
- check
- value: #[ 16r10 16r20 16r30 16r40 ]
- value: #[ 16rFF 16r7F 16r80 16r81 ].
+ check
+ value: #[ 16r10 16r20 16r30 16r40 ]
+ value: #[ 16rFF 16r7F 16r80 16r81 ].
- check
- value: (WordArray with:16r2010 with:16r4030)
- value: (WordArray with:16r7FFF with:16r8180).
+ check
+ value: (WordArray with:16r2010 with:16r4030)
+ value: (WordArray with:16r7FFF with:16r8180).
- check
- value: (IntegerArray with:16r40302010)
- value: (IntegerArray with:16r81807FFF).
+ check
+ value: (IntegerArray with:16r40302010)
+ value: (IntegerArray with:16r81807FFF).
"/ check immutablility checks
bytes := #[ 1 2 ] beImmutable.
- self
- should:[
- bytes unsignedInt16At:1 put:0
- ]
- raise:NoModificationError.
+ self
+ should:[
+ bytes unsignedInt16At:1 put:0
+ ]
+ raise:NoModificationError.
self assert:(bytes at:1) == 1.
self assert:(bytes at:2) == 2.
"/ check bounds checks
#(2 0 -1 -2) do:[:badIndex |
- self
- should:[
- #[ 16rFF 16r00 ] unsignedInt16At:badIndex MSB:true
- ]
- raise:SubscriptOutOfBoundsError.
+ self
+ should:[
+ #[ 16rFF 16r00 ] unsignedInt16At:badIndex MSB:true
+ ]
+ raise:SubscriptOutOfBoundsError.
- self
- should:[
- #[ 16rFF 16r00 ] unsignedInt16At:badIndex MSB:false
- ]
- raise:SubscriptOutOfBoundsError.
+ self
+ should:[
+ #[ 16rFF 16r00 ] unsignedInt16At:badIndex MSB:false
+ ]
+ raise:SubscriptOutOfBoundsError.
]
"
@@ -272,11 +272,11 @@
"/ check immutablility checks
bytes := #[ 1 2 3 4 ] beImmutable.
- self
- should:[
- bytes unsignedInt32At:1 put:0
- ]
- raise:NoModificationError.
+ self
+ should:[
+ bytes unsignedInt32At:1 put:0
+ ]
+ raise:NoModificationError.
self assert:(bytes at:1) == 1.
self assert:(bytes at:2) == 2.
self assert:(bytes at:3) == 3.
@@ -284,17 +284,17 @@
"/ check bounds checks
#(2 0 -1 -2) do:[:badIndex |
- self
- should:[
- #[ 16rFF 16r01 16r02 16r03 ] unsignedInt32At:badIndex MSB:true
- ]
- raise:SubscriptOutOfBoundsError.
+ self
+ should:[
+ #[ 16rFF 16r01 16r02 16r03 ] unsignedInt32At:badIndex MSB:true
+ ]
+ raise:SubscriptOutOfBoundsError.
- self
- should:[
- #[ 16rFF 16r01 16r02 16r03 ] unsignedInt32At:badIndex MSB:false
- ]
- raise:SubscriptOutOfBoundsError.
+ self
+ should:[
+ #[ 16rFF 16r01 16r02 16r03 ] unsignedInt32At:badIndex MSB:false
+ ]
+ raise:SubscriptOutOfBoundsError.
]
"
@@ -340,11 +340,11 @@
"/ check immutablility checks
bytes := #[ 1 2 3 4 5 6 7 8 ] beImmutable.
- self
- should:[
- bytes unsignedInt64At:1 put:0
- ]
- raise:NoModificationError.
+ self
+ should:[
+ bytes unsignedInt64At:1 put:0
+ ]
+ raise:NoModificationError.
self assert:(bytes at:1) == 1.
self assert:(bytes at:2) == 2.
self assert:(bytes at:3) == 3.
@@ -356,17 +356,17 @@
"/ check bounds checks
#(2 0 -1 -2) do:[:badIndex |
- self
- should:[
- #[ 16rFF 16r01 16r02 16r03 16r04 16r05 16r06 16r07 ] unsignedInt64At:badIndex MSB:true
- ]
- raise:SubscriptOutOfBoundsError.
+ self
+ should:[
+ #[ 16rFF 16r01 16r02 16r03 16r04 16r05 16r06 16r07 ] unsignedInt64At:badIndex MSB:true
+ ]
+ raise:SubscriptOutOfBoundsError.
- self
- should:[
- #[ 16rFF 16r01 16r02 16r03 16r04 16r05 16r06 16r07 ] unsignedInt64At:badIndex MSB:false
- ]
- raise:SubscriptOutOfBoundsError.
+ self
+ should:[
+ #[ 16rFF 16r01 16r02 16r03 16r04 16r05 16r06 16r07 ] unsignedInt64At:badIndex MSB:false
+ ]
+ raise:SubscriptOutOfBoundsError.
]
"
@@ -400,29 +400,29 @@
"/ check bounds checks
#(2 0 -1 -2) do:[:badIndex |
- self
- should:[
- #[ 16rFF 16r01 16r02 16r03 ] floatAt:badIndex MSB:true
- ]
- raise:SubscriptOutOfBoundsError.
+ self
+ should:[
+ #[ 16rFF 16r01 16r02 16r03 ] floatAt:badIndex MSB:true
+ ]
+ raise:SubscriptOutOfBoundsError.
- self
- should:[
- #[ 16rFF 16r01 16r02 16r03 ] floatAt:badIndex MSB:false
- ]
- raise:SubscriptOutOfBoundsError.
+ self
+ should:[
+ #[ 16rFF 16r01 16r02 16r03 ] floatAt:badIndex MSB:false
+ ]
+ raise:SubscriptOutOfBoundsError.
- self
- should:[
- #[ 16rFF 16r01 16r02 16r03 16rFF 16r01 16r02 16r03 ] doubleAt:badIndex MSB:true
- ]
- raise:SubscriptOutOfBoundsError.
+ self
+ should:[
+ #[ 16rFF 16r01 16r02 16r03 16rFF 16r01 16r02 16r03 ] doubleAt:badIndex MSB:true
+ ]
+ raise:SubscriptOutOfBoundsError.
- self
- should:[
- #[ 16rFF 16r01 16r02 16r03 16rFF 16r01 16r02 16r03 ] doubleAt:badIndex MSB:false
- ]
- raise:SubscriptOutOfBoundsError.
+ self
+ should:[
+ #[ 16rFF 16r01 16r02 16r03 16rFF 16r01 16r02 16r03 ] doubleAt:badIndex MSB:false
+ ]
+ raise:SubscriptOutOfBoundsError.
]
"
--- a/RegressionTests__VMCrashTestCase.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__VMCrashTestCase.st Thu Jun 30 09:02:08 2016 +0100
@@ -29,7 +29,7 @@
kill the VM, normally you should annotate tests with <spawn: true>
[author:]
- Jan Vrany <jan.vrany@fit.cvut.cz>
+ Jan Vrany <jan.vrany@fit.cvut.cz>
[instance variables:]
@@ -72,7 +72,7 @@
| method |
method := self class lookupMethodFor: testSelector.
method annotationsAt:#timeout: do:[:annotation|
- ^annotation arguments first
+ ^annotation arguments first
].
^60"sec - default timeout"
@@ -91,109 +91,109 @@
| tempDir testcaseFile exe args script environment outputFile output pid blocker status spawn |
spawn := (self class lookupMethodFor: testSelector) annotationAt: #spawn:.
- spawn isNil ifTrue:[
- self error: 'No <spawn:> annotation'.
+ spawn isNil ifTrue:[
+ self error: 'No <spawn:> annotation'.
].
- (spawn argumentAt: 1) == false ifTrue:[
- ^ super runCase.
- ] ifFalse:[
- (spawn argumentAt: 1) ~~ true ifTrue:[
- self error: 'Argument to <spawn:> must be either `true` or `false`'.
- ]
+ (spawn argumentAt: 1) == false ifTrue:[
+ ^ super runCase.
+ ] ifFalse:[
+ (spawn argumentAt: 1) ~~ true ifTrue:[
+ self error: 'Argument to <spawn:> must be either `true` or `false`'.
+ ]
].
[
- tempDir := Filename newTemporary.
- tempDir makeDirectory.
- testcaseFile := tempDir / ((Smalltalk fileNameForClass: self class) , '.st').
- self class fileOutAs: testcaseFile.
+ tempDir := Filename newTemporary.
+ tempDir makeDirectory.
+ testcaseFile := tempDir / ((Smalltalk fileNameForClass: self class) , '.st').
+ self class fileOutAs: testcaseFile.
- script := 'Smalltalk packagePath: %1.
- Smalltalk loadPackage:%2.
- Smalltalk fileIn: %3.
- (%4 selector: %5) runCaseInternal.'
- bindWith: Smalltalk packagePath asArray storeString
- with: self class package storeString
- with: testcaseFile pathName storeString
- with: self class name
- with: testSelector storeString.
+ script := 'Smalltalk packagePath: %1.
+ Smalltalk loadPackage:%2.
+ Smalltalk fileIn: %3.
+ (%4 selector: %5) runCaseInternal.'
+ bindWith: Smalltalk packagePath asArray storeString
+ with: self class package storeString
+ with: testcaseFile pathName storeString
+ with: self class name
+ with: testSelector storeString.
- exe := OperatingSystem pathOfSTXExecutable.
- args := { exe . '--abortOnSEGV' . '--execute' . ( tempDir / 'run.st' ) pathName }.
+ exe := OperatingSystem pathOfSTXExecutable.
+ args := { exe . '--abortOnSEGV' . '--execute' . ( tempDir / 'run.st' ) pathName }.
- OperatingSystem isMSWINDOWSlike ifTrue:[
- args := String streamContents:[:s|
- args
- do:[:each | s nextPut:$"; nextPutAll: each; nextPut: $"]
- separatedBy: [ s space ]
- ]
- ].
+ OperatingSystem isMSWINDOWSlike ifTrue:[
+ args := String streamContents:[:s|
+ args
+ do:[:each | s nextPut:$"; nextPutAll: each; nextPut: $"]
+ separatedBy: [ s space ]
+ ]
+ ].
- outputFile := tempDir / 'output.txt'.
- output := outputFile writeStream.
+ outputFile := tempDir / 'output.txt'.
+ output := outputFile writeStream.
- "/ Now, spit out some helper files that for debugging.
- ( tempDir / 'run.st' ) writingFileDo:[ :f |
- f nextPutAll: script.
- ].
- environment := OperatingSystem isUNIXlike
- ifTrue:[OperatingSystem getEnvironment copy]
- ifFalse:[environment := Dictionary new].
- blocker := Semaphore new.
+ "/ Now, spit out some helper files that for debugging.
+ ( tempDir / 'run.st' ) writingFileDo:[ :f |
+ f nextPutAll: script.
+ ].
+ environment := OperatingSystem isUNIXlike
+ ifTrue:[OperatingSystem getEnvironment copy]
+ ifFalse:[environment := Dictionary new].
+ blocker := Semaphore new.
- Processor monitor:[
- pid := OperatingSystem exec: exe withArguments:args
- environment:environment
- fileDescriptors:{0 . output fileDescriptor . output fileDescriptor }
- fork:true
- newPgrp:false
- inDirectory: Filename currentDirectory pathName
- ] action: [ :s |
- status := s.
- blocker signal.
- ].
+ Processor monitor:[
+ pid := OperatingSystem exec: exe withArguments:args
+ environment:environment
+ fileDescriptors:{0 . output fileDescriptor . output fileDescriptor }
+ fork:true
+ newPgrp:false
+ inDirectory: Filename currentDirectory pathName
+ ] action: [ :s |
+ status := s.
+ blocker signal.
+ ].
- output close.
+ output close.
- pid isNil ifTrue:[
- self error: 'Failed to spawn test'.
- ^ self.
- ].
+ pid isNil ifTrue:[
+ self error: 'Failed to spawn test'.
+ ^ self.
+ ].
- blocker wait.
+ blocker wait.
- status code == EXIT_CODE_FAILURE ifTrue:[
- (outputFile notNil and:[ outputFile exists ]) ifTrue:[
- Stdout nextPutAll: '== TEST FAILED: '; nextPutAll: testSelector; nextPutLine:' =='.
- outputFile readingFileDo:[:s|
- [ s atEnd ] whileFalse:[
- Stdout nextPutLine: s nextLine.
- ].
- ].
- ].
- self assert: false description: 'Assertion failed, see log'.
- ].
- (status code == EXIT_CODE_ERROR or:[status status == #signal]) ifTrue:[
- (outputFile notNil and:[ outputFile exists ]) ifTrue:[
- Stdout nextPutAll: '== TEST ERROR: '; nextPutAll: testSelector; nextPutLine:' =='.
- outputFile readingFileDo:[:s|
- [ s atEnd ] whileFalse:[
- Stdout nextPutLine: s nextLine.
- ].
- ].
- ].
- self error: 'Error occured'.
- ].
- ] ensure:[
- (tempDir notNil and:[tempDir exists]) ifTrue:[
- [
- tempDir recursiveRemove.
- ] on: Error do:[:ex |
- OperatingSystem isMSWINDOWSlike ifFalse:[
- ex reject.
- ].
- ]
- ].
+ status code == EXIT_CODE_FAILURE ifTrue:[
+ (outputFile notNil and:[ outputFile exists ]) ifTrue:[
+ Stdout nextPutAll: '== TEST FAILED: '; nextPutAll: testSelector; nextPutLine:' =='.
+ outputFile readingFileDo:[:s|
+ [ s atEnd ] whileFalse:[
+ Stdout nextPutLine: s nextLine.
+ ].
+ ].
+ ].
+ self assert: false description: 'Assertion failed, see log'.
+ ].
+ (status code == EXIT_CODE_ERROR or:[status status == #signal]) ifTrue:[
+ (outputFile notNil and:[ outputFile exists ]) ifTrue:[
+ Stdout nextPutAll: '== TEST ERROR: '; nextPutAll: testSelector; nextPutLine:' =='.
+ outputFile readingFileDo:[:s|
+ [ s atEnd ] whileFalse:[
+ Stdout nextPutLine: s nextLine.
+ ].
+ ].
+ ].
+ self error: 'Error occured'.
+ ].
+ ] ensure:[
+ (tempDir notNil and:[tempDir exists]) ifTrue:[
+ [
+ tempDir recursiveRemove.
+ ] on: Error do:[:ex |
+ OperatingSystem isMSWINDOWSlike ifFalse:[
+ ex reject.
+ ].
+ ]
+ ].
].
"
@@ -206,17 +206,17 @@
runCaseInternal
[
- super runCase.
- Stdout cr;
- nextPutAll: 'PASSED'; cr.
+ super runCase.
+ Stdout cr;
+ nextPutAll: 'PASSED'; cr.
] on: TestResult failure do:[:failure |
- Stdout cr;
- nextPutAll: 'FAILURE: '; nextPutAll: failure description; cr.
- Smalltalk exit: EXIT_CODE_FAILURE.
+ Stdout cr;
+ nextPutAll: 'FAILURE: '; nextPutAll: failure description; cr.
+ Smalltalk exit: EXIT_CODE_FAILURE.
] on: TestResult exError do:[:error |
- Stdout cr;
- nextPutAll: 'ERROR: '; nextPutAll: error description; cr.
- Smalltalk exit: EXIT_CODE_ERROR.
+ Stdout cr;
+ nextPutAll: 'ERROR: '; nextPutAll: error description; cr.
+ Smalltalk exit: EXIT_CODE_ERROR.
].
"Created: / 04-09-2014 / 17:41:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -249,7 +249,7 @@
self assert: result errorCount = 1.
"
- VMCrashTestCase run: #tst_crash.
+ VMCrashTestCase run: #tst_crash.
"
result := self class run: #tst_crash.
self assert: result passedCount = 0.
@@ -263,8 +263,8 @@
tst_crash
<spawn: true>
-
- | bytes |
+
+ | bytes |
Stdout nextPutLine: 'Going to crash now!!'.
@@ -291,7 +291,7 @@
"Modified: / 08-09-2014 / 12:26:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
-tst_pass
+tst_pass
<spawn: true>
"Created: / 05-09-2014 / 18:20:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
--- a/RegressionTests__VMCrashTests.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__VMCrashTests.st Thu Jun 30 09:02:08 2016 +0100
@@ -16,14 +16,14 @@
<spawn: true>
1 to: 100 do:[:i |
- Stdout nextPutLine: 'Pass ' , i printString.
- Java release: JavaRelease JDK7.
- Java initialize.
- JavaVM initializeVM.
- Java flushAllJavaResources.
- Stdout nextPutLine: 'Full GC...'.
- Smalltalk garbageCollect.
- Stdout nextPutLine: 'Pass ' , i printString , '...OK'.
+ Stdout nextPutLine: 'Pass ' , i printString.
+ Java release: JavaRelease JDK7.
+ Java initialize.
+ JavaVM initializeVM.
+ Java flushAllJavaResources.
+ Stdout nextPutLine: 'Full GC...'.
+ Smalltalk garbageCollect.
+ Stdout nextPutLine: 'Pass ' , i printString , '...OK'.
].
"Created: / 08-09-2014 / 12:33:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -76,15 +76,15 @@
<spawn: false>
<timeout: 660> "11min"
- | timeout deadline iterStart iterStop |
+ | timeout deadline iterStart iterStop |
timeout := self timeout.
deadline := OperatingSystem getMillisecondTime + ((timeout - 60"extra min to cover variance") * 1000).
iterStart := iterStop := 0.
[ OperatingSystem getMillisecondTime < (deadline - (iterStop - iterStart)) ] whileTrue:[
- iterStart := OperatingSystem getMillisecondTime.
- (self class selector: #iter_java_initialize) runCase.
- iterStop := OperatingSystem getMillisecondTime.
+ iterStart := OperatingSystem getMillisecondTime.
+ (self class selector: #iter_java_initialize) runCase.
+ iterStop := OperatingSystem getMillisecondTime.
].
"Created: / 08-09-2014 / 12:14:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -101,9 +101,9 @@
newLimit := (newSize * 0.9) rounded.
"/ Allocate some garbage to fill in new space...
[ ObjectMemory newSpaceUsed < newLimit ] whileTrue:[
- | a |
+ | a |
- a := Array new: 100.
+ a := Array new: 100.
].
"/ Now, allocate some really huge object
[
--- a/RegressionTests__WeakCollectionTest.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__WeakCollectionTest.st Thu Jun 30 09:02:08 2016 +0100
@@ -48,7 +48,7 @@
self assert:(w size == 2).
o1 := nil.
-
+
ObjectMemory garbageCollect.
ObjectMemory finalize.
@@ -82,7 +82,7 @@
self assert:(w size == 2).
o1 := nil.
-
+
ObjectMemory garbageCollect.
ObjectMemory finalize.
@@ -108,24 +108,24 @@
ww := WeakValueDictionary new.
1 "100" timesRepeat:[
- (1 to:n) do:[:idx |
- |k v|
+ (1 to:n) do:[:idx |
+ |k v|
- k := 'k_' , idx printString , '_12345678901234567890'.
- v := 'v_' , idx printString , '_12345678901234567890'.
- ww at:k put:v.
- k := v := nil.
- ].
+ k := 'k_' , idx printString , '_12345678901234567890'.
+ v := 'v_' , idx printString , '_12345678901234567890'.
+ ww at:k put:v.
+ k := v := nil.
+ ].
- ObjectMemory garbageCollect.
+ ObjectMemory garbageCollect.
- 1 to:n do:[:idx |
- |k v|
+ 1 to:n do:[:idx |
+ |k v|
- k := 'k_' , idx printString , '_12345678901234567890'.
- v := ww at:k ifAbsent:nil.
- self assert:v isNil.
- ].
+ k := 'k_' , idx printString , '_12345678901234567890'.
+ v := ww at:k ifAbsent:nil.
+ self assert:v isNil.
+ ].
].
"
--- a/RegressionTests__Win32OLETests.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__Win32OLETests.st Thu Jun 30 09:02:08 2016 +0100
@@ -31,7 +31,7 @@
"/ (see OLEInterfaceConstants initialize)
Smalltalk loadPackage:'exept:ole'.
- "/ so when we arrive here without error, some is already known to work..
+ "/ so when we arrive here without error, some is already known to work..
self assert:(OLEInterfaceConstants notNil).
iid_IEnum := OLEInterfaceConstants classVarAt:#'IID_IEnum'.
@@ -64,33 +64,33 @@
test02_GuidFromProgID
|guid|
- self
- should:[
- guid := (GUID clsidFromProgID:'Foo.Bar').
- ] raise:OLEError.
+ self
+ should:[
+ guid := (GUID clsidFromProgID:'Foo.Bar').
+ ] raise:OLEError.
OLEError handle:[:ex |
- ex hresult = (OLEStatusCodeConstants at:#CO_E_CLASSSTRING) ifTrue:[
- "/ kind of expected - you machine has no AcroPDF installed...
- Transcript showCR:'OLE: class not found: AcroPDF.PDF'
- ] ifFalse:[
- self assert:false description:'unexpected error code'.
- ]
+ ex hresult = (OLEStatusCodeConstants at:#CO_E_CLASSSTRING) ifTrue:[
+ "/ kind of expected - you machine has no AcroPDF installed...
+ Transcript showCR:'OLE: class not found: AcroPDF.PDF'
+ ] ifFalse:[
+ self assert:false description:'unexpected error code'.
+ ]
] do:[
- guid := (GUID clsidFromProgID:'AcroPDF.PDF').
- self assert:(guid notNil).
- "/ self assert:(guid printString = '').
+ guid := (GUID clsidFromProgID:'AcroPDF.PDF').
+ self assert:(guid notNil).
+ "/ self assert:(guid printString = '').
].
- guid := (GUID clsidFromProgID:'InternetExplorer.Application').
+ guid := (GUID clsidFromProgID:'InternetExplorer.Application').
self assert:(guid notNil).
self assert:(guid printString = '{0002DF01-0000-0000-C000-000000000046}').
- guid := (GUID clsidFromProgID: 'Msxml2.DOMDocument.4.0').
+ guid := (GUID clsidFromProgID: 'Msxml2.DOMDocument.4.0').
self assert:(guid notNil).
self assert:(guid printString = '{88D969C0-F192-11D4-A65F-0040963251E5}').
- guid := (GUID clsidFromProgID: 'Microsoft.JScript.Vsa.VsaEngine').
+ guid := (GUID clsidFromProgID: 'Microsoft.JScript.Vsa.VsaEngine').
self assert:(guid notNil).
self assert:(guid printString = '{B71E484D-93ED-4B56-BFB9-CEED5134822B}').
@@ -126,15 +126,15 @@
|guid iDispatch iWebBrowser iWebBrowserApp iWebBrowser2
ids visibleID params result specTable|
- guid := (GUID clsidFromProgID:'InternetExplorer.Application').
+ guid := (GUID clsidFromProgID:'InternetExplorer.Application').
self assert:(guid notNil).
self assert:(guid printString = '{0002DF01-0000-0000-C000-000000000046}').
- iDispatch := IClassFactory
- createInstance:guid
- iid: (OLEInterface oleConstantAt:'IID_IDispatch')
- controllingUnknown:nil
- context:(OLEInterface oleConstantAt:'CLSCTX_ALL').
+ iDispatch := IClassFactory
+ createInstance:guid
+ iid: (OLEInterface oleConstantAt:'IID_IDispatch')
+ controllingUnknown:nil
+ context:(OLEInterface oleConstantAt:'CLSCTX_ALL').
self assert:(iDispatch notNil).
self assert:(iDispatch hasTypeInfo).
@@ -174,7 +174,7 @@
iWebBrowser2 release.
-
+
"
self new test20_CreateInstance
"
--- a/RegressionTests__Win32OperatingSystemTest.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__Win32OperatingSystemTest.st Thu Jun 30 09:02:08 2016 +0100
@@ -29,8 +29,8 @@
self assert: lastErrorCode == 0.
alreadyExists := (lastErrorCode == 5 "ERROR_ACCESS_DENIED" or:[ lastErrorCode == 183 "ERROR_ALREADY_EXISTS"]).
alreadyExists ifTrue:[
- Transcript showCR: 'Mutex already exists!!'.
- ^ self.
+ Transcript showCR: 'Mutex already exists!!'.
+ ^ self.
].
Transcript showCR: 'Mutex created!!'.
Win32OperatingSystem waitForSingleObject: handle.
@@ -53,9 +53,9 @@
self assert:(k notNil).
hasContentType := false.
- k subKeyNamesAndClassesDo:[:nm :clsNm |
- "/ Transcript showCR:nm.
- nm = 'Content Type' ifTrue:[hasContentType := true].
+ k subKeyNamesAndClassesDo:[:nm :clsNm |
+ "/ Transcript showCR:nm.
+ nm = 'Content Type' ifTrue:[hasContentType := true].
].
self assert:hasContentType.
--- a/RegressionTests__WrongMethodCalledTest.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__WrongMethodCalledTest.st Thu Jun 30 09:02:08 2016 +0100
@@ -45,80 +45,80 @@
<resource: #canvas>
- ^
+ ^
#(FullSpec
- name: windowSpec
- window:
+ name: windowSpec
+ window:
(WindowSpec
- label: 'NewApplication1'
- name: 'NewApplication1'
- min: (Point 10 10)
- max: (Point 1024 768)
- bounds: (Rectangle 12 22 312 322)
- menu: mainMenu
- )
- component:
+ label: 'NewApplication1'
+ name: 'NewApplication1'
+ min: (Point 10 10)
+ max: (Point 1024 768)
+ bounds: (Rectangle 12 22 312 322)
+ menu: mainMenu
+ )
+ component:
(SpecCollection
- collection: (
- (NonScrollableArbitraryComponentSpec
- name: 'NonScrollableArbitraryComponent1'
- layout: (LayoutFrame 6 0 4 0 285 0 93 0)
- model: vh2
- component: GraphicTestView
- )
- (InputFieldSpec
- name: 'EntryField1'
- layout: (LayoutFrame 14 0 181 0 219 0 203 0)
- model: vh1
- type: number
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: false
- )
- (InputFieldSpec
- name: 'EntryField2'
- layout: (LayoutFrame 14 0 144 0 219 0 166 0)
- model: vh1
- type: number
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: false
- )
- (InputFieldSpec
- name: 'EntryField3'
- layout: (LayoutFrame 14 0 107 0 219 0 129 0)
- model: vh1
- type: number
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: false
- )
- (InputFieldSpec
- name: 'EntryField4'
- layout: (LayoutFrame 14 0 218 0 219 0 240 0)
- model: vh1
- type: number
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: false
- )
- (InputFieldSpec
- name: 'EntryField5'
- layout: (LayoutFrame 14 0 255 0 219 0 277 0)
- model: vh1
- type: number
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: false
- )
- )
-
- )
+ collection: (
+ (NonScrollableArbitraryComponentSpec
+ name: 'NonScrollableArbitraryComponent1'
+ layout: (LayoutFrame 6 0 4 0 285 0 93 0)
+ model: vh2
+ component: GraphicTestView
+ )
+ (InputFieldSpec
+ name: 'EntryField1'
+ layout: (LayoutFrame 14 0 181 0 219 0 203 0)
+ model: vh1
+ type: number
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: false
+ )
+ (InputFieldSpec
+ name: 'EntryField2'
+ layout: (LayoutFrame 14 0 144 0 219 0 166 0)
+ model: vh1
+ type: number
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: false
+ )
+ (InputFieldSpec
+ name: 'EntryField3'
+ layout: (LayoutFrame 14 0 107 0 219 0 129 0)
+ model: vh1
+ type: number
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: false
+ )
+ (InputFieldSpec
+ name: 'EntryField4'
+ layout: (LayoutFrame 14 0 218 0 219 0 240 0)
+ model: vh1
+ type: number
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: false
+ )
+ (InputFieldSpec
+ name: 'EntryField5'
+ layout: (LayoutFrame 14 0 255 0 219 0 277 0)
+ model: vh1
+ type: number
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: false
+ )
+ )
+
+ )
)
! !
@@ -138,28 +138,28 @@
<resource: #menu>
- ^
+ ^
#(Menu
- (
- (MenuItem
- label: 'File'
- translateLabel: true
- submenu:
- (Menu
- (
- (MenuItem
- label: 'Exit'
- itemValue: closeRequest
- translateLabel: true
- )
- )
- nil
- nil
- )
- )
- )
- nil
- nil
+ (
+ (MenuItem
+ label: 'File'
+ translateLabel: true
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ label: 'Exit'
+ itemValue: closeRequest
+ translateLabel: true
+ )
+ )
+ nil
+ nil
+ )
+ )
+ )
+ nil
+ nil
)
! !
@@ -180,7 +180,7 @@
"*** (and replace this comment by something more useful ;-)"
vh1 isNil ifTrue:[
- vh1 := 1 asValue
+ vh1 := 1 asValue
].
^ vh1.
!
@@ -194,7 +194,7 @@
"*** (and replace this comment by something more useful ;-)"
vh2 isNil ifTrue:[
- vh2 := 1 asValue
+ vh2 := 1 asValue
].
^ vh2.
! !
@@ -212,15 +212,15 @@
super postBuildWith:aBuilder.
updateProcess := [
- [self window realized] whileTrue:[
- val := self vh1 value.
- val := (val + 1) \\ 100.
- self vh1 value:val.
+ [self window realized] whileTrue:[
+ val := self vh1 value.
+ val := (val + 1) \\ 100.
+ self vh1 value:val.
- val := self vh2 value.
- val := (val + 1) \\ 100.
- self vh2 value:val.
- ].
+ val := self vh2 value.
+ val := (val + 1) \\ 100.
+ self vh2 value:val.
+ ].
] forkAt:4.
! !
--- a/RegressionTests__XMLCoderTests.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__XMLCoderTests.st Thu Jun 30 09:02:08 2016 +0100
@@ -16,7 +16,7 @@
documentation to be added.
[author:]
- Stefan Vogel (stefan@zwerg)
+ Stefan Vogel (stefan@zwerg)
[see also:]
@@ -139,7 +139,7 @@
dict at:true put:1234.
dict at:#murks put:'hallo'.
dict at:5 put:#symbol.
-
+
self encodeAndDecode:dict
"
@@ -165,7 +165,7 @@
"test encoding an decoding of an integer"
-1.0 to: 1.0 by:0.5 do:[:i|
- self encodeAndDecode:i
+ self encodeAndDecode:i
].
"
@@ -177,7 +177,7 @@
"test encoding an decoding of an integer"
(-3/4) to:(3/4) by:(1/4) do:[:i|
- self encodeAndDecode:i
+ self encodeAndDecode:i
].
"
@@ -194,7 +194,7 @@
dict at:true put:1234.
dict at:#test put:'hallo'.
dict at:5 put:#symbol.
-
+
self encodeAndDecode:dict
"
@@ -206,8 +206,8 @@
"test encoding an decoding of an integer"
#( 0 1 10 100 1000 10000 100000 1000000 16rFFFF 16rFFFFFF) do:[:i|
- self encodeAndDecode:i.
- self encodeAndDecode:i negated.
+ self encodeAndDecode:i.
+ self encodeAndDecode:i negated.
].
"
@@ -232,40 +232,40 @@
testLargeInteger
"test encoding an decoding of an integer"
- #(
- 16r1FFFFFFF 16r20000000
- 16r3FFFFFFF 16r40000000
- 16r7FFFFFFF 16r80000000
- 16rFFFFFFFF 16r100000000
+ #(
+ 16r1FFFFFFF 16r20000000
+ 16r3FFFFFFF 16r40000000
+ 16r7FFFFFFF 16r80000000
+ 16rFFFFFFFF 16r100000000
- 16r1FFFFFFFF 16r200000000
- 16r3FFFFFFFF 16r400000000
- 16r7FFFFFFFF 16r800000000
- 16rFFFFFFFFF 16r1000000000
+ 16r1FFFFFFFF 16r200000000
+ 16r3FFFFFFFF 16r400000000
+ 16r7FFFFFFFF 16r800000000
+ 16rFFFFFFFFF 16r1000000000
- 16r1FFFFFFFFF 16r2000000000
- 16r3FFFFFFFFF 16r4000000000
- 16r7FFFFFFFFF 16r8000000000
- 16rFFFFFFFFFF 16r10000000000
+ 16r1FFFFFFFFF 16r2000000000
+ 16r3FFFFFFFFF 16r4000000000
+ 16r7FFFFFFFFF 16r8000000000
+ 16rFFFFFFFFFF 16r10000000000
- 16r1FFFFFFFFFF 16r20000000000
- 16r3FFFFFFFFFF 16r40000000000
- 16r7FFFFFFFFFF 16r80000000000
- 16rFFFFFFFFFFF 16r100000000000
+ 16r1FFFFFFFFFF 16r20000000000
+ 16r3FFFFFFFFFF 16r40000000000
+ 16r7FFFFFFFFFF 16r80000000000
+ 16rFFFFFFFFFFF 16r100000000000
- 16r1FFFFFFFFFFF 16r200000000000
- 16r3FFFFFFFFFFF 16r400000000000
- 16r7FFFFFFFFFFF 16r800000000000
- 16rFFFFFFFFFFFF 16r1000000000000
+ 16r1FFFFFFFFFFF 16r200000000000
+ 16r3FFFFFFFFFFF 16r400000000000
+ 16r7FFFFFFFFFFF 16r800000000000
+ 16rFFFFFFFFFFFF 16r1000000000000
- 16r1FFFFFFFFFFFFFF 16r200000000000000
- 16r3FFFFFFFFFFFFFF 16r400000000000000
- 16r7FFFFFFFFFFFFFF 16r800000000000000
- 16rFFFFFFFFFFFFFFF 16r1000000000000000
+ 16r1FFFFFFFFFFFFFF 16r200000000000000
+ 16r3FFFFFFFFFFFFFF 16r400000000000000
+ 16r7FFFFFFFFFFFFFF 16r800000000000000
+ 16rFFFFFFFFFFFFFFF 16r1000000000000000
) do:[:i|
- self encodeAndDecode:i.
- self encodeAndDecode:i negated.
+ self encodeAndDecode:i.
+ self encodeAndDecode:i negated.
].
"
@@ -295,9 +295,9 @@
"test encoding an decoding of a point"
-4 to:4 do:[:x |
- -4 to:4 do:[:y |
- self encodeAndDecode:(x @ y)
- ]
+ -4 to:4 do:[:y |
+ self encodeAndDecode:(x @ y)
+ ]
].
"
@@ -327,12 +327,12 @@
self encodeAndDecode:'hello world'.
self encodeAndDecode:'hello world #*'.
- self encodeAndDecode:Character tab asString , 'with',
- Character tab asString, Character tab asString, 'tabs',
- Character tab asString.
- self encodeAndDecode:Character tab asString , '& with',
- Character tab asString, Character tab asString, 'tabs',
- Character tab asString.
+ self encodeAndDecode:Character tab asString , 'with',
+ Character tab asString, Character tab asString, 'tabs',
+ Character tab asString.
+ self encodeAndDecode:Character tab asString , '& with',
+ Character tab asString, Character tab asString, 'tabs',
+ Character tab asString.
"
self run:#testString
--- a/RegressionTests__ZipArchiveTests.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__ZipArchiveTests.st Thu Jun 30 09:02:08 2016 +0100
@@ -13,47 +13,47 @@
!ZipArchiveTests methodsFor:'tests'!
badZipArchiveDataFile
- ^ #[80 75 3 4 20 0 0 0 8 0 218 62 46 62 215 233 78 110 174 11 0 0 207 84 0 0 7 0 17 0 115 116
-114 46 100 97 116 85 84 13 0 7 37 1 48 77 37 1 48 77 37 1 48 77 237 92 109 115 162 200 22 254 190
-85 243 31 250 219 222 189 153 25 233 230 69 116 63 33 96 164 70 193 11 152 151 91 84 221 66 197 232
-14 209 44 144 201 78 77 205 127 191 167 155 6 209 160 73 106 204 214 212 134 173 29 133 230 156 231
-188 62 167 73 130 126 11 146 108 129 131 112 157 174 130 121 180 136 195 245 141 40 168 56 88 100
-235 233 31 193 253 12 211 213 133 240 238 151 111 193 98 179 206 178 105 12 7 2 10 22 233 195 42 77
-145 150 172 194 248 247 239 176 134 97 45 217 220 134 107 120 159 45 195 36 141 50 130 252 213 109
-148 34 59 122 64 46 189 196 4 73 157 160 247 245 118 186 201 129 196 18 188 188 46 212 2 73 117 130
-253 228 62 91 221 68 9 146 100 52 92 221 44 51 38 42 131 200 122 21 35 125 115 159 172 224 34 0 177
-117 133 175 15 239 103 171 121 136 60 72 195 239 223 191 211 96 103 155 120 147 64 180 232 247 32
-137 230 68 150 131 155 36 138 214 244 96 26 223 71 240 158 95 17 242 117 129 173 10 59 107 138 196
-22 49 81 107 68 113 91 169 89 37 120 23 130 175 22 198 30 185 113 0 91 1 20 22 69 154 125 141 163
-116 25 69 25 4 155 18 33 152 45 72 48 155 226 96 182 156 77 239 194 12 35 123 147 220 230 21 156 165
-80 117 124 64 204 136 22 225 125 156 161 113 152 132 55 73 120 183 68 125 232 6 170 150 146 32 93 71
-127 101 2 87 86 131 233 99 117 223 209 17 102 210 226 174 180 84 35 29 44 86 66 16 175 176 42 4 201
-74 96 186 132 233 74 251 186 7 52 69 101 171 41 50 77 249 153 154 178 180 213 148 152 166 242 76 205
-54 217 106 202 239 126 97 186 237 103 234 118 132 173 174 194 52 213 103 106 98 161 146 164 54 83 237
-60 87 149 84 178 164 50 85 44 60 87 87 170 228 169 147 235 226 66 119 115 159 197 171 117 20 71 95
-162 24 144 224 255 84 36 172 204 226 46 86 58 37 0 147 134 224 71 26 239 233 161 65 20 206 87 235 27
-222 53 184 108 178 170 20 230 232 2 67 151 158 141 142 75 116 194 43 133 203 182 172 202 145 28 159
-183 180 252 108 124 82 226 231 221 135 203 198 173 74 137 28 61 167 192 243 115 35 150 232 121 135
-226 178 185 171 82 82 5 125 245 34 124 169 196 151 115 252 146 2 85 41 153 227 191 180 178 114 137
-174 20 185 47 105 82 149 83 74 252 251 248 69 6 148 210 64 206 7 92 114 169 42 213 230 240 2 133 167
-249 217 235 243 35 6 218 165 1 206 154 146 113 85 41 181 244 255 37 206 171 37 118 206 42 240 175 96
-100 133 71 199 125 253 115 6 187 101 22 71 60 189 164 36 230 161 225 14 164 254 64 71 230 118 112 218
-247 183 211 8 118 21 216 65 83 62 228 247 166 252 115 80 122 247 113 28 101 59 40 123 211 191 6 37 157
-210 80 48 13 28 166 64 111 51 255 138 124 208 200 213 119 55 0 168 236 113 117 248 39 169 244 245 22
-182 46 188 5 227 219 9 217 221 21 160 207 143 195 85 0 196 34 185 123 219 195 227 128 96 131 205 162
-162 170 185 206 118 91 144 15 232 140 227 112 181 174 196 189 183 29 228 243 110 79 199 203 146 77 97
-97 111 15 16 106 58 28 153 183 119 203 48 93 165 76 67 220 246 25 215 96 172 83 118 85 6 95 239 162 4
-122 245 115 174 243 100 99 193 61 2 4 159 228 210 79 54 16 75 82 148 240 204 138 219 86 161 89 170 169
-53 220 204 205 35 42 59 75 69 105 39 210 93 190 161 254 42 138 161 9 195 105 196 239 115 68 153 139 215
-209 9 249 225 52 222 169 24 40 192 52 82 242 22 153 6 119 9 4 53 203 184 98 187 80 108 35 207 235 109
-54 159 111 195 132 229 7 180 218 149 122 177 124 238 89 114 166 127 0 16 202 32 173 121 204 53 117 166
-241 168 187 106 148 78 60 89 252 102 245 223 112 11 248 133 222 154 79 214 159 215 155 135 117 185 28
-131 104 70 227 161 167 244 36 95 137 110 239 226 48 139 86 115 92 172 179 233 19 176 215 245 98 38 228
-71 139 77 28 111 30 248 73 154 133 73 6 230 191 229 167 25 165 65 240 171 64 224 159 240 241 59 95 93
-179 193 145 210 11 56 247 225 135 193 241 107 130 147 215 4 23 95 19 92 122 77 112 249 53 193 149 215
-4 111 191 38 184 250 4 248 58 188 141 24 59 225 166 149 45 48 130 149 151 247 184 71 234 125 130 61 242
-217 78 225 224 215 105 123 207 167 19 197 218 208 174 22 188 161 93 45 248 207 65 59 82 210 142 28 166
-157 88 239 211 15 211 174 248 153 249 52 49 55 244 171 5 111 232 87 11 254 115 208 79 44 233 39 30 166
+ ^ #[80 75 3 4 20 0 0 0 8 0 218 62 46 62 215 233 78 110 174 11 0 0 207 84 0 0 7 0 17 0 115 116
+114 46 100 97 116 85 84 13 0 7 37 1 48 77 37 1 48 77 37 1 48 77 237 92 109 115 162 200 22 254 190
+85 243 31 250 219 222 189 153 25 233 230 69 116 63 33 96 164 70 193 11 152 151 91 84 221 66 197 232
+14 209 44 144 201 78 77 205 127 191 167 155 6 209 160 73 106 204 214 212 134 173 29 133 230 156 231
+188 62 167 73 130 126 11 146 108 129 131 112 157 174 130 121 180 136 195 245 141 40 168 56 88 100
+235 233 31 193 253 12 211 213 133 240 238 151 111 193 98 179 206 178 105 12 7 2 10 22 233 195 42 77
+145 150 172 194 248 247 239 176 134 97 45 217 220 134 107 120 159 45 195 36 141 50 130 252 213 109
+148 34 59 122 64 46 189 196 4 73 157 160 247 245 118 186 201 129 196 18 188 188 46 212 2 73 117 130
+253 228 62 91 221 68 9 146 100 52 92 221 44 51 38 42 131 200 122 21 35 125 115 159 172 224 34 0 177
+117 133 175 15 239 103 171 121 136 60 72 195 239 223 191 211 96 103 155 120 147 64 180 232 247 32
+137 230 68 150 131 155 36 138 214 244 96 26 223 71 240 158 95 17 242 117 129 173 10 59 107 138 196
+22 49 81 107 68 113 91 169 89 37 120 23 130 175 22 198 30 185 113 0 91 1 20 22 69 154 125 141 163
+116 25 69 25 4 155 18 33 152 45 72 48 155 226 96 182 156 77 239 194 12 35 123 147 220 230 21 156 165
+80 117 124 64 204 136 22 225 125 156 161 113 152 132 55 73 120 183 68 125 232 6 170 150 146 32 93 71
+127 101 2 87 86 131 233 99 117 223 209 17 102 210 226 174 180 84 35 29 44 86 66 16 175 176 42 4 201
+74 96 186 132 233 74 251 186 7 52 69 101 171 41 50 77 249 153 154 178 180 213 148 152 166 242 76 205
+54 217 106 202 239 126 97 186 237 103 234 118 132 173 174 194 52 213 103 106 98 161 146 164 54 83 237
+60 87 149 84 178 164 50 85 44 60 87 87 170 228 169 147 235 226 66 119 115 159 197 171 117 20 71 95
+162 24 144 224 255 84 36 172 204 226 46 86 58 37 0 147 134 224 71 26 239 233 161 65 20 206 87 235 27
+222 53 184 108 178 170 20 230 232 2 67 151 158 141 142 75 116 194 43 133 203 182 172 202 145 28 159
+183 180 252 108 124 82 226 231 221 135 203 198 173 74 137 28 61 167 192 243 115 35 150 232 121 135
+226 178 185 171 82 82 5 125 245 34 124 169 196 151 115 252 146 2 85 41 153 227 191 180 178 114 137
+174 20 185 47 105 82 149 83 74 252 251 248 69 6 148 210 64 206 7 92 114 169 42 213 230 240 2 133 167
+249 217 235 243 35 6 218 165 1 206 154 146 113 85 41 181 244 255 37 206 171 37 118 206 42 240 175 96
+100 133 71 199 125 253 115 6 187 101 22 71 60 189 164 36 230 161 225 14 164 254 64 71 230 118 112 218
+247 183 211 8 118 21 216 65 83 62 228 247 166 252 115 80 122 247 113 28 101 59 40 123 211 191 6 37 157
+210 80 48 13 28 166 64 111 51 255 138 124 208 200 213 119 55 0 168 236 113 117 248 39 169 244 245 22
+182 46 188 5 227 219 9 217 221 21 160 207 143 195 85 0 196 34 185 123 219 195 227 128 96 131 205 162
+162 170 185 206 118 91 144 15 232 140 227 112 181 174 196 189 183 29 228 243 110 79 199 203 146 77 97
+97 111 15 16 106 58 28 153 183 119 203 48 93 165 76 67 220 246 25 215 96 172 83 118 85 6 95 239 162 4
+122 245 115 174 243 100 99 193 61 2 4 159 228 210 79 54 16 75 82 148 240 204 138 219 86 161 89 170 169
+53 220 204 205 35 42 59 75 69 105 39 210 93 190 161 254 42 138 161 9 195 105 196 239 115 68 153 139 215
+209 9 249 225 52 222 169 24 40 192 52 82 242 22 153 6 119 9 4 53 203 184 98 187 80 108 35 207 235 109
+54 159 111 195 132 229 7 180 218 149 122 177 124 238 89 114 166 127 0 16 202 32 173 121 204 53 117 166
+241 168 187 106 148 78 60 89 252 102 245 223 112 11 248 133 222 154 79 214 159 215 155 135 117 185 28
+131 104 70 227 161 167 244 36 95 137 110 239 226 48 139 86 115 92 172 179 233 19 176 215 245 98 38 228
+71 139 77 28 111 30 248 73 154 133 73 6 230 191 229 167 25 165 65 240 171 64 224 159 240 241 59 95 93
+179 193 145 210 11 56 247 225 135 193 241 107 130 147 215 4 23 95 19 92 122 77 112 249 53 193 149 215
+4 111 191 38 184 250 4 248 58 188 141 24 59 225 166 149 45 48 130 149 151 247 184 71 234 125 130 61 242
+217 78 225 224 215 105 123 207 167 19 197 218 208 174 22 188 161 93 45 248 207 65 59 82 210 142 28 166
+157 88 239 211 15 211 174 248 153 249 52 49 55 244 171 5 111 232 87 11 254 115 208 79 44 233 39 30 166
159 84 239 83 67 191 19 129 55 244 171 5 127 3 244 147 74 250 73 135 233 39 215
251 116 2 250 145 134 126 65 67 191 3 224 111 128 126 114 73 63 249 48 253 148
122 159 26 250 157 8 188 161 95 45 248 27 160 159 82 210 79 57 76 191 246 73
@@ -468,3 +468,4 @@
version_CVS
^ '$Header$'
! !
+
--- a/SelectorNamespacesTests.st Wed Jun 29 21:40:53 2016 +0100
+++ b/SelectorNamespacesTests.st Thu Jun 30 09:02:08 2016 +0100
@@ -1,6 +1,6 @@
"
COPYRIGHT (c) 2006 by eXept Software AG
- All Rights Reserved
+ All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
@@ -9,7 +9,7 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-"{ Package: 'exept:regression' }"
+"{ Package: 'stx:goodies/regression' }"
"{ NameSpace: RegressionTests }"
@@ -25,7 +25,7 @@
copyright
"
COPYRIGHT (c) 2006 by eXept Software AG
- All Rights Reserved
+ All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
@@ -138,8 +138,8 @@
"Basic imports"
- self assert:
- ((NameSpace name: #TestNS3) imports includes: (NameSpace name: #TestNS2)).
+ self assert:
+ ((NameSpace name: #TestNS3) imports includes: (NameSpace name: #TestNS2)).
self assert: self baz == #foo_NS2.
"Created: / 21-07-2010 / 16:05:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -149,9 +149,9 @@
test_03
"Ambiguous send"
- "Disable, I need a kind of unwind-protect on a C level.
+ "Disable, I need a kind of unwind-protect on a C level.
Is that possible?"
-
+
self shouldnt:[self qux] raise: AmbiguousMessage.
self assert: ambiguousMessageSelector == #foo.
--- a/SelfTestRunner.st Wed Jun 29 21:40:53 2016 +0100
+++ b/SelfTestRunner.st Thu Jun 30 09:02:08 2016 +0100
@@ -1,6 +1,6 @@
"/ Script meant to be called from jenkins (or similar build tools)
"/
-"/ runs a number of tests from the exept:regression package (see list below)
+"/ runs a number of tests from the stx:goodies/regression package (see list below)
"/ execute this script using the following command line:
"/
"/ stx --noBanner -I --execute SelfTestRunner.st
--- a/abbrev.stc Wed Jun 29 21:40:53 2016 +0100
+++ b/abbrev.stc Thu Jun 30 09:02:08 2016 +0100
@@ -3,7 +3,7 @@
# it provides information about a classes filename, category and especially namespace.
RegressionTests::CompilerTests2 RegressionTests__CompilerTests2 stx:goodies/regression 'tests-Regression-Compilers' 1
RegressionTests::CompilerTests2ExternalBytes RegressionTests__CompilerTests2ExternalBytes stx:goodies/regression 'tests-Regression-Compilers' 0
-exept_regression exept_regression stx:goodies/regression '* Projects & Packages *' 3
+stx_goodies_regression stx_goodies_regression stx:goodies/regression '* Projects & Packages *' 3
RegressionTests::AssociationTests RegressionTests__AssociationTests stx:goodies/regression 'tests-Regression' 1
RegressionTests::BecomeTests RegressionTests__BecomeTests stx:goodies/regression 'tests-Regression-RuntimeSystem' 1
RegressionTests::BehaviorLookupObjectTests RegressionTests__BehaviorLookupObjectTests stx:goodies/regression 'tests-Regression' 1
--- a/bc.mak Wed Jun 29 21:40:53 2016 +0100
+++ b/bc.mak Thu Jun 30 09:02:08 2016 +0100
@@ -66,7 +66,7 @@
test: $(TOP)\goodies\builder\reports\NUL
pushd $(TOP)\goodies\builder\reports & $(MAKE_BAT)
$(TOP)\goodies\builder\reports\report-runner.bat -D . -r Builder::TestReport -p $(PACKAGE)
-
+
clean::
del *.$(CSUFFIX)
--- a/benchmarks/CollectionBenchmarks.st Wed Jun 29 21:40:53 2016 +0100
+++ b/benchmarks/CollectionBenchmarks.st Thu Jun 30 09:02:08 2016 +0100
@@ -18,137 +18,137 @@
ObjectMemory garbageCollect.
#(SortedCollection AATree BinaryTree) do:[:className |
- |class doBench coll t seq|
+ |class doBench coll t seq|
- class := Smalltalk classNamed:className.
+ class := Smalltalk classNamed:className.
- doBench := [:class |
- |coll t|
+ doBench := [:class |
+ |coll t|
- t := Time millisecondsToRun:[
- coll := class new.
- randomNumbers do:[:each | coll add:each]
- ].
- Transcript show:'Time to insert random '; show:N; show:' individually into ',class name,': '; show:t; showCR:'ms'.
- coll
- ].
+ t := Time millisecondsToRun:[
+ coll := class new.
+ randomNumbers do:[:each | coll add:each]
+ ].
+ Transcript show:'Time to insert random '; show:N; show:' individually into ',class name,': '; show:t; showCR:'ms'.
+ coll
+ ].
- ObjectMemory garbageCollect.
- doBench value:class.
- ObjectMemory garbageCollect.
+ ObjectMemory garbageCollect.
+ doBench value:class.
+ ObjectMemory garbageCollect.
- doBench := [:class |
- |coll t|
+ doBench := [:class |
+ |coll t|
- t := Time millisecondsToRun:[
- coll := class new.
- coll addAll:randomNumbers
- ].
- Transcript show:'Time to insert random '; show:N; show:' en-bloque into ',class name,': '; show:t; showCR:'ms'.
- coll
- ].
+ t := Time millisecondsToRun:[
+ coll := class new.
+ coll addAll:randomNumbers
+ ].
+ Transcript show:'Time to insert random '; show:N; show:' en-bloque into ',class name,': '; show:t; showCR:'ms'.
+ coll
+ ].
- ObjectMemory garbageCollect.
- doBench value:class.
- ObjectMemory garbageCollect.
+ ObjectMemory garbageCollect.
+ doBench value:class.
+ ObjectMemory garbageCollect.
- doBench := [:class |
- |coll t|
+ doBench := [:class |
+ |coll t|
- t := Time millisecondsToRun:[
- coll := class new.
- (1 to:N) do:[:each | coll add:each].
- ].
- Transcript show:'Time to insert in order '; show:N; show:' individually into ',class name,': '; show:t; showCR:'ms'.
- coll
- ].
+ t := Time millisecondsToRun:[
+ coll := class new.
+ (1 to:N) do:[:each | coll add:each].
+ ].
+ Transcript show:'Time to insert in order '; show:N; show:' individually into ',class name,': '; show:t; showCR:'ms'.
+ coll
+ ].
- ObjectMemory garbageCollect.
- doBench value:class.
- ObjectMemory garbageCollect.
+ ObjectMemory garbageCollect.
+ doBench value:class.
+ ObjectMemory garbageCollect.
- doBench := [:class |
- |coll t|
+ doBench := [:class |
+ |coll t|
- t := Time millisecondsToRun:[
- coll := class new.
- coll addAll:(1 to:N).
- ].
- Transcript show:'Time to insert in order '; show:N; show:' en-bloque into ',class name,': '; show:t; showCR:'ms'.
- coll
- ].
+ t := Time millisecondsToRun:[
+ coll := class new.
+ coll addAll:(1 to:N).
+ ].
+ Transcript show:'Time to insert in order '; show:N; show:' en-bloque into ',class name,': '; show:t; showCR:'ms'.
+ coll
+ ].
- ObjectMemory garbageCollect.
- doBench value:class.
- ObjectMemory garbageCollect.
+ ObjectMemory garbageCollect.
+ doBench value:class.
+ ObjectMemory garbageCollect.
- doBench := [:class |
- |coll t|
+ doBench := [:class |
+ |coll t|
- t := Time millisecondsToRun:[
- coll := class new.
- (N downTo:1) do:[:each | coll add:each].
- ].
- Transcript show:'Time to insert in reverse order '; show:N; show:' individually into ',class name,': '; show:t; showCR:'ms'.
- coll
- ].
+ t := Time millisecondsToRun:[
+ coll := class new.
+ (N downTo:1) do:[:each | coll add:each].
+ ].
+ Transcript show:'Time to insert in reverse order '; show:N; show:' individually into ',class name,': '; show:t; showCR:'ms'.
+ coll
+ ].
- ObjectMemory garbageCollect.
- doBench value:class.
- ObjectMemory garbageCollect.
+ ObjectMemory garbageCollect.
+ doBench value:class.
+ ObjectMemory garbageCollect.
- doBench := [:class |
- |coll t|
+ doBench := [:class |
+ |coll t|
- t := Time millisecondsToRun:[
- coll := class new.
- coll addAll:(N downTo:1).
- ].
- Transcript show:'Time to insert in reverse order '; show:N; show:' en-bloque into ',class name,': '; show:t; showCR:'ms'.
- coll
- ].
+ t := Time millisecondsToRun:[
+ coll := class new.
+ coll addAll:(N downTo:1).
+ ].
+ Transcript show:'Time to insert in reverse order '; show:N; show:' en-bloque into ',class name,': '; show:t; showCR:'ms'.
+ coll
+ ].
- ObjectMemory garbageCollect.
- doBench value:class.
- ObjectMemory garbageCollect.
+ ObjectMemory garbageCollect.
+ doBench value:class.
+ ObjectMemory garbageCollect.
- coll := class new.
- coll addAll:randomNumbers.
+ coll := class new.
+ coll addAll:randomNumbers.
- t := Time millisecondsToRun:[
- coll removeAll:randomNumbers.
- ].
- Transcript show:'Time to remove in random order '; show:N; show:' from ',class name,': '; show:t; showCR:'ms'.
- self assert:(coll isEmpty).
- ObjectMemory garbageCollect.
+ t := Time millisecondsToRun:[
+ coll removeAll:randomNumbers.
+ ].
+ Transcript show:'Time to remove in random order '; show:N; show:' from ',class name,': '; show:t; showCR:'ms'.
+ self assert:(coll isEmpty).
+ ObjectMemory garbageCollect.
- coll := class new.
- coll addAll:randomNumbers.
- seq := randomNumbers copy sort.
+ coll := class new.
+ coll addAll:randomNumbers.
+ seq := randomNumbers copy sort.
- t := Time millisecondsToRun:[
- coll removeAll:seq.
- ].
- Transcript show:'Time to remove in order '; show:N; show:' from ',class name,': '; show:t; showCR:'ms'.
- self assert:(coll isEmpty).
- ObjectMemory garbageCollect.
+ t := Time millisecondsToRun:[
+ coll removeAll:seq.
+ ].
+ Transcript show:'Time to remove in order '; show:N; show:' from ',class name,': '; show:t; showCR:'ms'.
+ self assert:(coll isEmpty).
+ ObjectMemory garbageCollect.
- coll := class new.
- coll addAll:randomNumbers.
- seq := randomNumbers copy sort reverse.
+ coll := class new.
+ coll addAll:randomNumbers.
+ seq := randomNumbers copy sort reverse.
- t := Time millisecondsToRun:[
- coll removeAll:seq.
- ].
- Transcript show:'Time to remove in reverse order '; show:N; show:' from ',class name,': '; show:t; showCR:'ms'.
- self assert:(coll isEmpty).
- ObjectMemory garbageCollect.
+ t := Time millisecondsToRun:[
+ coll removeAll:seq.
+ ].
+ Transcript show:'Time to remove in reverse order '; show:N; show:' from ',class name,': '; show:t; showCR:'ms'.
+ self assert:(coll isEmpty).
+ ObjectMemory garbageCollect.
- Transcript cr.
+ Transcript cr.
].
!
@@ -201,9 +201,9 @@
"/ Transcript showCR:'-----------'.
"/ Transcript showCR:(coll instVarNamed:'treeRoot').
"/ Transcript showCR:each.
- coll remove:each.
- sc remove:each.
- self assert:(sc asOrderedCollection = coll asOrderedCollection).
+ coll remove:each.
+ sc remove:each.
+ self assert:(sc asOrderedCollection = coll asOrderedCollection).
].
! !
--- a/nt.mak Wed Jun 29 21:40:53 2016 +0100
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,114 +0,0 @@
-# $Header$
-#
-# -- nt.mak created from project at 'From Smalltalk/X, Version:3.5.5 on 8-nov-1999 at 21:44:36'
-#
-# Warning: YOU SHOULD NOT MODIFY THIS FILE - MODIFY THE .prj FILE INSTEAD
-# and let the ProjectBrowser recreate this file.
-# once you modify this file, do not recreate nt.mak again
-# - otherwise, your changes are lost.
-
-# default installation directory:
-# (overwrite with 'make INSTALLTOP_DIR=... install')
-# the INSTALLBASE is imported from configurations... and usually
-# defaults to something like /opt/smalltalk.
-# (overwrite with 'make INSTALLBASE=... install')
-INSTALLTOP_DIR=$(INSTALLBASE)/packages/$(MODULE)/$(MODULE_DIR)
-INSTALLLIB_DIR=$(INSTALLTOP_DIR)
-INSTALLBIN_DIR=$(INSTALLTOP_DIR)
-
-#
-# position (of this package) in directory hierarchy:
-# (must point to ST/X top directory, for tools and includes)
-TOP=..\..\stx
-
-#
-!INCLUDE Make.spec
-#
-!INCLUDE "$(TOP)\rules\stdHeader_nt"
-
-# subdirectories where targets are to be made:
-SUBDIRS=
-
-# subdirectories where Makefiles are to be made:
-# (only define if different from SUBDIRS)
-# ALLSUBDIRS=
-
-# the next define suppresses installation of
-# the classes as autoloaded (i.e. not added to abbrev.stc).
-SUPPRESS_LOCAL_ABBREVS=1
-
-# Argument(s) to the stc compiler.
-# -H. : create header files locally
-# (if removed, they will be created as common
-# -Pxxx : defines the package
-# -Zxxx : a prefix for variables within the classLib
-# -Dxxx : defines passed to to CC for inline C-code
-# -Ixxx : include path passed to CC for inline C-code
-# +optspace : optimized for space
-# +optspace2 : optimized more for space
-# +optspace3 : optimized even more for space
-# +optinline : generate inline code for some ST constructs
-# +inlineNew : additionally inline new
-# +inlineMath : additionally inline some floatPnt math stuff
-#
-# ********** OPTIONAL: MODIFY the next line(s) ***
-# STCLOCALOPTIMIZATIONS=+optinline +inlineNew
-# STCLOCALOPTIMIZATIONS=+optspace3
-STCLOCALOPTIMIZATIONS=+optspace3
-
-# Argument(s) to the stc compiler.
-# -warn : no warnings
-# -warnNonStandard : no warnings about ST/X extensions
-# -warnEOLComments : no warnings about EOL comment extension
-# -warnPrivacy : no warnings about privateClass extension
-#
-# ********** OPTIONAL: MODIFY the next line(s) ***
-# STCWARNINGS=-warn
-# STCWARNINGS=-warnNonStandard
-# STCWARNINGS=-warnEOLComments
-STCWARNINGS=-warnEOLComments
-
-# if your embedded C code requires any system includes,
-# add the path(es) here:,
-# ********** OPTIONAL: MODIFY the next lines ***
-# LOCALINCLUDES=-Ifoo -Ibar
-LOCALINCLUDES=-I. -I$(TOP)\goodies\sunit
-
-# if you need any additional defines for embedded C code,
-# add them here:,
-# ********** OPTIONAL: MODIFY the next lines ***
-# LOCALDEFINES=-Dfoo -Dbar -DDEBUG
-LOCALDEFINES=
-
-STCLOCALOPT=-I. $(STCLOCALOPTIMIZATIONS) $(STCWARNINGS) $(LOCALINCLUDES) $(LOCALDEFINES) -H. -package=$(PACKAGE) -varPrefix=$(LIBNAME) $(COMMONSYMFLAG) $(INITCODESEPFLAG)
-
-# ********** OPTIONAL: MODIFY the next line ***
-# additional C-libraries that should be pre-linked with the class-objects
-LD_OBJ_LIBS=
-
-# ********** OPTIONAL: MODIFY the next line ***
-# additional C targets or libraries should be added below
-LOCAL_EXTRA_TARGETS=
-
-#ALL:: preMake $(LIBDIR)\$(LIBNAME).lib $(BINDIR)\$(LIBNAME).dll postMake
-ALL:: $(LIBDIR)\$(LIBNAME).lib $(BINDIR)\$(LIBNAME).dll
-
-
-# add more preMake actions here
-preMake:
-
-# add more postMake actions here
-postMake: cleanjunk
-
-#clean::
-# -del $(OUTDIR)*.obj
-# -del *.sc
-
-#clobber::
-# -del $(OUTDIR)*.obj
-# -del *.sc
-# -del *.dll
-# -del *.lib
-
-
-!INCLUDE $(TOP)\rules\stdRules_nt
--- a/obsolete/RegressionTests__QuickTest.st Wed Jun 29 21:40:53 2016 +0100
+++ b/obsolete/RegressionTests__QuickTest.st Thu Jun 30 09:02:08 2016 +0100
@@ -161,12 +161,12 @@
test_isNilBug
1000 timesRepeat:[
- 10 timesRepeat:[
- [
- self test_isNilBugForker
- ] fork.
- ].
- Delay waitForSeconds:0.5.
+ 10 timesRepeat:[
+ [
+ self test_isNilBugForker
+ ] fork.
+ ].
+ Delay waitForSeconds:0.5.
]
"
@@ -181,13 +181,13 @@
model := self.
[
- order do:[:aPin |
- (aPin ioRef notNil and:[(bn := aPin ioRef refBlockName) notNil]) ifTrue:[
- blk := model r3Name:bn.
- pin := aPin ioRef r3PinName.
- Processor yield.
- ].
- ].
+ order do:[:aPin |
+ (aPin ioRef notNil and:[(bn := aPin ioRef refBlockName) notNil]) ifTrue:[
+ blk := model r3Name:bn.
+ pin := aPin ioRef r3PinName.
+ Processor yield.
+ ].
+ ].
] forkAt:6.
! !
--- a/runSelfTest.bat Wed Jun 29 21:40:53 2016 +0100
+++ b/runSelfTest.bat Thu Jun 30 09:02:08 2016 +0100
@@ -1,4 +1,4 @@
@REM use --debug as arg to debug failed test cases
-..\..\stx\projects\smalltalk\stx --debug --noBanner -I --execute SelfTestRunner.st
-@REM ..\..\stx\projects\smalltalk\stx --debug --noInfoPrint --noBanner --exitOnInternalError --exitOnMessageSendError -I --execute SelfTestRunner.st
+..\..\..\stx\projects\smalltalk\stx --debug --noBanner -I --execute SelfTestRunner.st
+@REM ..\..\..\stx\projects\smalltalk\stx --debug --noInfoPrint --noBanner --exitOnInternalError --exitOnMessageSendError -I --execute SelfTestRunner.st
--- a/runSelfTest.sh Wed Jun 29 21:40:53 2016 +0100
+++ b/runSelfTest.sh Thu Jun 30 09:02:08 2016 +0100
@@ -1,4 +1,4 @@
#!/bin/sh
# use --debug as arg to debug failed test cases
-../../stx/projects/smalltalk/stx --noInfoPrint --noBanner --exitOnInternalError --exitOnMessageSendError -I $* --execute SelfTestRunner.st
+../../../stx/projects/smalltalk/stx --noInfoPrint --noBanner --exitOnInternalError --exitOnMessageSendError -I $* --execute SelfTestRunner.st
--- a/stx_goodies_regression.st Wed Jun 29 21:40:53 2016 +0100
+++ b/stx_goodies_regression.st Thu Jun 30 09:02:08 2016 +0100
@@ -82,18 +82,18 @@
| suite |
- suite := TestSuite named: self package.
+ suite := TestSuite named: self package.
self testCaseNamesWithoutNamespace do:[:className |
- |fullName|
+ |fullName|
- fullName := ('RegressionTests::',className).
- ('Loading ',className,'...') infoPrintCR.
- Smalltalk fileInClass:fullName package:self package.
- (Smalltalk classNamed:fullName) isNil ifTrue:[
- ('**** Ouch - missing class: "',fullName,'"') infoPrintCR.
- ] ifFalse:[
- suite addTest:(Smalltalk classNamed:fullName) suite.
- ].
+ fullName := ('RegressionTests::',className).
+ ('Loading ',className,'...') infoPrintCR.
+ Smalltalk fileInClass:fullName package:self package.
+ (Smalltalk classNamed:fullName) isNil ifTrue:[
+ ('**** Ouch - missing class: "',fullName,'"') infoPrintCR.
+ ] ifFalse:[
+ suite addTest:(Smalltalk classNamed:fullName) suite.
+ ].
].
^suite
@@ -108,8 +108,8 @@
preRequisites scan. See #preRequisites for more."
^ #(
- #'exept:libcrypt' "loaded lazily by CryptTests - SHA256Stream - referenced by RegressionTests::CryptTests>>test06_sha256 "
- #'stx:goodies' "no project def - CharacterEncoderCodeGenerator - referenced by RegressionTests::CharacterTests>>test01CaseTesting "
+ #'exept:libcrypt' "loaded lazily by CryptTests - SHA256Stream - referenced by RegressionTests::CryptTests>>test06_sha256 "
+ #'stx:goodies' "no project def - CharacterEncoderCodeGenerator - referenced by RegressionTests::CharacterTests>>test01CaseTesting "
)
"Modified: / 03-03-2014 / 12:00:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -124,8 +124,8 @@
by searching along the inheritance chain of all of my classes."
^ #(
- #'stx:goodies/sunit' "TestAsserter - superclass of RegressionTests::VMCrashTestCase"
- #'stx:libbasic' "Autoload - superclass of RegressionTests::AssociationTests"
+ #'stx:goodies/sunit' "TestAsserter - superclass of RegressionTests::VMCrashTestCase"
+ #'stx:libbasic' "Autoload - superclass of RegressionTests::AssociationTests"
)
!
@@ -159,116 +159,116 @@
Attributes are: #autoload or #<os> where os is one of win32, unix,..."
^ #(
- "<className> or (<className> attributes...) in load order"
- (#'RegressionTests::CompressionStreamTest' autoload)
- (#'RegressionTests::LinkedListTest' autoload)
- (#'RegressionTests::QueueTest' autoload)
- #'stx_goodies_regression'
- (#'RegressionTests::Win32OLETests' autoload)
- (#'RegressionTests::Win32OperatingSystemTest' autoload)
- (#'RegressionTests::HTMLParserTests' autoload)
- (#'RegressionTests::HTTPServerTests' autoload)
- (#'RegressionTests::CompilerTests2' autoload)
- (#'RegressionTests::CompilerTests2ExternalBytes' autoload)
- (#'RegressionTests::AssociationTests' autoload)
- (#'RegressionTests::BecomeTests' autoload)
- (#'RegressionTests::BehaviorLookupObjectTests' autoload)
- (#'RegressionTests::BinaryIOTests' autoload)
- (#'RegressionTests::BinaryTreeTester' autoload)
- (#'RegressionTests::BlockTest' autoload)
- (#'RegressionTests::BreakpointTests' autoload)
- (#'RegressionTests::CECollectionExtensionTest' autoload)
- (#'RegressionTests::CESequenceableCollectionExtensionTest' autoload)
- (#'RegressionTests::CEStringExtensionTest' autoload)
- (#'RegressionTests::CachedValueTest' autoload)
- (#'RegressionTests::CharacterEncoderTests' autoload)
- (#'RegressionTests::CharacterSetTests' autoload)
- (#'RegressionTests::CharacterTests' autoload)
- (#'RegressionTests::ClassAndMethodCompilingTestCase' autoload)
- (#'RegressionTests::ClassDescriptionTests' autoload)
- (#'RegressionTests::ClassWithoutVersionMethod' autoload)
- (#'RegressionTests::CollectionTests' autoload)
- (#'RegressionTests::CompilerTest' autoload)
- (#'RegressionTests::ComplexTest' autoload)
- (#'RegressionTests::ContextTest2' autoload)
- (#'RegressionTests::CoverageInstrumentationTest' autoload)
- (#'RegressionTests::CryptTests' autoload)
- (#'RegressionTests::DebuggerTest' autoload)
- (#'RegressionTests::DeepCopyTests' autoload)
- (#'RegressionTests::DelayTest' autoload)
- (#'RegressionTests::DictionaryTest' autoload)
- (#'RegressionTests::DoubleMetaphoneStringComparatorTest' autoload)
- (#'RegressionTests::EnumerationTests' autoload)
- (#'RegressionTests::ExceptionTest' autoload)
- (#'RegressionTests::ExternalInterfaceTests' autoload)
- (#'RegressionTests::ExternalStreamTest' autoload)
- (#'RegressionTests::FileOpenTest' autoload)
- (#'RegressionTests::FileStreamTest' autoload)
- (#'RegressionTests::FilenameTests' autoload)
- (#'RegressionTests::FloatTest' autoload)
- (#'RegressionTests::FractionTest' autoload)
- (#'RegressionTests::GCTest' autoload)
- (#'RegressionTests::GraphicDrawingTest' autoload)
- (#'RegressionTests::ImageReaderTest' autoload)
- (#'RegressionTests::IntegerTest' autoload)
- (#'RegressionTests::JITTest' autoload)
- (#'RegressionTests::JavaScriptTests' autoload)
- (#'RegressionTests::KoelnerPhoneticCodeStringComparatorTest' autoload)
- (#'RegressionTests::LabelResizingTest' autoload)
- (#'RegressionTests::LargeFloatTest' autoload)
- (#'RegressionTests::LiteralsInMethodTests' autoload)
- (#'RegressionTests::LoggedStreamTests' autoload)
- (#'RegressionTests::MakefileTests' autoload)
- (#'RegressionTests::ManyProcessesTest' autoload)
- (#'RegressionTests::MeasurementValueTests' autoload)
- (#'RegressionTests::MemoryTest' autoload)
- (#'RegressionTests::MetaNumbersTest' autoload)
- (#'RegressionTests::MiracodeStringComparatorTest' autoload)
- (#'RegressionTests::MySQLSoundexStringComparatorTest' autoload)
- (#'RegressionTests::NumberTest' autoload)
- (#'RegressionTests::OS_OLE_Tests' autoload)
- (#'RegressionTests::OperatingSystemTest' autoload)
- (#'RegressionTests::OperationInQueueTests' autoload)
- (#'RegressionTests::PTYTest' autoload)
- (#'RegressionTests::ParserTests' autoload)
- (#'RegressionTests::PipeStreamTest' autoload)
- (#'RegressionTests::PowerSetTests' autoload)
- (#'RegressionTests::ProcessTest' autoload)
- (#'RegressionTests::ProjectDefinitionTests' autoload)
- (#'RegressionTests::QuickTestRunner' autoload)
- (#'RegressionTests::STCCompilerTests' autoload)
- (#'RegressionTests::ScaledDecimalTest' autoload)
- (#'RegressionTests::SegmentedOrderedCollectionTests' autoload)
- (#'RegressionTests::SelectorNamespacesTests' autoload)
- (#'RegressionTests::SemaphoreTest' autoload)
- (#'RegressionTests::ServerSocketTest' autoload)
- (#'RegressionTests::SharedQueueTest' autoload)
- (#'RegressionTests::SmallIntegerTest' autoload)
- (#'RegressionTests::SnapshotRestartTests' autoload)
- (#'RegressionTests::SocketTests' autoload)
- (#'RegressionTests::SortTests' autoload)
- (#'RegressionTests::SoundexStringComparatorTest' autoload)
- (#'RegressionTests::StackFrameTest' autoload)
- (#'RegressionTests::StreamTests' autoload)
- (#'RegressionTests::StringTests' autoload)
- (#'RegressionTests::SunitXMLOutputTest' autoload)
- (#'RegressionTests::TSTreeTests' autoload)
- (#'RegressionTests::TestDialogs1' autoload)
- (#'RegressionTests::TimeAndDateTest' autoload)
- (#'RegressionTests::TimeDurationTest' autoload)
- (#'RegressionTests::URLTest' autoload)
- (#'RegressionTests::UTF8TestClass' autoload)
- (#'RegressionTests::UninterpretedBytesTest' autoload)
- (#'RegressionTests::VMCrashTestCase' autoload)
- (#'RegressionTests::WeakCollectionTest' autoload)
- (#'RegressionTests::WritingToTranscriptOrStdoutTest' autoload)
- (#'RegressionTests::WrongMethodCalledTest' autoload)
- (#'RegressionTests::XMLCoderTests' autoload)
- (#'RegressionTests::ZipArchiveTests' autoload)
- (#'RegressionTests::ChangeSetTests' autoload)
- (#'RegressionTests::ClassBuilderTests' autoload)
- (#'RegressionTests::TSMultiTreeTests' autoload)
- (#'RegressionTests::VMCrashTests' autoload)
+ "<className> or (<className> attributes...) in load order"
+ (#'RegressionTests::CompressionStreamTest' autoload)
+ (#'RegressionTests::LinkedListTest' autoload)
+ (#'RegressionTests::QueueTest' autoload)
+ #'stx_goodies_regression'
+ (#'RegressionTests::Win32OLETests' autoload)
+ (#'RegressionTests::Win32OperatingSystemTest' autoload)
+ (#'RegressionTests::HTMLParserTests' autoload)
+ (#'RegressionTests::HTTPServerTests' autoload)
+ (#'RegressionTests::CompilerTests2' autoload)
+ (#'RegressionTests::CompilerTests2ExternalBytes' autoload)
+ (#'RegressionTests::AssociationTests' autoload)
+ (#'RegressionTests::BecomeTests' autoload)
+ (#'RegressionTests::BehaviorLookupObjectTests' autoload)
+ (#'RegressionTests::BinaryIOTests' autoload)
+ (#'RegressionTests::BinaryTreeTester' autoload)
+ (#'RegressionTests::BlockTest' autoload)
+ (#'RegressionTests::BreakpointTests' autoload)
+ (#'RegressionTests::CECollectionExtensionTest' autoload)
+ (#'RegressionTests::CESequenceableCollectionExtensionTest' autoload)
+ (#'RegressionTests::CEStringExtensionTest' autoload)
+ (#'RegressionTests::CachedValueTest' autoload)
+ (#'RegressionTests::CharacterEncoderTests' autoload)
+ (#'RegressionTests::CharacterSetTests' autoload)
+ (#'RegressionTests::CharacterTests' autoload)
+ (#'RegressionTests::ClassAndMethodCompilingTestCase' autoload)
+ (#'RegressionTests::ClassDescriptionTests' autoload)
+ (#'RegressionTests::ClassWithoutVersionMethod' autoload)
+ (#'RegressionTests::CollectionTests' autoload)
+ (#'RegressionTests::CompilerTest' autoload)
+ (#'RegressionTests::ComplexTest' autoload)
+ (#'RegressionTests::ContextTest2' autoload)
+ (#'RegressionTests::CoverageInstrumentationTest' autoload)
+ (#'RegressionTests::CryptTests' autoload)
+ (#'RegressionTests::DebuggerTest' autoload)
+ (#'RegressionTests::DeepCopyTests' autoload)
+ (#'RegressionTests::DelayTest' autoload)
+ (#'RegressionTests::DictionaryTest' autoload)
+ (#'RegressionTests::DoubleMetaphoneStringComparatorTest' autoload)
+ (#'RegressionTests::EnumerationTests' autoload)
+ (#'RegressionTests::ExceptionTest' autoload)
+ (#'RegressionTests::ExternalInterfaceTests' autoload)
+ (#'RegressionTests::ExternalStreamTest' autoload)
+ (#'RegressionTests::FileOpenTest' autoload)
+ (#'RegressionTests::FileStreamTest' autoload)
+ (#'RegressionTests::FilenameTests' autoload)
+ (#'RegressionTests::FloatTest' autoload)
+ (#'RegressionTests::FractionTest' autoload)
+ (#'RegressionTests::GCTest' autoload)
+ (#'RegressionTests::GraphicDrawingTest' autoload)
+ (#'RegressionTests::ImageReaderTest' autoload)
+ (#'RegressionTests::IntegerTest' autoload)
+ (#'RegressionTests::JITTest' autoload)
+ (#'RegressionTests::JavaScriptTests' autoload)
+ (#'RegressionTests::KoelnerPhoneticCodeStringComparatorTest' autoload)
+ (#'RegressionTests::LabelResizingTest' autoload)
+ (#'RegressionTests::LargeFloatTest' autoload)
+ (#'RegressionTests::LiteralsInMethodTests' autoload)
+ (#'RegressionTests::LoggedStreamTests' autoload)
+ (#'RegressionTests::MakefileTests' autoload)
+ (#'RegressionTests::ManyProcessesTest' autoload)
+ (#'RegressionTests::MeasurementValueTests' autoload)
+ (#'RegressionTests::MemoryTest' autoload)
+ (#'RegressionTests::MetaNumbersTest' autoload)
+ (#'RegressionTests::MiracodeStringComparatorTest' autoload)
+ (#'RegressionTests::MySQLSoundexStringComparatorTest' autoload)
+ (#'RegressionTests::NumberTest' autoload)
+ (#'RegressionTests::OS_OLE_Tests' autoload)
+ (#'RegressionTests::OperatingSystemTest' autoload)
+ (#'RegressionTests::OperationInQueueTests' autoload)
+ (#'RegressionTests::PTYTest' autoload)
+ (#'RegressionTests::ParserTests' autoload)
+ (#'RegressionTests::PipeStreamTest' autoload)
+ (#'RegressionTests::PowerSetTests' autoload)
+ (#'RegressionTests::ProcessTest' autoload)
+ (#'RegressionTests::ProjectDefinitionTests' autoload)
+ (#'RegressionTests::QuickTestRunner' autoload)
+ (#'RegressionTests::STCCompilerTests' autoload)
+ (#'RegressionTests::ScaledDecimalTest' autoload)
+ (#'RegressionTests::SegmentedOrderedCollectionTests' autoload)
+ (#'RegressionTests::SelectorNamespacesTests' autoload)
+ (#'RegressionTests::SemaphoreTest' autoload)
+ (#'RegressionTests::ServerSocketTest' autoload)
+ (#'RegressionTests::SharedQueueTest' autoload)
+ (#'RegressionTests::SmallIntegerTest' autoload)
+ (#'RegressionTests::SnapshotRestartTests' autoload)
+ (#'RegressionTests::SocketTests' autoload)
+ (#'RegressionTests::SortTests' autoload)
+ (#'RegressionTests::SoundexStringComparatorTest' autoload)
+ (#'RegressionTests::StackFrameTest' autoload)
+ (#'RegressionTests::StreamTests' autoload)
+ (#'RegressionTests::StringTests' autoload)
+ (#'RegressionTests::SunitXMLOutputTest' autoload)
+ (#'RegressionTests::TSTreeTests' autoload)
+ (#'RegressionTests::TestDialogs1' autoload)
+ (#'RegressionTests::TimeAndDateTest' autoload)
+ (#'RegressionTests::TimeDurationTest' autoload)
+ (#'RegressionTests::URLTest' autoload)
+ (#'RegressionTests::UTF8TestClass' autoload)
+ (#'RegressionTests::UninterpretedBytesTest' autoload)
+ (#'RegressionTests::VMCrashTestCase' autoload)
+ (#'RegressionTests::WeakCollectionTest' autoload)
+ (#'RegressionTests::WritingToTranscriptOrStdoutTest' autoload)
+ (#'RegressionTests::WrongMethodCalledTest' autoload)
+ (#'RegressionTests::XMLCoderTests' autoload)
+ (#'RegressionTests::ZipArchiveTests' autoload)
+ (#'RegressionTests::ChangeSetTests' autoload)
+ (#'RegressionTests::ClassBuilderTests' autoload)
+ (#'RegressionTests::TSMultiTreeTests' autoload)
+ (#'RegressionTests::VMCrashTests' autoload)
)
!
@@ -304,7 +304,7 @@
legalCopyright
"Return a copyright string which will appear in <lib>.rc"
- ^ 'Copyright eXept Software AG 1998-2011'
+ ^ 'Copyright eXept Software AG 1998-2016, Jan Vrany 2016'
!
productName
--- a/testData/CompilerTests2/Make.proto Wed Jun 29 21:40:53 2016 +0100
+++ b/testData/CompilerTests2/Make.proto Thu Jun 30 09:02:08 2016 +0100
@@ -63,7 +63,7 @@
all:: preMake classLibRule postMake
-pre_objs::
+pre_objs::
--- a/testData/CompilerTests2/abbrev.stc Wed Jun 29 21:40:53 2016 +0100
+++ b/testData/CompilerTests2/abbrev.stc Thu Jun 30 09:02:08 2016 +0100
@@ -3,4 +3,4 @@
# it provides information about a classes filename, category and especially namespace.
RegressionTests::CompilerTests2Mock1 RegressionTests__CompilerTests2Mock1 stx:goodies/regression/testData/CompilerTests2 'tests-Regression-Mocks' 0
RegressionTests::CompilerTests2Mock2 RegressionTests__CompilerTests2Mock2 stx:goodies/regression/testData/CompilerTests2 'tests-Regression-Mocks' 0
-exept_regression_testData_CompilerTests2 exept_regression_testData_CompilerTests2 stx:goodies/regression/testData/CompilerTests2 '* Projects & Packages *' 3
+stx_goodies_regression_testData_CompilerTests2 stx_goodies_regression_testData_CompilerTests2 stx:goodies/regression/testData/CompilerTests2 '* Projects & Packages *' 3
--- a/testData/CompilerTests2/stx_goodies_regression_testData_CompilerTests2.st Wed Jun 29 21:40:53 2016 +0100
+++ b/testData/CompilerTests2/stx_goodies_regression_testData_CompilerTests2.st Thu Jun 30 09:02:08 2016 +0100
@@ -27,7 +27,7 @@
exclude individual packages in the #excludedFromPrerequisites method."
^ #(
- #'stx:libbasic' "ProjectDefinition - superclass of stx_goodies_regression_testData_CompilerTests2 "
+ #'stx:libbasic' "ProjectDefinition - superclass of stx_goodies_regression_testData_CompilerTests2 "
)
! !
@@ -40,10 +40,10 @@
Attributes are: #autoload or #<os> where os is one of win32, unix,..."
^ #(
- "<className> or (<className> attributes...) in load order"
- #'RegressionTests::CompilerTests2Mock1'
- #'RegressionTests::CompilerTests2Mock2'
- #'stx_goodies_regression_testData_CompilerTests2'
+ "<className> or (<className> attributes...) in load order"
+ #'RegressionTests::CompilerTests2Mock1'
+ #'RegressionTests::CompilerTests2Mock2'
+ #'stx_goodies_regression_testData_CompilerTests2'
)
!
Binary file testData/bmpImages/bmpsuite-2.4/b/badbitcount.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/b/badbitssize.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/b/baddens1.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/b/baddens2.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/b/badfilesize.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/b/badheadersize.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/b/badpalettesize.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/b/badplanes.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/b/badrle.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/b/badrle4.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/b/badrle4bis.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/b/badrle4ter.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/b/badrlebis.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/b/badrleter.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/b/badwidth.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/b/pal8badindex.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/b/reallybig.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/b/rgb16-880.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/b/rletopdown.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/b/shortfile.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/data/image.jpg has changed
Binary file testData/bmpImages/bmpsuite-2.4/data/image.png has changed
Binary file testData/bmpImages/bmpsuite-2.4/data/srgb.icc has changed
Binary file testData/bmpImages/bmpsuite-2.4/g/pal1.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/g/pal1bg.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/g/pal1wb.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/g/pal4.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/g/pal4gs.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/g/pal4rle.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/g/pal8-0.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/g/pal8.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/g/pal8gs.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/g/pal8nonsquare.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/g/pal8os2.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/g/pal8rle.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/g/pal8topdown.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/g/pal8v4.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/g/pal8v5.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/g/pal8w124.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/g/pal8w125.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/g/pal8w126.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/g/rgb16-565.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/g/rgb16-565pal.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/g/rgb16.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/g/rgb24.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/g/rgb24pal.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/g/rgb32.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/g/rgb32bf.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/html/bkgd.png has changed
Binary file testData/bmpImages/bmpsuite-2.4/html/fakealpha.png has changed
Binary file testData/bmpImages/bmpsuite-2.4/html/pal1.png has changed
Binary file testData/bmpImages/bmpsuite-2.4/html/pal1bg.png has changed
Binary file testData/bmpImages/bmpsuite-2.4/html/pal1p1.png has changed
Binary file testData/bmpImages/bmpsuite-2.4/html/pal2.png has changed
Binary file testData/bmpImages/bmpsuite-2.4/html/pal2color.png has changed
Binary file testData/bmpImages/bmpsuite-2.4/html/pal4.png has changed
Binary file testData/bmpImages/bmpsuite-2.4/html/pal4gs.png has changed
Binary file testData/bmpImages/bmpsuite-2.4/html/pal4rlecut-0.png has changed
Binary file testData/bmpImages/bmpsuite-2.4/html/pal4rlecut-b.png has changed
Binary file testData/bmpImages/bmpsuite-2.4/html/pal4rlecut.png has changed
Binary file testData/bmpImages/bmpsuite-2.4/html/pal4rletrns-0.png has changed
Binary file testData/bmpImages/bmpsuite-2.4/html/pal4rletrns-b.png has changed
Binary file testData/bmpImages/bmpsuite-2.4/html/pal4rletrns.png has changed
Binary file testData/bmpImages/bmpsuite-2.4/html/pal8.png has changed
Binary file testData/bmpImages/bmpsuite-2.4/html/pal8gs.png has changed
Binary file testData/bmpImages/bmpsuite-2.4/html/pal8nonsquare-e.png has changed
Binary file testData/bmpImages/bmpsuite-2.4/html/pal8nonsquare-v.png has changed
Binary file testData/bmpImages/bmpsuite-2.4/html/pal8rlecut-0.png has changed
Binary file testData/bmpImages/bmpsuite-2.4/html/pal8rlecut-b.png has changed
Binary file testData/bmpImages/bmpsuite-2.4/html/pal8rlecut.png has changed
Binary file testData/bmpImages/bmpsuite-2.4/html/pal8rletrns-0.png has changed
Binary file testData/bmpImages/bmpsuite-2.4/html/pal8rletrns-b.png has changed
Binary file testData/bmpImages/bmpsuite-2.4/html/pal8rletrns.png has changed
Binary file testData/bmpImages/bmpsuite-2.4/html/pal8w124.png has changed
Binary file testData/bmpImages/bmpsuite-2.4/html/pal8w125.png has changed
Binary file testData/bmpImages/bmpsuite-2.4/html/pal8w126.png has changed
Binary file testData/bmpImages/bmpsuite-2.4/html/rgb16-231.png has changed
Binary file testData/bmpImages/bmpsuite-2.4/html/rgb16-3103.png has changed
Binary file testData/bmpImages/bmpsuite-2.4/html/rgb16-565.png has changed
Binary file testData/bmpImages/bmpsuite-2.4/html/rgb16-880.png has changed
Binary file testData/bmpImages/bmpsuite-2.4/html/rgb16.png has changed
Binary file testData/bmpImages/bmpsuite-2.4/html/rgb24.jpg has changed
Binary file testData/bmpImages/bmpsuite-2.4/html/rgb24.png has changed
Binary file testData/bmpImages/bmpsuite-2.4/html/rgb32-7187.png has changed
Binary file testData/bmpImages/bmpsuite-2.4/html/rgba16-1924.png has changed
Binary file testData/bmpImages/bmpsuite-2.4/html/rgba16-4444.png has changed
Binary file testData/bmpImages/bmpsuite-2.4/html/rgba32-61754.png has changed
Binary file testData/bmpImages/bmpsuite-2.4/html/rgba32-81284.png has changed
Binary file testData/bmpImages/bmpsuite-2.4/html/rgba32.png has changed
Binary file testData/bmpImages/bmpsuite-2.4/q/pal1p1.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/q/pal2.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/q/pal2color.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/q/pal4rlecut.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/q/pal4rletrns.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/q/pal8offs.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/q/pal8os2-sz.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/q/pal8os2sp.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/q/pal8os2v2-16.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/q/pal8os2v2-40sz.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/q/pal8os2v2-sz.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/q/pal8os2v2.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/q/pal8oversizepal.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/q/pal8rlecut.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/q/pal8rletrns.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/q/rgb16-231.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/q/rgb16-3103.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/q/rgb24jpeg.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/q/rgb24largepal.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/q/rgb24lprof.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/q/rgb24png.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/q/rgb24prof.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/q/rgb32-111110.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/q/rgb32-7187.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/q/rgb32fakealpha.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/q/rgb32h52.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/q/rgba16-1924.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/q/rgba16-4444.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/q/rgba32-61754.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/q/rgba32-81284.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/q/rgba32.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/q/rgba32abf.bmp has changed
Binary file testData/bmpImages/bmpsuite-2.4/q/rgba32h56.bmp has changed
Binary file testData/bmpImages/test1.bmp has changed
Binary file testData/bmpImages/test16.bmp has changed
Binary file testData/bmpImages/test16bf555.bmp has changed
Binary file testData/bmpImages/test16bf565.bmp has changed
Binary file testData/bmpImages/test24.bmp has changed
Binary file testData/bmpImages/test2a_2bp.bmp has changed
Binary file testData/bmpImages/test2b_2bp.bmp has changed
Binary file testData/bmpImages/test32.bmp has changed
Binary file testData/bmpImages/test32bf.bmp has changed
Binary file testData/bmpImages/test32bfv4.bmp has changed
Binary file testData/bmpImages/test32v5.bmp has changed
Binary file testData/bmpImages/test4.bmp has changed
Binary file testData/bmpImages/test4os2v2.bmp has changed
Binary file testData/bmpImages/test8.bmp has changed
Binary file testData/bmpImages/test8os2.bmp has changed
Binary file testData/bmpImages/testcompress4.bmp has changed
Binary file testData/bmpImages/testcompress8.bmp has changed
Binary file testData/bmpImages/trans.bmp has changed
--- a/testData/packages/p1utf8/Make.proto Wed Jun 29 21:40:53 2016 +0100
+++ b/testData/packages/p1utf8/Make.proto Thu Jun 30 09:02:08 2016 +0100
@@ -63,7 +63,7 @@
all:: preMake classLibRule postMake
-pre_objs::
+pre_objs::
--- a/testData/packages/p1utf8/abbrev.stc Wed Jun 29 21:40:53 2016 +0100
+++ b/testData/packages/p1utf8/abbrev.stc Thu Jun 30 09:02:08 2016 +0100
@@ -2,4 +2,4 @@
# this file is needed for stc to be able to compile modules independently.
# it provides information about a classes filename, category and especially namespace.
ProjectDefinitionTestsP1UTF8Bar ProjectDefinitionTestsP1UTF8Bar stx:goodies/regression/testData/packages/p1utf8 '* Mocks *' 0
-exept_regression_testData_packages_p1utf8 exept_regression_testData_packages_p1utf8 stx:goodies/regression/testData/packages/p1utf8 '* Projects & Packages *' 3
+stx_goodies_regression_testData_packages_p1utf8 stx_goodies_regression_testData_packages_p1utf8 stx:goodies/regression/testData/packages/p1utf8 '* Projects & Packages *' 3
--- a/testData/packages/p1utf8/bc.mak Wed Jun 29 21:40:53 2016 +0100
+++ b/testData/packages/p1utf8/bc.mak Thu Jun 30 09:02:08 2016 +0100
@@ -65,7 +65,7 @@
test: $(TOP)\goodies\builder\reports\NUL
pushd $(TOP)\goodies\builder\reports & $(MAKE_BAT)
$(TOP)\goodies\builder\reports\report-runner.bat -D . -r Builder::TestReport -p $(PACKAGE)
-
+
clean::
del *.$(CSUFFIX)
--- a/testData/packages/p1utf8/stx_goodies_regression_testData_packages_p1utf8.st Wed Jun 29 21:40:53 2016 +0100
+++ b/testData/packages/p1utf8/stx_goodies_regression_testData_packages_p1utf8.st Thu Jun 30 09:02:08 2016 +0100
@@ -29,7 +29,7 @@
exclude individual packages in the #excludedFromPreRequisites method."
^ #(
- #'stx:libbasic' "LibraryDefinition - superclass of stx_goodies_regression_testData_packages_p1utf8 "
+ #'stx:libbasic' "LibraryDefinition - superclass of stx_goodies_regression_testData_packages_p1utf8 "
)
!
@@ -54,9 +54,9 @@
Attributes are: #autoload or #<os> where os is one of win32, unix,..."
^ #(
- "<className> or (<className> attributes...) in load order"
- ProjectDefinitionTestsP1UTF8Bar
- #'stx_goodies_regression_testData_packages_p1utf8'
+ "<className> or (<className> attributes...) in load order"
+ ProjectDefinitionTestsP1UTF8Bar
+ #'stx_goodies_regression_testData_packages_p1utf8'
)
!
@@ -65,7 +65,7 @@
Entries are 2-element array literals, consisting of class-name and selector."
^ #(
- UndefinedObject zork
+ UndefinedObject zork
)
! !
--- a/testData/packages/snapshot_restart/Make.proto Wed Jun 29 21:40:53 2016 +0100
+++ b/testData/packages/snapshot_restart/Make.proto Thu Jun 30 09:02:08 2016 +0100
@@ -63,7 +63,7 @@
all:: preMake classLibRule postMake
-pre_objs::
+pre_objs::
--- a/testData/packages/snapshot_restart/abbrev.stc Wed Jun 29 21:40:53 2016 +0100
+++ b/testData/packages/snapshot_restart/abbrev.stc Thu Jun 30 09:02:08 2016 +0100
@@ -1,5 +1,5 @@
# automagically generated by the project definition
# this file is needed for stc to be able to compile modules independently.
# it provides information about a classes filename, category and especially namespace.
-RegressionTests::SnapshotRestartTestsObject RegressionTests__SnapshotRestartTestsObject stx:goodies/regression/testData/packages/snapshot_restart 'tests-Regression' 0
-exept_regression_testData_packages_snapshot_restart exept_regression_testData_packages_snapshot_restart stx:goodies/regression/testData/packages/snapshot_restart '* Projects & Packages *' 3
+RegressionTests::SnapshotRestartTestsObject RegressionTests__SnapshotRestartTestsObject stx:goodies(regression/testData/packages/snapshot_restart 'tests-Regression' 0
+stx_goodies_regression_testData_packages_snapshot_restart stx_goodies_regression_testData_packages_snapshot_restart stx:goodies/regression/testData/packages/snapshot_restart '* Projects & Packages *' 3
--- a/testData/packages/snapshot_restart/bc.mak Wed Jun 29 21:40:53 2016 +0100
+++ b/testData/packages/snapshot_restart/bc.mak Thu Jun 30 09:02:08 2016 +0100
@@ -61,7 +61,7 @@
test: $(TOP)\goodies\builder\reports\NUL
pushd $(TOP)\goodies\builder\reports & $(MAKE_BAT)
$(TOP)\goodies\builder\reports\report-runner.bat -D . -r Builder::TestReport -p $(PACKAGE)
-
+
clean::
del *.$(CSUFFIX)
--- a/testData/packages/snapshot_restart/run-ToRunOnFreshAndRestartedSnapshotTests-tests.st Wed Jun 29 21:40:53 2016 +0100
+++ b/testData/packages/snapshot_restart/run-ToRunOnFreshAndRestartedSnapshotTests-tests.st Thu Jun 30 09:02:08 2016 +0100
@@ -5,7 +5,7 @@
Smalltalk loadPackage: 'stx:goodies/sunit'.
].
-Smalltalk fileInClass: #'RegressionTests::SnapshotRestartTests' package: 'exept:regression'.
+Smalltalk fileInClass: #'RegressionTests::SnapshotRestartTests' package: 'stx:goodies/regression'.
[
Stdout nextPutAll:((Smalltalk at: #'RegressionTests::SnapshotRestartTests::ToRunOnFreshAndRestartedSnapshotTests') buildSuite run) printString.
--- a/testData/packages/snapshot_restart/stx_goodies_regression_testData_packages_snapshot_restart.st Wed Jun 29 21:40:53 2016 +0100
+++ b/testData/packages/snapshot_restart/stx_goodies_regression_testData_packages_snapshot_restart.st Thu Jun 30 09:02:08 2016 +0100
@@ -27,7 +27,7 @@
(the browser has a menu function for that)"
^ #(
- #'stx:libbasic' "LibraryDefinition - superclass of stx_goodies_regression_testData_packages_snapshot_restart "
+ #'stx:libbasic' "LibraryDefinition - superclass of stx_goodies_regression_testData_packages_snapshot_restart "
)
!
@@ -62,9 +62,9 @@
Attributes are: #autoload or #<os> where os is one of win32, unix,..."
^ #(
- "<className> or (<className> attributes...) in load order"
- #'RegressionTests::SnapshotRestartTestsObject'
- #'stx_goodies_regression_testData_packages_snapshot_restart'
+ "<className> or (<className> attributes...) in load order"
+ #'RegressionTests::SnapshotRestartTestsObject'
+ #'stx_goodies_regression_testData_packages_snapshot_restart'
)
!