7eaddd9a54
ML - устранение неточностей и багов ML - оптимизация производительности DecisionTreeRegressor.Fit, RandomForestRegressor.Fit ML - тесты
122 lines
3.1 KiB
PowerShell
122 lines
3.1 KiB
PowerShell
param(
|
|
[string]$Root = 'D:\PABC_GIT\TestSuite\_MachineLearning',
|
|
[switch]$Fast
|
|
)
|
|
|
|
[Console]::InputEncoding = [System.Text.Encoding]::UTF8
|
|
[Console]::OutputEncoding = [System.Text.Encoding]::UTF8
|
|
$OutputEncoding = [System.Text.Encoding]::UTF8
|
|
|
|
$compiler = 'D:\PABC_GIT\bin\pabcnetcclear.exe'
|
|
$libRoot = 'D:\PABC_GIT\bin\Lib'
|
|
$tests = Get-ChildItem -Path $Root -Recurse -Filter *.pas | Where-Object { $_.Name -ne 'TestHelpers.pas' } | Sort-Object FullName
|
|
$libStamp = (Get-ChildItem -Path $libRoot -Recurse -Filter *.pas | Measure-Object LastWriteTime -Maximum).Maximum
|
|
$testHelpers = Join-Path $Root 'TestHelpers.pas'
|
|
$helperStamp = if (Test-Path $testHelpers) { (Get-Item $testHelpers).LastWriteTime } else { Get-Date '2000-01-01' }
|
|
|
|
if ($tests.Count -eq 0) {
|
|
Write-Host 'No tests found.'
|
|
exit 0
|
|
}
|
|
|
|
$failed = @()
|
|
$passedCount = 0
|
|
$progressOnLine = 0
|
|
|
|
Write-Host "Found tests: $($tests.Count)"
|
|
if ($Fast) {
|
|
Write-Host 'Mode: FAST'
|
|
}
|
|
Write-Host ''
|
|
|
|
foreach ($test in $tests) {
|
|
$exe = [System.IO.Path]::ChangeExtension($test.FullName, '.exe')
|
|
$pdb = [System.IO.Path]::ChangeExtension($test.FullName, '.pdb')
|
|
|
|
$needCompile = $true
|
|
if ($Fast -and (Test-Path $exe)) {
|
|
$exeStamp = (Get-Item $exe).LastWriteTime
|
|
if (($exeStamp -ge $test.LastWriteTime) -and ($exeStamp -ge $libStamp) -and ($exeStamp -ge $helperStamp)) {
|
|
$needCompile = $false
|
|
}
|
|
}
|
|
|
|
if ($needCompile) {
|
|
$compileOut = & $compiler "/SearchDir:$Root" $test.FullName 2>&1
|
|
if ($LASTEXITCODE -ne 0) {
|
|
if ($progressOnLine -gt 0) {
|
|
Write-Host ''
|
|
$progressOnLine = 0
|
|
}
|
|
Write-Host "=== $($test.FullName) ==="
|
|
if ($compileOut) { $compileOut | ForEach-Object { Write-Host $_ } }
|
|
Write-Host 'COMPILE FAIL'
|
|
Write-Host ''
|
|
$failed += "$($test.FullName) [compile]"
|
|
continue
|
|
}
|
|
}
|
|
|
|
if (-not (Test-Path $exe)) {
|
|
if ($progressOnLine -gt 0) {
|
|
Write-Host ''
|
|
$progressOnLine = 0
|
|
}
|
|
Write-Host "=== $($test.FullName) ==="
|
|
Write-Host 'EXE NOT FOUND'
|
|
Write-Host ''
|
|
$failed += "$($test.FullName) [no exe]"
|
|
continue
|
|
}
|
|
|
|
$runOut = & $exe 2>&1
|
|
$runCode = $LASTEXITCODE
|
|
|
|
if (-not $Fast) {
|
|
if (Test-Path $exe) { Remove-Item -LiteralPath $exe -Force }
|
|
if (Test-Path $pdb) { Remove-Item -LiteralPath $pdb -Force }
|
|
}
|
|
|
|
if ($runCode -ne 0) {
|
|
if ($progressOnLine -gt 0) {
|
|
Write-Host ''
|
|
$progressOnLine = 0
|
|
}
|
|
Write-Host "=== $($test.FullName) ==="
|
|
if ($runOut) { $runOut | ForEach-Object { Write-Host $_ } }
|
|
Write-Host 'RUN FAIL'
|
|
Write-Host ''
|
|
$failed += "$($test.FullName) [run]"
|
|
continue
|
|
}
|
|
|
|
$passedCount += 1
|
|
Write-Host -NoNewline '.'
|
|
$progressOnLine += 1
|
|
if ($progressOnLine -ge 10) {
|
|
Write-Host ''
|
|
$progressOnLine = 0
|
|
}
|
|
}
|
|
|
|
if ($progressOnLine -gt 0) {
|
|
Write-Host ''
|
|
}
|
|
|
|
Write-Host ''
|
|
Write-Host 'SUMMARY'
|
|
Write-Host " Total : $($tests.Count)"
|
|
Write-Host " Passed: $passedCount"
|
|
Write-Host " Failed: $($failed.Count)"
|
|
|
|
if ($failed.Count -gt 0) {
|
|
Write-Host ''
|
|
Write-Host 'FAILED TESTS:'
|
|
$failed | ForEach-Object { Write-Host $_ }
|
|
exit 1
|
|
}
|
|
|
|
Write-Host ''
|
|
Write-Host 'ALL TESTS PASSED'
|
|
exit 0
|