New-Benchmark.ps1

New-Benchmark.ps1

function New-Benchmark {
    [CmdletBinding()]Param(
        [Parameter(
            Position 						= 0,
            Mandatory 						= $true
        )]
        [String]$Name,

        [Parameter(
            Position 						= 1,
            Mandatory 						= $true
        )]
        [scriptblock]$Expression,
        
        [Parameter(
            Position 						= 2
        )]
        [int]$Samples = 1
    )
    
    $timings = New-Object System.Collections.ArrayList
    $sampleCount = $Samples
    do {
        $cmdTime = Measure-Command -Expression $Expression
        [void]$timings.Add($cmdTime)
        $samples--
    }
    while ($Samples -gt 0)
   
    $stats = $timings | Measure-Object -Average -Minimum -Maximum -Property Ticks
   
    $propertyHash = [ordered]@{}
    $propertyHash.Name      = $Name
    $propertyHash.Samples   = $sampleCount
    $propertyHash.Average   = (New-Object System.TimeSpan $stats.Average).TotalMilliseconds
    $propertyHash.Minimum   = (New-Object System.TimeSpan $stats.Minimum).TotalMilliseconds
    $propertyHash.Maximum   = (New-Object System.TimeSpan $stats.Maximum).TotalMilliseconds
    New-Object -TypeName PSObject -Property $propertyHash
}