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


require_relative 'helper'


class TestImage < Test::Unit::TestCase

  W = 10
  H = 10

  def img (w = W, h = H, *args)
    Rays::Image.new w, h, *args
  end

  def rgb (r = 0, g = 0, b = 0, a = 0)
    Rays::Color.new r, g, b, a
  end

  def bounds (*args)
    Rays::Bounds.new *args
  end

  def test_initialize ()
    assert_equal W, img.width
    assert_equal H, img.height
  end

  def test_bitmap ()
    assert_equal W, img.bitmap.width
    assert_equal H, img.bitmap.height
  end

  def test_texture ()
    assert_equal W, img.texture.width
    assert_equal H, img.texture.height
  end

  def test_painter ()
    pa = img.painter
    assert_equal rgb(0, 0, 0, 0), pa.background
    assert_equal rgb(1, 1, 1, 1), pa.fill
    assert_equal rgb(1, 1, 1, 0), pa.stroke
    assert_equal bounds(0, 0, -1, -1), pa.clip
    assert_equal Rays::Font.new, pa.font
  end

  def test_paint ()
    def paint (&block)
      Rays::Image.new(10, 10).paint &block
    end
    def fill (&block)
      paint {|p| p.fill 1, 0, 0; p.stroke nil; block.call p}
    end
    def stroke (&block)
      paint {|p| p.fill nil; p.stroke 1, 0, 0; block.call p}
    end
    def drawn (&block)
      fill(&block).bitmap.to_a.reject {|o| o.transparent?}.uniq.size > 0
    end

    assert_equal rgb(0, 0, 0, 0), fill   {|p| p.rect 1, 1, 8, 8}[0, 0]
    assert_equal rgb(1, 0, 0, 1), fill   {|p| p.rect 1, 1, 8, 8}[1, 1]
    assert_equal rgb(1, 0, 0, 1), stroke {|p| p.line 0, 0, 1, 1}[0, 0]

    assert drawn {|p| p.text "a"}
  end

  def test_dirty ()
  end

end# TestImage