ffi-efl 0.0.5 → 0.0.6

data/lib/efl/native/evas.rb

@@ -27,13 +27,12 @@ module Efl
         enum :evas_bidi_direction, [ :evas_bidi_direction_natural, :evas_bidi_direction_ltr, :evas_bidi_direction_rtl ]
         typedef :pointer, :evas_bidi_direction_p
         # typedef enum _Evas_Callback_Type {...} Evas_Callback_Type;
-        enum :evas_callback_type, [ :evas_callback_mouse_in, :evas_callback_mouse_out, :evas_callback_mouse_down, :evas_callback_mouse_up,
-            :evas_callback_mouse_move, :evas_callback_mouse_wheel, :evas_callback_multi_down, :evas_callback_multi_up, :evas_callback_multi_move,
-            :evas_callback_free, :evas_callback_key_down, :evas_callback_key_up, :evas_callback_focus_in, :evas_callback_focus_out, :evas_callback_show,
-            :evas_callback_hide, :evas_callback_move, :evas_callback_resize, :evas_callback_restack, :evas_callback_del, :evas_callback_hold,
-            :evas_callback_changed_size_hints, :evas_callback_image_preloaded, :evas_callback_canvas_focus_in, :evas_callback_canvas_focus_out,
-            :evas_callback_render_flush_pre, :evas_callback_render_flush_post, :evas_callback_canvas_object_focus_in, :evas_callback_canvas_object_focus_out,
-            :evas_callback_image_unloaded, :evas_callback_last ]
+        enum :evas_callback_type, [ :evas_callback_mouse_in, :evas_callback_mouse_out, :evas_callback_mouse_down, :evas_callback_mouse_up, :evas_callback_mouse_move,
+            :evas_callback_mouse_wheel, :evas_callback_multi_down, :evas_callback_multi_up, :evas_callback_multi_move, :evas_callback_free, :evas_callback_key_down,
+            :evas_callback_key_up, :evas_callback_focus_in, :evas_callback_focus_out, :evas_callback_show, :evas_callback_hide, :evas_callback_move, :evas_callback_resize,
+            :evas_callback_restack, :evas_callback_del, :evas_callback_hold, :evas_callback_changed_size_hints, :evas_callback_image_preloaded, :evas_callback_canvas_focus_in,
+            :evas_callback_canvas_focus_out, :evas_callback_render_flush_pre, :evas_callback_render_flush_post, :evas_callback_canvas_object_focus_in,
+            :evas_callback_canvas_object_focus_out, :evas_callback_image_unloaded, :evas_callback_last ]
         # typedef enum _Evas_Button_Flags {...} Evas_Button_Flags;
         enum :evas_button_flags, [ :evas_button_none, 0, :evas_button_double_click, :evas_button_triple_click ]
         # typedef enum _Evas_Event_Flags {...} Evas_Event_Flags;
@@ -41,19 +40,18 @@ module Efl
         # typedef enum _Evas_Font_Hinting_Flags {...} Evas_Font_Hinting_Flags;
         enum :evas_font_hinting_flags, [ :evas_font_hinting_none, :evas_font_hinting_auto, :evas_font_hinting_bytecode ]
         # typedef enum _Evas_Colorspace {...} Evas_Colorspace;
-        enum :evas_colorspace, [ :evas_colorspace_argb8888, :evas_colorspace_ycbcr422p601_pl, :evas_colorspace_ycbcr422p709_pl,
-            :evas_colorspace_rgb565_a5p, :evas_colorspace_gry8 ]
+        enum :evas_colorspace, [ :evas_colorspace_argb8888, :evas_colorspace_ycbcr422p601_pl, :evas_colorspace_ycbcr422p709_pl, :evas_colorspace_rgb565_a5p,
+            :evas_colorspace_gry8 ]
         # typedef enum _Evas_Object_Table_Homogeneous_Mode {...} Evas_Object_Table_Homogeneous_Mode;
-        enum :evas_object_table_homogeneous_mode, [ :evas_object_table_homogeneous_none, 0, :evas_object_table_homogeneous_table, 1,
-            :evas_object_table_homogeneous_item, 2 ]
+        enum :evas_object_table_homogeneous_mode, [ :evas_object_table_homogeneous_none, 0, :evas_object_table_homogeneous_table, 1, :evas_object_table_homogeneous_item,
+            2 ]
         # typedef enum _Evas_Aspect_Control {...} Evas_Aspect_Control;
-        enum :evas_aspect_control, [ :evas_aspect_control_none, 0, :evas_aspect_control_neither, 1, :evas_aspect_control_horizontal, 2,
-            :evas_aspect_control_vertical, 3, :evas_aspect_control_both, 4 ]
+        enum :evas_aspect_control, [ :evas_aspect_control_none, 0, :evas_aspect_control_neither, 1, :evas_aspect_control_horizontal, 2, :evas_aspect_control_vertical, 3,
+            :evas_aspect_control_both, 4 ]
         typedef :pointer, :evas_aspect_control_p
         # typedef enum _Evas_Load_Error {...} Evas_Load_Error;
-        enum :evas_load_error, [ :evas_load_error_none, 0, :evas_load_error_generic, 1, :evas_load_error_does_not_exist, 2,
-            :evas_load_error_permission_denied, 3, :evas_load_error_resource_allocation_failed, 4, :evas_load_error_corrupt_file, 5,
-            :evas_load_error_unknown_format, 6 ]
+        enum :evas_load_error, [ :evas_load_error_none, 0, :evas_load_error_generic, 1, :evas_load_error_does_not_exist, 2, :evas_load_error_permission_denied, 3,
+            :evas_load_error_resource_allocation_failed, 4, :evas_load_error_corrupt_file, 5, :evas_load_error_unknown_format, 6 ]
         # typedef enum _Evas_Alloc_Error {...} Evas_Alloc_Error;
         enum :evas_alloc_error, [ :evas_alloc_error_none, 0, :evas_alloc_error_fatal, 1, :evas_alloc_error_recovered, 2 ]
         # typedef enum _Evas_Fill_Spread {...} Evas_Fill_Spread;
@@ -65,8 +63,7 @@ module Efl
         enum :evas_native_surface_type, [ :evas_native_surface_none, :evas_native_surface_x11, :evas_native_surface_opengl ]
         # typedef enum _Evas_Render_Op {...} Evas_Render_Op;
         enum :evas_render_op, [ :evas_render_blend, 0, :evas_render_blend_rel, 1, :evas_render_copy, 2, :evas_render_copy_rel, 3, :evas_render_add, 4,
-            :evas_render_add_rel, 5, :evas_render_sub, 6, :evas_render_sub_rel, 7, :evas_render_tint, 8, :evas_render_tint_rel, 9, :evas_render_mask, 10,
-            :evas_render_mul, 11 ]
+            :evas_render_add_rel, 5, :evas_render_sub, 6, :evas_render_sub_rel, 7, :evas_render_tint, 8, :evas_render_tint_rel, 9, :evas_render_mask, 10, :evas_render_mul, 11 ]
         # typedef enum _Evas_Border_Fill_Mode {...} Evas_Border_Fill_Mode;
         enum :evas_border_fill_mode, [ :evas_border_fill_none, 0, :evas_border_fill_default, 1, :evas_border_fill_solid, 2 ]
         # typedef enum _Evas_Image_Scale_Hint {...} Evas_Image_Scale_Hint;
@@ -78,11 +75,10 @@ module Efl
         # typedef enum _Evas_Object_Pointer_Mode {...} Evas_Object_Pointer_Mode;
         enum :evas_object_pointer_mode, [ :evas_object_pointer_mode_autograb, :evas_object_pointer_mode_nograb ]
         # typedef enum _Evas_Text_Style_Type {...} Evas_Text_Style_Type;
-        enum :evas_text_style_type, [ :evas_text_style_plain, :evas_text_style_shadow, :evas_text_style_outline, :evas_text_style_soft_outline,
-            :evas_text_style_glow, :evas_text_style_outline_shadow, :evas_text_style_far_shadow, :evas_text_style_outline_soft_shadow,
-            :evas_text_style_soft_shadow, :evas_text_style_far_soft_shadow, :evas_text_style_shadow_direction_bottom_right,
-            :evas_text_style_shadow_direction_bottom, :evas_text_style_shadow_direction_bottom_left, :evas_text_style_shadow_direction_left,
-            :evas_text_style_shadow_direction_top_left, :evas_text_style_shadow_direction_top, :evas_text_style_shadow_direction_top_right,
+        enum :evas_text_style_type, [ :evas_text_style_plain, :evas_text_style_shadow, :evas_text_style_outline, :evas_text_style_soft_outline, :evas_text_style_glow,
+            :evas_text_style_outline_shadow, :evas_text_style_far_shadow, :evas_text_style_outline_soft_shadow, :evas_text_style_soft_shadow, :evas_text_style_far_soft_shadow,
+            :evas_text_style_shadow_direction_bottom_right, :evas_text_style_shadow_direction_bottom, :evas_text_style_shadow_direction_bottom_left,
+            :evas_text_style_shadow_direction_left, :evas_text_style_shadow_direction_top_left, :evas_text_style_shadow_direction_top, :evas_text_style_shadow_direction_top_right,
             :evas_text_style_shadow_direction_right ]
         # typedef enum _Evas_Textblock_Text_Type {...} Evas_Textblock_Text_Type;
         enum :evas_textblock_text_type, [ :evas_textblock_text_raw, :evas_textblock_text_plain, :evas_textblock_text_markup ]
@@ -91,12 +87,13 @@ module Efl
         # typedef enum {...} Evas_Filter_Mode;
         enum :evas_filter_mode, [ :evas_filter_mode_object, :evas_filter_mode_below ]
         # typedef enum {...} Evas_Filter;
-        enum :evas_filter, [ :evas_filter_none, :evas_filter_blur, :evas_filter_invert, :evas_filter_solarize, :evas_filter_sepia,
-            :evas_filter_greyscale, :evas_filter_grayscale, :evas_filter_brightness, :evas_filter_contrast, :evas_filter_last ]
+        enum :evas_filter, [ :evas_filter_none, :evas_filter_blur, :evas_filter_invert, :evas_filter_solarize, :evas_filter_sepia, :evas_filter_greyscale,
+            :evas_filter_grayscale, :evas_filter_brightness, :evas_filter_contrast, :evas_filter_last ]
         #
         # TYPEDEFS
         # typedef struct _Evas_Version Evas_Version;
         typedef :pointer, :evas_version
+        typedef :pointer, :evas_version_p
         # typedef struct _Evas_Coord_Rectangle Evas_Coord_Rectangle;
         typedef :pointer, :evas_coord_rectangle
         # typedef struct _Evas_Point Evas_Point;
@@ -257,10 +254,12 @@ module Efl
         # typedef void (*Evas_Object_Box_Layout) (Evas_Object *o, Evas_Object_Box_Data *priv, void *user_data);
         callback :evas_object_box_layout, [ :evas_object_p, :evas_object_box_data_p, :void_p ], :void
         #
+        # VARIABLES
+        # EAPI extern Evas_Version *evas_version;
+        attach_variable :evas_version, :evas_version_p
+        #
         # FUNCTIONS
         fcts = [
-        # EAPI extern Evas_Version *evas_version;
-        # FIXME
         # EAPI int evas_init (void);
         [ :evas_init, [  ], :int ],
         # EAPI int evas_shutdown (void);
@@ -366,14 +365,13 @@ module Efl
         # EAPI void evas_event_feed_mouse_out (Evas *e, unsigned int timestamp, const void *data);
         [ :evas_event_feed_mouse_out, [ :evas_p, :uint, :void_p ], :void ],
         # EAPI void evas_event_feed_multi_down (Evas *e, int d, int x, int y, double rad, double radx, double rady, double pres, double ang, double fx, double fy, Evas_Button_Flags flags, unsigned int timestamp, const void *data);
-        [ :evas_event_feed_multi_down, [ :evas_p, :int, :int, :int, :double, :double, :double, :double, :double, :double, :double, :evas_button_flags,
-            :uint, :void_p ], :void ],
+        [ :evas_event_feed_multi_down, [ :evas_p, :int, :int, :int, :double, :double, :double, :double, :double, :double, :double, :evas_button_flags, :uint, :void_p ],
+            :void ],
         # EAPI void evas_event_feed_multi_up (Evas *e, int d, int x, int y, double rad, double radx, double rady, double pres, double ang, double fx, double fy, Evas_Button_Flags flags, unsigned int timestamp, const void *data);
-        [ :evas_event_feed_multi_up, [ :evas_p, :int, :int, :int, :double, :double, :double, :double, :double, :double, :double, :evas_button_flags,
-            :uint, :void_p ], :void ],
-        # EAPI void evas_event_feed_multi_move (Evas *e, int d, int x, int y, double rad, double radx, double rady, double pres, double ang, double fx, double fy, unsigned int timestamp, const void *data);
-        [ :evas_event_feed_multi_move, [ :evas_p, :int, :int, :int, :double, :double, :double, :double, :double, :double, :double, :uint, :void_p ],
+        [ :evas_event_feed_multi_up, [ :evas_p, :int, :int, :int, :double, :double, :double, :double, :double, :double, :double, :evas_button_flags, :uint, :void_p ],
             :void ],
+        # EAPI void evas_event_feed_multi_move (Evas *e, int d, int x, int y, double rad, double radx, double rady, double pres, double ang, double fx, double fy, unsigned int timestamp, const void *data);
+        [ :evas_event_feed_multi_move, [ :evas_p, :int, :int, :int, :double, :double, :double, :double, :double, :double, :double, :uint, :void_p ], :void ],
         # EAPI void evas_event_feed_mouse_cancel (Evas *e, unsigned int timestamp, const void *data);
         [ :evas_event_feed_mouse_cancel, [ :evas_p, :uint, :void_p ], :void ],
         # EAPI void evas_event_feed_mouse_wheel (Evas *e, int direction, int z, unsigned int timestamp, const void *data);
@@ -991,8 +989,7 @@ module Efl
         # EAPI char *evas_textblock_cursor_content_get(const Evas_Textblock_Cursor *cur);
         [ :evas_textblock_cursor_content_get, [ :evas_textblock_cursor_p ], :string ],
         # EAPI int evas_textblock_cursor_geometry_get(const Evas_Textblock_Cursor *cur, Evas_Coord *cx, Evas_Coord *cy, Evas_Coord *cw, Evas_Coord *ch, Evas_BiDi_Direction *dir, Evas_Textblock_Cursor_Type ctype);
-        [ :evas_textblock_cursor_geometry_get, [ :evas_textblock_cursor_p, :int_p, :int_p, :int_p, :int_p, :evas_bidi_direction_p,
-            :evas_textblock_cursor_type ], :int ],
+        [ :evas_textblock_cursor_geometry_get, [ :evas_textblock_cursor_p, :int_p, :int_p, :int_p, :int_p, :evas_bidi_direction_p, :evas_textblock_cursor_type ], :int ],
         # EAPI int evas_textblock_cursor_char_geometry_get(const Evas_Textblock_Cursor *cur, Evas_Coord *cx, Evas_Coord *cy, Evas_Coord *cw, Evas_Coord *ch);
         [ :evas_textblock_cursor_char_geometry_get, [ :evas_textblock_cursor_p, :int_p, :int_p, :int_p, :int_p ], :int ],
         # EAPI int evas_textblock_cursor_pen_geometry_get(const Evas_Textblock_Cursor *cur, Evas_Coord *cpen_x, Evas_Coord *cy, Evas_Coord *cadv, Evas_Coord *ch);
@@ -1074,11 +1071,9 @@ module Efl
         # EAPI Eina_Bool evas_object_smart_callbacks_descriptions_set(Evas_Object *obj, const Evas_Smart_Cb_Description *descriptions);
         [ :evas_object_smart_callbacks_descriptions_set, [ :evas_object_p, :evas_smart_cb_description_p ], :eina_bool ],
         # EAPI void evas_object_smart_callbacks_descriptions_get(const Evas_Object *obj, const Evas_Smart_Cb_Description ***class_descriptions, unsigned int *class_count, const Evas_Smart_Cb_Description ***instance_descriptions, unsigned int *instance_count);
-        [ :evas_object_smart_callbacks_descriptions_get, [ :evas_object_p, :evas_smart_cb_description_ppp, :uint_p, :evas_smart_cb_description_ppp,
-            :uint_p ], :void ],
+        [ :evas_object_smart_callbacks_descriptions_get, [ :evas_object_p, :evas_smart_cb_description_ppp, :uint_p, :evas_smart_cb_description_ppp, :uint_p ], :void ],
         # EAPI void evas_object_smart_callback_description_find(const Evas_Object *obj, const char *name, const Evas_Smart_Cb_Description **class_description, const Evas_Smart_Cb_Description **instance_description);
-        [ :evas_object_smart_callback_description_find, [ :evas_object_p, :string, :evas_smart_cb_description_pp, :evas_smart_cb_description_pp ],
-            :void ],
+        [ :evas_object_smart_callback_description_find, [ :evas_object_p, :string, :evas_smart_cb_description_pp, :evas_smart_cb_description_pp ], :void ],
         # EAPI void evas_object_smart_changed (Evas_Object *obj);
         [ :evas_object_smart_changed, [ :evas_object_p ], :void ],
         # EAPI void evas_object_smart_need_recalculate_set(Evas_Object *obj, Eina_Bool value);

data/lib/efl.rb

@@ -4,7 +4,7 @@
 #
 module Efl
     #
-    VERSION = '0.0.5'
+    VERSION = '0.0.6'
     #
     autoload :EcoreEvas,    './lib/efl/ecore_evas.rb'
     autoload :EcoreGetopt,  './lib/efl/ecore_getopt.rb'
@@ -12,8 +12,9 @@ module Efl
     autoload :Ecore,        './lib/efl/ecore.rb'
     autoload :Edje,         './lib/efl/edje.rb'
     autoload :Eet,          './lib/efl/eet.rb'
-    autoload :EinHash,      './lib/efl/eina_hash.rb'
+    autoload :EinaHash,     './lib/efl/eina_hash.rb'
     autoload :EinaList,     './lib/efl/eina_list.rb'
+    autoload :EinaLog,      './lib/efl/eina_log.rb'
     autoload :Eina,         './lib/efl/eina.rb'
     autoload :Elm,          './lib/efl/elementary.rb'
     autoload :Evas,         './lib/efl/evas.rb'

data/spec/ecore_evas_spec.rb

@@ -2,25 +2,17 @@
 # -*- coding: UTF-8 -*-
 #
 require 'efl/eina_list'
-require 'efl/evas'
-require 'efl/ecore'
 require 'efl/ecore_evas'
-#
-def ecore_loop n
-    n.downto(0) do
-        sleep 0.1
-        Efl::Ecore.main_loop_iterate
-    end
-end
+require './spec/helper'
 #
 describe Efl::EcoreEvas do
     #
     before(:all) do
         EcoreEvas = Efl::EcoreEvas
-        EcoreEvas.init
+        EcoreEvas.init.should==1
     end
     after(:all) do
-        EcoreEvas.shutdown
+        EcoreEvas.shutdown.should==0
     end
     #
     it "should init" do
@@ -33,7 +25,7 @@ describe Efl::EcoreEvas do
         EcoreEvas.shutdown.should == 1
     end
     #
-    it "should work" do
+    it "engines get/list/free" do
         EcoreEvas.engines_free EcoreEvas.engines_get
         l = EcoreEvas.engines_list
         r = l.inject("\t") do |s,e| s+=e.read_string+' ' end
@@ -41,7 +33,7 @@ describe Efl::EcoreEvas do
         EcoreEvas.engines_free l
     end
     #
-    it "ecore_evas_list should work" do
+    it "ecore_evas_list" do
         el = EcoreEvas.ecore_evas_list
         el.to_ary.length.should == 0
         el.free
@@ -57,7 +49,7 @@ describe Efl::EcoreEvas do
     #
     describe Efl::EcoreEvas::REcoreEvas do
         before(:all) {
-            EcoreEvas.init
+            EcoreEvas.init.should == 2
         }
         before(:each) do
             @e = EcoreEvas::REcoreEvas.new :engine_name=>"software_x11", :x=>10, :y=>10, :w=>100, :h=>120
@@ -75,37 +67,43 @@ describe Efl::EcoreEvas do
             @e.free
         end
         after(:all) do
-            EcoreEvas.shutdown
+            EcoreEvas.shutdown.should == 1
         end
         #
-        it "engine_name_get should work" do
+        it "engine_name_get " do
             @e.engine_name_get.should == "software_x11"
         end
         #
-        it "data get/set should work" do
+        it "data get/set " do
             @e.data_set 'key', '666'
             @e.data_get('key').read_string.should == '666'
         end
         #
-        it "move, resize move_resize and geometry_get should work (and check association)" do
+        it "move, resize move_resize and geometry_get  (and check association)" do
             @e.geometry_get.should == [10,10,100,120]
             @bg.geometry_get.should == [0,0,100,120]
-            @e.move 20, 17  # w+23 window bar height
+            @e.move 20, 20
             ecore_loop 3
-            @e.geometry_get.should == [20,40,100,120]
+            g = @e.geometry_get
+            g.delete_at 1
+            g.should == [20,100,120]
             @bg.geometry_get.should == [0,0,100,120]
             @e.resize 200,150
             ecore_loop 3
-            @e.geometry_get.should == [20,40,200,150]
+            g = @e.geometry_get
+            g.delete_at 1
+            g.should == [20,200,150]
             @bg.geometry_get.should == [0,0,200,150]
             @e.move_resize 10, 0, 130, 100
             ecore_loop 3
-            @e.geometry_get.should == [10,23,130,100]
+            g = @e.geometry_get
+            g.delete_at 1
+            g.should == [10,130,100]
             @bg.geometry_get.should == [0,0,130,100]
             g = @e.geometry_get
         end
         #
-        it "rotation should work" do
+        it "rotation " do
             @e.rotation_set 25
             @e.rotation_get.should == 25
             @e.rotation = 50
@@ -114,31 +112,19 @@ describe Efl::EcoreEvas do
             @e.rotation_get.should == 0
         end
         #
-        it "shaped get/set should work" do
-            @e.shaped?.should be_false
-            @e.shaped_set true
-            @e.shaped_get.should be_true
-            @e.shaped = false
-            @e.shaped?.should be_false
+        it "shaped get/set " do
+            bool_check @e, 'shaped'
         end
         #
-        it "alpha get/set should work" do
-            @e.alpha?.should be_false
-            @e.alpha_set true
-            @e.alpha_get.should be_true
-            @e.alpha = false
-            @e.alpha?.should be_false
+        it "alpha get/set " do
+            bool_check @e, 'alpha'
         end
         #
-        it "transparent get/set should work" do
-            @e.transparent?.should be_false
-            @e.transparent_set true
-            @e.transparent_get.should be_true
-            @e.transparent = false
-            @e.transparent?.should be_false
+        it "transparent get/set " do
+            bool_check @e, 'transparent'
         end
         #
-        it "show hide visibility should work" do
+        it "show hide visibility " do
             ecore_loop 3
             @e.visibility?.should == 1
             @e.hide
@@ -149,13 +135,13 @@ describe Efl::EcoreEvas do
             @e.visibility?.should == 1
         end
         #
-        it "raise lower activate should work" do
+        it "raise lower activate " do
             @e.raise
             @e.lower
             @e.activate
         end
         #
-        it "title set/get should work" do
+        it "title set/get " do
             @e.title_set "title"
             @e.title_get.should == "title"
             @e.title = "other"
@@ -163,41 +149,41 @@ describe Efl::EcoreEvas do
         end
         #
         #
-        it "name_class set/get should work" do
+        it "name_class set/get " do
             @e.name_class_set "name", "class"
             @e.name_class_get.should == ['name','class']
             @e.name_class = "name1", "class1"
             @e.name_class_get.should == ['name1','class1']
         end
         #
-        it "size_min set/get should work" do
+        it "size_min set/get " do
             @e.size_min_set 20, 30
             @e.size_min_get.should == [20, 30]
         end
         #
-        it "size_max set/get should work" do
+        it "size_max set/get " do
             @e.size_max_set 20, 30
             @e.size_max_get.should == [20, 30]
         end
         #
-        it "size_base set/get should work" do
+        it "size_base set/get " do
             @e.size_base_set 20, 30
             @e.size_base_get.should == [20, 30]
         end
         #
-        it "size_step set/get should work" do
+        it "size_step set/get " do
             @e.size_step_set 20, 30
             @e.size_step_get.should == [20, 30]
         end
         #
-        it "layer set/get should work" do
+        it "layer set/get " do
             @e.layer_set 2
             @e.layer_get.should == 2
             @e.layer = 1
             @e.layer?.should == 1
         end
         #
-        it "focus set/get should work" do
+        it "focus set/get " do
             @e.focus?.should be_false
             @e.focus_set true
             ecore_loop 3
@@ -205,49 +191,29 @@ describe Efl::EcoreEvas do
             @e.focus?.should be_true
         end
         #
-        it "iconified set/get should work" do
-            @e.iconified_set true
-            @e.iconified_get.should be_true
-            @e.iconified = false
-            @e.iconified?.should be_false
+        it "iconified set/get " do
+            bool_check @e, 'iconified'
         end
         #
-        it "borderless set/get should work" do
-            @e.borderless_set true
-            @e.borderless_get.should be_true
-            @e.borderless = false
-            @e.borderless?.should be_false
+        it "borderless set/get " do
+            bool_check @e, 'borderless'
         end
         #
-        it "override set/get should work" do
-            @e.override_set true
-            @e.override_get.should be_true
-            @e.override = false
-            @e.override?.should be_false
+        it "override set/get " do
+            bool_check @e, 'override'
         end
         #
         # FIXME maximized
         # ecore/src/lib/ecore_evas/ecore_evas.c => ecore_evas_maximized_set => IFC => return
-#        it "maximized set/get should work" do
-#            @e.maximized?.should be_false
-#            @e.maximized_set true
-#            ecore_loop 10
-#            @e.maximized_get.should be_true
-#            @e.maximized = false
-#            ecore_loop 3
-#            @e.maximized?.should be_false
-#        end
-        #
-        it "fullscreen set/get should work" do
-            @e.fullscreen_set true
-            ecore_loop 3
-            @e.fullscreen_get.should be_true
-            @e.fullscreen = false
-            ecore_loop 3
-            @e.fullscreen?.should be_false
+        it "maximized set/get " do
+            bool_check @e, 'maximized', 5
+        end
+        #
+        it "fullscreen set/get " do
+            bool_check @e, 'fullscreen', 5
         end
         #
-        it "avoid_damage set/get should work" do
+        it "avoid_damage set/get " do
             @e.avoid_damage_set :ecore_evas_avoid_damage_expose
             ecore_loop 3
             @e.avoid_damage_get.should == :ecore_evas_avoid_damage_expose
@@ -256,44 +222,31 @@ describe Efl::EcoreEvas do
             @e.avoid_damage?.should == :ecore_evas_avoid_damage_built_in
         end
         #
-        it "withdrawn set/get should work" do
-            @e.withdrawn_set true
-            @e.withdrawn_get.should be_true
-            @e.withdrawn = false
-            @e.withdrawn?.should be_false
+        it "withdrawn set/get " do
+            bool_check @e, 'withdrawn'
         end
         #
-        it "sticky set/get should work" do
-            @e.sticky_set true
-            ecore_loop 3
-            @e.sticky_get.should be_true
-            @e.sticky = false
-            ecore_loop 3
-            @e.sticky?.should be_false
+        it "sticky set/get " do
+            bool_check @e, 'sticky', 3
         end
         #
-        it "ignore_events set/get should work" do
-            @e.ignore_events_set true
-            @e.ignore_events_get.should be_true
-            @e.ignore_events = false
-            @e.ignore_events?.should be_false
+        it "ignore_events set/get " do
+            bool_check @e, 'ignore_events'
         end
         #
-        it "manual_render set/get should work" do
+        it "manual_render set/get " do
             @e.manual_render_set true
             @e.manual_render_get.should be_true
             @e.manual_render = false
             @e.manual_render?.should be_false
+            @e.manual_render.should be_nil
         end
         #
-        it "comp_sync set/get should work" do
-            @e.comp_sync_set true
-            @e.comp_sync_get.should be_true
-            @e.comp_sync = false
-            @e.comp_sync?.should be_false
+        it "comp_sync set/get " do
+            bool_check @e, 'comp_sync'
         end
         #
-        it "ecore_evas_callback_resize should work" do
+        it "ecore_evas_callback_resize " do
             cpt = 0
             cb = Proc.new do |ecore_evas|
                 cpt+=1
@@ -304,7 +257,7 @@ describe Efl::EcoreEvas do
             cpt.should >0
         end
         #
-        it "ecore_evas_callback_move should work" do
+        it "ecore_evas_callback_move " do
             cpt = 0
             cb = Proc.new do |ecore_evas|
                 cpt+=1
@@ -315,7 +268,7 @@ describe Efl::EcoreEvas do
             cpt.should >0
         end
         #
-        it "ecore_evas_callback_show should work" do
+        it "ecore_evas_callback_show " do
             cpt = 0
             cb = Proc.new do |ecore_evas|
                 cpt+=1
@@ -326,7 +279,7 @@ describe Efl::EcoreEvas do
             cpt.should >0
         end
         #
-        it "ecore_evas_callback_hide should work" do
+        it "ecore_evas_callback_hide " do
             cpt = 0
             cb = Proc.new do |ecore_evas|
                 cpt+=1

data/spec/ecore_getopt_spec.rb

@@ -3,10 +3,14 @@
 #
 require 'efl/ecore'
 require 'efl/ecore_evas'
+require 'efl/eina_list'
 require 'efl/ecore_getopt'
 #
 describe Efl::EcoreGetopt do
     #
+    after(:all) do
+        Efl::Ecore.shutdown
+    end
     before(:all) do
         Efl::Ecore.init
         #
@@ -33,6 +37,7 @@ describe Efl::EcoreGetopt do
             :true => FFI::MemoryPointer.new(:uchar),
             :false => FFI::MemoryPointer.new(:uchar),
             :choice => FFI::MemoryPointer.new(:pointer),
+            :append => FFI::MemoryPointer.new(:pointer),
             :count => FFI::MemoryPointer.new(:int),
             :callback => FFI::MemoryPointer.new(:int),
         }
@@ -49,6 +54,7 @@ describe Efl::EcoreGetopt do
         @p.help 'H', 'help'
         @p.value :boolp, @values[:help]
         # FIXME debug callback : ecore_getopt_callback_ecore_evas_list_engines
+#        @p.callback_noargs 'E', 'list-engines', 'list ecore-evas available engines', @engines_cb, FFI::Pointer::NULL
         @p.callback_noargs 'E', 'list-engines', 'list ecore-evas available engines', Efl::Native.method(:ecore_getopt_callback_ecore_evas_list_engines), FFI::Pointer::NULL
         @p.value :boolp, @values[:engines]
         @p.store_type :int, 'i', 'int', 'store an integer'
@@ -67,8 +73,8 @@ describe Efl::EcoreGetopt do
         @p.value :boolp, @values[:true]
         @p.choice 'm', 'many', 'store choice', ['ch1','ch2','ch3']
         @p.value :strp, @values[:choice]
-#        # FIXME: uses listp with Eina_List
-#        @p.append 'a', 'append', 'store append', :ecore_getopt_type_int
+        @p.append 'a', 'append', 'store append', :ecore_getopt_type_int
+        @p.value :listp, @values[:append]
         @p.count 'k', 'count', 'store count'
         @p.value :intp, @values[:count]
         @p.callback_args 'b', 'callback', 'callback full', @meta1, @callback, @cb_data
@@ -89,12 +95,10 @@ describe Efl::EcoreGetopt do
         @values[:true].write_uchar 1
         @values[:false].write_uchar 0
         @values[:choice].write_pointer FFI::Pointer::NULL
+        @values[:append].write_pointer FFI::Pointer::NULL
         @values[:count].write_int 664
         @values[:callback].write_int 99
     end
-    after(:all) do
-        Efl::Ecore.shutdown
-    end
     #
     describe "license copyright version help" do
         it "should handle -L" do
@@ -121,14 +125,14 @@ describe Efl::EcoreGetopt do
             args = @p.parse ["progname","--version"]
             @values[:version].read_char.should == 1
         end
-#        it "should handle -H" do
-#            args = @p.parse ["My lovely prog name","-H"]
-#            @values[:help].read_char.should == 1
-#        end
-#        it "should handle --help" do
-#            args = @p.parse ["progname","--help"]
-#            @values[:help].read_char.should == 1
-#        end
+        it "should handle -H" do
+            args = @p.parse ["My lovely prog name","-H"]
+            @values[:help].read_char.should == 1
+        end
+        it "should handle --help" do
+            args = @p.parse ["progname","--help"]
+            @values[:help].read_char.should == 1
+        end
         it "should handle -E" do
             args = @p.parse ["My lovely prog name","-E"]
             @values[:engines].read_char.should == 1
@@ -179,6 +183,13 @@ describe Efl::EcoreGetopt do
             args = @p.parse ["progname","-mch2"]
             @values[:choice].read_pointer.read_string.should == "ch2"
         end
+        it "should handle -a" do
+            @values[:append].read_pointer.should == FFI::Pointer::NULL
+            args = @p.parse ["progname","-a10", "-a20"]
+            l = Efl::EinaList::REinaList.new(@values[:append].read_pointer).to_a
+            l[0].read_int.should==10
+            l[1].read_int.should==20
+        end
         it "should handle -k" do
             @values[:count].read_int.should == 664
             args = @p.parse ["progname","-kk"]
@@ -229,6 +240,13 @@ describe Efl::EcoreGetopt do
             args = @p.parse ["progname","--many=ch3"]
             @values[:choice].read_pointer.read_string.should == "ch3"
         end
+        it "should handle -append" do
+            @values[:append].read_pointer.should == FFI::Pointer::NULL
+            args = @p.parse ["progname","--append=10", "--append=20"]
+            l = Efl::EinaList::REinaList.new(@values[:append].read_pointer).to_a
+            l[0].read_int.should==10
+            l[1].read_int.should==20
+        end
         it "should handle --count" do
             @values[:count].read_int.should == 664
             args = @p.parse ["progname","--count","--count"]

data/spec/ecore_spec.rb

@@ -3,7 +3,7 @@
 #
 require 'efl/ecore'
 #
-describe Efl::Ecore do
+describe "Efl::Ecore #{Efl::Ecore.version.full}" do
     #
     before(:all) do
         Ecore = Efl::Ecore
@@ -24,10 +24,10 @@ describe Efl::Ecore do
         NONE = FFI::MemoryPointer.from_string "none"
     end
     before(:each) {
-        Ecore.init
+        Ecore.init==1
     }
     after(:each) {
-        Ecore.shutdown
+        Ecore.shutdown==0
     }
     #
     it "should init" do