Add tests for CL.

python-processing-unit · python-processing-unit · commit 1dacbe2255e6 · 2026-04-13T15:46:36.000-04:00
diff --git a/tests/cases/failing/cl-arity-two.pre b/tests/cases/failing/cl-arity-two.pre
@@ -0,0 +1 @@
+CL("exit 0", "extra")
diff --git a/tests/cases/failing/cl-arity-zero.pre b/tests/cases/failing/cl-arity-zero.pre
@@ -0,0 +1 @@
+CL()
diff --git a/tests/cases/failing/cl-type-bool.pre b/tests/cases/failing/cl-type-bool.pre
@@ -0,0 +1 @@
+CL(TRUE)
diff --git a/tests/cases/failing/cl-type-flt.pre b/tests/cases/failing/cl-type-flt.pre
@@ -0,0 +1 @@
+CL(0d1.0)
diff --git a/tests/cases/failing/cl-type-func.pre b/tests/cases/failing/cl-type-func.pre
@@ -0,0 +1 @@
+CL(LAMBDA BOOL: (){})
diff --git a/tests/cases/failing/cl-type-int.pre b/tests/cases/failing/cl-type-int.pre
@@ -0,0 +1 @@
+CL(0d1)
diff --git a/tests/cases/failing/cl-type-map.pre b/tests/cases/failing/cl-type-map.pre
@@ -0,0 +1 @@
+CL(<>)
diff --git a/tests/cases/failing/cl-type-thr.pre b/tests/cases/failing/cl-type-thr.pre
@@ -0,0 +1 @@
+CL(ASYNC{})
diff --git a/tests/cases/failing/cl-type-tns.pre b/tests/cases/failing/cl-type-tns.pre
@@ -0,0 +1 @@
+CL([0d1])
diff --git a/tests/cases/passing/cl-exit-nonzero.pre b/tests/cases/passing/cl-exit-nonzero.pre
@@ -0,0 +1 @@
+ASSERT(EQ(CL("exit 7"), 0d7))
diff --git a/tests/cases/passing/cl-exit-zero.pre b/tests/cases/passing/cl-exit-zero.pre
@@ -0,0 +1 @@
+ASSERT(EQ(CL("exit 0"), 0d0))
diff --git a/tests/cases/passing/cl-output-forwarding.ps1 b/tests/cases/passing/cl-output-forwarding.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(CL("echo prefix-cl-output"), 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 (-not [regex]::IsMatch($result.Stdout, '\Aprefix-cl-output(?:\r\n|\n)\z')) {
+    $stdout = Format-VisibleText $result.Stdout
+    throw "Unexpected stdout: $stdout"
+  }
+}
+finally {
+  Remove-Item -Path $tempDir -Recurse -Force -ErrorAction SilentlyContinue
+}
