From dd64edd58fe25ec74ae5958128cf3f74b0692f3b Mon Sep 17 00:00:00 2001
From: Li Jin <dragon-fly@qq.com>
Date: Wed, 28 Jan 2026 18:43:14 +0800
Subject: Fixed compiler issues and added 800+ test cases.

---
 spec/outputs/test/with_statement_spec.lua | 279 ++++++++++++++++++++++++++++++
 1 file changed, 279 insertions(+)
 create mode 100644 spec/outputs/test/with_statement_spec.lua

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

diff --git a/spec/outputs/test/with_statement_spec.lua b/spec/outputs/test/with_statement_spec.lua
new file mode 100644
index 0000000..dcd2aa1
--- /dev/null
+++ b/spec/outputs/test/with_statement_spec.lua
@@ -0,0 +1,279 @@
+return describe("with statement", function()
+	it("should access properties with dot", function()
+		local obj = {
+			x = 10,
+			y = 20
+		}
+		local result = nil
+		do
+			result = obj.x + obj.y
+		end
+		return assert.same(result, 30)
+	end)
+	it("should chain property access", function()
+		local obj = {
+			nested = {
+				value = 42
+			}
+		}
+		local result = nil
+		do
+			result = obj.nested.value
+		end
+		return assert.same(result, 42)
+	end)
+	it("should work with method calls", function()
+		local obj = {
+			value = 10,
+			double = function(self)
+				return self.value * 2
+			end
+		}
+		local result = nil
+		do
+			result = obj:double()
+		end
+		return assert.same(result, 20)
+	end)
+	it("should handle nested with statements", function()
+		local obj = {
+			x = 1
+		}
+		obj.x = 10
+		local _with_0 = {
+			y = 2
+		}
+		obj.nested = _with_0
+		_with_0.y = 20
+		assert.same(obj.x, 10)
+		return assert.same(obj.nested.y, 20)
+	end)
+	it("should work in expressions", function()
+		local obj = {
+			value = 5
+		}
+		local result
+		do
+			local _accum_0
+			repeat
+				_accum_0 = obj.value * 2
+				break
+			until true
+			result = _accum_0
+		end
+		return assert.same(result, 10)
+	end)
+	it("should support multiple statements", function()
+		local obj = {
+			a = 1,
+			b = 2
+		}
+		local sum = nil
+		local product = nil
+		do
+			sum = obj.a + obj.b
+			product = obj.a * obj.b
+		end
+		assert.same(sum, 3)
+		return assert.same(product, 2)
+	end)
+	it("should work with table manipulation", function()
+		local obj = {
+			items = {
+				1,
+				2,
+				3
+			}
+		}
+		table.insert(obj.items, 4)
+		return assert.same(#obj.items, 4)
+	end)
+	it("should handle conditional inside with", function()
+		local obj = {
+			value = 10
+		}
+		local result = nil
+		if obj.value > 5 then
+			result = "large"
+		else
+			result = "small"
+		end
+		return assert.same(result, "large")
+	end)
+	it("should work with loops", function()
+		local obj = {
+			items = {
+				1,
+				2,
+				3
+			}
+		}
+		local sum = nil
+		do
+			sum = 0
+			local _list_0 = obj.items
+			for _index_0 = 1, #_list_0 do
+				local item = _list_0[_index_0]
+				sum = sum + item
+			end
+		end
+		return assert.same(sum, 6)
+	end)
+	it("should support with in assignment", function()
+		local obj = {
+			x = 5,
+			y = 10
+		}
+		local result
+		do
+			local _accum_0
+			repeat
+				_accum_0 = obj.x + obj.y
+				break
+			until true
+			result = _accum_0
+		end
+		return assert.same(result, 15)
+	end)
+	it("should work with string methods", function()
+		local s = "hello"
+		local result
+		do
+			local _accum_0
+			repeat
+				_accum_0 = s:upper()
+				break
+			until true
+			result = _accum_0
+		end
+		return assert.same(result, "HELLO")
+	end)
+	it("should handle metatable access", function()
+		local obj = setmetatable({
+			value = 10
+		}, {
+			__index = {
+				extra = 5
+			}
+		})
+		local sum = nil
+		do
+			sum = obj.value + getmetatable(obj).__index.extra
+		end
+		return assert.same(sum, 15)
+	end)
+	it("should work in function", function()
+		local fn
+		fn = function()
+			local obj = {
+				x = 10
+			}
+			local _val_0
+			local _accum_0
+			repeat
+				_accum_0 = obj.x * 2
+				break
+			until true
+			_val_0 = _accum_0
+			return _val_0
+		end
+		local result = fn()
+		return assert.same(result, 20)
+	end)
+	it("should support with in return", function()
+		local get_value
+		get_value = function()
+			local obj = {
+				value = 42
+			}
+			local _val_0
+			local _accum_0
+			repeat
+				_accum_0 = obj.value
+				break
+			until true
+			_val_0 = _accum_0
+			return _val_0
+		end
+		return assert.same(get_value(), 42)
+	end)
+	it("should work with existential operator", function()
+		local obj = {
+			value = 10
+		}
+		local result
+		do
+			local _accum_0
+			repeat
+				local _exp_0 = obj.value
+				if _exp_0 ~= nil then
+					_accum_0 = _exp_0
+				else
+					_accum_0 = 0
+				end
+				break
+			until true
+			result = _accum_0
+		end
+		return assert.same(result, 10)
+	end)
+	it("should handle nil object safely", function()
+		local result
+		do
+			local _with_0 = nil
+			do
+				local _accum_0
+				repeat
+					if _with_0 ~= nil then
+						_accum_0 = _with_0.value
+						break
+					end
+				until true
+				result = _accum_0
+			end
+		end
+		return assert.same(result, nil)
+	end)
+	it("should work with method chaining", function()
+		local obj = {
+			value = 5,
+			add = function(self, n)
+				self.value = self.value + n
+			end,
+			get = function(self)
+				return self.value
+			end
+		}
+		local result
+		do
+			local _accum_0
+			repeat
+				obj:add(10)
+				obj:add(5)
+				_accum_0 = obj:get()
+				break
+			until true
+			result = _accum_0
+		end
+		return assert.same(result, 20)
+	end)
+	return it("should support nested property access", function()
+		local obj = {
+			level1 = {
+				level2 = {
+					level3 = "deep"
+				}
+			}
+		}
+		local result
+		do
+			local _accum_0
+			repeat
+				_accum_0 = obj.level1.level2.level3
+				break
+			until true
+			result = _accum_0
+		end
+		return assert.same(result, "deep")
+	end)
+end)
-- 
cgit v1.2.3-55-g6feb