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
|
# frozen_string_literal: false
require 'test/unit'
require 'irb/ruby-lex'
require 'stringio'
module TestIRB
class TestRubyLex < Test::Unit::TestCase
def setup
@scanner = RubyLex.new
end
def teardown
RubyLex.debug_level = 0
end
def test_set_input_proc
called = false
@scanner.set_input(nil) {called = true; nil}
@scanner.each_top_level_statement {}
assert(called)
end
def test_comment
assert_equal([["#\n", 1]], top_level_statement("#\n"))
end
def test_top_level_statement
result = top_level_statement("#{<<-"begin;"}#{<<~"end;"}")
begin;
begin
end
begin
end
end;
assert_equal([
["begin\n""end\n", 1],
["begin\n""end\n", 3],
],
result)
end
def test_immature_statement
src = "if false\n"
assert_equal([[src, 1]], top_level_statement(src))
end
def test_prompt
prompts = []
@scanner.set_prompt {|*a|
a << @scanner.instance_variable_get(:@lex_state)
unless prompts.last == a
prompts << a
end
}
src = "#{<<-"begin;"}#{<<~"end;"}"
begin;
if false or
true
"
"
'
'
else
nil
nil
end
end;
assert_equal([[src, 1]], top_level_statement(src))
expected = [
[nil, 0, false],
[nil, 1, true],
[nil, 1, false],
['"', 1, false],
[nil, 1, false],
["'", 1, false],
[nil, 1, false],
[nil, 1, true], # FIXME: just after `else' should be `false'
[nil, 1, false],
[nil, 1, false],
[nil, 0, false],
]
srcs = src.lines
assert_equal(expected.size, prompts.size)
expected.each_with_index {|e, i|
assert_equal(i + 1, prompts[i][3])
assert_equal(e, prompts[i][0..2], "#{i+1}: #{srcs[i]} # #{prompts[i]}")
}
end
def top_level_statement(lines)
input = InputLines.new(lines, "r")
scanned = []
@scanner.set_input(input)
@scanner.each_top_level_statement {|*e|
scanned << e
yield(*e) if defined?(yield)
}
scanned
end
class InputLines < StringIO
alias encoding external_encoding
end
end
end
|
