aboutsummaryrefslogtreecommitdiff
path: root/spec/outputs/in_expression.lua
blob: 0778c8e934abf35b8bb9b018ad70761a399645ee (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
f((function()
	local _val_0 = -a ^ 2
	return 1 == _val_0 or 2 == _val_0 or 3 == _val_0
end)())
local has
do
	local _val_0 = "foo"
	has = "bar" == _val_0 or "foo" == _val_0
end
if (1 == a) and (function()
	local _val_0 = b
	return 2 == _val_0 or 3 == _val_0 or 4 == _val_0
end)() then
	print(a, b, c)
end
if (1 == a) and (function()
	local _val_0 = b
	return 2 == _val_0 or 3 == _val_0 or 4 == _val_0
end)() then
	print(a, b, c)
end
do
	local exist
	do
		local _check_0 = list
		local _val_0 = item
		local _find_0 = false
		for _index_0 = 1, #_check_0 do
			local _item_0 = _check_0[_index_0]
			if _item_0 == _val_0 then
				_find_0 = true
				break
			end
		end
		exist = _find_0
	end
	check((function()
		local _check_0 = list
		local _val_0 = item
		for _index_0 = 1, #_check_0 do
			if _check_0[_index_0] == _val_0 then
				return true
			end
		end
		return false
	end)())
end
do
	local item = get()
	local exist
	do
		local _check_0 = list
		local _find_0 = false
		for _index_0 = 1, #_check_0 do
			local _item_0 = _check_0[_index_0]
			if _item_0 == item then
				_find_0 = true
				break
			end
		end
		exist = _find_0
	end
	check((function()
		local _check_0 = list
		for _index_0 = 1, #_check_0 do
			if _check_0[_index_0] == item then
				return true
			end
		end
		return false
	end)())
end
do
	local item = get()
	local list = {
		1,
		2,
		3
	}
	list = {
		1,
		2,
		3
	}
	local not_exist
	do
		local _find_0 = false
		for _index_0 = 1, #list do
			local _item_0 = list[_index_0]
			if _item_0 == item then
				_find_0 = true
				break
			end
		end
		not_exist = not _find_0
	end
	check((#list > 0 and (function()
		for _index_0 = 1, #list do
			if list[_index_0] == item then
				return true
			end
		end
		return false
	end)()))
	check((1 == item or 2 == item or 3 == item))
	check((1 == item or 2 == item or 3 == item))
	check((function(...)
		local _check_0 = {
			[1] = 1,
			[2] = 2,
			[3] = 3
		}
		local _val_0 = item(...)
		for _index_0 = 1, #_check_0 do
			if _check_0[_index_0] == _val_0 then
				return true
			end
		end
		return false
	end)(...))
end
do
	check(function()
		local _check_0 = tb
		local _val_0 = x
		for _index_0 = 1, #_check_0 do
			if _check_0[_index_0] == _val_0 then
				return true
			end
		end
		return false
	end)
	check(function()
		local _check_0 = tb
		local _val_0 = x
		for _index_0 = 1, #_check_0 do
			if _check_0[_index_0] == _val_0 then
				return false
			end
		end
		return true
	end)
	local x, tb
	check(function()
		for _index_0 = 1, #tb do
			if tb[_index_0] == x then
				return true
			end
		end
		return false
	end)
	check(function()
		for _index_0 = 1, #tb do
			if tb[_index_0] == x then
				return false
			end
		end
		return true
	end)
end
do
	local f1
	f1 = function()
		local a = 2
		return (1 == a or 2 == a or 3 == a or 4 == a)
	end
	local f2
	f2 = function()
		local _val_0 = a
		return not (1 == _val_0 or 2 == _val_0 or 3 == _val_0 or 4 == _val_0)
	end
	local f3
	f3 = function()
		local a = 2
		return (b == a or c == a or d == a or e == a or f == a or g == a)
	end
	local f4
	f4 = function()
		local a = 2
		local b
		b = (1 == a or 2 == a or 3 == a or 4 == a)
	end
	local f5
	f5 = function()
		local a = 2
		return (1 == a or 2 == a or 3 == a or 4 == a)
	end
	local f6
	f6 = function()
		local b
		do
			local _check_0 = {
				1,
				2,
				x = 3
			}
			local _val_0 = a
			local _find_0 = false
			for _index_0 = 1, #_check_0 do
				local _item_0 = _check_0[_index_0]
				if _item_0 == _val_0 then
					_find_0 = true
					break
				end
			end
			b = not _find_0
		end
	end
	print((function()
		local _val_0 = a
		return false
	end)())
	local a = 1
	print((false))
end
do
	local a = 1
	print((1 == a or 2 == a or 1 == a))
end
do
	local a = -1
	print((-1 == a or 11 == a or 2 == a or -1 == a or 0 == a or -1 == a))
end
do
	local a = 1
	local b = 1
	print((b == a or 10 == a or b == a))
end
do
	print((function()
		local _val_0 = x
		return "" == _val_0 or "" == _val_0
	end)())
	print((function()
		local _val_0 = 1
		return 1 == _val_0 or 2 == _val_0 or 1 == _val_0
	end)())
end
return nil