# -*- 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 last_log (pattern = nil)
    logs = Rucy::Tester.all_logs
    logs.select! {|o| o =~ pattern} if pattern
    logs.last
  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_not base     .kind_of?(Sub)
    assert_not base_raw .kind_of?(Sub)
    assert_not base     .kind_of?(Temp)
    assert_not base_raw .kind_of?(Temp)

    assert_not sub    .kind_of?(Temp)
    assert_not 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 simple_objs (name, n = 10) ([nil] * n).map {SimpleObj.new name} end
    def gc (n = 10) n.times {GC.start}; print '' end
    rt = Rucy::Tester

    gc
    rt.clear_logs

    objs = simple_objs 1
    assert_equal 'SimpleObj(1)', last_log(/1/)
    gc
    assert_equal 'SimpleObj(1)', last_log(/1/)
    objs = nil
    gc
    assert_equal '~SimpleObj(1)', last_log(/1/)

    gc
    rt.clear_logs

    objs = simple_objs 2
    assert_equal 'SimpleObj(2)', last_log(/2/)
    SimpleObj.set_refs objs
    gc
    assert_equal 'SimpleObj(2)', last_log(/2/)
    objs = nil
    gc
    assert_equal 'SimpleObj(2)', last_log(/2/)
    SimpleObj.clear_refs
    gc
    assert_equal '~SimpleObj(2)', last_log(/2/)
  end

end# TestClass