ffi-efl 0.0.3 → 0.0.4

data/spec/evas_spec.rb

@@ -1,76 +1,83 @@
 #! /usr/bin/env ruby
 # -*- coding: UTF-8 -*-
 #
+require 'efl/ecore'
 require 'efl/evas'
 #
 describe Efl::Evas do
+    def realize_evas
+        @width = 800
+        @height = 600
+        @pixels = FFI::MemoryPointer.new :int, @width*@height
+        @e = Evas::REvas.new
+        @e.output_method_set Evas::render_method_lookup("buffer")
+        @e.output_viewport_set 0, 0, @width, @height
+        @e.output_size_set @width, @height
+        einfo = Native::EngineInfoBufferStruct.new @e.engine_info
+        einfo[:info][:depth_type] = Efl::Evas::EVAS_ENGINE_BUFFER_DEPTH_ARGB32
+        einfo[:info][:dest_buffer] = @pixels
+        einfo[:info][:dest_buffer_row_bytes] = @width * FFI::type_size(:int);
+        einfo[:info][:use_color_key] = 0;
+        einfo[:info][:alpha_threshold] = 0;
+        einfo[:info][:func][:new_update_region] = nil #FFI::Pointer::NULL;
+        einfo[:info][:func][:free_update_region] = nil #FFI::Pointer::NULL;
+        @e.engine_info_set einfo
+    end
     #
-    before(:all) { Evas = Efl::Evas }
+    before(:all) {
+        Evas = Efl::Evas
+        Native = Efl::Native
+    }
     #
     it "should init" do
-        Evas.init.should eql 1
-        Evas.init.should eql 2
-        Evas.init.should eql 3
+        Evas.init.should == 1
+        Evas.init.should == 2
+        Evas.init.should == 3
     end
     #
     it "should shutdown" do
-        Evas.shutdown.should eql 2
-        Evas.shutdown.should eql 1
-        Evas.shutdown.should eql 0
+        Evas.shutdown.should == 2
+        Evas.shutdown.should == 1
+        Evas.shutdown.should == 0
     end
     #
     it "evas alloc error enum is ok" do
-        Efl::Evas.enum_value(:evas_alloc_error_none).should eql 0
-        Efl::Evas.enum_value(:evas_alloc_error_fatal).should eql 1
-        Efl::Evas.enum_value(:evas_alloc_error_recovered).should eql 2
-        Efl::Evas.enum_type(:evas_alloc_error)[0].should eql :evas_alloc_error_none
-        Efl::Evas.enum_type(:evas_alloc_error)[1].should eql :evas_alloc_error_fatal
-        Efl::Evas.enum_type(:evas_alloc_error)[2].should eql :evas_alloc_error_recovered
-        Efl::Evas.enum_type(:evas_alloc_error)[:evas_alloc_error_none].should eql 0
-        Efl::Evas.enum_type(:evas_alloc_error)[:evas_alloc_error_fatal].should eql 1
-        Efl::Evas.enum_type(:evas_alloc_error)[:evas_alloc_error_recovered].should eql 2
+        Native.enum_value(:evas_alloc_error_none).should == 0
+        Native.enum_value(:evas_alloc_error_fatal).should == 1
+        Native.enum_value(:evas_alloc_error_recovered).should == 2
+        Native.enum_type(:evas_alloc_error)[0].should == :evas_alloc_error_none
+        Native.enum_type(:evas_alloc_error)[1].should == :evas_alloc_error_fatal
+        Native.enum_type(:evas_alloc_error)[2].should == :evas_alloc_error_recovered
+        Native.enum_type(:evas_alloc_error)[:evas_alloc_error_none].should == 0
+        Native.enum_type(:evas_alloc_error)[:evas_alloc_error_fatal].should == 1
+        Native.enum_type(:evas_alloc_error)[:evas_alloc_error_recovered].should == 2
     end
     #
     it "should have no memory allocation error occured" do
         Evas.init
-        Evas.alloc_error.should eql :evas_alloc_error_none
+        Evas.alloc_error.should == :evas_alloc_error_none
         Evas.shutdown
     end
     #
     it "should process async events" do
         cb = Proc.new do |target,type,evt|
-            target.read_string.should eql "target"
-            type.should eql :evas_callback_show
-            evt.read_string.should eql "work"
+            target.read_string.should == "target"
+            type.should == :evas_callback_show
+            evt.read_string.should == "work"
         end
         Evas.init
         target = FFI::MemoryPointer.from_string("target")
         work = FFI::MemoryPointer.from_string("work")
         Evas.async_events_put target, :evas_callback_show, work, cb
-        Evas.async_events_process.should eql 1
-        Evas.async_events_process.should eql 0
+        Evas.async_events_process.should == 1
+        Evas.async_events_process.should == 0
         Evas.shutdown
     end
     #
     describe Efl::Evas::REvas do
         before(:all) do
             Evas.init
-            @width = 800
-            @height = 600
-            @pixels = FFI::MemoryPointer.new :int, @width*@height
-            @e = Evas::REvas.new
-            @e.output_method_set Evas::render_method_lookup("buffer")
-            @e.output_viewport_set 0, 0, @width, @height
-            @e.output_size_set @width, @height
-            einfo = Efl::Evas::EngineInfoBufferStruct.new @e.engine_info_get
-            einfo[:info][:depth_type] = Efl::Evas::EVAS_ENGINE_BUFFER_DEPTH_ARGB32
-            einfo[:info][:dest_buffer] = @pixels
-            einfo[:info][:dest_buffer_row_bytes] = @width * FFI::type_size(:int);
-            einfo[:info][:use_color_key] = 0;
-            einfo[:info][:alpha_threshold] = 0;
-            einfo[:info][:func][:new_update_region] = nil #FFI::Pointer::NULL;
-            einfo[:info][:func][:free_update_region] = nil #FFI::Pointer::NULL;
-            @e.engine_info_set einfo
+            realize_evas
         end
         after(:all) do
             @e.free
@@ -79,45 +86,41 @@ describe Efl::Evas do
         end
         it "should be able to create and destroy evas" do
             e1 = Evas::REvas.new
-            e1.address.should_not eql 0
-            e2 = Evas::REvas.new e1
-            e1.address.should eql e2.address
-            e3 = Evas::REvas.new e1.to_ptr
-            e1.address.should eql e3.address
-            e2.address.should eql e3.address
+            e1.address.should_not == 0
+            e2 = Evas::REvas.new e1.to_ptr
+            e1.address.should == e2.address
             (e1==e2).should be_false
-            (e2==e3).should be_false
-            (e1==e3).should be_false
             (e1===e2).should be_true
-            (e2===e3).should be_true
-            (e1===e3).should be_true
+            e1.free
             e1.free
             e1.to_ptr.should be_nil
-            e4 = Evas::REvas.new Evas.evas_new
-            e4.address.should_not eql 0
+            e2.free
+            e2.free
+            e4 = Evas::REvas.new Native.evas_new
+            e4.address.should_not == 0
             e5 = e4.dup
-            e4.address.should eql e5.address
+            e4.address.should == e5.address
             e6 = e4.clone
-            e4.address.should eql e6.address
+            e4.address.should == e6.address
             e4.free
             e4.to_ptr.should be_nil
         end
         #
         it "focus should work" do
-            Efl::Evas.evas_focus_in @e.to_ptr
-            Efl::Evas.evas_focus_state_get(@e.to_ptr).should be_true
-            Efl::Evas.evas_focus_out @e.to_ptr
-            Efl::Evas.evas_focus_state_get(@e.to_ptr).should be_false
-            Efl::Evas.focus_in @e.to_ptr
-            Efl::Evas.focus_state_get(@e.to_ptr).should be_true
-            Efl::Evas.focus_out @e.to_ptr
-            Efl::Evas.focus_state_get(@e.to_ptr).should be_false
+            Native.evas_focus_in @e.to_ptr
+            Native.evas_focus_state_get(@e.to_ptr).should be_true
+            Native.evas_focus_out @e.to_ptr
+            Native.evas_focus_state_get(@e.to_ptr).should be_false
+            Evas.focus_in @e.to_ptr
+            Evas.focus_state_get(@e.to_ptr).should be_true
+            Evas.focus_out @e.to_ptr
+            Evas.focus_state_get(@e.to_ptr).should be_false
             @e.focus_in { |r| r.should be_nil }
-            @e.focus_state_get.should be_true
+            @e.focus_state.should be_true
             @e.focus_state_get { |r| r.should be_true }
             @e.focus_out.should be_nil
             @e.focus_state_get.should be_false
-            @e.focus_state_get { |r| r.should be_false }
+            @e.focus_state { |r| r.should be_false }
         end
         #
         it "nochange should work" do
@@ -128,7 +131,8 @@ describe Efl::Evas do
         it "attach data should work" do
             data = FFI::MemoryPointer.from_string "my data"
             @e.data_attach_set data
-            @e.data_attach_get.read_string.should eql "my data"
+            @e.data_attach.read_string.should == "my data"
+            @e.data_attach_get.read_string.should == "my data"
         end
         #
         it "should not crash" do
@@ -143,9 +147,10 @@ describe Efl::Evas do
             @e.render_dump
         end
         it "output method should work" do
-            @e.output_method_get.should eql Evas::render_method_lookup("buffer")
+            @e.output_method.should == Evas::render_method_lookup("buffer")
+            @e.output_method_get.should == Evas::render_method_lookup("buffer")
             # output_method_set tested in before(:all)
-            l = Efl::Evas::render_method_list
+            l = Efl::Evas.render_method_list
             Evas::render_method_list_free l
         end
         #
@@ -156,11 +161,19 @@ describe Efl::Evas do
         #
         it "output size should work" do
             @e.output_size_set 69, 666
-            @e.output_size_get.should eql [69,666]
+            @e.size.should == [69,666]
+            @e.output_size.should == [69,666]
+            @e.output_size_get.should == [69,666]
+            @e.output_size = 666, 69
+            @e.size == [666,69]
         end
         it "output viewport should work" do
             @e.output_viewport_set 0, 0, 666, 69
-            @e.output_viewport_get.should eql [0,0,666,69]
+            @e.viewport.should == [0,0,666,69]
+            @e.output_viewport.should == [0,0,666,69]
+            @e.output_viewport_get.should == [0,0,666,69]
+            @e.output_viewport =  0, 0, 69, 666
+            @e.viewport.should == [0,0,69,666]
         end
         #
         it "coordinates evas<=>world should work" do
@@ -176,37 +189,41 @@ describe Efl::Evas do
         end
         #
         it "freeze and thaw should work" do
-            @e.event_freeze_get.should eql 0
+            @e.event_freeze?.should == 0
             @e.event_freeze
-            @e.event_freeze_get.should eql 1
+            @e.event_freeze?.should == 1
             @e.event_thaw
-            @e.event_freeze_get.should eql 0
+            @e.event_freeze_get.should == 0
         end
         #
         it "up/down mouse event should work" do
             @e.event_feed_mouse_down 2, :evas_button_double_click, Time.now.to_i, FFI::Pointer::NULL
-            @e.pointer_button_down_mask_get.should eql 2
+            @e.pointer_button_down_mask.should == 2
             @e.event_feed_mouse_up 2, :evas_button_double_click, Time.now.to_i, FFI::Pointer::NULL
-            @e.pointer_button_down_mask_get.should eql 0
+            @e.pointer_button_down_mask_get.should == 0
         end
         #
         it "move mouse event should work" do
-            @e.pointer_output_xy_get.should eql [0,0]
-            @e.pointer_canvas_xy_get.should eql [0,0]
+            @e.pointer_output.should == [0,0]
+            @e.pointer_output_xy_get.should == [0,0]
+            @e.pointer_canvas.should == [0,0]
+            @e.pointer_canvas_xy_get.should == [0,0]
             @e.event_feed_mouse_move 6, 6, Time.now.to_i, FFI::Pointer::NULL
-            @e.pointer_output_xy_get.should eql [6,6]
-            @e.pointer_canvas_xy_get.should eql [6,6]
+            @e.pointer_output.should == [6,6]
+            @e.pointer_output_xy_get.should == [6,6]
+            @e.pointer_canvas.should == [6,6]
+            @e.pointer_canvas_xy_get.should == [6,6]
         end
         #
         it "in/out mouse event should work" do
             @e.pointer_inside_get.should be_false
             @e.event_feed_mouse_in Time.now.to_i, FFI::Pointer::NULL
-            @e.pointer_inside_get.should be_true
+            @e.pointer_inside.should be_true
             @e.event_feed_mouse_out Time.now.to_i, FFI::Pointer::NULL
-            @e.pointer_inside_get.should be_false
+            @e.pointer_inside.should be_false
         end
         #
-        # TODO
+        # TODO evas_event_feed_*
         #   evas_event_feed_multi_down
         #   evas_event_feed_multi_up
         #   evas_event_feed_multi_move
@@ -220,8 +237,8 @@ describe Efl::Evas do
             @cb = false
             kd_cb = Proc.new do |data, e, obj, event_info|
                 data.read_string.should eq "mouse_in"
-                e.address.should eql @e.address
-                obj.address.should eql @bg.address
+                e.address.should == @e.address
+                obj.address.should == @bg.address
                 @db=true
                 true
             end
@@ -232,7 +249,7 @@ describe Efl::Evas do
             @bg.show
             @bg.event_callback_add :evas_callback_mouse_in, kd_cb, kd_d
             @e.event_feed_mouse_in Time.now.to_i, FFI::Pointer::NULL
-            @bg.event_callback_del(:evas_callback_mouse_in, kd_cb).address.should eql kd_d.address
+            @bg.event_callback_del(:evas_callback_mouse_in, kd_cb).address.should == kd_d.address
             @db.should be_true
         end
         #
@@ -240,16 +257,19 @@ describe Efl::Evas do
             @e.image_cache_flush
             @e.image_cache_reload
             @e.image_cache_set 666
-            @e.image_cache_get.should eql 666
+            @e.image_cache.should == 666
+            @e.image_cache_get.should == 666
         end
         #
         it "font functions should work" do
             @e.font_hinting_set :evas_font_hinting_bytecode
-            @e.font_hinting_get.should eql :evas_font_hinting_bytecode
+            @e.font_hinting.should == :evas_font_hinting_bytecode
+            @e.font_hinting_get.should == :evas_font_hinting_bytecode
             @e.font_hinting_can_hint(:evas_font_hinting_none).should be_true
             @e.font_cache_flush
             @e.font_cache_set 666
-            @e.font_cache_get.should eql 666
+            @e.font_cache.should == 666
+            @e.font_cache_get.should == 666
             l = @e.font_available_list
             @e.font_available_list_free l
             @e.font_path_clear
@@ -258,33 +278,44 @@ describe Efl::Evas do
             @e.font_path_prepend a[0]
             require 'efl/eina_list'
             Efl::EinaList::REinaList.new(@e.font_path_list).each_with_index do |p,i|
-                p.read_string.should eql a[i]
+                p.read_string.should == a[i]
             end
         end
+        #
+        it "focus should work" do
+            @e.focus.should == FFI::Pointer::NULL
+            @e.focus_get.should == FFI::Pointer::NULL
+            @o = @e.object_add(:rectangle) { |o|
+                o.color = 200,200,200,200
+                o.move 0, 0
+                o.resize 100, 100
+                o.show
+            }
+            @o.focus = true
+            @e.focus.should == @o.to_ptr
+            @e.focus_get.should == @o.to_ptr
+        end
+        #
+        it "object_name_find should work" do
+            @e.object_name_find("name").should == FFI::Pointer::NULL
+            @o = @e.object_add(:rectangle)
+            @o.name="name"
+            @e.object_name_find("name").should == @o.to_ptr
+        end
+        # TODO evas_object_top_at_xy_get, evas_object_top_at_pointer_get, evas_object_top_in_rectangle_get
+        # TODO evas_objects_at_xy_get, evas_objects_in_rectangle_get, evas_object_bottom_get, evas_object_top_get
     end
     describe Efl::Evas::REvasObject do
         #
         before(:all) do
             Evas.init
-            @pixels = FFI::MemoryPointer.new :int, 100*100
-            @e = Evas::REvas.new
-            @e.output_method_set Evas::render_method_lookup("buffer")
-            @e.output_viewport_set 0, 0, 100, 100
-            @e.output_size_set 100, 100
-            einfo = Efl::Evas::EngineInfoBufferStruct.new @e.engine_info_get
-            einfo[:info][:depth_type] = Efl::Evas::EVAS_ENGINE_BUFFER_DEPTH_ARGB32
-            einfo[:info][:dest_buffer] = @pixels
-            einfo[:info][:dest_buffer_row_bytes] = 100 * FFI::type_size(:int);
-            einfo[:info][:use_color_key] = 0;
-            einfo[:info][:alpha_threshold] = 0;
-            einfo[:info][:func][:new_update_region] = nil #FFI::Pointer::NULL;
-            einfo[:info][:func][:free_update_region] = nil #FFI::Pointer::NULL;
-            @e.engine_info_set einfo
-            @o = @e.object_add :rectangle
-            @o.color = 200,200,200,200
-            @o.move 0, 0
-            @o.resize 100, 100
-            @o.show
+            realize_evas
+            @o = @e.object_add(:rectangle) { |o|
+                o.color = 200,200,200,200
+                o.move 0, 0
+                o.resize 100, 100
+                o.show
+            }
         end
         after(:all) do
             @e.free
@@ -300,16 +331,16 @@ describe Efl::Evas do
             clipper.resize 50, 50
             @o.clip = clipper.to_ptr
             clipper.show
-            @o.clip_get.address.should eql clipper.address
+            @o.clip.address.should == clipper.address
             require 'efl/eina_list'
-            Efl::EinaList::REinaList.new(clipper.clipees_get).to_ary[0].address.should eql @o.address
+            Efl::EinaList::REinaList.new(clipper.clipees_get).to_ary[0].address.should == @o.address
             @o.clip_unset
-            @o.clip_get.address.should eql 0
+            @o.clip_get.address.should == 0
 
         end
         #
         it "focus functions should work" do
-            @o.focus_get.should be_false
+            @o.focus.should be_false
             @o.focus_set true
             @o.focus_get.should be_true
             @o.focus = false
@@ -317,35 +348,256 @@ describe Efl::Evas do
         end
         #
         it "layer functions should work" do
-            @o.layer_get.should eql 0
+            @o.layer.should == 0
             @o.layer_set 2
-            @o.layer_get.should eql 2
+            @o.layer_get.should == 2
             @o.layer = 0
-            @o.layer_get.should eql 0
+            @o.layer_get.should == 0
         end
         #
         it "name functions should work" do
             @o.name_set "My name"
-            @o.name_get.should eql "My name"
+            @o.evas_name.should == "My name"
+            @o.name_get.should == "My name"
         end
         #
         it "geometry functions should work" do
-            # FIXME
-#            @o.geometry_get.should eql [0,0,100,100]
-#            @o.resize 50,50
-#            @o.geometry_get.should eql [0,0,50,50]
-#            @o.move 10, 10
-#            @o.geometry_get.should eql [10,10,50,50]
+            @o.geometry.should == [0,0,100,100]
+            @o.resize 50,50
+            @o.geometry.should == [0,0,50,50]
+            @o.move 10, 10
+            @o.geometry_get.should == [10,10,50,50]
         end
         #
         it "show hide visible should work" do
             @o.show
             @o.visible?.should be_true
             @o.hide
+            @o.visible.should be_false
             @o.visible_get.should be_false
             @o.show
             @o.visible?.should be_true
         end
+        #
+        it "color get/set should work" do
+            @o.color.should == [200,200,200,200]
+            @o.color_get.should == [200,200,200,200]
+            @o.color_set 0,50,100,200
+            @o.color.should == [0,50,100,200]
+            @o.color = 200,200,200,200
+            @o.color.should == [200,200,200,200]
+        end
+        #
+        it "evas_get should worl" do
+            @o.evas.should === @e
+            @o.evas_get.should === @e
+        end
+        #
+        it "type_get should work" do
+            @o.evas_type.should == 'rectangle'
+            @o.type_get.should == 'rectangle'
+        end
+        # TODO raise, lower
+        it "raise, lower, stck_below, stack_above should work" do
+            os = []
+            0.upto(3) do
+                os << @e.object_add(:rectangle)
+            end
+            os[2].above.should === os[3]
+            os[2].below.should === os[1]
+            os[2].above.should === os[3]
+            os[2].below.should === os[1]
+            os[2].stack_below os[1]
+            os[2].above_get.should === os[1]
+            os[2].below_get.should === os[0]
+            os[2].stack_above os[1]
+            os[2].above.should === os[3]
+            os[2].below.should === os[1]
+            os.each do |o| o.free; end
+        end
+        #
+        it "event_callback should work" do
+            @o.move 0, 0 # FIXME why do I need this ?!?
+            count = 0
+            cb = Proc.new do |data,evas,evas_object,event_info|
+                count +=1
+            end
+            cb_data = FFI::MemoryPointer.from_string "my cb data"
+            @o.event_callback_add :evas_callback_mouse_in, cb, @o
+            Efl::Evas.event_feed_mouse_in @o.evas, Time.now.to_i, cb_data
+            sleep 0.1
+            count.should==1
+        end
+        #
+        it "pass events should work" do
+            @o.pass_events.should be_false
+            @o.pass_events_set true
+            @o.pass_events.should be_true
+            @o.pass_events=false
+            @o.pass_events.should be_false
+            @o.pass_events_set true
+            @o.pass_events.should be_true
+            @o.pass_events=false
+            @o.pass_events_get.should be_false
+        end
+        #
+        it "repeat events should work" do
+            @o.repeat_events.should be_false
+            @o.repeat_events_set true
+            @o.repeat_events.should be_true
+            @o.repeat_events=false
+            @o.repeat_events.should be_false
+            @o.repeat_events_set true
+            @o.repeat_events.should be_true
+            @o.repeat_events=false
+            @o.repeat_events_get.should be_false
+        end
+        #
+        it "propagate event should work" do
+            @o.propagate_events.should be_true
+            @o.propagate_events=false
+            @o.propagate_events.should be_false
+            @o.propagate_events_set true
+            @o.propagate_events.should be_true
+            @o.propagate_events=false
+            @o.propagate_events.should be_false
+            @o.propagate_events_set true
+            @o.propagate_events_get.should be_true
+        end
+        #
+        it "map enable should work" do
+            @o.map_enable.should be_false
+            @o.map_enable_set true
+            @o.map_enable.should be_true
+            @o.map_enable=false
+            @o.map_enable.should be_false
+            @o.map_enable_set true
+            @o.map_enable.should be_true
+            @o.map_enable=false
+            @o.map_enable_get.should be_false
+        end
+        #
+        it "size_hint_ should work" do
+            @o.size_hint_min_set 100, 150
+            @o.size_hint_min.should == [100,150]
+            @o.size_hint_min_get.should == [100,150]
+            @o.size_hint_max_set 300, 350
+            @o.size_hint_max.should == [300,350]
+            @o.size_hint_max_get.should == [300,350]
+            @o.size_hint_request_set 400, 450
+            @o.size_hint_request.should == [400,450]
+            @o.size_hint_request_get.should == [400,450]
+            @o.size_hint_aspect_set :evas_aspect_control_both, 400, 450
+            @o.size_hint_aspect.should == [:evas_aspect_control_both,400,450]
+            @o.size_hint_aspect_get.should == [:evas_aspect_control_both,400,450]
+            @o.size_hint_align_set 0.2, 0.5
+            @o.size_hint_align.should == [0.2,0.5]
+            @o.size_hint_align_get.should == [0.2,0.5]
+            @o.size_hint_weight_set 0.3, 0.6
+            @o.size_hint_weight.should == [0.3,0.6]
+            @o.size_hint_weight_get.should == [0.3,0.6]
+            @o.size_hint_padding_set 10, 20, 30, 40
+            @o.size_hint_padding.should == [10,20,30,40]
+            @o.size_hint_padding_get.should == [10,20,30,40]
+        end
+        #
+        it "data get/set should work" do
+            @o.data_set "key", "val"
+            @o.data("key").should == "val"
+            @o.data_get("key").should == "val"
+            @o.data_del("key")
+            @o.data_get("key").should == nil
+        end
+        #
+        it "pointer mode get/set should work" do
+            @o.pointer_mode = :evas_object_pointer_mode_nograb
+            @o.pointer_mode.should == :evas_object_pointer_mode_nograb
+            @o.pointer_mode_get.should == :evas_object_pointer_mode_nograb
+            @o.pointer_mode = :evas_object_pointer_mode_autograb
+            @o.pointer_mode.should == :evas_object_pointer_mode_autograb
+            @o.pointer_mode_get.should == :evas_object_pointer_mode_autograb
+        end
+        #
+        it "anti_alias get/set should work" do
+            @o.anti_alias_set true
+            @o.anti_alias_get.should be_true
+            @o.anti_alias=false
+            @o.anti_alias.should be_false
+            @o.anti_alias_get.should be_false
+        end
+        #
+        it "sccale set/get should work" do
+            @o.scale_set 1.5
+            @o.scale_get.should == 1.5
+            @o.scale= 1.6
+            @o.scale.should == 1.6
+        end
+        #
+        it "render op get/set" do
+            @o.render_op_set :evas_render_copy
+            @o.render_op_get.should == :evas_render_copy
+            @o.render_op = :evas_render_mask
+            @o.render_op.should == :evas_render_mask
+        end
+        #
+        it "precise_is_inside get/set should work" do
+            @o.precise_is_inside_set true
+            @o.precise_is_inside?.should be_true
+            @o.precise_is_inside_get.should be_true
+            @o.precise_is_inside=false
+            @o.precise_is_inside?.should be_false
+            @o.precise_is_inside.should be_false
+        end
+        #
+        it "static_clip get/set should work" do
+            @o.static_clip_set true
+            @o.static_clip?.should be_true
+            @o.static_clip_get.should be_true
+            @o.static_clip=false
+            @o.static_clip?.should be_false
+            @o.static_clip.should be_false
+        end
+        #
+    end
+    #
+    describe Efl::Evas::REvasLine do
+        #
+        before(:all) do
+            Evas.init
+            realize_evas
+            @l = @e.object_add 'line'
+        end
+        after(:all) do
+            @e.free
+            Evas.shutdown
+        end
+        it "xy get/set should work" do
+            @l.line_xy_set 10, 20, 30, 40
+            @l.line_xy_get.should == [10, 20, 30, 40]
+        end
+    end
+    #
+    describe Efl::Evas::REvasPolygon do
+        #
+        before(:all) do
+            Evas.init
+            realize_evas
+            @p = @e.object_add 'polygon'
+        end
+        after(:all) do
+            @e.free
+            Evas.shutdown
+        end
+        it "xy point_add should work" do
+            @p.point_add 10, 20
+            @p.point_add 30, 40
+            @p.point_add 50, 60
+            @p.point_add 80, 80
+        end
+        #
+        it "point clear shold work" do
+            @p.points_clear
+        end
     end
     #
 end