File: test_parse_helper.rb

package info (click to toggle)
ruby-whitequark-parser 3.3.4.2-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 2,828 kB
  • sloc: yacc: 40,699; ruby: 20,395; makefile: 12; sh: 8
file content (83 lines) | stat: -rw-r--r-- 2,499 bytes parent folder | download | duplicates (2)
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
# frozen_string_literal: true

require 'helper'
require 'parse_helper'

class TestParseHelper < Minitest::Test
  include ParseHelper

  def test_parser_for_ruby_version
    assert_instance_of Parser::Ruby18,
                       parser_for_ruby_version('1.8')

    assert_instance_of Parser::Ruby19,
                       parser_for_ruby_version('1.9')

    assert_instance_of Parser::Ruby20,
                       parser_for_ruby_version('2.0')

    assert_instance_of Parser::Ruby21,
                       parser_for_ruby_version('2.1')
  end

  def parse_maps(what)
    parse_source_map_descriptions(what).to_a
  end

  def test_parse_mapsation_description
    assert_equal [[0...4, 'expr', [], '~~~~ expr']],
                 parse_maps('~~~~ expr')

    assert_equal [[0...4, 'expr', [], '^~~~ expr']],
                 parse_maps('^~~~ expr')

    assert_equal [[0...4, 'expr', [], '^^^^ expr']],
                 parse_maps('^^^^ expr')

    assert_equal [[2...3, 'op', [], '  ^ op']],
                 parse_maps('  ^ op')

    assert_equal [[2...3, 'op', ['foo'], '  ~ op (foo)']],
                 parse_maps('  ~ op (foo)')

    assert_equal [[2...4, 'op', ['foo', 'bar'], '  ~~ op (foo.bar)']],
                 parse_maps('  ~~ op (foo.bar)')

    assert_equal [[2...4, 'op', ['foo/2', 'bar'], '  ~~ op (foo/2.bar)']],
                 parse_maps('  ~~ op (foo/2.bar)')

    assert_equal [[0...4, 'expr', [], '~~~~ expr'],
                  [5...7, 'op', ['str', 'e_h'], '     ~~ op (str.e_h)']],
                 parse_maps(%{
                            |~~~~ expr
                            |     ~~ op (str.e_h)
                            })

    assert_equal [[nil, 'expr', [], '! expr']],
                 parse_maps('! expr')
  end

  def test_traverse_ast
    ast = s(:send,
            s(:int, 1), :+,
            s(:dstr,
              s(:str, 'foo'),
              s(:int, 2),
              s(:int, 3)))

    assert_equal ast, traverse_ast(ast, %w())

    assert_equal s(:int, 1), traverse_ast(ast, %w(int))
    assert_equal s(:str, 'foo'), traverse_ast(ast, %w(dstr str))
    assert_equal s(:int, 2), traverse_ast(ast, %w(dstr int))
    assert_equal s(:int, 2), traverse_ast(ast, %w(dstr int/1))
    assert_equal s(:int, 3), traverse_ast(ast, %w(dstr int/2))

    assert_nil traverse_ast(ast, %w(str))
    assert_nil traverse_ast(ast, %w(dstr int/3))
  end

  def test_assert_parses
    # Someone more clever and/or motivated than me is going to test this.
  end
end