From 4e7edb2bd615e0a86b593c56c3392fab2110b1a1 Mon Sep 17 00:00:00 2001
From: Li Jin <dragon-fly@qq.com>
Date: Thu, 12 Feb 2026 01:44:01 +0800
Subject: More test cases.

---
 spec/inputs/test/break_multiple_values_spec.yue | 840 ++++++++++++++++++++++++
 1 file changed, 840 insertions(+)
 create mode 100644 spec/inputs/test/break_multiple_values_spec.yue

(limited to 'spec/inputs')

diff --git a/spec/inputs/test/break_multiple_values_spec.yue b/spec/inputs/test/break_multiple_values_spec.yue
new file mode 100644
index 0000000..846be00
--- /dev/null
+++ b/spec/inputs/test/break_multiple_values_spec.yue
@@ -0,0 +1,840 @@
+describe "break with multiple values", ->
+	it "should break with multiple values from numeric for loop", ->
+		x, y = for i = 1, 10
+			if i > 5
+				break i, i * 2
+		assert.same x, 6
+		assert.same y, 12
+
+	it "should break with multiple values from ipairs iterator", ->
+		x, y = for _, v in ipairs [1, 2, 3]
+			if v > 2
+				break v, v * 2
+		assert.same x, 3
+		assert.same y, 6
+
+	it "should break with multiple values from destructuring iterator", ->
+		x, y = for [a, b] in *{[10, 20], [30, 40], [40, 50]}
+			if b > 20
+				break a, b * 2
+		assert.same x, 30
+		assert.same y, 80
+
+	it "should break with multiple values from do block", ->
+		x, y = do
+			break 1, 2
+		assert.same x, 1
+		assert.same y, 2
+
+	it "should break with multiple values from with statement", ->
+		x = with abc: 99, flag: true
+			break .abc if .flag
+			break 0
+		assert.same x, 99
+
+	it "should work with continue in comprehension", ->
+		input = {1,2,3,4,5,6}
+		output = for x in *input
+			continue if x % 2 == 1
+			x
+		assert.same output, {2, 4, 6}
+
+	it "should break in comprehension with index", ->
+		f1 = ->
+			tb = [true, true, false]
+			index = for i = 1, #tb
+				break i if tb[i]
+			index
+		assert.same f1!, 1
+
+	it "should work with continue in indexed comprehension", ->
+		input = {1,2,3,4,5,6}
+		output = for i = 1, #input
+			x = input[i]
+			continue if x % 2 == 1
+			x
+		assert.same output, {2, 4, 6}
+
+	it "should break with multiple values in simple for loop", ->
+		a, b = for i = 1, 5
+			if i == 2
+				break i, i * 10
+		assert.same a, 2
+		assert.same b, 20
+
+	it "should break with expression values", ->
+		sum, product = for i = 1, 3
+			if i == 2
+				break i + i, i * i
+		assert.same sum, 4
+		assert.same product, 4
+
+	it "should break with table iteration values", ->
+		key, value = for k, v in pairs {a: 1, b: 2, c: 3}
+			if k == "b"
+				break k, v * 10
+		assert.same key, "b"
+		assert.same value, 20
+
+	it "should break in for loop with multiple values", ->
+		count, total = for i = 1, 10
+			if i == 5
+				break i, i * 10
+		assert.same count, 5
+		assert.same total, 50
+
+	it "should break in repeat loop with multiple values", ->
+		i = 1
+		i, doubled = repeat
+			if i > 3
+				break i, i * 100
+			i += 1
+		until false
+		assert.same i, 4
+		assert.same doubled, 400
+
+	it "should work with with? and break", ->
+		dummy = (x) -> x
+		result = with? value: 1
+			dummy with? nil
+				break .value
+			break .value
+		assert.same result, 1
+
+	it "should break with multiple values in do block", ->
+		x, y = do
+			break 10, 30
+		assert.same x, 10
+		assert.same y, 30
+
+	it "should break with string and number values", ->
+		name, age = for k, v in pairs {name: "Alice", age: 30, city: "NYC"}
+			if k == "name"
+				break v, 25
+		assert.same name, "Alice"
+		assert.same age, 25
+
+	it "should break with nil values", ->
+		a, b, c = for i = 1, 5
+			if i == 3
+				break i, nil, "test"
+		assert.same a, 3
+		assert.same b, nil
+		assert.same c, "test"
+
+	it "should break with boolean values", ->
+		found, value = for i = 1, 5
+			if i == 3
+				break true, "found"
+		assert.is_true found
+		assert.same value, "found"
+
+	it "should break with function call values", ->
+		fn = -> 42
+		val, dbl = for i = 1, 3
+			if i == 2
+				break fn!, fn! * 2
+		assert.same val, 42
+		assert.same dbl, 84
+
+	it "should break with multiple values for destructuring", ->
+		x, y = for [a, b] in *{[1, 2], [3, 4], [5, 6]}
+			if a > 2
+				break b, a
+		assert.same x, 4
+		assert.same y, 3
+
+	it "should break in switch-like logic", ->
+		status, message = for i = 1, 3
+			do
+				if i == 1
+					break "ok", "one"
+				if i == 2
+					break "ok", "two"
+		assert.same status, "ok"
+		assert.same message, "one"
+
+	it "should handle multiple break conditions", ->
+		idx, val = for i = 1, 10
+			if i == 3
+				break i, "first"
+			if i == 7
+				break i, "second"
+		assert.same idx, 3
+		assert.same val, "first"
+
+	it "should break with computed values", ->
+		sum, count = for i = 1, 5
+			if i == 4
+				break 10 + i, i
+		assert.same sum, 14
+		assert.same count, 4
+
+	it "should break with table literal", ->
+		name, data = for i = 1, 3
+			if i == 2
+				break "item", {value: i, index: i}
+		assert.same name, "item"
+		assert.same data.value, 2
+		assert.same data.index, 2
+
+	it "should break with string concatenation", ->
+		prefix, suffix = for i = 1, 3
+			if i == 2
+				break "pre", "fix"
+		assert.same prefix .. suffix, "prefix"
+
+	it "should break with continue in loop", ->
+		x, y = for i = 1, 5
+			if i == 3
+				break i, i * 2
+		assert.same x, 3
+		assert.same y, 6
+
+	it "should break with ternary-like expression", ->
+		result, is_valid = for i = 1, 5
+			if i == 3
+				break i, i > 2
+		assert.same result, 3
+		assert.is_true is_valid
+
+	it "should break with arithmetic operations", ->
+		sum, diff = for i = 1, 5
+			if i == 3
+				break i + 10, 10 - i
+		assert.same sum, 13
+		assert.same diff, 7
+
+	it "should break with table access", ->
+		data = {a: 1, b: 2}
+		first, second = for i = 1, 3
+			if i == 2
+				break data.a, data.b
+		assert.same first, 1
+		assert.same second, 2
+
+	it "should break with literal values", ->
+		a, b = for i = 1, 3
+			if i == 2
+				break "x", "y"
+		assert.same a, "x"
+		assert.same b, "y"
+
+	it "should break with conditional expression", ->
+		status, msg = for i = 1, 5
+			if i == 3
+				break "ok", "done"
+		assert.same status, "ok"
+		assert.same msg, "done"
+
+	it "should handle multiple breaks in sequence", ->
+		val1, val2 = for i = 1, 10
+			if i == 3
+				break i, i * 2
+			if i == 5
+				break i, i * 3
+			if i == 7
+				break i, i * 4
+		assert.same val1, 3
+		assert.same val2, 6
+
+	it "should handle multiple breaks in switch", ->
+		val1, val2 = for i = 1, 10 do switch i
+			when 3 then break i, i * 2
+			when 5 then break i, i * 3
+			when 7 then break i, i * 4
+		assert.same val1, 3
+		assert.same val2, 6
+
+	it "should break with nil and default", ->
+		a, b = for i = 1, 5
+			if i == 2
+				break i, nil
+		assert.same a, 2
+		assert.is_nil b
+
+	it "should break with false and value", ->
+		found, data = for i = 1, 5
+			if i == 3
+				break false, "item"
+		assert.is_false found
+		assert.same data, "item"
+
+	it "should break with three values", ->
+		a, b, c = for i = 1, 5
+			if i == 3
+				break i, i * 2, i * 3
+		assert.same a, 3
+		assert.same b, 6
+		assert.same c, 9
+
+	it "should break in while loop", ->
+		i = 1
+		count, total = while i < 10
+			if i == 5
+				break i, i * 10
+			i += 1
+		assert.same count, 5
+		assert.same total, 50
+
+	it "should handle early break in loop", ->
+		a, b = for i = 1, 100
+			if i == 1
+				break "first", "second"
+		assert.same a, "first"
+		assert.same b, "second"
+
+	it "should break with multiple function calls", ->
+		add = (a, b) -> a + b
+		mul = (a, b) -> a * b
+		sum, product = for i = 1, 5
+			if i == 3
+				break add(i, i), mul(i, i)
+		assert.same sum, 6
+		assert.same product, 9
+
+	it "should work with chained comparisons", ->
+		x, y = for i = 1, 10
+			if 3 < i and i < 7
+				break i, i * i
+		assert.same x, 4
+		assert.same y, 16
+
+	it "should work with logical expressions", ->
+		flag, value = for i = 1, 5
+			if i > 2 and i < 4
+				break true, i
+		assert.is_true flag
+		assert.same value, 3
+
+	it "should work with table unpacking in break", ->
+		tbl = {10, 20}
+		a, b = for i = 1, 5
+			if i == 3
+				break tbl[1], tbl[2]
+		assert.same a, 10
+		assert.same b, 20
+
+	it "should work with nested conditions", ->
+		result, flag = for i = 1, 10
+			if i > 2
+				if i < 5
+					if i == 3
+						break i, true
+		assert.same result, 3
+		assert.is_true flag
+
+	it "should work with class methods", ->
+		class MyClass
+			find_pair: =>
+				result = [
+					for i = 1, 10
+						if i == 5
+							break i, i * 10
+				]
+				result
+		obj = MyClass!
+		result = obj\find_pair!
+		assert.same result[1], 5
+		assert.same result[2], 50
+
+	it "should work with string interpolation", ->
+		a, b = for i = 1, 5
+			if i == 3
+				break "item-#{i}", "value-#{i * 10}"
+		assert.same a, "item-3"
+		assert.same b, "value-30"
+
+	it "should work with try-catch", ->
+		try
+			result, error_msg = for i = 1, 5
+				if i == 3
+					break i, "found"
+			assert.same result, 3
+			assert.same error_msg, "found"
+		catch e
+			error "Should not reach here"
+
+	it "should work with const attribute", ->
+		const MAX = 10
+		first, second = for i = 1, MAX
+			if i == 5
+				break i, i * 2
+		assert.same first, 5
+		assert.same second, 10
+
+	it "should work with backcall style processing", ->
+		a, b = for i = 1, 5
+			if i == 3
+				break i, i * 2
+		assert.same a, 3
+		assert.same b, 6
+
+	it "should work with varargs", ->
+		process = (...) ->
+			items = {...}
+			a, b = for i = 1, #items
+				if items[i] == 3
+					break items[i], items[i] * 2
+			a, b
+		result1, result2 = process 1, 2, 3, 4, 5
+		assert.same result1, 3
+		assert.same result2, 6
+
+	it "should work with table slicing", ->
+		matrix = [ [1, 2, 3], [4, 5, 6], [7, 8, 9]]
+		sub, val = for i = 1, #matrix
+			if matrix[i][1] == 4
+				break matrix[i][1], matrix[i][2]
+		assert.same sub, 4
+		assert.same val, 5
+
+	it "should work with chaining comparison", ->
+		result, flag = for i = 1, 10
+			if 1 < i <= 5 < 10
+				break i, i * i
+		assert.same result, 2
+		assert.same flag, 4
+
+	it "should work with implicit return", ->
+		fn = ->
+			result = [
+				for i = 1, 5
+					if i == 3
+						break i, i * 10
+			]
+			result
+		result = fn!
+		assert.same result[1], 3
+		assert.same result[2], 30
+
+	it "should work with nil coalescing", ->
+		data = nil
+		first, second = for i = 1, 5
+			if i == 3
+				break i, i * 2
+		assert.same first, 3
+		assert.same second, 6
+
+	it "should work with table literal shorthand", ->
+		a, b = for i = 1, 5
+			if i == 2
+				break "first", "second"
+		assert.same a, "first"
+		assert.same b, "second"
+
+	it "should work with method calls", ->
+		obj = {
+			start: 10
+			end_val: 20
+			find: =>
+				result = [
+					for i = 1, 10
+						if i == 4
+							break @start + i, @end_val + i
+				]
+				result
+		}
+		result = obj\find!
+		assert.same result[1], 14
+		assert.same result[2], 24
+
+	it "should work with do-end assignment", ->
+		a, b = do
+			x, y = for i = 1, 5
+				if i == 2
+					break i, i * 5
+			x, y
+		assert.same a, 2
+		assert.same b, 10
+
+	it "should work with unary operators", ->
+		result, negated = for i = 1, 5
+			if i == 3
+				break i, -i
+		assert.same result, 3
+		assert.same negated, -3
+
+	it "should work with bitwise operators", ->
+		a, b = for i = 1, 10
+			if i == 4
+				break i ~ 1, i | 8
+		assert.same a, 5
+		assert.same b, 12
+
+	it "should work with modulo operation", ->
+		quotient, remainder = for i = 1, 10
+			if i == 7
+				break i // 3, i % 3
+		assert.same quotient, 2
+		assert.same remainder, 1
+
+	it "should work with exponentiation", ->
+		base, squared = for i = 1, 5
+			if i == 3
+				break i, i ^ 2
+		assert.same base, 3
+		assert.same squared, 9
+
+	it "should work with length operator", ->
+		str, len = for i = 1, 5
+			if i == 3
+				break "hello", #"hello"
+		assert.same str, "hello"
+		assert.same len, 5
+
+	it "should work with table concatenation", ->
+		part1, part2 = for i = 1, 5
+			if i == 2
+				break {1, 2}, {3, 4}
+		assert.same part1, {1, 2}
+		assert.same part2, {3, 4}
+
+	it "should work with nested do blocks", ->
+		result = do
+			temp = {
+				for i = 1, 5
+					do
+						if i == 3
+							break i, i * 2
+			}
+			temp[1] + temp[2]
+		assert.same result, 9
+
+	it "should work with table.insert", ->
+		results = {}
+		item, index = for i = 1, 5
+			if i == 3
+				break i, i * 2
+			table.insert results, i
+		assert.same results, {1, 2}
+
+	it "should break with multiple values in nested for loops", ->
+		x, y = for i = 1, 5
+			a, b = for j = 1, 5
+				if i == 2 and j == 3
+					break i, j
+			break a, b if a
+		assert.same x, 2
+		assert.same y, 3
+
+	it "should break with multiple values in for nested while", ->
+		x, y = for i = 1, 10
+			j = 1
+			a, b = while j < 10
+				if i == 3 and j == 5
+					break i, j
+				j += 1
+			break a, b if a and b
+		assert.same x, 3
+		assert.same y, 5
+
+	it "should break with multiple values in while nested for", ->
+		i = 1
+		x, y = while i < 10
+			a, b = for j = 1, 10
+				if i == 3 and j == 4
+					break i, j
+			i += 1
+			break a, b if a and b
+		assert.same x, 3
+		assert.same y, 4
+
+	it "should break with multiple values in for nested repeat", ->
+		x, y = for i = 1, 5
+			j = 1
+			a, b = repeat
+				if i == 2 and j == 3
+					break i, j
+				j += 1
+			until j > 10
+			break a, b if a and b
+		assert.same x, 2
+		assert.same y, 3
+
+	it "should break with multiple values in repeat nested for", ->
+		i = 1
+		x, y = repeat
+			a, b = for j = 1, 5
+				if i == 3 and j == 2
+					break i, j
+			i += 1
+			break a, b if a and b
+		until i > 10
+		assert.same x, 3
+		assert.same y, 2
+
+	it "should break with multiple values in do nested for", ->
+		x, y = do
+			a1, b1 = for i = 1, 5
+				a, b = for j = 1, 5
+					if i == 2 and j == 3
+						break i, j
+				break a, b if a and b
+			break a1, b1
+		assert.same x, 2
+		assert.same y, 3
+
+	it "should break with multiple values in for nested do", ->
+		x, y = for i = 1, 5
+			do
+				if i == 3
+					break i, i * 2
+		assert.same x, 3
+		assert.same y, 6
+
+	it "should break with multiple values in for nested with", ->
+		x, y = for i = 1, 5
+			with value: i, index: i * 2
+				if .value == 3
+					break .value, .index
+		assert.same x, 3
+		assert.same y, 6
+
+	it "should break with a value in with nested for", ->
+		x = with {limit: 5}
+			break for i = 1, .limit
+				if i == 3
+					break i
+		assert.same x, 3
+
+	it "should break with multiple values in three-level nested loops", ->
+		x, y, z = for i = 1, 3
+			a1, a2, a3 = for j = 1, 3
+				b1, b2, b3 = for k = 1, 3
+					if i == 2 and j == 2 and k == 2
+						break i, j, k
+				break b1, b2, b3 if b1
+			break a1, a2, a3 if a1
+		assert.same x, 2
+		assert.same y, 2
+		assert.same z, 2
+
+	it "should break with multiple values in while nested repeat", ->
+		i = 1
+		x, y = while i < 10
+			j = 1
+			a, b = repeat
+				if i == 3 and j == 4
+					break i, j
+				j += 1
+			until j > 10
+			i += 1
+			break a, b if a
+		assert.same x, 3
+		assert.same y, 4
+
+	it "should break with multiple values in repeat nested while", ->
+		i = 1
+		x, y = repeat
+			j = 1
+			a, b = while j < 10
+				if i == 4 and j == 3
+					break i, j
+				j += 1
+			i += 1
+			break a, b if a
+		until i > 10
+		assert.same x, 4
+		assert.same y, 3
+
+	it "should break with multiple values in do nested while", ->
+		i = 1
+		x, y = do
+			a, b = while i < 10
+				if i == 4
+					break i, i * 3
+				i += 1
+			break a, b
+		assert.same x, 4
+		assert.same y, 12
+
+	it "should break with multiple values in while nested do", ->
+		i = 1
+		x, y = while i < 10
+			a, b = do
+				if i == 5
+					break i, i * 4
+			i += 1
+			break a, b if a
+		assert.same x, 5
+		assert.same y, 20
+
+	it "should break with multiple values in do nested repeat", ->
+		i = 1
+		x, y = do
+			a, b = repeat
+				if i == 3
+					break i, i * 5
+				i += 1
+			until i > 10
+			break a, b
+		assert.same x, 3
+		assert.same y, 15
+
+	it "should break with multiple values in repeat nested do", ->
+		i = 1
+		x, y = repeat
+			a, b = do
+				if i == 2
+					break i, i * 6
+			i += 1
+			break a, b if a
+		until i > 10
+		assert.same x, 2
+		assert.same y, 12
+
+	it "should break with multiple values in with nested do", ->
+		x, y = do
+			with value: 10, factor: 3
+				a, b = do
+					if .value > 5
+						break .value, .factor
+				break a, b
+		assert.same x, 10
+		assert.same y, 3
+
+	it "should break with multiple values in do nested with", ->
+		x, y = do
+			with num: 42, text: "test"
+				break .num, .text
+		assert.same x, 42
+		assert.same y, "test"
+
+	it "should break with multiple values in for nested for with different types", ->
+		name, age, active = for i = 1, 5
+			a, b, c = for j = 1, 5
+				if i == 2 and j == 3
+					break "user-#{i}", j * 10, true
+			break a, b, c if a
+		assert.same name, "user-2"
+		assert.same age, 30
+		assert.is_true active
+
+	it "should break with multiple values in with nested for with method calls", ->
+		obj =
+			data: [10, 20, 30, 40]
+			find: =>
+				x, y = for i = 1, #@data
+					if @data[i] == 30
+						break @data[i], i
+				x, y
+		value, index = obj\find!
+		assert.same value, 30
+		assert.same index, 3
+
+	it "should break with multiple values in nested loops with early termination", ->
+		found, idx = for i = 1, 10
+			if i == 1
+				break i, true
+			a, b = for j = 1, 10
+				break i, false if j == 5
+			break a, b if a
+		assert.same found, 1
+		assert.is_true idx
+
+	it "should break with multiple values in nested loops with computed expressions", ->
+		sum, product = for i = 1, 5
+			a, b = for j = 1, 5
+				if i * j == 12
+					break i + j, i * j
+			break a, b if a
+		assert.same sum, 7
+		assert.same product, 12
+
+	it "should mix break and break with values in same for expression", ->
+		x, y = for i = 1, 5
+			if i == 3
+				break i, i * 10
+			if i == 4
+				break
+		assert.same x, 3
+		assert.same y, 30
+
+	it "should return nils when plain break happens before value break", ->
+		x, y = for i = 1, 5
+			if i == 2
+				break
+			if i == 4
+				break i, i * 10
+		assert.is_nil x
+		assert.is_nil y
+
+	it "should mix plain break and value break across nested loops", ->
+		matrix = {
+			{1, -1, 9}
+			{4, 5, 9}
+		}
+		row, col = for r = 1, #matrix
+			a, b = for c = 1, #matrix[r]
+				cell = matrix[r][c]
+				break if cell < 0
+				break r, c if cell == 9
+			break a, b if a
+		assert.same row, 2
+		assert.same col, 3
+
+	it "should mix break and break with values in while expression", ->
+		i = 0
+		x, y = while i < 5
+			i += 1
+			if i == 2
+				break
+			if i == 4
+				break i, i * 2
+		assert.is_nil x
+		assert.is_nil y
+
+	it "should mix break and break with values in do with with block", ->
+		x, y = do
+			with value: 8, stop: false
+				break if .stop
+				break .value, .value * 2
+		assert.same x, 8
+		assert.same y, 16
+
+	it "should fall back to plain break in do with with block", ->
+		x, y = do
+			with value: 8, stop: true
+				break if .stop
+				break .value, .value * 2
+			break
+		assert.is_nil x
+		assert.is_nil y
+
+	it "should mix continue and break with values in for expression", ->
+		x, y = for i = 1, 8
+			continue if i % 3 ~= 0
+			break i, i + 100 if i == 6
+		assert.same x, 6
+		assert.same y, 106
+
+	it "should mix continue and break with values across nested for expressions", ->
+		row, col = for r = 1, 3
+			a, b = for c = 1, 4
+				continue if c < 3
+				break r, c if r == 2 and c == 3
+			continue if not a
+			break a, b
+		assert.same row, 2
+		assert.same col, 3
+
+	it "should mix break continue and value break with plain break winning", ->
+		x, y = for i = 1, 7
+			continue if i < 3
+			if i == 4
+				break
+			if i == 6
+				break i, i * 10
+		assert.is_nil x
+		assert.is_nil y
+
+	it "should mix break continue and value break with value break winning", ->
+		x, y = for i = 1, 9
+			continue if i % 2 == 0
+			if i == 5
+				break i, i * 3
+			if i == 9
+				break
+		assert.same x, 5
+		assert.same y, 15
-- 
cgit v1.2.3-55-g6feb