From 7c2a92b82e9808d3c5ea29b47d1c59d663fe984a Mon Sep 17 00:00:00 2001
From: Li Jin <dragon-fly@qq.com>
Date: Tue, 27 Jan 2026 00:30:56 +0000
Subject: Add compiler improvements and comprehensive test suite

- Fixed path option handling to avoid semicolon concatenation issues
- Added exception handling for std::length_error and general exceptions
- Added comprehensive test specifications for advanced language features

Co-Authored-By: Claude Sonnet 4.5 <noreply@anthropic.com>
---
 spec/outputs/test/if_assignment_spec.lua | 171 +++++++++++++++++++++++++++++++
 1 file changed, 171 insertions(+)
 create mode 100644 spec/outputs/test/if_assignment_spec.lua

(limited to 'spec/outputs/test/if_assignment_spec.lua')

diff --git a/spec/outputs/test/if_assignment_spec.lua b/spec/outputs/test/if_assignment_spec.lua
new file mode 100644
index 0000000..7d3b708
--- /dev/null
+++ b/spec/outputs/test/if_assignment_spec.lua
@@ -0,0 +1,171 @@
+return describe("if assignment", function()
+	it("should assign and check truthy value", function()
+		local obj = {
+			find_user = function(name)
+				return name == "valid" and {
+					name = name
+				} or nil
+			end
+		}
+		local user = obj:find_user("valid")
+		if user then
+			return assert.same(user.name, "valid")
+		end
+	end)
+	it("should not enter block when nil", function()
+		local obj = {
+			find_user = function()
+				return nil
+			end
+		}
+		local user = obj:find_user()
+		if user then
+			return assert.is_true(false)
+		else
+			return assert.is_true(true)
+		end
+	end)
+	it("should work with elseif", function()
+		local get_value
+		get_value = function(key)
+			if "a" == key then
+				return 1
+			elseif "b" == key then
+				return 2
+			else
+				return nil
+			end
+		end
+		local result = nil
+		do
+			local val = get_value("c")
+			if val then
+				result = "c: " .. tostring(val)
+			else
+				val = get_value("b")
+				if val then
+					result = "b: " .. tostring(val)
+				else
+					result = "no match"
+				end
+			end
+		end
+		return assert.same(result, "b: 2")
+	end)
+	it("should scope variable to if block", function()
+		do
+			local x = 10
+			if x then
+				assert.same(x, 10)
+			end
+		end
+		return assert.is_true(true)
+	end)
+	it("should work with multiple return values", function()
+		local fn
+		fn = function()
+			return true, "success"
+		end
+		local success, result = fn()
+		if success then
+			assert.is_true(success)
+			return assert.same(result, "success")
+		end
+	end)
+	it("should work with table destructuring", function()
+		local get_point
+		get_point = function()
+			return {
+				x = 10,
+				y = 20
+			}
+		end
+		local _des_0 = get_point()
+		if _des_0 then
+			local x, y = _des_0.x, _des_0.y
+			assert.same(x, 10)
+			return assert.same(y, 20)
+		end
+	end)
+	it("should work with array destructuring", function()
+		local get_coords
+		get_coords = function()
+			return {
+				1,
+				2,
+				3
+			}
+		end
+		local _des_0 = get_coords()
+		if _des_0 then
+			local a, b, c = _des_0[1], _des_0[2], _des_0[3]
+			assert.same(a, 1)
+			assert.same(b, 2)
+			return assert.same(c, 3)
+		end
+	end)
+	it("should chain multiple assignments", function()
+		local a = 1
+		if a then
+			local b = a + 1
+			if b then
+				return assert.same(b, 2)
+			end
+		end
+	end)
+	it("should work in expression context", function()
+		local get_value
+		get_value = function(x)
+			if x > 0 then
+				return x
+			else
+				return nil
+			end
+		end
+		local result
+		do
+			local val = get_value(5)
+			if val then
+				result = val * 2
+			else
+				result = 0
+			end
+		end
+		return assert.same(result, 10)
+	end)
+	it("should work with os.getenv", function()
+		local path = os.getenv("PATH")
+		if path then
+			return assert.is_true(type(path) == "string")
+		else
+			return assert.is_true(true)
+		end
+	end)
+	it("should support table access", function()
+		local tb = {
+			key = "value"
+		}
+		local val = tb.key
+		if val then
+			return assert.same(val, "value")
+		end
+	end)
+	it("should work with function call results", function()
+		local fn
+		fn = function()
+			return "result"
+		end
+		local s = fn()
+		if s then
+			return assert.same(s, "result")
+		end
+	end)
+	return it("should handle false values", function()
+		local val = false
+		if val then
+			return assert.is_true(false)
+		else
+			return assert.is_true(true)
+		end
+	end)
+end)
-- 
cgit v1.2.3-55-g6feb