test/test_image.rb in rays-0.1.6 vs test/test_image.rb in rays-0.1.7

@@ -4,6 +4,69 @@
 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