Testing/Invoke-TestsFromVSCode.ps1
|
<# .synopsis Execute tests in the container from VS Code .description Executes test in the container based on the current file and cursor position in VS Code .parameter CurrentFile Path to the file that should be used for testing. If empty, it will test everything .parameter CurrentLine The line number in the file. Based on this, it will determine the function to test .example Invoke-TestsFromVSCode -CurrentFile "C:\test.al" -CurrentLine 12 #> function Invoke-TestsFromVSCode { param( # The current file the tests are invoked from [Parameter(Mandatory=$false)] [string] $CurrentFile, # The current line no. in the current file [Parameter(Mandatory=$false)] [string] $CurrentLine ) $ContainerName = Get-NewContainerName -ContainerName $ContainerName if (!$CurrentFile) { Invoke-BCTest -ContainerName $containerName } else { # determine if the current file is a test codeunit if ((Get-Content $CurrentFile -Raw).Contains('Subtype = Test')) { $TestCodeunit = [Regex]::Match((Get-Content $CurrentFile).Item(0),' \d+ ').Value.Trim() if ($null -ne $CurrentLine) { $Method = Get-TestFromLine -Path $CurrentFile -LineNumber $CurrentLine if ($null -ne $Method) { Invoke-BCTest -ContainerName $containerName -TestCodeunit $TestCodeunit -TestMethod $Method } else { Invoke-BCTest -ContainerName $containerName -TestCodeunit $TestCodeunit -TestMethod '*' } } } else { Invoke-BCTest -ContainerName $containerName } } } function Get-TestFromLine { param ( # file path to search [Parameter(Mandatory=$true)] [string] $Path, # line number to start at [Parameter(Mandatory=$true)] [int] $LineNumber ) $Lines = Get-Content $Path for ($i = ($LineNumber - 1); $i -ge 0; $i--) { if ($Lines.Item($i).Contains('[Test]')) { # search forwards for the procedure declaration (it might not be the following line) for ($j = $i; $j -le $Lines.Count; $j++) { if ($Lines.Item($j).Contains('procedure')) { $ProcDeclaration = $Lines.Item($j) $ProcDeclaration = $ProcDeclaration.Substring($ProcDeclaration.IndexOf('procedure') + 10) $ProcDeclaration = $ProcDeclaration.Substring(0,$ProcDeclaration.IndexOf('(')) return $ProcDeclaration } } } } } Export-ModuleMember Invoke-TestsFromVSCode |