| 1 | "
|
|---|
| 2 | run me like:
|
|---|
| 3 |
|
|---|
| 4 | ./projects/smalltalk/smalltalk -I --quick --stopOnSEGV -f <bug_XY_abc.st>
|
|---|
| 5 |
|
|---|
| 6 | "
|
|---|
| 7 |
|
|---|
| 8 |
|
|---|
| 9 | ObjectMemory justInTimeCompilation: true.
|
|---|
| 10 | Smalltalk packagePath add: (Filename currentDirectory / '..') asString.
|
|---|
| 11 | Smalltalk addStartBlock:[
|
|---|
| 12 | Processor startTimeSlicing.
|
|---|
| 13 | Processor supportDynamicPriorities:true.
|
|---|
| 14 | ObjectMemory backgroundCollectProcess priorityRange:(4 to:9).
|
|---|
| 15 | ObjectMemory backgroundFinalizationProcess priorityRange:(4 to:9).
|
|---|
| 16 |
|
|---|
| 17 | ].
|
|---|
| 18 |
|
|---|
| 19 | Smalltalk addStartBlock:[
|
|---|
| 20 | | directory files |
|
|---|
| 21 |
|
|---|
| 22 | directory := Smalltalk getPackageDirectoryForPackage:'stx:goodies'.
|
|---|
| 23 | Smalltalk openDisplay.
|
|---|
| 24 | NewLauncher open.
|
|---|
| 25 | 1 to: 1000 do:[:i |
|
|---|
| 26 | Transcript showCR: 'Pass ' , i printString.
|
|---|
| 27 | files := directory recursiveDirectoryContentsAsFilenames select:[:each | each isRegularFile ].
|
|---|
| 28 | files := files select: [ :e | e suffix = 'st' ].
|
|---|
| 29 | files collect:[ :e | (FileStream fileNamed: e) contents asString ].
|
|---|
| 30 | Transcript showCR: 'Pass ' , i printString , '...OK'.
|
|---|
| 31 | ].
|
|---|
| 32 | Stdout nextPutLine: 'PASSED'.
|
|---|
| 33 | Smalltalk exit: 0.
|
|---|
| 34 | ]
|
|---|
