rogee
c49f6a10b2
Add named-session file/image/reply sending, preserve multiline text, and share safe member/all mention handling. Protect existing drafts, bind popup selection to the current window, validate structured mention tokens, and require fresh matching visible messages without automatic resend. Core tests: 121 passed. Windows 4.1.13.63 final validation: 9/9 passed. Record explicit coverage limits and sanitized evidence.
52 lines
3.3 KiB
PowerShell
52 lines
3.3 KiB
PowerShell
param(
|
|
[Parameter(Mandatory=$true)][string]$Executable,
|
|
[Parameter(Mandatory=$true)][string]$OutputDirectory,
|
|
[ValidateSet('文件传输助手','消息测试专用群组')][string]$Session='消息测试专用群组',
|
|
[switch]$IncludeMentions
|
|
)
|
|
if($IncludeMentions -and $Session -ne '消息测试专用群组'){throw 'Mention validation is restricted to the approved test group.'}
|
|
$ErrorActionPreference='Stop'
|
|
$exe=(Resolve-Path $Executable).Path
|
|
if(Test-Path $OutputDirectory){throw 'Use a fresh evidence directory.'}
|
|
$directory=(New-Item -ItemType Directory $OutputDirectory).FullName
|
|
$checks=New-Object System.Collections.Generic.List[object]
|
|
$marker='wx-agent-general-'+[Guid]::NewGuid().ToString('N')
|
|
function Invoke-Check([string]$Stage,[string[]]$Arguments){
|
|
# Record the attempt before execution. Never retry a send, including an unconfirmed result.
|
|
@{Stage=$Stage;StartedUtc=[DateTime]::UtcNow.ToString('o')} | ConvertTo-Json | Set-Content "$directory\$Stage-attempt.json" -Encoding UTF8
|
|
$raw=(& $exe @Arguments 2> "$directory\$Stage.stderr.txt" | Out-String)
|
|
$code=$LASTEXITCODE
|
|
$raw | Set-Content "$directory\$Stage.json" -Encoding UTF8
|
|
$checks.Add(@{Stage=$Stage;ExitCode=$code})
|
|
if($code -ne 0){throw "$Stage failed; no further operations will run."}
|
|
}
|
|
try {
|
|
Invoke-Check 'doctor' @('doctor','--timeout','30')
|
|
Invoke-Check 'inspect-ui' @('inspect-ui','--output',"$directory\ui-tree.json",'--timeout','30')
|
|
Invoke-Check 'smoke' @('smoke','--timeout','60')
|
|
$file=Join-Path $directory "$marker.txt"
|
|
[IO.File]::WriteAllText($file,$marker)
|
|
Add-Type -AssemblyName System.Drawing
|
|
$image=Join-Path $directory "$marker.png"
|
|
$bitmap=New-Object Drawing.Bitmap 32,32
|
|
try { $bitmap.SetPixel(16,16,[Drawing.Color]::Blue); $bitmap.Save($image,[Drawing.Imaging.ImageFormat]::Png) }
|
|
finally { $bitmap.Dispose() }
|
|
Invoke-Check 'send-multiline' @('chat','send','--session',$Session,'--text',"$marker-line1`r`n`r`n$marker-line3",'--timeout','60')
|
|
Invoke-Check 'send-file' @('chat','send-file','--session',$Session,'--path',$file,'--timeout','60')
|
|
Invoke-Check 'send-image' @('chat','send-image','--session',$Session,'--path',$image,'--timeout','60')
|
|
Invoke-Check 'reply-latest' @('chat','reply-latest','--session',$Session,'--text',"$marker-reply1`r`n`r`n$marker-reply3",'--timeout','60')
|
|
if($IncludeMentions){
|
|
Invoke-Check 'mention-member' @('chat','mention','--session',$Session,'--member','Hao 豪','--text',"$marker-member",'--confirm','CONFIRM','--timeout','60')
|
|
Invoke-Check 'mention-all' @('chat','mention','--session',$Session,'--member','所有人','--text',"$marker-all",'--confirm','CONFIRM','--timeout','60')
|
|
}
|
|
} catch {
|
|
@{Message=$_.Exception.Message;Line=$_.InvocationInfo.ScriptLineNumber} | ConvertTo-Json | Set-Content "$directory\error.json" -Encoding UTF8
|
|
} finally {
|
|
$expectedCount=7
|
|
if($IncludeMentions){$expectedCount=9}
|
|
$success=($checks.Count -eq $expectedCount -and @($checks | Where-Object {$_.ExitCode -ne 0}).Count -eq 0)
|
|
@{Success=$success;Checks=@($checks.ToArray());MentionAttempted=(@($checks | Where-Object {$_.Stage -eq 'mention-member'}).Count -gt 0);BinarySha256=(Get-FileHash $exe -Algorithm SHA256).Hash} |
|
|
ConvertTo-Json -Depth 6 | Set-Content "$directory\summary.json" -Encoding UTF8
|
|
}
|
|
if(!$success){exit 1}
|