gir_ffi 0.0.3 → 0.0.4

data/test/{base_test.rb → class_base_test.rb}

@@ -1,10 +1,10 @@
 require File.expand_path('test_helper.rb', File.dirname(__FILE__))
-require 'gir_ffi/base'
+require 'gir_ffi/class_base'
 
-class BaseTest < Test::Unit::TestCase
+class ClassBaseTest < Test::Unit::TestCase
   context "A class derived from GirFFI::Base" do
     setup do
-      @klass = Class.new(GirFFI::Base) do
+      @klass = Class.new(GirFFI::ClassBase) do
 	# Boilerplate to make regular #new work again.
 	def initialize; end
 	def self.new; self._real_new; end

data/test/class_builder_test.rb

@@ -3,21 +3,63 @@ require 'gir_ffi'
 
 class ClassBuilderTest < Test::Unit::TestCase
   context "The ClassBuilder" do
-    setup do
+    should "use parent struct as default layout" do
       @gir = GirFFI::IRepository.default
       @gir.require 'GObject', nil
-    end
-    should "use parent struct as default layout" do
-      @classbuilder = GirFFI::ClassBuilder.new 'Foo', 'Bar'
+
       stub(info = Object.new).parent { @gir.find_by_name 'GObject', 'Object' }
       stub(info).fields { [] }
+      stub(info).type { :object }
+
+      @classbuilder = GirFFI::ClassBuilder.new 'Foo', 'Bar'
       @classbuilder.instance_eval { @info = info }
-      @classbuilder.instance_eval { @parent = info.parent }
-      @classbuilder.instance_eval { @superclass = GObject::Object }
 
       spec = @classbuilder.send :layout_specification
       assert_equal [:parent, GObject::Object::Struct, 0], spec
     end
+
+    context "for Gtk::Widget" do
+      setup do
+	@cbuilder = GirFFI::ClassBuilder.new 'Gtk', 'Widget'
+      end
+
+      context "looking at Gtk::Widget#show" do
+	setup do
+	  @go = get_method_introspection_data 'Gtk', 'Widget', 'show'
+	end
+
+	should "delegate definition to FunctionDefinitionBuilder" do
+	  code = @cbuilder.send :function_definition, @go
+	  expected = GirFFI::FunctionDefinitionBuilder.new(@go, Gtk::Lib).generate
+	  assert_equal cws(expected), cws(code)
+	end
+
+      end
+    end
+
+    context 'the find_signal method' do
+      should 'find the signal "test" for TestObj' do
+	builder = GirFFI::ClassBuilder.new 'Everything', 'TestObj'
+	sig = builder.find_signal 'test'
+	assert_equal 'test', sig.name
+      end
+
+      should 'find the signal "test" for TestSubObj' do
+	builder = GirFFI::ClassBuilder.new 'Everything', 'TestSubObj'
+	sig = builder.find_signal 'test'
+	assert_equal 'test', sig.name
+      end
+    end
+
+    context "for GObject::TypeCValue (a union)" do
+      setup do
+	@cbuilder = GirFFI::ClassBuilder.new 'GObject', 'TypeCValue'
+      end
+
+      should "not raise an error looking for a method that doesn't exist" do
+	assert_nothing_raised { @cbuilder.setup_instance_method 'blub' }
+      end
+    end
   end
 end
 

data/test/everything_test.rb

@@ -1,34 +1,19 @@
 require File.expand_path('test_helper.rb', File.dirname(__FILE__))
 require 'gir_ffi'
 
-GirFFI.setup :Everything
-
 # Tests generated methods and functions in the Everything namespace.
 class EverythingTest < Test::Unit::TestCase
-  context "The generated Everything module" do
-    should "have correct test_boolean" do
-      assert_equal false, Everything.test_boolean(false)
-      assert_equal true, Everything.test_boolean(true)
-    end
-
-    should "have correct test_callback_user_data" do
-      a = :foo
-      result = Everything.test_callback_user_data Proc.new {|u|
-	a = u
-	5
-      }, :bar
-      assert_equal :bar, a
-      assert_equal 5, result
-    end
+  def ref_count object
+    GObject::Object::Struct.new(object.to_ptr)[:ref_count]
+  end
 
-    should "have correct test_gtype" do
-      result = Everything.test_gtype 23
-      assert_equal 23, result
-    end
+  def is_floating? object
+    (GObject::Object::Struct.new(object.to_ptr)[:qdata].address & 2) == 2
+  end
 
-    should "have correct test_value_return" do
-      result = Everything.test_value_return 3423
-      assert_equal 3423, result.get_int
+  context "The generated Everything module" do
+    setup do
+      GirFFI.setup :Everything
     end
 
     context "the Everything::TestBoxed class" do
@@ -37,33 +22,56 @@ class EverythingTest < Test::Unit::TestCase
 	assert_instance_of Everything::TestBoxed, tb
       end
 
-      should "allow creating an instance using alternative constructors" do
+      should "create an instance using #new_alternative_constructor1" do
 	tb = Everything::TestBoxed.new_alternative_constructor1 1
 	assert_instance_of Everything::TestBoxed, tb
 	assert_equal 1, tb[:some_int8]
+      end
 
+      should "create an instance using #new_alternative_constructor2" do
 	tb = Everything::TestBoxed.new_alternative_constructor2 1, 2
 	assert_instance_of Everything::TestBoxed, tb
 	assert_equal 1 + 2, tb[:some_int8]
+      end
 
+      should "create an instance using #new_alternative_constructor3" do
 	tb = Everything::TestBoxed.new_alternative_constructor3 "54"
 	assert_instance_of Everything::TestBoxed, tb
 	assert_equal 54, tb[:some_int8]
       end
 
-      should "have a working equals method" do
-	tb = Everything::TestBoxed.new_alternative_constructor1 123
-	tb2 = Everything::TestBoxed.new_alternative_constructor2 120, 3
-	assert_equal true, tb.equals(tb2)
+      should "have non-zero result for #get_gtype" do
+	assert Everything::TestBoxed.get_gtype > 0
       end
 
-      should "have a working copy method" do
-	tb = Everything::TestBoxed.new_alternative_constructor1 123
-	tb2 = tb.copy
-	assert_instance_of Everything::TestBoxed, tb2
-	assert_equal 123, tb2[:some_int8], "fields copied"
-	tb2[:some_int8] = 89
-	assert_equal 123, tb[:some_int8], "is a true copy"
+      context "an instance" do
+	setup do
+	  @tb = Everything::TestBoxed.new_alternative_constructor1 123
+	end
+
+	should "have a working equals method" do
+	  tb2 = Everything::TestBoxed.new_alternative_constructor2 120, 3
+	  assert_equal true, @tb.equals(tb2)
+	end
+
+	context "its copy method" do
+	  setup do
+	    @tb2 = @tb.copy
+	  end
+
+	  should "return an instance of TestBoxed" do
+	    assert_instance_of Everything::TestBoxed, @tb2
+	  end
+
+	  should "copy fields" do
+	    assert_equal 123, @tb2[:some_int8]
+	  end
+
+	  should "create a true copy" do
+	    @tb[:some_int8] = 89
+	    assert_equal 123, @tb2[:some_int8]
+	  end
+	end
       end
     end
 
@@ -73,6 +81,247 @@ class EverythingTest < Test::Unit::TestCase
       end
     end
 
+    # TestFlags
+
+    context "the Everything::TestFloating class" do
+      context "an instance" do
+	setup do
+	  @o = Everything::TestFloating.new
+	end
+
+	should "have a reference count of 1" do
+	  assert_equal 1, ref_count(@o)
+	end
+
+	should "have been sunk" do
+	  assert !is_floating?(@o)
+	end
+      end
+    end
+
+    context "the Everything::TestObj class" do
+      should "create an instance using #new_from_file" do
+	o = Everything::TestObj.new_from_file("foo")
+	assert_instance_of Everything::TestObj, o
+      end
+
+      should "create an instance using #new_callback" do
+	o = Everything::TestObj.new_callback Proc.new { }, nil, nil
+	assert_instance_of Everything::TestObj, o
+      end
+
+      should "have a working #static_method" do
+	rv = Everything::TestObj.static_method 623
+	assert_equal 623.0, rv
+      end
+
+      should "have a working #static_method_callback" do
+	a = 1
+	Everything::TestObj.static_method_callback Proc.new { a = 2 }
+	assert_equal 2, a
+      end
+
+      context "an instance" do
+	setup do
+	  @o = Everything::TestObj.new_from_file("foo")
+	end
+
+	should "have a reference count of 1" do
+	  assert_equal 1, ref_count(@o)
+	end
+
+	should "not float" do
+	  assert !is_floating?(@o)
+	end
+
+	should "have a working (virtual) #matrix method" do
+	  rv = @o.matrix "bar"
+	  assert_equal 42, rv
+	end
+
+	should "have a working #set_bare method" do
+	  obj = Everything::TestObj.new_from_file("bar")
+	  rv = @o.set_bare obj
+	  # TODO: What is the correct value to retrieve from the fields?
+	  assert_equal obj.to_ptr, @o[:bare]
+	end
+
+	should "have a working #instance_method method" do
+	  rv = @o.instance_method
+	  assert_equal(-1, rv)
+	end
+
+	should "have a working #torture_signature_0 method" do
+	  y, z, q = @o.torture_signature_0(-21, "hello", 13)
+	  assert_equal [-21, 2 * -21, "hello".length + 13],
+	    [y, z, q]
+	end
+
+	context "its #torture_signature_1 method" do
+	  should "work for m even" do
+	    ret, y, z, q = @o.torture_signature_1(-21, "hello", 12)
+	    assert_equal [true, -21, 2 * -21, "hello".length + 12],
+	      [ret, y, z, q]
+	  end
+
+	  should "throw an exception for m odd" do
+	    assert_raises RuntimeError do
+	      @o.torture_signature_1(-21, "hello", 11)
+	    end
+	  end
+	end
+
+	should "have a working #instance_method_callback method" do
+	  a = 1
+	  @o.instance_method_callback Proc.new { a = 2 }
+	  assert_equal 2, a
+	end
+      end
+    end
+
+    context "the Everything::TestSimpleBoxedA class" do
+      should "create an instance using #new" do
+	obj = Everything::TestSimpleBoxedA.new
+	assert_instance_of Everything::TestSimpleBoxedA, obj
+      end
+
+      context "an instance" do
+	setup do
+	  @obj = Everything::TestSimpleBoxedA.new
+	  @obj[:some_int] = 4236
+	  @obj[:some_int8] = 36
+	  @obj[:some_double] = 23.53
+	  @obj[:some_enum] = :value2
+	end
+
+	context "its equals method" do
+	  setup do
+	    @ob2 = Everything::TestSimpleBoxedA.new
+	    @ob2[:some_int] = 4236
+	    @ob2[:some_int8] = 36
+	    @ob2[:some_double] = 23.53
+	    @ob2[:some_enum] = :value2
+	  end
+
+	  should "return true if values are the same" do
+	    assert_equal true, @obj.equals(@ob2)
+	  end
+
+	  should "return true if enum values differ" do
+	    @ob2[:some_enum] = :value3
+	    assert_equal true, @obj.equals(@ob2)
+	  end
+
+	  should "return false if other values differ" do
+	    @ob2[:some_int] = 1
+	    assert_equal false, @obj.equals(@ob2)
+	  end
+	end
+
+	context "its copy method" do
+	  setup do
+	    @ob2 = @obj.copy
+	  end
+
+	  should "return an instance of TestSimpleBoxedA" do
+	    assert_instance_of Everything::TestSimpleBoxedA, @ob2
+	  end
+
+	  should "copy fields" do
+	    assert_equal 4236, @ob2[:some_int]
+	    assert_equal 36, @ob2[:some_int8]
+	    assert_equal 23.53, @ob2[:some_double]
+	    assert_equal :value2, @ob2[:some_enum]
+	  end
+
+	  should "create a true copy" do
+	    @obj[:some_int8] = 89
+	    assert_equal 36, @ob2[:some_int8]
+	  end
+	end
+      end
+    end
+
+    context "the Everything::TestStructA class" do
+      context "an instance" do
+	should "have a working clone method" do
+	  a = Everything::TestStructA.new
+	  a[:some_int] = 2556
+	  a[:some_int8] = -10
+	  a[:some_double] = 1.03455e20
+	  a[:some_enum] = :value2
+
+	  b = a.clone
+
+	  assert_equal 2556, b[:some_int]
+	  assert_equal(-10, b[:some_int8])
+	  assert_equal 1.03455e20, b[:some_double]
+	  assert_equal :value2, b[:some_enum]
+	end
+      end
+    end
+
+    # TestStructB
+    # TestStructC
+    # TestSubObj
+
+    context "the Everything::TestWi8021x class" do
+      should "create an instance using #new" do
+	o = Everything::TestWi8021x.new
+	assert_instance_of Everything::TestWi8021x, o
+      end
+
+      context "an instance" do
+	setup do
+	  @obj = Everything::TestWi8021x.new
+	end
+	should "set its boolean struct member with #set_testbool" do
+	  @obj.set_testbool true
+	  assert_equal 1, @obj[:testbool]
+	  gv = GObject::Value.new
+	  gv.init GObject.type_from_name "gboolean"
+	  @obj.get_property "testbool", gv
+	  assert_equal true, gv.get_boolean
+	end
+      end
+    end
+
+    should "have correct test_boolean" do
+      assert_equal false, Everything.test_boolean(false)
+      assert_equal true, Everything.test_boolean(true)
+    end
+
+    should "have correct test_callback" do
+      result = Everything.test_callback Proc.new { 5 }
+      assert_equal 5, result
+    end
+
+    context "the test_callback_user_data function" do
+      should "return the callbacks return value" do
+	result = Everything.test_callback_user_data Proc.new {|u| 5 }, nil
+	assert_equal 5, result
+      end
+
+      should "handle boolean user_data" do
+	a = false
+	result = Everything.test_callback_user_data Proc.new {|u|
+	  a = u
+	  5
+	}, true
+	assert_equal true, a
+      end
+    end
+
+    should "have correct test_gtype" do
+      result = Everything.test_gtype 23
+      assert_equal 23, result
+    end
+
+    should "have correct test_value_return" do
+      result = Everything.test_value_return 3423
+      assert_equal 3423, result.get_int
+    end
+
   end
 
 end

data/test/function_definition_builder_test.rb

@@ -12,7 +12,7 @@ class FunctionDefinitionBuilderTest < Test::Unit::TestCase
 	def init argc, argv
 	  _v1 = GirFFI::ArgHelper.int_to_inoutptr argc
 	  _v3 = GirFFI::ArgHelper.string_array_to_inoutptr argv
-	  Lib.gtk_init _v1, _v3
+	  ::Lib.gtk_init _v1, _v3
 	  _v2 = GirFFI::ArgHelper.outptr_to_int _v1
 	  _v4 = GirFFI::ArgHelper.outptr_to_string_array _v3, argv.nil? ? 0 : argv.size
 	  return _v2, _v4
@@ -29,7 +29,7 @@ class FunctionDefinitionBuilderTest < Test::Unit::TestCase
 
       expected = "
 	def show
-	  Lib.gtk_widget_show self
+	  ::Lib.gtk_widget_show self
 	end
       "
 
@@ -45,11 +45,11 @@ class FunctionDefinitionBuilderTest < Test::Unit::TestCase
 	"def signal_connect_data instance, detailed_signal, c_handler, data, destroy_data, connect_flags
 	  _v2 = GirFFI::ArgHelper.object_to_inptr instance
 	  _v3 = GirFFI::ArgHelper.mapped_callback_args c_handler
-	  Lib::CALLBACKS << _v3
+	  ::Lib::CALLBACKS << _v3
 	  _v4 = GirFFI::ArgHelper.object_to_inptr data
 	  _v5 = GirFFI::ArgHelper.mapped_callback_args destroy_data
-	  Lib::CALLBACKS << _v5
-	  _v1 = Lib.g_signal_connect_data _v2, detailed_signal, _v3, _v4, _v5, connect_flags
+	  ::Lib::CALLBACKS << _v5
+	  _v1 = ::Lib.g_signal_connect_data _v2, detailed_signal, _v3, _v4, _v5, connect_flags
 	  return _v1
 	end"
 
@@ -63,10 +63,12 @@ class FunctionDefinitionBuilderTest < Test::Unit::TestCase
 
       expected =
 	"def new_from_file x
-	  _v2 = FFI::MemoryPointer.new(:pointer).write_pointer nil
-	  _v1 = Lib.test_obj_new_from_file x, _v2
-	  GirFFI::ArgHelper.check_error(_v2)
-	  return Everything::TestObj._real_new(_v1)
+	  _v3 = FFI::MemoryPointer.new(:pointer).write_pointer nil
+	  _v1 = ::Lib.test_obj_new_from_file x, _v3
+	  GirFFI::ArgHelper.check_error(_v3)
+	  _v2 = ::Everything::TestObj._real_new(_v1)
+	  GirFFI::ArgHelper.sink_if_floating(_v2)
+	  return _v2
 	end"
 
       assert_equal cws(expected), cws(code)