--- a/compiler/tests/extras/PPCResources.st	Fri Jul 24 15:06:54 2015 +0100
+++ b/compiler/tests/extras/PPCResources.st	Mon Aug 17 12:13:16 2015 +0100
@@ -124,6 +124,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
@@ -176,6 +188,10 @@
     ^ self smalltalkInDirectory: '../smalltalk-src/'
 !
 
+smalltalkSourcesMedium
+    ^ (self smalltalkInDirectory: '../smalltalk-src/') copyFrom: 1 to: 10*1000.
+!
+
 smalltalkSourcesSmall
     ^ (self smalltalkInDirectory: '../smalltalk-src/') copyFrom: 1 to: 1000.
 ! !