ffi-efl 0.0.3 → 0.0.4

data/spec/ecore_evas_spec.rb

@@ -1,24 +1,343 @@
 #! /usr/bin/env ruby
 # -*- 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
+#
 describe Efl::EcoreEvas do
     #
     before(:all) do
         EcoreEvas = Efl::EcoreEvas
+        EcoreEvas.init
+    end
+    after(:all) do
+        EcoreEvas.shutdown
     end
     #
     it "should init" do
-        EcoreEvas.init.should eql 1
-        EcoreEvas.init.should eql 2
-        EcoreEvas.init.should eql 3
+        EcoreEvas.init.should == 2
+        EcoreEvas.init.should == 3
     end
     #
     it "should shutdown" do
-        EcoreEvas.shutdown.should eql 2
-        EcoreEvas.shutdown.should eql 1
-        EcoreEvas.shutdown.should eql 0
+        EcoreEvas.shutdown.should == 2
+        EcoreEvas.shutdown.should == 1
     end
     #
+    it "should work" do
+        EcoreEvas.engines_free EcoreEvas.engines_get
+        l = EcoreEvas.engines_list
+        r = l.inject("\t") do |s,e| s+=e.read_string+' ' end
+        puts r
+        EcoreEvas.engines_free l
+    end
+    #
+    it "ecore_evas_list should work" do
+        el = EcoreEvas.ecore_evas_list
+        el.to_ary.length.should == 0
+        el.free
+        r=[]
+        0.upto(3) do
+            r << EcoreEvas::REcoreEvas.new
+        end
+        el = EcoreEvas.ecore_evas_list
+        el.to_ary.length.should == 4
+        el.free
+        r.each do |e| e.free end
+    end
+    #
+    describe Efl::EcoreEvas::REcoreEvas do
+        before(:all) {
+            EcoreEvas.init
+        }
+        before(:each) do
+            @e = EcoreEvas::REcoreEvas.new :engine_name=>"software_x11", :x=>10, :y=>10, :w=>100, :h=>120
+            @canvas = @e.evas
+            @bg = @canvas.object_add(:rectangle) { |o|
+                o.color = 100, 100, 255, 255
+                o.size = @e.size
+            }
+            @bg.show
+            @e.object_associate @bg, :ecore_evas_object_associate_base
+            @e.move 10, 10
+            @e.show
+        end
+        after(:each) do
+            @e.free
+        end
+        after(:all) do
+            EcoreEvas.shutdown
+        end
+        #
+        it "engine_name_get should work" do
+            @e.engine_name_get.should == "software_x11"
+        end
+        #
+        it "data get/set should work" 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
+            @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
+            ecore_loop 3
+            @e.geometry_get.should == [20,40,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]
+            @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]
+            @bg.geometry_get.should == [0,0,130,100]
+            g = @e.geometry_get
+        end
+        #
+        it "rotation should work" do
+            @e.rotation_set 25
+            @e.rotation_get.should == 25
+            @e.rotation = 50
+            @e.rotation_get.should == 50
+            @e.rotation_with_resize_set 0
+            @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
+        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
+        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
+        end
+        #
+        it "show hide visibility should work" do
+            ecore_loop 3
+            @e.visibility?.should == 1
+            @e.hide
+            ecore_loop 3
+            @e.visibility_get.should == 0
+            @e.show
+            ecore_loop 3
+            @e.visibility?.should == 1
+        end
+        #
+        it "raise lower activate should work" do
+            @e.raise
+            @e.lower
+            @e.activate
+        end
+        #
+        it "title set/get should work" do
+            @e.title_set "title"
+            @e.title_get.should == "title"
+            @e.title = "other"
+            @e.title_get.should == "other"
+        end
+        #
+        #
+        it "name_class set/get should work" 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
+            @e.size_min_set 20, 30
+            @e.size_min_get.should == [20, 30]
+        end
+        #
+        it "size_max set/get should work" do
+            @e.size_max_set 20, 30
+            @e.size_max_get.should == [20, 30]
+        end
+        #
+        it "size_base set/get should work" do
+            @e.size_base_set 20, 30
+            @e.size_base_get.should == [20, 30]
+        end
+        #
+        it "size_step set/get should work" do
+            @e.size_step_set 20, 30
+            @e.size_step_get.should == [20, 30]
+        end
+        #
+        it "layer set/get should work" 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
+            @e.focus?.should be_false
+            @e.focus_set true
+            ecore_loop 3
+            @e.focus_get.should be_true
+            @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
+        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
+        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
+        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
+        end
+        #
+        it "avoid_damage set/get should work" do
+            @e.avoid_damage_set :ecore_evas_avoid_damage_expose
+            ecore_loop 3
+            @e.avoid_damage_get.should == :ecore_evas_avoid_damage_expose
+            @e.avoid_damage = :ecore_evas_avoid_damage_built_in
+            ecore_loop 3
+            @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
+        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
+        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
+        end
+        #
+        it "manual_render set/get should work" do
+            @e.manual_render_set true
+            @e.manual_render_get.should be_true
+            @e.manual_render = false
+            @e.manual_render?.should be_false
+        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
+        end
+        #
+        it "ecore_evas_callback_resize should work" do
+            cpt = 0
+            cb = Proc.new do |ecore_evas|
+                cpt+=1
+            end
+            @e.callback_resize_set cb
+            @e.resize 60,90
+            ecore_loop 3
+            cpt.should >0
+        end
+        #
+        it "ecore_evas_callback_move should work" do
+            cpt = 0
+            cb = Proc.new do |ecore_evas|
+                cpt+=1
+            end
+            @e.callback_move_set cb
+            @e.move 60,90
+            ecore_loop 3
+            cpt.should >0
+        end
+        #
+        it "ecore_evas_callback_show should work" do
+            cpt = 0
+            cb = Proc.new do |ecore_evas|
+                cpt+=1
+            end
+            @e.callback_show_set cb
+            @e.show
+            ecore_loop 3
+            cpt.should >0
+        end
+        #
+        it "ecore_evas_callback_hide should work" do
+            cpt = 0
+            cb = Proc.new do |ecore_evas|
+                cpt+=1
+            end
+            @e.show
+            ecore_loop 3
+            @e.callback_hide_set cb
+            @e.hide
+            ecore_loop 3
+            cpt.should >0
+        end
+        #
+    end
 end

data/spec/ecore_getopt_spec.rb

@@ -1,6 +1,8 @@
 #! /usr/bin/env ruby
 # -*- coding: UTF-8 -*-
 #
+require 'efl/ecore'
+require 'efl/ecore_evas'
 require 'efl/ecore_getopt'
 #
 describe Efl::EcoreGetopt do
@@ -10,10 +12,10 @@ describe Efl::EcoreGetopt do
         #
         @p = Efl::EcoreGetopt::REcoreGetopt.new :prog =>"Prog", :usage => "Usage", :version => "0.0.0", :copyright => "less", :license => "MIT", :description => "description", :strict => 1
         @callback = Proc.new do |parser, desc, string, data, value|
-            parser.address.should eql @p.to_ptr.address
-            string.should eql "my_data"
-            data.read_string.should eql "cb_data"
-            value.read_pointer.read_int.should eql 99
+            parser.address.should == @p.to_ptr.address
+            string.should == "my_data"
+            data.read_string.should == "cb_data"
+            value.read_pointer.read_int.should == 99
             true
         end
         #
@@ -22,6 +24,7 @@ describe Efl::EcoreGetopt do
             :copyright => FFI::MemoryPointer.new(:uchar),
             :version => FFI::MemoryPointer.new(:uchar),
             :help => FFI::MemoryPointer.new(:uchar),
+            :engines => FFI::MemoryPointer.new(:uchar),
             :int => FFI::MemoryPointer.new(:int),
             :double => FFI::MemoryPointer.new(:double),
             :short => FFI::MemoryPointer.new(:short),
@@ -45,6 +48,9 @@ describe Efl::EcoreGetopt do
         @p.value :boolp, @values[:version]
         @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', 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'
         @p.value :intp, @values[:int]
         @p.store_meta_type :double, 'd', 'double', 'store an double+meta', @meta1
@@ -65,14 +71,14 @@ describe Efl::EcoreGetopt do
 #        @p.append 'a', 'append', 'store append', :ecore_getopt_type_int
         @p.count 'k', 'count', 'store count'
         @p.value :intp, @values[:count]
-        @p.callback_args 'b', 'callback', 'callback full', @meta, @callback, @cb_data
+        @p.callback_args 'b', 'callback', 'callback full', @meta1, @callback, @cb_data
         @p.value :intp, @values[:callback]
         @p.create
 #        puts @p.debug
         #
     end
     before(:each) do
-        [ :license, :copyright, :version, :help ].each do |sym|
+        [ :license, :copyright, :version, :help, :engines ].each do |sym|
             @values[sym].write_char 0
         end
         @values[:int].write_int 0
@@ -92,131 +98,91 @@ describe Efl::EcoreGetopt do
     #
     describe "license copyright version help" do
         it "should handle -L" do
-            [ :license, :copyright, :version, :help ].each do |sym|
-                @values[sym].read_char.should eql 0
-            end
             args = @p.parse ["My lovely prog name","-L"]
-            @values[:license].read_char.should eql 1
-            [ :copyright, :version, :help ].each do |sym|
-                @values[sym].read_char.should eql 0
-            end
+            @values[:license].read_char.should == 1
         end
         it "should handle --license" do
-            [ :license, :copyright, :version, :help ].each do |sym|
-                @values[sym].read_char.should eql 0
-            end
             args = @p.parse ["My lovely prog name","--license"]
-            @values[:license].read_char.should eql 1
-            [ :copyright, :version, :help ].each do |sym|
-                @values[sym].read_char.should eql 0
-            end
+            @values[:license].read_char.should == 1
         end
         it "should handle -C" do
-            [ :license, :copyright, :version, :help ].each do |sym|
-                @values[sym].read_char.should eql 0
-            end
             args = @p.parse ["progname","-C"]
-            @values[:copyright].read_char.should eql 1
-            [ :license, :version, :help ].each do |sym|
-                @values[sym].read_char.should eql 0
-            end
+            @values[:copyright].read_char.should == 1
         end
         it "should handle --copyright" do
-            [ :license, :copyright, :version, :help ].each do |sym|
-                @values[sym].read_char.should eql 0
-            end
             args = @p.parse ["My lovely prog name","--copyright"]
-            @values[:copyright].read_char.should eql 1
-            [ :license, :version, :help ].each do |sym|
-                @values[sym].read_char.should eql 0
-            end
+            @values[:copyright].read_char.should == 1
         end
         it "should handle -V" do
-            [ :license, :copyright, :version, :help ].each do |sym|
-                @values[sym].read_char.should eql 0
-            end
             args = @p.parse ["My lovely prog name","-V"]
-            @values[:version].read_char.should eql 1
-            [ :license, :copyright, :help ].each do |sym|
-                @values[sym].read_char.should eql 0
-            end
+            @values[:version].read_char.should == 1
         end
         it "should handle --version" do
-            [ :license, :copyright, :version, :help ].each do |sym|
-                @values[sym].read_char.should eql 0
-            end
             args = @p.parse ["progname","--version"]
-            @values[:version].read_char.should eql 1
-            [ :license, :copyright, :help ].each do |sym|
-                @values[sym].read_char.should eql 0
-            end
-        end
-        it "should handle -H" do
-            [ :license, :copyright, :version, :help ].each do |sym|
-                @values[sym].read_char.should eql 0
-            end
-            args = @p.parse ["My lovely prog name","-H"]
-            @values[:help].read_char.should eql 1
-            [ :license, :copyright, :version ].each do |sym|
-                @values[sym].read_char.should eql 0
-            end
-        end
-        it "should handle --help" do
-            [ :license, :copyright, :version, :help ].each do |sym|
-                @values[sym].read_char.should eql 0
-            end
-            args = @p.parse ["progname","--help"]
-            @values[:help].read_char.should eql 1
-            [ :license, :copyright, :version ].each do |sym|
-                @values[sym].read_char.should eql 0
-            end
+            @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 -E" do
+            args = @p.parse ["My lovely prog name","-E"]
+            @values[:engines].read_char.should == 1
+        end
+        it "should handle --list-engines" do
+            args = @p.parse ["My lovely prog name","--list-engines"]
+            @values[:engines].read_char.should == 1
         end
     end
     describe "simple short options" do
         it "should handle -i" do
-            @values[:int].read_int.should eql 0
+            @values[:int].read_int.should == 0
             args = @p.parse ["progname","-i 666"]
-            @values[:int].read_int.should eql 666
+            @values[:int].read_int.should == 666
         end
         it "should handle -d" do
-            @values[:double].read_double.should eql 3.1415926
+            @values[:double].read_double.should == 3.1415926
             args = @p.parse ["progname","-d 6.66"]
-            @values[:double].read_double.should eql 6.66
+            @values[:double].read_double.should == 6.66
         end
         it "should handle -s" do
-            @values[:short].read_short.should eql 9
+            @values[:short].read_short.should == 9
             args = @p.parse ["progname","-s 125"]
-            @values[:short].read_short.should eql 125
+            @values[:short].read_short.should == 125
         end
         it "should handle -l" do
-            @values[:long].read_long.should eql 666
+            @values[:long].read_long.should == 666
             args = @p.parse ["progname","-l 69"]
-            @values[:long].read_long.should eql 69
+            @values[:long].read_long.should == 69
         end
         it "should handle -c" do
-            @values[:const].read_int.should eql -666
+            @values[:const].read_int.should == -666
             args = @p.parse ["progname","-c"]
-            @values[:const].read_int.should eql 123456
+            @values[:const].read_int.should == 123456
         end
         it "should handle -t" do
-            @values[:false].read_uchar.should eql 0
+            @values[:false].read_uchar.should == 0
             args = @p.parse ["progname","-t"]
-            @values[:false].read_uchar.should eql 1
+            @values[:false].read_uchar.should == 1
         end
         it "should handle -f" do
-            @values[:true].read_uchar.should eql 1
+            @values[:true].read_uchar.should == 1
             args = @p.parse ["progname","-f"]
-            @values[:true].read_uchar.should eql 0
+            @values[:true].read_uchar.should == 0
         end
         it "should handle -m" do
-            @values[:choice].read_pointer.should eql FFI::Pointer::NULL
+            @values[:choice].read_pointer.should == FFI::Pointer::NULL
             args = @p.parse ["progname","-mch2"]
-            @values[:choice].read_pointer.read_string.should eql "ch2"
+            @values[:choice].read_pointer.read_string.should == "ch2"
         end
         it "should handle -k" do
-            @values[:count].read_int.should eql 664
+            @values[:count].read_int.should == 664
             args = @p.parse ["progname","-kk"]
-            @values[:count].read_int.should eql 666
+            @values[:count].read_int.should == 666
         end
         it "should handle -b" do
             args = @p.parse ["progname","-bmy_data"]
@@ -224,49 +190,49 @@ describe Efl::EcoreGetopt do
     end
     describe "simple long options" do
         it "should handle --int" do
-            @values[:int].read_int.should eql 0
+            @values[:int].read_int.should == 0
             args = @p.parse ["progname","--int=666"]
-            @values[:int].read_int.should eql 666
+            @values[:int].read_int.should == 666
         end
         it "should handle --double" do
-            @values[:double].read_double.should eql 3.1415926
+            @values[:double].read_double.should == 3.1415926
             args = @p.parse ["progname","--double=6.66"]
-            @values[:double].read_double.should eql 6.66
+            @values[:double].read_double.should == 6.66
         end
         it "should handle --short" do
-            @values[:short].read_short.should eql 9
+            @values[:short].read_short.should == 9
             args = @p.parse ["progname","--short=125"]
-            @values[:short].read_short.should eql 125
+            @values[:short].read_short.should == 125
         end
         it "should handle --long" do
-            @values[:long].read_long.should eql 666
+            @values[:long].read_long.should == 666
             args = @p.parse ["progname","--long=69"]
-            @values[:long].read_long.should eql 69
+            @values[:long].read_long.should == 69
         end
         it "should handle --const" do
-            @values[:const].read_int.should eql -666
+            @values[:const].read_int.should == -666
             args = @p.parse ["progname","--const"]
-            @values[:const].read_int.should eql 123456
+            @values[:const].read_int.should == 123456
         end
         it "should handle --true" do
-            @values[:false].read_uchar.should eql 0
+            @values[:false].read_uchar.should == 0
             args = @p.parse ["progname","--true"]
-            @values[:false].read_uchar.should eql 1
+            @values[:false].read_uchar.should == 1
         end
         it "should handle --false" do
-            @values[:true].read_uchar.should eql 1
+            @values[:true].read_uchar.should == 1
             args = @p.parse ["progname","--false"]
-            @values[:true].read_uchar.should eql 0
+            @values[:true].read_uchar.should == 0
         end
         it "should handle --many" do
-            @values[:choice].read_pointer.should eql FFI::Pointer::NULL
+            @values[:choice].read_pointer.should == FFI::Pointer::NULL
             args = @p.parse ["progname","--many=ch3"]
-            @values[:choice].read_pointer.read_string.should eql "ch3"
+            @values[:choice].read_pointer.read_string.should == "ch3"
         end
         it "should handle --count" do
-            @values[:count].read_int.should eql 664
+            @values[:count].read_int.should == 664
             args = @p.parse ["progname","--count","--count"]
-            @values[:count].read_int.should eql 666
+            @values[:count].read_int.should == 666
         end
         it "should handle --callback" do
             args = @p.parse ["progname","--callback=my_data"]

data/spec/ecore_input_spec.rb

@@ -10,15 +10,15 @@ describe Efl::EcoreInput do
     end
     #
     it "should init" do
-        EcoreInput.init.should eql 1
-        EcoreInput.init.should eql 2
-        EcoreInput.init.should eql 3
+        EcoreInput.init.should == 1
+        EcoreInput.init.should == 2
+        EcoreInput.init.should == 3
     end
     #
     it "should shutdown" do
-        EcoreInput.shutdown.should eql 2
-        EcoreInput.shutdown.should eql 1
-        EcoreInput.shutdown.should eql 0
+        EcoreInput.shutdown.should == 2
+        EcoreInput.shutdown.should == 1
+        EcoreInput.shutdown.should == 0
     end
     #
 end