Add test for the REPL.

Author: python-processing-unit

tests/cases/passing/readfile-utf16-replacement.pre

@@ -0,0 +1,6 @@
+IMPORT(path)
+
+STR: p = path.TEMPFILE("prefix-readfile-utf16-replacement.bin")
+
+ASSERT(WRITEFILE("00D8", p, coding = "hex"))
+ASSERT(EQ(READFILE(p, coding = "UTF-16 LE"), "\uFFFD"))

tests/cases/passing/repl-basic.ps1

@@ -0,0 +1,12 @@
+$helperPath = Join-Path (Split-Path -Parent (Split-Path -Parent $PSScriptRoot)) 'helpers\prefix-input.ps1'
+. $helperPath
+
+$result = Invoke-PrefixWithArguments -Arguments @() -InputText "PRINT('repl-basic')`n.exit`n"
+
+Assert-PrefixSuccess $result
+Assert-NoErrorOutput $result
+
+$stdout = Format-VisibleText $result.Stdout
+if (-not ($stdout -match 'repl-basic')) {
+  throw "Unexpected stdout: $stdout"
+}

tests/cases/passing/repl-eof.ps1

@@ -0,0 +1,13 @@
+$helperPath = Join-Path (Split-Path -Parent (Split-Path -Parent $PSScriptRoot)) 'helpers\prefix-input.ps1'
+. $helperPath
+
+# Send a single command and EOF (no explicit .exit)
+$result = Invoke-PrefixWithArguments -Arguments @() -InputText "PRINT('bye')`n"
+
+Assert-PrefixSuccess $result
+Assert-NoErrorOutput $result
+
+$stdout = Format-VisibleText $result.Stdout
+if (-not ($stdout -match 'bye')) {
+  throw "Unexpected stdout: $stdout"
+}

tests/cases/passing/repl-multiline.ps1

@@ -0,0 +1,20 @@
+$helperPath = Join-Path (Split-Path -Parent (Split-Path -Parent $PSScriptRoot)) 'helpers\prefix-input.ps1'
+. $helperPath
+
+$input = @'
+FUNC STR: hello(){
+RETURN("hi")
+}
+PRINT(hello())
+.exit
+'@
+
+$result = Invoke-PrefixWithArguments -Arguments @() -InputText $input
+
+Assert-PrefixSuccess $result
+Assert-NoErrorOutput $result
+
+$stdout = Format-VisibleText $result.Stdout
+if (-not ($stdout -match 'hi')) {
+  throw "Unexpected stdout: $stdout"
+}

tests/cases/passing/repl-persistence.ps1

@@ -0,0 +1,19 @@
+$helperPath = Join-Path (Split-Path -Parent (Split-Path -Parent $PSScriptRoot)) 'helpers\prefix-input.ps1'
+. $helperPath
+
+$input = @'
+BOOL: persisted = TRUE
+
+PRINT(persisted)
+.exit
+'@
+
+$result = Invoke-PrefixWithArguments -Arguments @() -InputText $input
+
+Assert-PrefixSuccess $result
+Assert-NoErrorOutput $result
+
+$stdout = Format-VisibleText $result.Stdout
+if (-not ($stdout -match 'TRUE')) {
+  throw "Unexpected stdout: $stdout"
+}

tests/cases/passing/writefile-bin-alias.pre

@@ -0,0 +1,7 @@
+IMPORT(path)
+
+STR: p = path.TEMPFILE("prefix-writefile-bin.bin")
+
+ASSERT(WRITEFILE("0100000101111010", p, coding = "bin"))
+ASSERT(EQ(READFILE(p, coding = "bin"), "0100000101111010"))
+ASSERT(EQ(READFILE(p), "Az"))

tests/cases/passing/writefile-fail-dir.pre

@@ -0,0 +1,11 @@
+IMPORT(path)
+
+STR: d = path.TEMPFILE("prefix-writefile-fail-dir")
+
+IF(EQ(OS(),"win")){
+    ASSERT(EQ(CL(JOIN("md ", WINPATH(d))), 0d0))
+} ELSE {
+    ASSERT(EQ(CL(JOIN("mkdir -p ", d)), 0d0))
+}
+
+ASSERT(NOT(WRITEFILE("x", d)))

tests/cases/passing/writefile-utf16-be.pre

@@ -0,0 +1,6 @@
+IMPORT(path)
+
+STR: p = path.TEMPFILE("prefix-writefile-utf16-be.txt")
+
+ASSERT(WRITEFILE("Prefix", p, coding = "UTF-16 BE"))
+ASSERT(EQ(READFILE(p, coding = "UTF-16 BE"), "Prefix"))

tests/cases/passing/writefile-utf16-le.pre

@@ -0,0 +1,6 @@
+IMPORT(path)
+
+STR: p = path.TEMPFILE("prefix-writefile-utf16-le.txt")
+
+ASSERT(WRITEFILE("Prefix", p, coding = "UTF-16 LE"))
+ASSERT(EQ(READFILE(p, coding = "UTF-16 LE"), "Prefix"))

tests/helpers/prefix-input.ps1

@@ -51,9 +51,10 @@ function New-PrefixTempDir {
 
 function ConvertTo-PrefixArgumentString {
   param(
-    [Parameter(Mandatory = $true)]
-    [string[]]$Arguments
+    [Parameter(Mandatory = $false)]
+    [string[]]$Arguments = @()
   )
+  if (-not $Arguments) { return '' }
 
   $escaped = foreach ($argument in $Arguments) {
     if ($null -eq $argument) {
@@ -69,8 +70,8 @@ function ConvertTo-PrefixArgumentString {
 
 function Start-PrefixProcessWithArguments {
   param(
-    [Parameter(Mandatory = $true)]
-    [string[]]$Arguments,
+    [Parameter(Mandatory = $false)]
+    [string[]]$Arguments = @(),
 
     [string]$WorkingDirectory,
 
@@ -118,8 +119,8 @@ function Start-PrefixProcess {
 
 function Invoke-PrefixWithArguments {
   param(
-    [Parameter(Mandatory = $true)]
-    [string[]]$Arguments,
+    [Parameter(Mandatory = $false)]
+    [string[]]$Arguments = @(),
 
     [AllowEmptyString()]
     [string]$InputText = '',