testtokenlabel.rb

antlr最新版本V3源代码

# [The "BSD licence"]
# Copyright (c) 2005 Martin Traverso
# All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions
# are met:
# 1. Redistributions of source code must retain the above copyright
#    notice, this list of conditions and the following disclaimer.
# 2. Redistributions in binary form must reproduce the above copyright
#    notice, this list of conditions and the following disclaimer in the
#    documentation and/or other materials provided with the distribution.
# 3. The name of the author may not be used to endorse or promote products
#    derived from this software without specific prior written permission.
#
# THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
# IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
# OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
# IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
# INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
# NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
# DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
# THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
# THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

require 'test/unit'
require 'antlr'
require 'stringio'

class TestTokenLabel < Test::Unit::TestCase

  def test_implicit_label
    grammar = <<-END
      a returns [result] : A { result = $A.text };

      A : ('a'..'z')+;
    END

    parser = Grammar::compile(grammar, "a")
    assert_equal('abcd', parser.parse('abcd'))
  end

  def test_explicit_label
    grammar = <<-END
      a returns [result]: x=A { result = $x.text };

      A : ('a'..'z')+;
    END

    parser = Grammar::compile(grammar, "a")
    assert_equal('abcd', parser.parse('abcd'))
  end

  def test_list_label
    grammar = <<-END
      a returns [result]: (x+=A)+ { result = $x.map { |t| t.text }.join(',') };

      A : ('a'..'z');
    END

    parser = Grammar::compile(grammar, "a")
    assert_equal('a,b,c,d', parser.parse('abcd'))
  end
end