--- a/compiler/tests/extras/PPCResources.st Fri Jul 31 14:07:31 2015 +0100
+++ b/compiler/tests/extras/PPCResources.st Mon Aug 17 12:56:02 2015 +0100
@@ -125,6 +125,18 @@
]
! !
+!PPCResources methodsFor:'others'!
+
+idsOfSize: size
+ | stream |
+ stream := WriteStream on: (String new: size).
+
+ [stream size < size] whileTrue: [
+ stream nextPutAll: 'Lorem ipsum dolor sit amet consectetur adipiscing elit sed do eiusmod tempor incididunt ut labore et dolore magna aliqua Ut enim ad minim veniam quis nostrud exercitation ullamco'.
+ ].
+ ^ stream contents
+! !
+
!PPCResources methodsFor:'private utilities'!
files: files withExtension: extension
@@ -177,6 +189,10 @@
^ self smalltalkInDirectory: '../smalltalk-src/'
!
+smalltalkSourcesMedium
+ ^ (self smalltalkInDirectory: '../smalltalk-src/') copyFrom: 1 to: 10*1000.
+!
+
smalltalkSourcesSmall
^ (self smalltalkInDirectory: '../smalltalk-src/') copyFrom: 1 to: 1000.
! !