85 lines
3.5 KiB
PowerShell
85 lines
3.5 KiB
PowerShell
#requires -Version 5.1
|
||
<#
|
||
.SYNOPSIS
|
||
pe-compat — PE/EXE 兼容层测试（docs/RE/test-cases/pe-compat.md）
|
||
|
||
.DESCRIPTION
|
||
正常启动到 cmd.elf，用 AUTOEXEC.BAT 自动执行 PE 命令序列：
|
||
|
||
pe HELLO64.EXE → PE32+ 原生 Ring0 执行，shim_WriteFile 输出串口
|
||
pe HELLO32.EXE → PE32 x86emu32 解释执行，shim32 输出串口
|
||
pe NONEXIST.EXE → 错误路径：不产生 [cmd] PE run begin
|
||
exit → 返回 DSK → desktop
|
||
|
||
串口可断言锚点：
|
||
[cmd] PE run begin / [cmd] cmdline: ... / [cmd] PE run end (logl/swrite, 始终上串口)
|
||
[PE] PE32+ (64-bit) / [PE] running PE32+ natively (pe_service)
|
||
[PE] running PE32 via x86emu32 (pe_service)
|
||
Hello from PE32+! / Hello from PE32! (shim WriteFile → 串口)
|
||
|
||
peinfo / 无参用法提示只写帧缓冲（cmd 非 dev_mode 无串口镜像），标 MANUAL。
|
||
|
||
退出码：全部通过 0，任一 FAIL 1。
|
||
#>
|
||
param([switch]$Build)
|
||
$ErrorActionPreference = 'Stop'
|
||
. (Join-Path $PSScriptRoot 'lib\QemuTest.ps1')
|
||
|
||
Initialize-QemuTest -Build:$Build
|
||
$result = New-TestCaseResult 'pe-compat'
|
||
|
||
Set-DeshabFirstInit -First 1 -DevMode 0
|
||
Set-DeshabAutoexec -Lines @('pe HELLO64.EXE', 'pe HELLO32.EXE', 'pe NONEXIST.EXE', 'exit')
|
||
|
||
$s = Start-QemuSession -Name 'pe-compat'
|
||
try {
|
||
$hit = Wait-QemuLog -Session $s -Patterns @('[DSK] cmd.elf returned') -TimeoutSeconds 180
|
||
Start-Sleep -Seconds 2
|
||
$log = Read-QemuLogText $s.LogPath
|
||
$result.LogPath = $s.LogPath
|
||
|
||
# ---- B2.1 PE32+ 加载执行 ----
|
||
Assert-QemuLog $result $log -Ordered @(
|
||
'[cmd] running AUTOEXEC.BAT',
|
||
'[cmd] PE run begin',
|
||
'[cmd] cmdline: pe HELLO64.EXE',
|
||
'[PE] running PE32+ natively',
|
||
'Hello from PE32+!',
|
||
'[cmd] PE run end'
|
||
)
|
||
|
||
# ---- B2.2 PE32 解释器执行 ----
|
||
Assert-QemuLog $result $log -Ordered @(
|
||
'Hello from PE32+!',
|
||
'[cmd] cmdline: pe HELLO32.EXE',
|
||
'[PE] running PE32 via x86emu32',
|
||
'Hello from PE32!',
|
||
'[cmd] PE run end'
|
||
)
|
||
|
||
# ---- B2.4 文件不存在错误路径：NONEXIST 不得产生 PE run begin ----
|
||
Assert-QemuLog $result $log -MustNotContain @('[cmd] cmdline: pe NONEXIST.EXE')
|
||
# 恰好两次 PE 执行（HELLO64 + HELLO32）
|
||
Assert-QemuLog $result $log -CountPattern '[cmd] PE run begin' -MinCount 2
|
||
|
||
# ---- B2.6 ExitProcess 返回：cmd 接管继续执行后续命令并最终返回 DSK ----
|
||
if ($hit) { Add-TestCheck $result 'B2.6: ExitProcess 后 cmd 返回 DSK' 'PASS' }
|
||
else { Add-TestCheck $result 'B2.6: ExitProcess 后 cmd 返回 DSK' 'FAIL' 'missing [DSK] cmd.elf returned' }
|
||
|
||
# ---- ABI 验证（源码级，日志侧证） ----
|
||
Assert-QemuLog $result $log -MustContain @('[cmd] PE service ok') # ctx->reserved[4] + PE_SERVICE_MAGIC 校验通过
|
||
|
||
# ---- 帧缓冲限定项（无串口输出，标 MANUAL） ----
|
||
Add-TestCheck $result 'B2.3: peinfo HELLO64.EXE 头解析' 'MANUAL' 'peinfo 输出仅帧缓冲（cmd 非 dev_mode 无串口镜像），手动验证 Machine: 0x8664'
|
||
Add-TestCheck $result 'B2.7: peinfo HELLO32.EXE 头解析' 'MANUAL' '同上，预期 Machine: 0x14c / image_base=0x400000'
|
||
Add-TestCheck $result 'B2.5: pe 无参用法提示' 'MANUAL' '用法提示仅帧缓冲输出'
|
||
|
||
Assert-QemuLog $result $log -MustNotContain @('[PANIC]')
|
||
} finally {
|
||
Stop-QemuSession $s
|
||
Restore-DeshabScenario
|
||
}
|
||
|
||
Write-TestCaseResult $result
|
||
if ($result.Status -eq 'FAIL') { exit 1 } else { exit 0 }
|