Add tests for WARN.

Author: python-processing-unit

tests/cases/failing/warn-arity-zero.pre

@@ -0,0 +1 @@
+WARN()

tests/cases/failing/warn-first-func.pre

@@ -0,0 +1 @@
+WARN(LAMBDA BOOL: (){})

tests/cases/failing/warn-first-map.pre

@@ -0,0 +1 @@
+WARN(<"key" = 0d1>)

tests/cases/failing/warn-first-thr.pre

@@ -0,0 +1 @@
+WARN(ASYNC{})

tests/cases/failing/warn-first-tns.pre

@@ -0,0 +1 @@
+WARN([0d1])

tests/cases/failing/warn-second-map.pre

@@ -0,0 +1 @@
+WARN("ok", <"key" = 0d1>)

tests/cases/passing/warn-coerce-scalars.pre

@@ -0,0 +1,4 @@
+ASSERT(EQ(WARN(TRUE), FALSE))
+ASSERT(EQ(WARN(0d42), FALSE))
+ASSERT(EQ(WARN(0d1.5), FALSE))
+ASSERT(EQ(WARN("value"), FALSE))

tests/cases/passing/warn-nonverbose-no-output.ps1

@@ -0,0 +1,47 @@
+$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 @'
+ASSERT(EQ(WARN("bool=", TRUE, ",int=", 0d42, ",flt=", INF, ",str=", "ok"), FALSE))
+'@
+
+  $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/warn-verbose-output-prefix.ps1

@@ -0,0 +1,47 @@
+$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 @'
+ASSERT(EQ(WARN("bool=", TRUE, ",int=", 0d42, ",flt=", INF, ",str=", "ok"), TRUE))
+'@
+
+  $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 (-not [regex]::IsMatch($result.Stdout, '\AWARNING: bool=TRUE,int=0d42,flt=INF,str=ok(?:\r\n|\n)\z')) {
+    $stdout = Format-VisibleText $result.Stdout
+    throw "Unexpected stdout: $stdout"
+  }
+}
+finally {
+  Remove-Item -Path $tempDir -Recurse -Force -ErrorAction SilentlyContinue
+}