Simple test script for CQExtractor module and OCR quality

CQExtractorTest.ps1

Import-Module .\CQExtractor.psm1 -Force

$score = 0

$arr = New-Object system.collections.hashtable
$arr["l"] = ".A"
$arr["1"] = ".B"
$arr["L"] = ".C"
$arr["i"] = ".D"
$arr["I"] = ".E"            
$arr["o"] = ".F"
$arr["O"] = ".G"
$arr["0"] = ".H"
$arr["w"] = ".J"
$arr["W"] = ".K"
$arr["="] = ".Q"


$total = Get-Content .\test.txt | Measure-Object -Line

foreach ($line in Get-Content .\test.txt) {
    $Bytes = [System.Text.Encoding]::Unicode.GetBytes($line)
    $orig = $tc = [Convert]::ToBase64String($Bytes)    
    
    foreach ($key in $arr.Keys) {
        $tc = $tc.Replace($key,$arr["$key"])
    }
    
    $tc | Export-StringToPng -Path test.png
    $result = (Export-PngToString -Path test.png).text

    foreach ($key in $arr.Keys) {
        $result = $result.Replace($arr["$key"],$key)
    }

    $decoded = [System.Text.Encoding]::UTF8.GetString([System.Convert]::FromBase64String($result))

    if ($line -ne $decoded) {
        Write-Warning "Mismatch: `n$tc ($orig) vs $result"
    }

    else {        
        $score = $score + 1
    }
}

"Scored: {0}/{1}" -f $score, $total.lines