Add tests for SHUSH and UNSHUSH.

Author: python-processing-unit

tests/cases/failing/shush-arity-one.pre

@@ -0,0 +1 @@
+SHUSH(0d1)

tests/cases/failing/unshush-arity-one.pre

@@ -0,0 +1 @@
+UNSHUSH(0d1)

tests/cases/passing/shush-cl-suppresses-forwarding.ps1

@@ -0,0 +1,48 @@
+$helperPath = Join-Path (Split-Path -Parent (Split-Path -Parent $PSScriptRoot)) 'helpers\prefix-input.ps1'
+. $helperPath
+
+$tempDir = New-PrefixTempDir
+
+try {
+  $programPath = Join-Path $tempDir 'program.pre'
+
+  Set-Content -Path $programPath -Encoding Ascii -Value @'
+SHUSH()
+ASSERT(EQ(CL("echo prefix-shush-cl"), 0d0))
+'@
+
+  $startInfo = New-Object System.Diagnostics.ProcessStartInfo
+  $startInfo.FileName = Get-PrefixExePath
+  $startInfo.Arguments = ('"{0}"' -f $programPath)
+  $startInfo.RedirectStandardOutput = $true
+  $startInfo.RedirectStandardError = $true
+  $startInfo.UseShellExecute = $false
+  $startInfo.CreateNoWindow = $true
+
+  $process = [System.Diagnostics.Process]::Start($startInfo)
+  try {
+    $stdout = $process.StandardOutput.ReadToEnd()
+    $stderr = $process.StandardError.ReadToEnd()
+    $process.WaitForExit()
+
+    $result = [pscustomobject]@{
+      ExitCode = $process.ExitCode
+      Stdout = $stdout
+      Stderr = $stderr
+    }
+  }
+  finally {
+    $process.Dispose()
+  }
+
+  Assert-PrefixSuccess $result
+  Assert-NoErrorOutput $result
+
+  if ($result.Stdout.Length -ne 0) {
+    $stdout = Format-VisibleText $result.Stdout
+    throw "Expected no stdout output, got: $stdout"
+  }
+}
+finally {
+  Remove-Item -Path $tempDir -Recurse -Force -ErrorAction SilentlyContinue
+}

tests/cases/passing/shush-input-prompt-forwarded.ps1

@@ -0,0 +1,28 @@
+$helperPath = Join-Path (Split-Path -Parent (Split-Path -Parent $PSScriptRoot)) 'helpers\prefix-input.ps1'
+. $helperPath
+
+$tempDir = New-PrefixTempDir
+
+try {
+  $programPath = Join-Path $tempDir 'program.pre'
+
+  Set-Content -Path $programPath -Encoding Ascii -Value @'
+SHUSH()
+STR: line = INPUT("PROMPT>")
+ASSERT(EQ(line, "alpha"))
+PRINT("hidden")
+'@
+
+  $result = Invoke-PrefixProgramWithInput -ProgramPath $programPath -InputText "alpha`r`n"
+
+  Assert-PrefixSuccess $result
+  Assert-NoErrorOutput $result
+
+  if (-not [regex]::IsMatch($result.Stdout, '\APROMPT>\z')) {
+    $stdout = Format-VisibleText $result.Stdout
+    throw "Unexpected stdout: $stdout"
+  }
+}
+finally {
+  Remove-Item -Path $tempDir -Recurse -Force -ErrorAction SilentlyContinue
+}

tests/cases/passing/shush-print-suppresses-forwarding.ps1

@@ -0,0 +1,48 @@
+$helperPath = Join-Path (Split-Path -Parent (Split-Path -Parent $PSScriptRoot)) 'helpers\prefix-input.ps1'
+. $helperPath
+
+$tempDir = New-PrefixTempDir
+
+try {
+  $programPath = Join-Path $tempDir 'program.pre'
+
+  Set-Content -Path $programPath -Encoding Ascii -Value @'
+SHUSH()
+PRINT("hidden")
+'@
+
+  $startInfo = New-Object System.Diagnostics.ProcessStartInfo
+  $startInfo.FileName = Get-PrefixExePath
+  $startInfo.Arguments = ('"{0}"' -f $programPath)
+  $startInfo.RedirectStandardOutput = $true
+  $startInfo.RedirectStandardError = $true
+  $startInfo.UseShellExecute = $false
+  $startInfo.CreateNoWindow = $true
+
+  $process = [System.Diagnostics.Process]::Start($startInfo)
+  try {
+    $stdout = $process.StandardOutput.ReadToEnd()
+    $stderr = $process.StandardError.ReadToEnd()
+    $process.WaitForExit()
+
+    $result = [pscustomobject]@{
+      ExitCode = $process.ExitCode
+      Stdout = $stdout
+      Stderr = $stderr
+    }
+  }
+  finally {
+    $process.Dispose()
+  }
+
+  Assert-PrefixSuccess $result
+  Assert-NoErrorOutput $result
+
+  if ($result.Stdout.Length -ne 0) {
+    $stdout = Format-VisibleText $result.Stdout
+    throw "Expected no stdout output, got: $stdout"
+  }
+}
+finally {
+  Remove-Item -Path $tempDir -Recurse -Force -ErrorAction SilentlyContinue
+}

tests/cases/passing/shush-return-false.pre

@@ -0,0 +1 @@
+ASSERT(EQ(SHUSH(), FALSE))

tests/cases/passing/shush-warn-suppresses-forwarding.ps1

@@ -0,0 +1,48 @@
+$helperPath = Join-Path (Split-Path -Parent (Split-Path -Parent $PSScriptRoot)) 'helpers\prefix-input.ps1'
+. $helperPath
+
+$tempDir = New-PrefixTempDir
+
+try {
+  $programPath = Join-Path $tempDir 'program.pre'
+
+  Set-Content -Path $programPath -Encoding Ascii -Value @'
+SHUSH()
+WARN("hidden")
+'@
+
+  $startInfo = New-Object System.Diagnostics.ProcessStartInfo
+  $startInfo.FileName = Get-PrefixExePath
+  $startInfo.Arguments = ('-verbose "{0}"' -f $programPath)
+  $startInfo.RedirectStandardOutput = $true
+  $startInfo.RedirectStandardError = $true
+  $startInfo.UseShellExecute = $false
+  $startInfo.CreateNoWindow = $true
+
+  $process = [System.Diagnostics.Process]::Start($startInfo)
+  try {
+    $stdout = $process.StandardOutput.ReadToEnd()
+    $stderr = $process.StandardError.ReadToEnd()
+    $process.WaitForExit()
+
+    $result = [pscustomobject]@{
+      ExitCode = $process.ExitCode
+      Stdout = $stdout
+      Stderr = $stderr
+    }
+  }
+  finally {
+    $process.Dispose()
+  }
+
+  Assert-PrefixSuccess $result
+  Assert-NoErrorOutput $result
+
+  if ($result.Stdout.Length -ne 0) {
+    $stdout = Format-VisibleText $result.Stdout
+    throw "Expected no stdout output, got: $stdout"
+  }
+}
+finally {
+  Remove-Item -Path $tempDir -Recurse -Force -ErrorAction SilentlyContinue
+}

tests/cases/passing/unshush-no-op.pre

@@ -0,0 +1 @@
+ASSERT(EQ(UNSHUSH(), FALSE))

tests/cases/passing/unshush-restores-forwarding.ps1

@@ -0,0 +1,50 @@
+$helperPath = Join-Path (Split-Path -Parent (Split-Path -Parent $PSScriptRoot)) 'helpers\prefix-input.ps1'
+. $helperPath
+
+$tempDir = New-PrefixTempDir
+
+try {
+  $programPath = Join-Path $tempDir 'program.pre'
+
+  Set-Content -Path $programPath -Encoding Ascii -Value @'
+SHUSH()
+PRINT("hidden")
+ASSERT(EQ(UNSHUSH(), FALSE))
+PRINT("shown")
+'@
+
+  $startInfo = New-Object System.Diagnostics.ProcessStartInfo
+  $startInfo.FileName = Get-PrefixExePath
+  $startInfo.Arguments = ('"{0}"' -f $programPath)
+  $startInfo.RedirectStandardOutput = $true
+  $startInfo.RedirectStandardError = $true
+  $startInfo.UseShellExecute = $false
+  $startInfo.CreateNoWindow = $true
+
+  $process = [System.Diagnostics.Process]::Start($startInfo)
+  try {
+    $stdout = $process.StandardOutput.ReadToEnd()
+    $stderr = $process.StandardError.ReadToEnd()
+    $process.WaitForExit()
+
+    $result = [pscustomobject]@{
+      ExitCode = $process.ExitCode
+      Stdout = $stdout
+      Stderr = $stderr
+    }
+  }
+  finally {
+    $process.Dispose()
+  }
+
+  Assert-PrefixSuccess $result
+  Assert-NoErrorOutput $result
+
+  if (-not [regex]::IsMatch($result.Stdout, '\Ashown(?:\r\n|\n)\z')) {
+    $stdout = Format-VisibleText $result.Stdout
+    throw "Unexpected stdout: $stdout"
+  }
+}
+finally {
+  Remove-Item -Path $tempDir -Recurse -Force -ErrorAction SilentlyContinue
+}

tests/cases/passing/unshush-return-false.pre

@@ -0,0 +1,2 @@
+SHUSH()
+ASSERT(EQ(UNSHUSH(), FALSE))