fscps.tools

1.0.264

tests/general/FileIntegrity.Tests.ps1

$moduleRoot = (Resolve-Path "$PSScriptRoot\..\..").Path

. "$PSScriptRoot\FileIntegrity.Exceptions.ps1"



Describe "Verifying integrity of module files" {
    BeforeAll {
        function Get-FileEncoding
        {
        <#
            .SYNOPSIS
                Tests a file for encoding.
             
            .DESCRIPTION
                Tests a file for encoding.
             
            .PARAMETER Path
                The file to test
        #>
            [CmdletBinding()]
            Param (
                [Parameter(Mandatory = $True, ValueFromPipelineByPropertyName = $True)]
                [Alias('FullName')]
                [string]
                $Path
            )
            
            if ($PSVersionTable.PSVersion.Major -lt 6)
            {
                [byte[]]$byte = get-content -Encoding byte -ReadCount 4 -TotalCount 4 -Path $Path
            }
            else
            {
                [byte[]]$byte = Get-Content -AsByteStream -ReadCount 4 -TotalCount 4 -Path $Path
            }
            
            if ($byte[0] -eq 0xef -and $byte[1] -eq 0xbb -and $byte[2] -eq 0xbf) { 'UTF8' }
            elseif ($byte[0] -eq 0xfe -and $byte[1] -eq 0xff) { 'Unicode' }
            elseif ($byte[0] -eq 0 -and $byte[1] -eq 0 -and $byte[2] -eq 0xfe -and $byte[3] -eq 0xff) { 'UTF32' }
            elseif ($byte[0] -eq 0x2b -and $byte[1] -eq 0x2f -and $byte[2] -eq 0x76) { 'UTF7' }
            else { 'Unknown' }
        }
    }
    Context "Validating PS1 Script files" {
        $allFiles = Get-ChildItem -Path $moduleRoot -Recurse -Filter "*.ps1" | Where-Object FullName -NotLike "$moduleRoot\tests\*"
        
        foreach ($file in $allFiles) {
            $name = $file.FullName.Replace("$moduleRoot\", '')
            
            It "[$name] Should have UTF8 encoding" {
                Get-FileEncoding -Path $file.FullName | Should -Be 'UTF8'
            }
            
            It "[$name] Should have no trailing space" {
                ($file | Select-String "\s$" | Where-Object { $_.Line.Trim().Length -gt 0}).LineNumber | Should -BeNullOrEmpty
            }
            
            $tokens = $null
            $parseErrors = $null
            $ast = [System.Management.Automation.Language.Parser]::ParseFile($file.FullName, [ref]$tokens, [ref]$parseErrors)
            
            It "[$name] Should have no syntax errors" {
                $parseErrors | Should -Be $Null
            }
            
            foreach ($command in $global:BannedCommands) {
                if ($global:MayContainCommand["$command"] -notcontains $file.Name) {
                    It "[$name] Should not use $command" {
                        $tokens | Where-Object Text -EQ $command | Should -BeNullOrEmpty
                    }
                }
            }
            
            It "[$name] Should not contain aliases" {
                if ($global:MayContainAlias -notcontains $file.Name) {
                    $tokens | Where-Object TokenFlags -eq CommandName | Where-Object { Test-Path "alias:\$($_.Text)" } | Measure-Object | Select-Object -ExpandProperty Count | Should -Be 0
                }
            }
        }
    }
    
    Context "Validating help.txt help files" {
        $allFiles = Get-ChildItem -Path $moduleRoot -Recurse -Filter "*.help.txt" | Where-Object FullName -NotLike "$moduleRoot\tests\*"
        
        foreach ($file in $allFiles) {
            $name = $file.FullName.Replace("$moduleRoot\", '')
            
            It "[$name] Should have UTF8 encoding" {
                Get-FileEncoding -Path $file.FullName | Should -Be 'UTF8'
            }
            
            It "[$name] Should have no trailing space" {
                ($file | Select-String "\s$" | Where-Object { $_.Line.Trim().Length -gt 0 } | Measure-Object).Count | Should -Be 0
            }
        }
    }
}