moved from smalltalkhub

BaselineOfObjectStatistics.package/.filetree

@@ -0,0 +1,5 @@
+{
+	"separateMethodMetaAndSource" : false,
+	"noMethodMetaData" : true,
+	"useCypressPropertiesFile" : true
+}

BaselineOfObjectStatistics.package/BaselineOfObjectStatistics.class/instance/baseline..st

@@ -0,0 +1,18 @@
+baselines
+baseline: spec
+	<baseline>
+	spec for: #'common' do: [
+		spec baseline: 'StateSpecs' with: [
+			spec 
+				repository: 'github://dionisiydk/StateSpecs:v2.4.x';
+				loads: 'Core' ].
+		spec baseline: 'Mocketry' with: [
+			spec repository: 'github://dionisiydk/Mocketry:v4.0.x' ].
+		spec 
+			package: 'ObjectStatistics' with: [spec requires: #('StateSpecs')];
+			package: 'ObjectStatistics-Tests' with: [spec requires: #('ObjectStatistics' 'Mocketry')];
+			package: 'ObjectStatistics-GTTools' with: [spec requires: #('ObjectStatistics')].
+		spec 
+			group: 'default' with: #('Core' 'ObjectStatistics-GTTools' 'Tests');
+			group: 'Core' with: #('ObjectStatistics');
+			group: 'Tests' with: #('ObjectStatistics-Tests') ]

BaselineOfObjectStatistics.package/BaselineOfObjectStatistics.class/properties.json

@@ -0,0 +1,11 @@
+{
+	"commentStamp" : "",
+	"super" : "BaselineOf",
+	"category" : "BaselineOfObjectStatistics",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "BaselineOfObjectStatistics",
+	"type" : "normal"
+}

BaselineOfObjectStatistics.package/monticello.meta/categories.st

@@ -0,0 +1 @@
+SystemOrganization addCategory: #BaselineOfObjectStatistics!

BaselineOfObjectStatistics.package/monticello.meta/package

@@ -0,0 +1 @@
+(name 'BaselineOfObjectStatistics')

BaselineOfObjectStatistics.package/properties.json

@@ -0,0 +1 @@
+{ }

ObjectStatistics-GTTools.package/.filetree

@@ -0,0 +1,5 @@
+{
+	"separateMethodMetaAndSource" : false,
+	"noMethodMetaData" : true,
+	"useCypressPropertiesFile" : true
+}

ObjectStatistics-GTTools.package/ObjectStatDimension.extension/instance/gtInspectorItemsTreeIn..st

@@ -0,0 +1,4 @@
+*ObjectStatistics-GTTools
+gtInspectorItemsTreeIn: composite
+	<gtInspectorPresentationOrder: 1>
+	ObjectStatistics buildInspectorMetricsTreeIn: composite 

ObjectStatistics-GTTools.package/ObjectStatDimension.extension/instance/inspectorTreeItems.st

@@ -0,0 +1,3 @@
+*ObjectStatistics-GTTools
+inspectorTreeItems
+	^self sortedSlices 

ObjectStatistics-GTTools.package/ObjectStatDimension.extension/properties.json

@@ -0,0 +1,3 @@
+{
+	"name" : "ObjectStatDimension"
+}

ObjectStatistics-GTTools.package/ObjectStatSlice.extension/instance/gtInspectorItemsTreeIn..st

@@ -0,0 +1,4 @@
+*ObjectStatistics-GTTools
+gtInspectorItemsTreeIn: composite
+	<gtInspectorPresentationOrder: 1>
+	statistics gtInspectorItemsTreeIn: composite

ObjectStatistics-GTTools.package/ObjectStatSlice.extension/instance/inspectorTreeItems.st

@@ -0,0 +1,3 @@
+*ObjectStatistics-GTTools
+inspectorTreeItems
+	^statistics inspectorTreeItems

ObjectStatistics-GTTools.package/ObjectStatSlice.extension/properties.json

@@ -0,0 +1,3 @@
+{
+	"name" : "ObjectStatSlice"
+}

ObjectStatistics-GTTools.package/ObjectStatistics.extension/class/buildInspectorMetricsTreeIn..st

@@ -0,0 +1,11 @@
+*ObjectStatistics-GTTools
+buildInspectorMetricsTreeIn: composite
+	| tree |
+	tree := composite tree
+		title: 'Metrics';
+		allowsRecursiveSearch: true;
+"		shouldExpandToLevel: 0;"
+
+		children: [ :receiver | receiver inspectorTreeItems].
+	self expandInspectorTree: tree.
+	^tree

ObjectStatistics-GTTools.package/ObjectStatistics.extension/class/expandInspectorTree..st

@@ -0,0 +1,4 @@
+*ObjectStatistics-GTTools
+expandInspectorTree: tree
+	tree rootsExpanded.
+	tree allExpanded

ObjectStatistics-GTTools.package/ObjectStatistics.extension/instance/gtInspectorItemsTreeIn..st

@@ -0,0 +1,5 @@
+*ObjectStatistics-GTTools
+gtInspectorItemsTreeIn: composite
+	<gtInspectorPresentationOrder: 1>
+
+	self class buildInspectorMetricsTreeIn: composite 

ObjectStatistics-GTTools.package/ObjectStatistics.extension/instance/inspectorTreeItems.st

@@ -0,0 +1,5 @@
+*ObjectStatistics-GTTools
+inspectorTreeItems
+	dimensions size = 1 ifTrue: [ ^dimensions first inspectorTreeItems ].
+
+	^dimensions reject: #isEmpty

ObjectStatistics-GTTools.package/ObjectStatistics.extension/properties.json

@@ -0,0 +1,3 @@
+{
+	"name" : "ObjectStatistics"
+}

ObjectStatistics-GTTools.package/monticello.meta/categories.st

@@ -0,0 +1 @@
+SystemOrganization addCategory: #'ObjectStatistics-GTTools'!

ObjectStatistics-GTTools.package/monticello.meta/package

@@ -0,0 +1 @@
+(name 'ObjectStatistics-GTTools')

ObjectStatistics-GTTools.package/properties.json

@@ -0,0 +1 @@
+{ }

ObjectStatistics-Tests.package/.filetree

@@ -0,0 +1,5 @@
+{
+	"separateMethodMetaAndSource" : false,
+	"noMethodMetaData" : true,
+	"useCypressPropertiesFile" : true
+}

ObjectStatistics-Tests.package/ObjectStatCounterTests.class/instance/testMeasureObjects.st

@@ -0,0 +1,8 @@
+tests
+testMeasureObjects
+
+	| counter |
+	counter := ObjectStatCounter new.
+
+	(counter measure: Any) should be: 1.
+	(counter measure: Any) should be: 1

ObjectStatistics-Tests.package/ObjectStatCounterTests.class/properties.json

@@ -0,0 +1,11 @@
+{
+	"commentStamp" : "",
+	"super" : "TestCase",
+	"category" : "ObjectStatistics-Tests",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "ObjectStatCounterTests",
+	"type" : "normal"
+}

ObjectStatistics-Tests.package/ObjectStatDifferentPropertiesCounterTests.class/instance/testCreationNewMetricForDimension.st

@@ -0,0 +1,10 @@
+tests
+testCreationNewMetricForDimension
+
+	| metric actual |
+	metric := ObjectStatDifferentPropertiesCounter for: [:o | o first].
+
+	actual := metric newForDimension.
+
+	actual should beInstanceOf: metric class.
+	actual measuredProperties should not be: metric measuredProperties

ObjectStatistics-Tests.package/ObjectStatDifferentPropertiesCounterTests.class/instance/testMeasureObjects.st

@@ -0,0 +1,9 @@
+tests
+testMeasureObjects
+
+	| counter |
+	counter := ObjectStatDifferentPropertiesCounter for: [:o | o first] .
+
+	(counter measure: #(#object)) should be: 1.
+	(counter measure: #(#object) copy) should be: 0.
+	(counter measure: #(#object2)) should be: 1

ObjectStatistics-Tests.package/ObjectStatDifferentPropertiesCounterTests.class/instance/testMeasureObjectsWhenPropertyIsCollection.st

@@ -0,0 +1,8 @@
+tests
+testMeasureObjectsWhenPropertyIsCollection
+
+	| counter |
+	counter := ObjectStatDifferentPropertiesCounter for: [:o | o first] .
+
+	(counter measure: #(#object)) should be: 1.
+	(counter measure: #(#(#object #object2 #object3)) copy) should be: 2.

ObjectStatistics-Tests.package/ObjectStatDifferentPropertiesCounterTests.class/properties.json

@@ -0,0 +1,11 @@
+{
+	"commentStamp" : "",
+	"super" : "TestCase",
+	"category" : "ObjectStatistics-Tests",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "ObjectStatDifferentPropertiesCounterTests",
+	"type" : "normal"
+}

ObjectStatistics-Tests.package/ObjectStatDimensionTests.class/instance/testCheckThatMetricIsIgnored.st

@@ -0,0 +1,11 @@
+tests
+testCheckThatMetricIsIgnored
+
+	| dimension |
+	dimension := ObjectStatDimension new.
+	dimension ignoreMetrics: #('metric1Name' 'metric2Name').
+
+	dimension should be isIgnoreMetric: (ObjectStatMetric named: 'metric1Name').
+	dimension should be isIgnoreMetric: (ObjectStatMetric named: 'metric2Name').
+
+	dimension should not be isIgnoreMetric: (ObjectStatMetric named: 'someOtherMetric')

ObjectStatistics-Tests.package/ObjectStatDimensionTests.class/instance/testConvertingToDimension.st

@@ -0,0 +1,7 @@
+tests
+testConvertingToDimension
+
+	| dimension |
+	dimension := ObjectStatDimension new.
+
+	dimension where asObjectStatDimension should be: dimension

ObjectStatistics-Tests.package/ObjectStatDimensionTests.class/instance/testCopyForSubDimension.st

@@ -0,0 +1,13 @@
+tests
+testCopyForSubDimension
+
+	| dimension copy |
+	dimension := ObjectStatDimension named: 'test dim'.
+	dimension slices: #currentSlices.
+
+	copy := dimension copyForSubDimension.
+
+	copy should beInstanceOf: ObjectStatDimension.
+	copy name should equal: 'test dim'.
+	copy slices should not be: dimension slices.
+	copy slices should beInstanceOf: Dictionary 

ObjectStatistics-Tests.package/ObjectStatDimensionTests.class/instance/testGettingSortedSlices.st

@@ -0,0 +1,17 @@
+tests
+testGettingSortedSlices
+
+	| dimension actual stat |
+	stat := ObjectStatistics new.
+	stat countAllAs: 'strings'.
+	dimension := [:o | o size] asObjectStatDimension.
+	dimension overallStatistics: stat.
+
+	dimension accumulateAll: #('asd' 'qwe' 'a' 'b' 'c' '1234').
+
+	actual := dimension sortedSlices.
+
+	actual should haveSize: 3.
+	actual where first coordinate should be: 1.
+	actual where second coordinate should be: 3.
+	actual where last coordinate should be: 4.

ObjectStatistics-Tests.package/ObjectStatDimensionTests.class/instance/testHasAnyObjectsSpecByDefault.st

@@ -0,0 +1,7 @@
+tests
+testHasAnyObjectsSpecByDefault
+
+	| dimension |
+	dimension := ObjectStatDimension new.
+
+	(dimension objectsSpec == Any) should be: true

ObjectStatistics-Tests.package/ObjectStatDimensionTests.class/instance/testHasEmptySlicesByDefault.st

@@ -0,0 +1,7 @@
+tests
+testHasEmptySlicesByDefault
+
+	| dimension |
+	dimension := ObjectStatDimension new.
+
+	dimension where slices should be isEmpty

ObjectStatistics-Tests.package/ObjectStatDimensionTests.class/instance/testHasEmptySubDimensionsByDefault.st

@@ -0,0 +1,7 @@
+tests
+testHasEmptySubDimensionsByDefault
+
+	| dimension |
+	dimension := ObjectStatDimension new.
+
+	dimension where subDimensions should be isEmpty

ObjectStatistics-Tests.package/ObjectStatDimensionTests.class/instance/testObjectsAccumulationShouldSkipObjectsWhichNotSatisfiedSpec.st

@@ -0,0 +1,13 @@
+tests
+testObjectsAccumulationShouldSkipObjectsWhichNotSatisfiedSpec
+
+	| dimension slice |
+	slice := Mock new.
+	dimension := ObjectStatDimension by: [ :each | #sliceCoordinate ].
+	dimension objectsSpec: [ :o | o ~= #object ].
+
+	dimension slices at: #sliceCoordinate put: slice.
+
+	dimension accumulate: #object.
+
+	slice should not receive accumulate: #object

ObjectStatistics-Tests.package/ObjectStatDimensionTests.class/instance/testObjectsAccumulationWhenNoSlicesExist.st

@@ -0,0 +1,15 @@
+tests
+testObjectsAccumulationWhenNoSlicesExist
+
+	| dimension overallStat slice |
+	overallStat := Mock new.
+	dimension := ObjectStatDimension by: [ :each |  #sliceCoordinate ].
+	dimension overallStatistics: overallStat.
+
+	dimension accumulate: #object.
+
+	slice := dimension sliceFor: #sliceCoordinate.
+	slice should beInstanceOf: ObjectStatSlice.
+	slice coordinate should be: #sliceCoordinate.
+	slice statistics should beReturnedFrom: [overallStat newForDimension: dimension].
+	slice statistics should receive accumulate: #object

ObjectStatistics-Tests.package/ObjectStatDimensionTests.class/instance/testObjectsAccumulationWhenSliceAlreadyExistsForIt.st

@@ -0,0 +1,12 @@
+tests
+testObjectsAccumulationWhenSliceAlreadyExistsForIt
+
+	| dimension slice |
+	slice := Mock new.
+	dimension := ObjectStatDimension by: [ :each | #sliceCoordinate ].
+
+	dimension slices at: #sliceCoordinate put: slice.
+
+	dimension accumulate: #object.
+
+	slice should receive accumulate: #object

ObjectStatistics-Tests.package/ObjectStatDimensionTests.class/instance/testPreparingStatistics.st

@@ -0,0 +1,15 @@
+tests
+testPreparingStatistics
+
+	| dimension |
+	[:subDimension1 :subDimension2 :stat |
+		dimension := ObjectStatDimension new.
+		dimension subDimensions: { subDimension1. subDimension2 }.
+		subDimension1 stub copyForSubDimension willReturn: #newDim1.
+		subDimension2 stub copyForSubDimension willReturn: #newDim2.
+
+		dimension prepareStatistics: stat.
+
+		stat should receive addDimension: #newDim1.
+		stat should receive addDimension: #newDim2.	
+	 ] runWithMocks 

ObjectStatistics-Tests.package/ObjectStatDimensionTests.class/properties.json

@@ -0,0 +1,11 @@
+{
+	"commentStamp" : "",
+	"super" : "TestCase",
+	"category" : "ObjectStatistics-Tests",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "ObjectStatDimensionTests",
+	"type" : "normal"
+}

ObjectStatistics-Tests.package/ObjectStatFunctionalMetricTests.class/instance/testCreationFromBlock.st

@@ -0,0 +1,10 @@
+tests
+testCreationFromBlock
+
+	| metric block |
+	block := [ :o |  ].
+
+	metric := block asObjectStatMetric.
+
+	metric should beInstanceOf: ObjectStatFunctionMetric.
+	metric functionBlock should be: block

ObjectStatistics-Tests.package/ObjectStatFunctionalMetricTests.class/instance/testMeasureObjects.st

@@ -0,0 +1,12 @@
+tests
+testMeasureObjects
+
+	| object metric actual |
+	object := Mock new.
+	object stub someMetric willReturn: #result.
+
+	metric := [ :o | o someMetric ] asObjectStatMetric.
+
+	actual := metric measure: object.
+
+	actual should be: #result.