Increased time limit for test

jordanmontt · Sep 24, 2024 · cec9fab · cec9fab
1 parent c5ea633
commit cec9fab
Show file tree

Hide file tree

Showing 4 changed files with 24 additions and 0 deletions.
diff --git a/src/IllimaniProfiler-Tests/IllMemoryProfilerTest.class.st b/src/IllimaniProfiler-Tests/IllMemoryProfilerTest.class.st
@@ -39,6 +39,8 @@ IllMemoryProfilerTest >> testProfileOnFinalizesCorrectly [
 
 	| timeNow |
 
+	self timeLimit: 1 minute.
+
 	"The lifetime is calculated in terms of allocated bytes"
 	timeNow := Smalltalk vm parameterAt: 34.
 	profiler profileOn: [ 10 timesRepeat: [ IllMemoryProfiler new ] ].

diff --git a/src/IllimaniProfiler/IllAllocationSiteBin.class.st b/src/IllimaniProfiler/IllAllocationSiteBin.class.st
@@ -66,6 +66,13 @@ IllAllocationSiteBin >> initialize [
 	shortLivedObjects := OrderedCollection new
 ]
 
+{ #category : 'inspector' }
+IllAllocationSiteBin >> inspectorAllocSite [
+
+	<inspectorPresentationOrder: 901 title: 'Allocation site'>
+	^ allocationSite inspectionSource
+]
+
 { #category : 'accessing' }
 IllAllocationSiteBin >> longLivedObjects [
 

diff --git a/src/IllimaniProfiler/IllAnalyzer.class.st b/src/IllimaniProfiler/IllAnalyzer.class.st
@@ -167,6 +167,15 @@ IllAnalyzer >> pruneAllocationSites [
 		  allocationSiteBin totalAllocations < (v * totalProgramAllocations) ]
 ]
 
+{ #category : 'api' }
+IllAnalyzer >> setForProfiler: profiler [
+
+	self
+		objectAllocations: profiler objectAllocations;
+		endTime: profiler endTime;
+		startTime: profiler startTime
+]
+
 { #category : 'accessing' }
 IllAnalyzer >> shortObjectsBin [
 

diff --git a/src/IllimaniProfiler/IllPredictator.class.st b/src/IllimaniProfiler/IllPredictator.class.st
@@ -34,3 +34,9 @@ IllPredictator >> objectAllocations: aCollection [
 
 	objectAllocations := aCollection
 ]
+
+{ #category : 'initialization' }
+IllPredictator >> setForProfiler: aProfiler [
+
+	self objectAllocations: aProfiler objectAllocations
+]