VertigoRay/ForEachSpeeds.Tests.ps1

## ForEachSpeeds.Tests.ps1
<#
Invoked the test with the following command, so that I could save the times take the average of each Context:

```posh
Invoke-Pester -OutputFile test.xml -OutputFormat NUnitXml
```

Then I did some math on the results as shown (yes, I use pipelines when not scripting):

```posh
[xml]$xml = Get-Content .\test.xml
$times = @(
    ($xml.'test-results'.'test-suite'.results.'test-suite'.results.'test-case' | ?{ [int]$_.description -le 1000 } | %{ [decimal]$_.time }),
    ($xml.'test-results'.'test-suite'.results.'test-suite'.results.'test-case' | ?{ ([int]$_.description -ge 1001) -and ([int]$_.description -le 2000) } | %{ [decimal]$_.time }),
    ($xml.'test-results'.'test-suite'.results.'test-suite'.results.'test-case' | ?{ [int]$_.description -ge 2001 } | %{ [decimal]$_.time })
)

# Get Averages
$avgs = $times | %{ $_ | Measure-Object -Average }
Write-Host "Averages: $($avgs | Out-String)"

# Get Medians
$meds = $times | %{
    $data = $_ | sort
    if ($data.count%2) {
        $MedianValue = $data[[math]::Floor($data.count/2)]
    } else {
        $MedianValue = ($data[$data.Count/2],$data[$data.count/2-1] |measure -Average).average
    }
    $MedianValue
}
Write-Host "Medians: $($meds | Out-String)"

#Get Modes
$mods = $times | %{ '---'; ($_ | group | sort -Descending Count)[0..5] }
Write-Host "Modes: $($mods | Out-String)"
```

Results are in the comments.
#>

$computerSystem = Get-CimInstance CIM_ComputerSystem
$computerOS = Get-CimInstance CIM_OperatingSystem
$computerCPU = Get-CimInstance CIM_Processor

@"
Manufacturer: {0}
Model: {1}
CPU: {2}
RAM: {3:N2} GB
Operating System: {4}
Service Pack: {5}
PS Version Table: {6}
"@ -f (
    $computerSystem.Manufacturer,
    $computerSystem.Model,
    $computerCPU.Name,
    ($computerSystem.TotalPhysicalMemory/1GB),
    $computerOS.caption,
    $computerOS.ServicePackMajorVersion,
    ($PSVersionTable | Out-String)
)

Describe 'Looping Speed Test' {
    BeforeEach {
        $hash = @{
            a = 1
            b = 2
            c = 3
        }
    }

    Context 'Pipeline Test' {
        foreach ($i in 1..500) {
            It $i {
                {
                    $hash.Keys | % { "key = $_ , value = " + $hash.Item($_) }
                } | Should Not Throw
            }
        }
    }

    Context 'ForEach GetEnumerator Test' {
        foreach ($i in 1001..1500) {
            It $i {
                {
                    foreach ($h in $hash.GetEnumerator()) {
                        "$($h.Name): $($h.Value)"
                    }
                } | Should Not Throw
            }
        }
    }

    Context 'ForEach Keys Test' {
        foreach ($i in 2001..2500) {
            It $i {
                {
                    foreach ($h in $hash.Keys) {
                        "${h}: $($hash.Item($h))"
                    }
                } | Should Not Throw
            }
        }
    }
}
	<#
	Invoked the test with the following command, so that I could save the times take the average of each Context:

	```posh
	Invoke-Pester -OutputFile test.xml -OutputFormat NUnitXml
	```

	Then I did some math on the results as shown (yes, I use pipelines when not scripting):

	```posh
	[xml]$xml = Get-Content .\test.xml
	$times = @(
	($xml.'test-results'.'test-suite'.results.'test-suite'.results.'test-case' \| ?{ [int]$_.description -le 1000 } \| %{ [decimal]$_.time }),
	($xml.'test-results'.'test-suite'.results.'test-suite'.results.'test-case' \| ?{ ([int]$_.description -ge 1001) -and ([int]$_.description -le 2000) } \| %{ [decimal]$_.time }),
	($xml.'test-results'.'test-suite'.results.'test-suite'.results.'test-case' \| ?{ [int]$_.description -ge 2001 } \| %{ [decimal]$_.time })
	)

	# Get Averages
	$avgs = $times \| %{ $_ \| Measure-Object -Average }
	Write-Host "Averages: $($avgs \| Out-String)"

	# Get Medians
	$meds = $times \| %{
	$data = $_ \| sort
	if ($data.count%2) {
	$MedianValue = $data[[math]::Floor($data.count/2)]
	} else {
	$MedianValue = ($data[$data.Count/2],$data[$data.count/2-1] \|measure -Average).average
	}
	$MedianValue
	}
	Write-Host "Medians: $($meds \| Out-String)"

	#Get Modes
	$mods = $times \| %{ '---'; ($_ \| group \| sort -Descending Count)[0..5] }
	Write-Host "Modes: $($mods \| Out-String)"
	```

	Results are in the comments.
	#>

	$computerSystem = Get-CimInstance CIM_ComputerSystem
	$computerOS = Get-CimInstance CIM_OperatingSystem
	$computerCPU = Get-CimInstance CIM_Processor

	@"
	Manufacturer: {0}
	Model: {1}
	CPU: {2}
	RAM: {3:N2} GB
	Operating System: {4}
	Service Pack: {5}
	PS Version Table: {6}
	"@ -f (
	$computerSystem.Manufacturer,
	$computerSystem.Model,
	$computerCPU.Name,
	($computerSystem.TotalPhysicalMemory/1GB),
	$computerOS.caption,
	$computerOS.ServicePackMajorVersion,
	($PSVersionTable \| Out-String)
	)

	Describe 'Looping Speed Test' {
	BeforeEach {
	$hash = @{
	a = 1
	b = 2
	c = 3
	}
	}

	Context 'Pipeline Test' {
	foreach ($i in 1..500) {
	It $i {
	{
	$hash.Keys \| % { "key = $_ , value = " + $hash.Item($_) }
	} \| Should Not Throw
	}
	}
	}

	Context 'ForEach GetEnumerator Test' {
	foreach ($i in 1001..1500) {
	It $i {
	{
	foreach ($h in $hash.GetEnumerator()) {
	"$($h.Name): $($h.Value)"
	}
	} \| Should Not Throw
	}
	}
	}

	Context 'ForEach Keys Test' {
	foreach ($i in 2001..2500) {
	It $i {
	{
	foreach ($h in $hash.Keys) {
	"${h}: $($hash.Item($h))"
	}
	} \| Should Not Throw
	}
	}
	}
	}