@@ -28,15 +28,18 @@ module Benchmarker =
28
28
let pipelineName = " benchmark-pipeline"
29
29
let indexName = IndexName.op_ Implicit( " benchmark-reports" )
30
30
let typeName = TypeName.op_ Implicit( " report" )
31
-
32
- type ProcessorName ( isValueCreated : bool , value : string ) =
33
- member val IsValueCreated = isValueCreated with get, set
34
- member val Value = value with get, set
35
-
36
- type ChronometerFrequency ( hertz : int ) =
31
+
32
+ type Memory ( gen0Collections : int , gen1Collections : int , gen2Collections : int , totalOperations : int64 , bytesAllocatedPerOperation : int64 ) =
33
+ member val Gen0Collections = gen0Collections with get, set
34
+ member val Gen1Collections = gen1Collections with get, set
35
+ member val Gen2Collections = gen2Collections with get, set
36
+ member val TotalOperations = totalOperations with get, set
37
+ member val BytesAllocatedPerOperation = bytesAllocatedPerOperation with get, set
38
+
39
+ type ChronometerFrequency ( hertz : double ) =
37
40
member val Hertz = hertz with get, set
38
-
39
- type HostEnvironmentInfo ( benchmarkDotNetCaption : string , benchmarkDotNetVersion : string , osVersion : string , processorName : ProcessorName ,
41
+
42
+ type HostEnvironmentInfo ( benchmarkDotNetCaption : string , benchmarkDotNetVersion : string , osVersion : string , processorName : string ,
40
43
processorCount: int, runtimeVersion: string, architecture: string, hasAttachedDebugger: bool, hasRyuJit: bool,
41
44
configuration: string, jitModules: string, dotnetCliVersion: string, chronometerFrequency: ChronometerFrequency,
42
45
hardwareTimerKind: string) =
@@ -55,9 +58,10 @@ module Benchmarker =
55
58
member val ChronometerFrequency = chronometerFrequency with get, set
56
59
member val HardwareTimerKind = hardwareTimerKind with get, set
57
60
58
- type ConfidenceInterval ( mean : double , error : double , level : int , margin : double , lower : double , upper : double ) =
61
+ type ConfidenceInterval ( n : int , mean : double , standardError : double , level : int , margin : double , lower : double , upper : double ) =
62
+ member val N = n with get, set
59
63
member val Mean = mean with get, set
60
- member val Error = error with get, set
64
+ member val StandardError = standardError with get, set
61
65
member val Level = level with get, set
62
66
member val Margin = margin with get, set
63
67
member val Lower = lower with get, set
@@ -96,17 +100,20 @@ module Benchmarker =
96
100
member val ConfidenceInterval = confidenceInterval with get, set
97
101
member val Percentiles = percentiles with get, set
98
102
99
- type Benchmark ( displayInfo : string , namespyce : string , tipe : string , method : string , methodTitle : string , parameters : string , statistics : Statistics ) =
103
+ type Benchmark ( displayInfo : string , namespyce : string , tipe : string , method : string , methodTitle : string , parameters : string ,
104
+ statistics: Statistics, memory: Memory) =
100
105
member val DisplayInfo = displayInfo with get, set
101
106
member val Namespace = namespyce with get, set
102
107
member val Type = tipe with get, set
103
108
member val Method = method with get, set
104
109
member val MethodTitle = methodTitle with get, set
105
110
member val Parameters = parameters with get, set
106
111
member val Statistics = statistics with get, set
112
+ member val Memory = memory with get, set
107
113
108
- type Report ( title : string , date : DateTime , commit : string , host : HostEnvironmentInfo , benchmarks : Benchmark list ) =
114
+ type Report ( title : string , totalTime : TimeSpan , date : DateTime , commit : string , host : HostEnvironmentInfo , benchmarks : Benchmark list ) =
109
115
member val Title = title with get, set
116
+ member val TotalTime = totalTime with get, set
110
117
member val Date = date with get, set
111
118
member val Commit = commit with get, set
112
119
member val HostEnvironmentInfo = host with get, set
@@ -162,7 +169,7 @@ module Benchmarker =
162
169
let commit = getSHA1 " ." " HEAD"
163
170
164
171
let benchmarkJsonFiles =
165
- Directory.EnumerateFiles( benchmarkOutput.FullName, " *-brief .json" , SearchOption.AllDirectories)
172
+ Directory.EnumerateFiles( benchmarkOutput.FullName, " *-custom .json" , SearchOption.AllDirectories)
166
173
|> Seq.toList
167
174
168
175
let uri = new Uri( url)
0 commit comments