Contents

require 'test/unit'
require 'langscan/ruby'

class TestRuby < Test::Unit::TestCase
  def assert_yield_any(recv, meth, *args)
    recv.__send__(meth, *args) {|*block_args|
      if yield(*block_args)
        assert(true)
        return
      end
    }
    assert(false, "no expected yields")
  end

  def assert_yield_all(recv, meth, *args)
    recv.__send__(meth, *args) {|*block_args|
      if !yield(*block_args)
        assert(false, "unexpected yields")
        return
      end
    }
    assert(true)
  end

  def test_class
    assert_yield_any(LangScan::Ruby, :scan, "class A\nend") {|f|
      f.type == :classdef && f.text == 'A'
    }
  end

  def test_module
    assert_yield_any(LangScan::Ruby, :scan, "module A\nend") {|f|
      f.type == :moduledef && f.text == 'A'
    }
  end

  def test_symbol
    assert_yield_any(LangScan::Ruby, :scan, ":aaa") {|f|
      f.type == :symbol && f.text == 'aaa'
    }
  end

  def test_const
    assert_yield_any(LangScan::Ruby, :scan, "ABC") {|f|
      f.type == :const && f.text == 'ABC'
    }
  end

  def assert_fragment_type(type, text, src)
    found = false
    LangScan::Ruby.scan(src) {|f|
      if f.text == text
        if found
          raise "token #{text} occurred twice"
        else
          found = true
          assert_equal(type, f.type, "fragment type of #{text}")
        end
      end
    }
    unless found
      raise "token #{text} not found"
    end
  end

  def test_singleton_method
    assert_fragment_type(:fundef, 'm', "def o.m() end")
  end


end

Version data entries

2 entries across 2 versions & 1 rubygems

Version	Path
langscan-1.2-x86-mswin32-60	test/langscan/ruby/test/test_scan.rb
langscan-1.2	test/langscan/ruby/test/test_scan.rb