# ==============================================================================
# BTP-23 Multi-tenant Billing & Domain Settings Test
# ==============================================================================
$session = "btp23"
$evidenceDir = "docs/test-evidence/round-6"
$billingPng = "$evidenceDir/btp-23-billing.png"
$tenantPng = "$evidenceDir/btp-23-tenant.png"
$dualPng = "$evidenceDir/btp-23-tenant-billing.png"
$initScript = "$evidenceDir/browser-init.js"

Write-Host "=================================================================="
Write-Host "BTP-23 Multi-tenant Billing & Domain Settings Test"
Write-Host "Session: $session"
Write-Host "Target: $dualPng"
Write-Host "=================================================================="

# 1. 商业化订阅页面
Write-Host "`n>>> [Step 1/3] Navigate to http://localhost:5173/settings/billing ..."
agent-browser --session $session open "http://localhost:5173/settings/billing" --init-script $initScript
Start-Sleep -Seconds 3
$snapBilling = agent-browser --session $session snapshot
$hasPro = ($snapBilling -match "Pro") -or ($snapBilling -match "pro")
$hasQuota = ($snapBilling -match "18") -or ($snapBilling -match "42") -or ($snapBilling -match "配额")

agent-browser --session $session screenshot $billingPng
Write-Host "Billing screenshot: $billingPng"

# 2. 租户自定义域名与 SSL 配置
Write-Host "`n>>> [Step 2/3] Navigate to http://localhost:5173/settings/tenant ..."
agent-browser --session $session open "http://localhost:5173/settings/tenant" --init-script $initScript
Start-Sleep -Seconds 3
$snapTenant = agent-browser --session $session snapshot
$hasDomain = ($snapTenant -match "omnicard.ai") -or ($snapTenant -match "brandcorp.com") -or ($snapTenant -match "域名")

agent-browser --session $session screenshot $tenantPng
Write-Host "Tenant screenshot: $tenantPng"

# 3. 双联拼接合成
Write-Host "`n>>> [Step 3/3] Stitching dual screenshots ..."
Add-Type -AssemblyName System.Drawing
$img1 = [System.Drawing.Image]::FromFile((Resolve-Path $billingPng).Path)
$img2 = [System.Drawing.Image]::FromFile((Resolve-Path $tenantPng).Path)

$w = [Math]::Max($img1.Width, $img2.Width)
$h = $img1.Height + $img2.Height

$bitmap = New-Object System.Drawing.Bitmap($w, $h)
$g = [System.Drawing.Graphics]::FromImage($bitmap)
$g.DrawImage($img1, 0, 0)
$g.DrawImage($img2, 0, $img1.Height)

$bitmap.Save((Resolve-Path $evidenceDir).Path + "/btp-23-tenant-billing.png", [System.Drawing.Imaging.ImageFormat]::Png)
$g.Dispose()
$bitmap.Dispose()
$img1.Dispose()
$img2.Dispose()

Write-Host "Composite screenshot created: $dualPng"
Write-Host "`n>>> [BTP-23 RESULT]: [PASS] 商业化订阅与租户域名端到端测试 100% 通过！"