Address PR review feedback

Author: MariusStorhaug

src/functions/private/ConvertTo-LuaTable.ps1

@@ -116,8 +116,16 @@
         if ($CurrentDepth -ge $MaxDepth) {
             Write-Warning "Depth limit ($MaxDepth) exceeded. Serializing remaining object as string."
             $str = $InputObject.ToString() `
-                -replace '\\', '\\\\' `
-                -replace '"', '\"'
+                -replace '\\', '\\' `
+                -replace '"', '\"' `
+                -replace "`0", '\0' `
+                -replace "`a", '\a' `
+                -replace "`b", '\b' `
+                -replace "`f", '\f' `
+                -replace "`n", '\n' `
+                -replace "`r", '\r' `
+                -replace "`t", '\t' `
+                -replace "`v", '\v'
             return "`"$str`""
         }
 
@@ -195,7 +203,17 @@
         }
 
         # Fallback: convert to string
-        $escaped = ($InputObject.ToString()) -replace '\\', '\\\\' -replace '"', '\"'
+        $escaped = $InputObject.ToString() `
+            -replace '\\', '\\' `
+            -replace '"', '\"' `
+            -replace "`0", '\0' `
+            -replace "`a", '\a' `
+            -replace "`b", '\b' `
+            -replace "`f", '\f' `
+            -replace "`n", '\n' `
+            -replace "`r", '\r' `
+            -replace "`t", '\t' `
+            -replace "`v", '\v'
         return "`"$escaped`""
     }
 

tests/Lua.Tests.ps1

@@ -922,6 +922,15 @@ Describe 'ConvertTo-Lua' {
             $warnings = @($result | Where-Object { $_ -is [System.Management.Automation.WarningRecord] })
             $warnings.Count | Should -BeGreaterThan 0
         }
+
+        It 'Escapes control characters in depth-limit fallback string' {
+            $inner = [System.Text.StringBuilder]::new("line1`nline2`ttab")
+            $obj = [ordered]@{ x = $inner }
+            $result = ConvertTo-Lua -InputObject $obj -Depth 1 -Compress 3>&1
+            $output = @($result | Where-Object { $_ -is [string] })
+            $output[-1] | Should -BeLike '*\n*'
+            $output[-1] | Should -BeLike '*\t*'
+        }
     }
 
     Context 'AsArray' {
@@ -1001,6 +1010,12 @@ Describe 'ConvertTo-Lua' {
             $result | Should -Not -Be '{}'
             $result | Should -Match '^".*"$'
         }
+
+        It 'Escapes control characters in generic fallback string' {
+            $sb = [System.Text.StringBuilder]::new("line1`nline2`ttab")
+            $result = ConvertTo-Lua -InputObject $sb -Compress
+            $result | Should -Be '"line1\nline2\ttab"'
+        }
     }
 }