test-poke.ps1
|
Clear-Host Set-Location $psscriptroot Import-Module .\poke.psd1 -force #$VerbosePreference = "Continue" $error.Clear() function Assert-True { param( [parameter(position=0, mandatory=$true)] [validatenotnull()] [scriptblock]$Script, [parameter(position=1)] [validatenotnullorempty()] [string]$Name = 'Assert-True' ) $eap = $ErrorActionPreference $detail = "Assert-True [ $Name ] " Write-Host -NoNewline $detail try { $erroractionpreference = 'stop' if ((& $script) -eq $true) { write-host -ForegroundColor Green "$(' ' * (100 - $detail.Length))[PASS]" return } $reason = 'Assert failed.' } catch { $reason = "Error: $_" } finally { $ErrorActionPreference = $eap } write-host -ForegroundColor Red "$(' ' * (100 - $detail.Length))[FAIL] " -NoNewline write-host "Reason: '$reason'" } # # begin tests # assert-true { $proxy = peek -name System.Text.StringBuilder $proxy.psobject.typenames.contains("Pokeable.Object") } -name 'type proxy' assert-true { $sb = new-object System.Text.StringBuilder $proxy = peek $sb $proxy.psobject.typenames.contains("Pokeable.Object") } -name 'instance proxy' assert-true { $sb = new-object System.Text.StringBuilder $proxy = peek $sb $proxy.length -eq 0 } -name 'instance property' assert-true { $sb = new-object System.Text.StringBuilder $proxy = peek $sb $proxy.append(42) > $null $proxy.length -eq 2 } -name 'instance method with overloads' assert-true { $proxy = peek -name system.string $s = $proxy.format('hello, {0}', [object[]]@('world')) $s -eq 'hello, world' } -name 'static method with overloads' # # static methods # assert-true { $delegate = [string]::format | Get-Delegate -Delegate 'func[string,object,string]' $delegate.invoke('hello, {0}', 'world') -eq 'hello, world' } -name "[string]::format | get-delegate -delegate 'func[string,object,string]'" assert-true { $delegate = [console]::writeline | Get-Delegate -Delegate 'action[int]' $delegate -is [action[int]] } -name "[console]::writeline | get-delegate -delegate 'action[int]'" assert-true { $delegate = [string]::format | Get-Delegate string,string $delegate.invoke('hello, {0}', 'world') -eq 'hello, world' } -name '[string]::format | get-delegate string,string' assert-true { $delegate = [console]::beep | Get-Delegate @() $delegate -is [action] } -name '[console]::beep | get-delegate @()' assert-true { $delegate = [console]::beep | Get-Delegate -DelegateType action $delegate -is [action] } -name '[console]::beep | Get-Delegate -DelegateType action' assert-true { $delegate = [string]::IsNullOrEmpty | get-delegate $delegate -is [func[string,bool]] } -name '[string]::IsNullOrEmpty | get-delegate # single overload' assert-true { $delegate = [string]::IsNullOrEmpty | get-delegate string $delegate -is [func[string,bool]] } -name '[string]::IsNullOrEmpty | get-delegate string # single overload' assert-true { $int = [int] | peek $n = 0; $int.TryParse("1", [ref]$n) } -name "[int]::tryparse ([string], [ref][int])" # # instance methods # assert-true { $sb = new-object text.stringbuilder $delegate = $sb.Append | get-delegate string $delegate -is [System.Func[string,System.Text.StringBuilder]] } -name "`$sb.Append | get-delegate string" assert-true { $sb = new-object text.stringbuilder $delegate = $sb.AppendFormat | get-delegate string, int, int $delegate -is [System.Func[string,object,object,System.Text.StringBuilder]] } -name "`$sb.AppendFormat | get-delegate string, int, int" # # readonly field # assert-true { $re = peek ([regex]) $re.DefaultMatchTimeout = New-TimeSpan -Seconds 42 $re.DefaultMatchTimeout.Seconds -eq 42 } -name 'readonly static field (setter)' $VerbosePreference = 'SilentlyContinue' $s = peek system.string $s | Get-Member | Sort-Object modifier | Format-Table -group modifier |