# -*- coding: utf-8 -*-


require_relative 'helper'


class Temp < Rucy::Tester::Sub

  def name ()
    "Temp::name"
  end

  def name_overridable ()
    "Temp::name_overridable"
  end

  def name_overridable_faster ()
    "Temp::name_overridable_faster"
  end

end# Temp


class TestClass < Test::Unit::TestCase

  include Rucy::Tester

  def base (*args)
    Base.new *args
  end

  def sub (*args)
    Sub.new *args
  end

  def temp (*args)
    Temp.new *args
  end

  def base_raw (*args)
    Base.new_raw *args
  end

  def sub_raw (*args)
    Sub.new_raw *args
  end

  def test_is_kind_of_base ()
    assert_kind_of Base, base
    assert_kind_of Base, base_raw

    assert_kind_of Base, sub
    assert_kind_of Base, sub_raw
    assert_kind_of Sub,  sub
    assert_kind_of Sub,  sub_raw

    assert_kind_of Base, temp
    assert_kind_of Sub,  temp
    assert_kind_of Temp, temp

    assert !base     .kind_of?(Sub)
    assert !base_raw .kind_of?(Sub)
    assert !base     .kind_of?(Temp)
    assert !base_raw .kind_of?(Temp)

    assert !sub    .kind_of?(Temp)
    assert !sub_raw.kind_of?(Temp)
  end

  def test_name ()
    assert_equal "Base::name", base    .name
    assert_equal "Base::name", base_raw.name
    assert_equal "Sub::name",  sub     .name
    assert_equal "Sub::name",  sub_raw .name
    assert_equal "Temp::name", temp    .name
  end

  def test_name_overridable ()
    assert_equal "Base::name_overridable", base    .name_overridable
    assert_equal "Base::name_overridable", base_raw.name_overridable
    assert_equal "Sub::name_overridable",  sub     .name_overridable
    assert_equal "Sub::name_overridable",  sub_raw .name_overridable
    assert_equal "Temp::name_overridable", temp    .name_overridable
  end

  def test_call_name ()
    assert_equal "Base::name", base    .call_name
    assert_equal "Base::name", base_raw.call_name
    assert_equal "Sub::name",  sub     .call_name
    assert_equal "Sub::name",  sub_raw .call_name
    assert_equal "Sub::name",  temp    .call_name # returns "Sub" not "Temp"!
  end

  def test_call_name_overridable ()
    assert_equal "Base::name_overridable", base    .call_name_overridable
    assert_equal "Base::name_overridable", base_raw.call_name_overridable
    assert_equal "Sub::name_overridable",  sub     .call_name_overridable
    assert_equal "Sub::name_overridable",  sub_raw .call_name_overridable
    assert_equal "Temp::name_overridable", temp    .call_name_overridable
  end

  class X < Sub; end

  def test_is_overridden ()
    m = :name_overridable_faster
    def is_overridden (o) o.is_name_overridable_faster_overridden; end

    assert_equal true, is_overridden(temp)

    o = X.new
    assert_equal false, is_overridden(o)
    def o.name_overridable_faster () end
    assert_equal true,  is_overridden(o)

    o = X.new
    assert_equal false, is_overridden(o)
    eval "class X; def #{m}; end; end"
    assert_equal true,  is_overridden(o)
    eval "class X; remove_method :#{m}; end"
    assert_equal false, is_overridden(o)

    o = X.new
    assert_equal false, is_overridden(o)
    X.send(:define_method, m) {}
    assert_equal true,  is_overridden(o)
    X.send :remove_method, m
    assert_equal false, is_overridden(o)
  end

  def test_gc ()
    def gc () 10.times {GC.start} end
    rt = Rucy::Tester

    gc
    rt.clear_logs

    o = RubyObj.new
    assert_equal 'RubyObj()', last_log
    gc
    assert_equal 'RubyObj()', last_log
    o = nil
    gc
    assert_equal '~RubyObj()', last_log

    gc
    rt.clear_logs

    o = RubyObj.new
    assert_equal 'RubyObj()', last_log
    RubyObj.set_ref o
    gc
    assert_equal 'RubyObj()', last_log
    o = nil
    gc
    assert_equal 'RubyObj()', last_log
    RubyObj.clear_ref
    gc
    assert_equal '~RubyObj()', last_log
  end

end# TestClass