190 lines
8.7 KiB
PowerShell
190 lines
8.7 KiB
PowerShell
|
#requires -Version 5.1
|
|||
|
|
<#
|
|||
|
|
.SYNOPSIS
|
|||
|
|
network-e2e — 网络端到端测试（docs/RE/test-cases/network-e2e.md）
|
|||
|
|
|
|||
|
|
.DESCRIPTION
|
|||
|
|
场景 N-A（netman 全链路，首启调度）：
|
|||
|
|
firstInit="0\n0" 首启，挂 e1000(net0) + virtio-net(net1) 双网卡。
|
|||
|
|
DSK 首启链 mouseInit → netman → FirstInit，netman 读取 conf.conf(mode=dhcp)，
|
|||
|
|
在 index=0 的 e1000 上执行 DHCP DISCOVER/OFFER/REQUEST/ACK → ARP 网关 → DNS example.com。
|
|||
|
|
断言锚点（netman log_hex 为 16 位定宽小写十六进制，同行输出）：
|
|||
|
|
[virtio_net] selftest PASS: RX path ok (stage3 驱动自测，真实 slirp 后端 DHCP OFFER)
|
|||
|
|
[netman] netdev_count=0x0000000000000002 (e1000 + virtio_net 双设备)
|
|||
|
|
[netman] DHCP OFFER ip= / DHCP ACK, leased ip= / DHCP final rc=0x0...0
|
|||
|
|
[netman] ARP: gateway resolved / ARP final rc=0x0...0
|
|||
|
|
[netman] DNS example.com= / DNS final rc=0x0...0
|
|||
|
|
[netman] network final rc=0x0000000000000000
|
|||
|
|
netman 之后停在 FirstInit 向导即杀会话（向导自动化由 boot-regression B1 覆盖）。
|
|||
|
|
|
|||
|
|
场景 N-B（curl.elf 主机侧端到端，dev_mode shell）：
|
|||
|
|
firstInit="1\n1" → shell dev_tests → 交互 `curl`（PATH → /bin/CURL.ELF）。
|
|||
|
|
主机侧 Start-TestHttpServer 监听 127.0.0.1:8000，guest 输入
|
|||
|
|
`http://10.0.2.2:8000/` 经 slirp 网关访问主机服务；
|
|||
|
|
断言主机侧 HTTP 服务器日志收到 "GET / HTTP/1.0"（端到端最强证据），
|
|||
|
|
guest 侧断言 [curl] boot / [curl] exit / [shell] path: tool returned。
|
|||
|
|
响应体只写帧缓冲（无串口），标 MANUAL。
|
|||
|
|
|
|||
|
|
退出码：全部通过 0，任一 FAIL 1。
|
|||
|
|
#>
|
|||
|
|
param(
|
|||
|
|
[switch]$Build,
|
|||
|
|
[string[]]$Scenarios = @('NA', 'NB')
|
|||
|
|
)
|
|||
|
|
$ErrorActionPreference = 'Stop'
|
|||
|
|
. (Join-Path $PSScriptRoot 'lib\QemuTest.ps1')
|
|||
|
|
|
|||
|
|
Initialize-QemuTest -Build:$Build
|
|||
|
|
$result = New-TestCaseResult 'network-e2e'
|
|||
|
|
|
|||
|
|
# ----------------------------------------------------------------
|
|||
|
|
function Invoke-ScenarioNA {
|
|||
|
|
Write-Host "`n--- N-A netman 全链路 (首启, e1000 + virtio-net 双网卡) ---"
|
|||
|
|
Set-DeshabFirstInit -First 0 -DevMode 0
|
|||
|
|
# run_qemu.bat 默认仅 e1000；追加第二网卡 virtio-net-pci 挂独立 slirp 后端 net1。
|
|||
|
|
$s = Start-QemuSession -Name 'nete2e-na' -MonitorPort 45506 -ExtraArgs @(
|
|||
|
|
'-netdev', 'user,id=net1',
|
|||
|
|
'-device', 'virtio-net-pci,netdev=net1'
|
|||
|
|
)
|
|||
|
|
try {
|
|||
|
|
$hit = Wait-QemuLog -Session $s -Patterns @(
|
|||
|
|
'[netman] network final rc=',
|
|||
|
|
'[netman] DHCP: no OFFER received',
|
|||
|
|
'[netman] ARP: timeout',
|
|||
|
|
'[netman] DNS: timeout',
|
|||
|
|
'[PANIC]'
|
|||
|
|
) -TimeoutSeconds 240
|
|||
|
|
Start-Sleep -Seconds 2
|
|||
|
|
$log = Read-QemuLogText $s.LogPath
|
|||
|
|
$result.LogPath = $s.LogPath
|
|||
|
|
|
|||
|
|
# ---- N1/N2: 双网卡驱动与设备注册 ----
|
|||
|
|
Assert-QemuLog $result $log -Ordered @(
|
|||
|
|
'[e1000] netdev registered, index=0x0000000000000000',
|
|||
|
|
'[virtio_net] netdev registered, index=',
|
|||
|
|
'[virtio_net] selftest: TX path ok',
|
|||
|
|
'[virtio_net] selftest: DHCP OFFER yiaddr=',
|
|||
|
|
'[virtio_net] selftest PASS: RX path ok'
|
|||
|
|
)
|
|||
|
|
# ---- netman 全链路（N3 DHCP / N4 ARP / N5 DNS） ----
|
|||
|
|
Assert-QemuLog $result $log -Ordered @(
|
|||
|
|
'[DSK] loading netman',
|
|||
|
|
'[netman] boot',
|
|||
|
|
'[netman] netdev_count=0x0000000000000002',
|
|||
|
|
'[netman] DHCP: sending DISCOVER',
|
|||
|
|
'[netman] DHCP OFFER ip=',
|
|||
|
|
'[netman] DHCP: sending REQUEST',
|
|||
|
|
'[netman] DHCP ACK, leased ip=',
|
|||
|
|
'[netman] DHCP final rc=0x0000000000000000',
|
|||
|
|
'[netman] ARP: gateway resolved',
|
|||
|
|
'[netman] ARP final rc=0x0000000000000000',
|
|||
|
|
'[netman] DNS example.com=',
|
|||
|
|
'[netman] DNS final rc=0x0000000000000000',
|
|||
|
|
'[netman] network final rc=0x0000000000000000'
|
|||
|
|
) -MustNotContain @(
|
|||
|
|
'[PANIC]',
|
|||
|
|
'[netman] DHCP: no OFFER received',
|
|||
|
|
'[netman] ARP: timeout',
|
|||
|
|
'[netman] DNS: timeout'
|
|||
|
|
)
|
|||
|
|
|
|||
|
|
if ($hit -eq '[netman] network final rc=') {
|
|||
|
|
Add-TestCheck $result 'N-A: netman DHCP+ARP+DNS 全链路 rc=0' 'PASS'
|
|||
|
|
} else {
|
|||
|
|
Add-TestCheck $result 'N-A: netman DHCP+ARP+DNS 全链路 rc=0' 'FAIL' "hit=$hit"
|
|||
|
|
}
|
|||
|
|
Add-TestNote $result 'N-A: netman 仅首启调度；后续 FirstInit 向导自动化由 boot-regression.ps1 B1 覆盖，本场景断言后即结束会话'
|
|||
|
|
} finally {
|
|||
|
|
Stop-QemuSession $s
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
# ----------------------------------------------------------------
|
|||
|
|
function Invoke-ScenarioNB {
|
|||
|
|
Write-Host "`n--- N-B curl.elf 主机侧端到端 (dev_mode shell → http://10.0.2.2:8000/) ---"
|
|||
|
|
Set-DeshabFirstInit -First 1 -DevMode 1
|
|||
|
|
Set-DeshabAutoexec -Lines @('ver', 'exit')
|
|||
|
|
|
|||
|
|
$httpLog = Join-Path $script:TestWorkDir 'nete2e-http-requests.log'
|
|||
|
|
$httpJob = Start-TestHttpServer -Port 8000 -LogPath $httpLog
|
|||
|
|
$s = Start-QemuSession -Name 'nete2e-nb' -MonitorPort 45506
|
|||
|
|
try {
|
|||
|
|
$hit = Wait-QemuLog -Session $s -Patterns @('=== 自动测试完成 ===', '[PANIC]') -TimeoutSeconds 240
|
|||
|
|
if ($hit -ne '=== 自动测试完成 ===') {
|
|||
|
|
$result.LogPath = $s.LogPath
|
|||
|
|
Add-TestCheck $result 'N-B: shell dev_tests 完成' 'FAIL' "hit=$hit"
|
|||
|
|
return
|
|||
|
|
}
|
|||
|
|
Add-TestCheck $result 'N-B: shell dev_tests 完成' 'PASS'
|
|||
|
|
|
|||
|
|
# --- 启动 curl 工具（PATH → /bin/CURL.ELF） ---
|
|||
|
|
Start-Sleep -Seconds 1
|
|||
|
|
Send-QemuText -Session $s -Text 'curl' -Enter
|
|||
|
|
$h = Wait-QemuLog -Session $s -Patterns @('[curl] boot') -TimeoutSeconds 60
|
|||
|
|
if (-not $h) { Add-TestCheck $result 'N-B: curl.elf PATH 加载启动' 'FAIL' 'missing [curl] boot'; return }
|
|||
|
|
Add-TestCheck $result 'N-B: curl.elf PATH 加载启动' 'PASS'
|
|||
|
|
|
|||
|
|
# --- 输入 URL：经 slirp 网关 10.0.2.2 访问主机 127.0.0.1:8000 ---
|
|||
|
|
Start-Sleep -Milliseconds 800
|
|||
|
|
Send-QemuText -Session $s -Text 'http://10.0.2.2:8000/' -Enter -DelayMs 110
|
|||
|
|
|
|||
|
|
# 主机侧端到端证据：HTTP 服务器收到 guest 的 GET 请求
|
|||
|
|
$deadline = (Get-Date).AddSeconds(45)
|
|||
|
|
$hostGot = $false
|
|||
|
|
while ((Get-Date) -lt $deadline) {
|
|||
|
|
if ((Test-Path $httpLog) -and ((Get-Content $httpLog -Raw -ErrorAction SilentlyContinue) -match 'GET / HTTP/1\.0')) {
|
|||
|
|
$hostGot = $true; break
|
|||
|
|
}
|
|||
|
|
Start-Sleep -Milliseconds 800
|
|||
|
|
}
|
|||
|
|
if ($hostGot) {
|
|||
|
|
Add-TestCheck $result 'N-B: 主机 HTTP 服务器收到 guest GET /（TCP+IP+ETH 全链路）' 'PASS'
|
|||
|
|
} else {
|
|||
|
|
Add-TestCheck $result 'N-B: 主机 HTTP 服务器收到 guest GET /（TCP+IP+ETH 全链路）' 'FAIL' 'no request logged by host http server within 45s'
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
# --- Esc 退出 curl 返回 shell ---
|
|||
|
|
Start-Sleep -Seconds 2
|
|||
|
|
Send-QemuKeys -Session $s -Keys @('esc')
|
|||
|
|
$h2 = Wait-QemuLog -Session $s -Patterns @('[curl] exit') -TimeoutSeconds 30
|
|||
|
|
$logc = Read-QemuLogText $s.LogPath
|
|||
|
|
if ($h2 -and $logc.Contains('[shell] path: tool returned')) {
|
|||
|
|
Add-TestCheck $result 'N-B: curl Esc 退出返回 shell' 'PASS'
|
|||
|
|
} else {
|
|||
|
|
Add-TestCheck $result 'N-B: curl Esc 退出返回 shell' 'FAIL' 'missing [curl] exit / tool returned'
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
# --- Esc 回 DSK → cmd → desktop ---
|
|||
|
|
Send-QemuKeys -Session $s -Keys @('esc')
|
|||
|
|
$h3 = Wait-QemuLog -Session $s -Patterns @('desktop ready') -TimeoutSeconds 150
|
|||
|
|
$log = Read-QemuLogText $s.LogPath
|
|||
|
|
$result.LogPath = $s.LogPath
|
|||
|
|
Assert-QemuLog $result $log -MustNotContain @('[PANIC]')
|
|||
|
|
if ($h3) { Add-TestCheck $result 'N-B: Esc → cmd → desktop ready' 'PASS' }
|
|||
|
|
else { Add-TestCheck $result 'N-B: Esc → cmd → desktop ready' 'FAIL' 'no desktop ready' }
|
|||
|
|
|
|||
|
|
Add-TestCheck $result 'N-B: HTTP 200 响应体与 DESHAB-NET-E2E-MARKER 渲染' 'MANUAL' 'curl 响应输出仅帧缓冲（无串口锚点）；主机服务器固定回复 marker 页面，可 screendump 人工核对'
|
|||
|
|
Add-TestNote $result 'N6/N11 ping 链路：由 userapps-matrix.ps1 交互阶段覆盖（ping 工具 10.0.2.2 四报文）'
|
|||
|
|
Add-TestNote $result 'N7/N9 外网访问：依赖主机联网，不在自动化断言范围（文档标 🔶）'
|
|||
|
|
} finally {
|
|||
|
|
Stop-QemuSession $s
|
|||
|
|
Stop-TestHttpServer $httpJob
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
# ----------------------------------------------------------------
|
|||
|
|
try {
|
|||
|
|
foreach ($sc in $Scenarios) {
|
|||
|
|
switch ($sc.ToUpper()) {
|
|||
|
|
'NA' { Invoke-ScenarioNA }
|
|||
|
|
'NB' { Invoke-ScenarioNB }
|
|||
|
|
default { Add-TestNote $result "未知场景 $sc，跳过" }
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
} finally {
|
|||
|
|
Restore-DeshabScenario
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
Write-TestCaseResult $result
|
|||
|
|
if ($result.Status -eq 'FAIL') { exit 1 } else { exit 0 }
|