Shuery
42f02d0eca
16 个没有前缀的公共函数补上 BakNRet（Write-Log → Write-BakNRetLog、Resolve-BackupEntry → Resolve-BakNRetBackupEntry、Find-ChildDirectoryByName → Find-BakNRetChildDirectoryByName 等）， 另外把全仓的 Baknret 统一成 BakNRet（47 个文件、940 处、65 个定义文件重命名）。 这不是审美问题：静态分析直接拓出一条实据 —— Write-Log 与本机某个已装模块导出的命令 **重名**（PSAvoidOverwritingBuiltInCmdlets），而重名的后果是导入两个模块时有一方的命令被 静默遮蔽。补前缀正是这条规则的解法，改名后它归零。 为什么敢做这个规模：PowerShell 的函数名解析大小写不敏感，所以 Baknret → BakNRet 在功能 上是零风险；真正要验证的是 16 个补前缀的调用点，而 276 个断言几乎覆盖了每个函数。另外 "名字与文件名一致"这条不变式有断言盯着（加载器点源的文件集合 vs 磁盘）。 踩到并记下的坑：Windows 文件系统大小写不敏感，所以**只改大小写**的重命名会被 Move-Item 当成同一个文件而静默跳过 —— 同一批里同时改了名字的那 16 个文件却成功了，于是"看起来能跑"。 最后用"先移到临时名、再移到目标名"的两步走解决，判断与替换全部改用显式大小写敏感的形式 （-creplace / -cmatch）。 顺带把名录指纹缓存从 MD5 换成 SHA256（PSAvoidUsingBrokenHashAlgorithms）：它只是缓存键， 没有兼容负担。 验收：test.ps1 9/9 全绿（7 与 5.1）、100 个文件两版解析零错、276 个断言全过、 构建工具仍能合回单文件（3300 行）。
40 lines
1.8 KiB
PowerShell
40 lines
1.8 KiB
PowerShell
<#
|
||
.SYNOPSIS
|
||
在 VM 内以 UTF-8 控制台编码运行一个测试套件（不改仓库里的任何测试代码）。
|
||
|
||
.DESCRIPTION
|
||
为什么需要它 —— tests\BakNRet*.Tests.ps1 的 Invoke-BakNRetScript 是这么抓子进程输出的：
|
||
|
||
cmd /c pwsh -File Backup.ps1 ... > out.txt 2>&1
|
||
Get-Content -LiteralPath out.txt -Encoding UTF8
|
||
|
||
而 Backup.ps1 / Restore.ps1 的 Write-BakNRetLog 走 Write-Host，写进 out.txt 的字节用的是
|
||
`[Console]::OutputEncoding`：
|
||
|
||
* 宿主机上它是 utf-8 -> 文件是 UTF-8 -> 按 UTF-8 读回，中文正确，套件全绿；
|
||
* 一台全新 Windows VM 上它是 ANSI 代码页（中文系统 936）
|
||
-> 文件是 GBK 字节 -> 按 UTF-8 读回得到替换字符 -> 断言中文的那几项失败。
|
||
|
||
这是测试环境假设问题，不是产品缺陷。本包装器把控制台输出编码先钉成 UTF-8，
|
||
于是 VM 里也能得到和宿主机一致的 150/150。
|
||
|
||
用法：pwsh -File run-suite-utf8.ps1 C:\BakNRet\tests\Run-Pester.ps1 [-KeepWorkRoot ...]
|
||
#>
|
||
|
||
[CmdletBinding()]
|
||
param(
|
||
[Parameter(Mandatory, Position = 0)][string]$Suite,
|
||
[Parameter(Position = 1, ValueFromRemainingArguments = $true)][string[]]$SuiteArgs = @()
|
||
)
|
||
|
||
$ErrorActionPreference = 'Continue'
|
||
[Console]::OutputEncoding = [System.Text.Encoding]::UTF8
|
||
[Console]::InputEncoding = [System.Text.Encoding]::UTF8
|
||
$OutputEncoding = [System.Text.Encoding]::UTF8
|
||
|
||
Write-Host ("[lab] 包装器：PS {0}，[Console]::OutputEncoding = {1}" -f $PSVersionTable.PSVersion, [Console]::OutputEncoding.WebName)
|
||
Write-Host ("[lab] 套件：{0} {1}" -f $Suite, ($SuiteArgs -join ' '))
|
||
|
||
if (-not (Test-Path -LiteralPath $Suite)) { Write-Error "找不到套件：$Suite"; exit 2 }
|
||
& $Suite @SuiteArgs
|
||
exit $LASTEXITCODE |