gir_ffi 0.0.8 → 0.0.9

data/test/generated_gio_test.rb

@@ -1,7 +1,7 @@
 require File.expand_path('test_helper.rb', File.dirname(__FILE__))
 
 # Tests generated methods and functions in the Gio namespace.
-class GeneratedGioTest < Test::Unit::TestCase
+class GeneratedGioTest < MiniTest::Spec
   context "In the generated Gio module" do
     setup do
       GirFFI.setup :Gio

data/test/generated_gtk_test.rb

@@ -1,10 +1,10 @@
 require File.expand_path('test_helper.rb', File.dirname(__FILE__))
 
 # Tests generated methods and functions in the Gtk namespace.
-class GeneratedGtkTest < Test::Unit::TestCase
+class GeneratedGtkTest < MiniTest::Spec
   context "In the generated Gtk module" do
     setup do
-      GirFFI.setup :Gtk
+      GirFFI.setup :Gtk, '2.0'
     end
 
     context "a Gtk::Builder instance" do
@@ -60,6 +60,35 @@ class GeneratedGtkTest < Test::Unit::TestCase
         assert_equal 2, ref_count(@w)
       end
     end
+
+    context "Gtk::RadioButton" do
+      context ".new" do
+        should "work when called with nil" do
+          assert_nothing_raised {
+            Gtk::RadioButton.new nil
+          }
+        end
+      end
+
+      context "#get_group" do
+        should "return a GLib::SList object" do
+          btn = Gtk::RadioButton.new nil
+          grp = btn.get_group
+          assert_instance_of GLib::SList, grp
+        end
+      end
+
+      context ".new" do
+        should "work when called with the result of #get_group" do
+          assert_nothing_raised {
+            btn = Gtk::RadioButton.new nil
+            grp = btn.get_group
+            btn2 = Gtk::RadioButton.new grp
+          }
+        end
+      end
+
+    end
   end
 end
 

data/test/generated_regress_test.rb

@@ -1,13 +1,27 @@
+# coding: utf-8
 require File.expand_path('test_helper.rb', File.dirname(__FILE__))
 
 # Tests generated methods and functions in the Regress namespace.
-class GeneratedRegressTest < Test::Unit::TestCase
+class GeneratedRegressTest < MiniTest::Spec
   context "The generated Regress module" do
     setup do
       GirFFI.setup :Regress
-      GirFFI.setup :GObject
-      GirFFI.setup :GLib
-      GirFFI.setup :Gtk
+    end
+
+    it "has the constant DOUBLE_CONSTANT" do
+      assert_equal 44.22, Regress::DOUBLE_CONSTANT
+    end
+
+    it "has the constant INT_CONSTANT" do
+      assert_equal 4422, Regress::INT_CONSTANT
+    end
+
+    it "has the constant Mixed_Case_Constant" do
+      assert_equal 4423, Regress::Mixed_Case_Constant
+    end
+
+    it "has the constant STRING_CONSTANT" do
+      assert_equal "Some String", Regress::STRING_CONSTANT
     end
 
     context "the Regress::TestBoxed class" do
@@ -75,7 +89,11 @@ class GeneratedRegressTest < Test::Unit::TestCase
       end
     end
 
-    # TestFlags
+    it "has the bitfield TestFlags" do
+      assert_equal 1, Regress::TestFlags[:flag1]
+      assert_equal 2, Regress::TestFlags[:flag2]
+      assert_equal 4, Regress::TestFlags[:flag3]
+    end
 
     context "the Regress::TestFloating class" do
       context "an instance" do
@@ -93,6 +111,18 @@ class GeneratedRegressTest < Test::Unit::TestCase
       end
     end
 
+    describe "TestFundamentalObject" do
+      it "must be tested"
+    end
+
+    describe "TestFundamentalSubObject" do
+      it "must be tested"
+    end
+
+    describe "TestInterface" do
+      it "must be tested"
+    end
+
     context "the Regress::TestObj class" do
       should "create an instance using #new_from_file" do
 	o = Regress::TestObj.new_from_file("foo")
@@ -267,9 +297,56 @@ class GeneratedRegressTest < Test::Unit::TestCase
       end
     end
 
-    # TestStructB
-    # TestStructC
-    # TestSubObj
+    describe "TestStructB" do
+      describe "an instance" do
+	it "has a working method #clone" do
+	  a = Regress::TestStructB.new
+	  a[:some_int8] = 42
+	  a[:nested_a][:some_int] = 2556
+	  a[:nested_a][:some_int8] = -10
+	  a[:nested_a][:some_double] = 1.03455e20
+	  a[:nested_a][:some_enum] = :value2
+
+	  b = a.clone
+
+	  assert_equal 42, b[:some_int8]
+	  assert_equal 2556, b[:nested_a][:some_int]
+	  assert_equal(-10, b[:nested_a][:some_int8])
+	  assert_equal 1.03455e20, b[:nested_a][:some_double]
+	  assert_equal :value2, b[:nested_a][:some_enum]
+	end
+      end
+    end
+
+    # XXX: TestStructC is not typedef'd in regress.h
+    # describe "TestStructC"
+
+    describe "TestSubObj" do
+      it "is created with #new" do
+        tso = Regress::TestSubObj.new
+        assert_instance_of Regress::TestSubObj, tso
+      end
+
+      describe "an instance" do
+        before do
+          @tso = Regress::TestSubObj.new
+        end
+
+        it "has a working method #instance_method" do
+          res = @tso.instance_method
+          assert_equal 0, res
+        end
+
+        it "has a working method #unset_bare" do
+          @tso.unset_bare
+          pass
+        end
+
+        it "has a field parent_instance" do
+          assert_instance_of Regress::TestObj::Struct, @tso[:parent_instance]
+        end
+      end
+    end
 
     context "the Regress::TestWi8021x class" do
       should "create an instance using #new" do
@@ -310,9 +387,16 @@ class GeneratedRegressTest < Test::Unit::TestCase
       end
     end
 
-    # set_abort_on_error
+    it "has the constant UTF8_CONSTANT" do
+      assert_equal "const ♥ utf8", Regress::UTF8_CONSTANT
+    end
+
+    it "has the function #set_abort_on_error" do
+      Regress.set_abort_on_error false
+      Regress.set_abort_on_error true
+    end
 
-    context "test_array_fixed_size_int_in" do
+    describe "#test_array_fixed_size_int_in" do
       should "return the correct result" do
 	assert_equal 5 + 4 + 3 + 2 + 1, Regress.test_array_fixed_size_int_in([5, 4, 3, 2, 1])
       end
@@ -383,6 +467,7 @@ class GeneratedRegressTest < Test::Unit::TestCase
     end
 
     should "have correct test_async_ready_callback" do
+      GirFFI.setup :Gtk, '2.0'
       a = 1
 
       Regress.test_async_ready_callback Proc.new {
@@ -408,12 +493,35 @@ class GeneratedRegressTest < Test::Unit::TestCase
       assert_equal true, Regress.test_boolean_true(true)
     end
 
-    should "have correct test_cairo_context_full_return"
-    should "have correct test_cairo_context_none_in"
-    should "have correct test_cairo_surface_full_out"
-    should "have correct test_cairo_surface_full_return"
-    should "have correct test_cairo_surface_none_in"
-    should "have correct test_cairo_surface_none_return"
+    it "has correct #test_cairo_context_full_return" do
+      ct = Regress.test_cairo_context_full_return
+      assert_instance_of Cairo::Context, ct
+    end
+
+    it "has correct #test_cairo_context_none_in" do
+      ct = Regress.test_cairo_context_full_return
+      Regress.test_cairo_context_none_in ct
+    end
+
+    it "has correct #test_cairo_surface_full_out" do
+      cs = Regress.test_cairo_surface_full_out
+      assert_instance_of Cairo::Surface, cs
+    end
+
+    it "has correct #test_cairo_surface_full_return" do
+      cs = Regress.test_cairo_surface_full_return
+      assert_instance_of Cairo::Surface, cs
+    end
+
+    it "has correct #test_cairo_surface_none_in" do
+      cs = Regress.test_cairo_surface_full_return
+      Regress.test_cairo_surface_none_in cs
+    end
+
+    it "has correct #test_cairo_surface_none_return" do
+      cs = Regress.test_cairo_surface_none_return
+      assert_instance_of Cairo::Surface, cs
+    end
 
     should "have correct test_callback" do
       result = Regress.test_callback Proc.new { 5 }
@@ -444,7 +552,7 @@ class GeneratedRegressTest < Test::Unit::TestCase
       assert_equal 42, r2
     end
 
-    context "the test_callback_user_data function" do
+    describe "the #test_callback_user_data function" do
       should "return the callbacks return value" do
 	result = Regress.test_callback_user_data Proc.new {|u| 5 }, nil
 	assert_equal 5, result
@@ -472,6 +580,13 @@ class GeneratedRegressTest < Test::Unit::TestCase
       assert_equal 4, r
     end
 
+    it "has a correct #test_date_in_gvalue function" do
+      r = Regress.test_date_in_gvalue
+      date = r.ruby_value
+      assert_equal [1984, :december, 5],
+        [date.get_year, date.get_month, date.get_day]
+    end
+
     should "have correct test_double" do
       r = Regress.test_double 5435.32
       assert_equal 5435.32, r
@@ -482,33 +597,94 @@ class GeneratedRegressTest < Test::Unit::TestCase
       assert_equal "value3", r
     end
 
-    should "have correct test_filename_return"
+    # TODO: Find a way to test encoding issues.
+    it "has correct #test_filename_return" do
+      arr = Regress.test_filename_return
+      assert_equal ["åäö", "/etc/fstab"], arr.to_a
+    end
 
     should "have correct test_float" do
       r = Regress.test_float 5435.32
       assert_in_delta 5435.32, r, 0.001
     end
 
-    should "have correct test_ghash_container_return"
-    should "have correct test_ghash_everything_return"
+    describe "#test_ghash_container_return" do
+      before do
+        @hash = Regress.test_ghash_container_return
+      end
+      
+      it "returns an instance of GLib::Hash" do
+        @hash.must_be_instance_of GLib::HashTable
+      end
+
+      it "returns the correct values" do
+        @hash.to_hash.must_be :==, {"foo" => "bar", "baz" => "bat",
+          "qux" => "quux"}
+      end
+    end
+
+    it "has correct #test_ghash_everything_return" do
+      ghash = Regress.test_ghash_everything_return
+      ghash.to_hash.must_be :==, {"foo" => "bar", "baz" => "bat",
+          "qux" => "quux"}
+    end
+
     should "have correct test_ghash_nested_everything_return"
     should "have correct test_ghash_nested_everything_return2"
-    should "have correct test_ghash_nothing_in"
-    should "have correct test_ghash_nothing_in2"
-    should "have correct test_ghash_nothing_return"
-    should "have correct test_ghash_nothing_return2"
-    should "have correct test_ghash_null_in"
-    should "have correct test_ghash_null_out"
-    should "have correct test_ghash_null_return"
 
-    should "have correct test_glist_container_return" do
-      arr = Regress.test_glist_container_return
-      assert_equal ["1", "2", "3"], arr
+    it "has correct #test_ghash_nothing_in" do
+      Regress.test_ghash_nothing_in({"foo" => "bar", "baz" => "bat",
+          "qux" => "quux"})
+    end
+
+    it "has correct #test_ghash_nothing_in2" do
+      Regress.test_ghash_nothing_in2({"foo" => "bar", "baz" => "bat",
+          "qux" => "quux"})
+    end
+
+    it "has correct #test_ghash_nothing_return" do
+      ghash = Regress.test_ghash_nothing_return
+      ghash.to_hash.must_be :==, {"foo" => "bar", "baz" => "bat",
+          "qux" => "quux"}
+    end
+
+    it "has correct #test_ghash_nothing_return2" do
+      ghash = Regress.test_ghash_nothing_return2
+      ghash.to_hash.must_be :==, {"foo" => "bar", "baz" => "bat",
+          "qux" => "quux"}
+    end
+
+    it "has correct #test_ghash_null_in" do
+      Regress.test_ghash_null_in(nil)
+    end
+
+    it "has correct #test_ghash_null_out" do
+      ghash = Regress.test_ghash_null_out
+      ghash.must_be_nil
+    end
+
+    it "has correct #test_ghash_null_return" do
+      ghash = Regress.test_ghash_null_return
+      ghash.must_be_nil
+    end
+
+    context "#test_glist_container_return" do
+      setup do
+        @list = Regress.test_glist_container_return
+      end
+
+      should "return an instance of GLib::SList" do
+        assert_instance_of GLib::List, @list
+      end
+
+      should "return the correct values" do
+        assert_equal ["1", "2", "3"], @list.to_a
+      end
     end
 
     should "have correct test_glist_everything_return" do
-      arr = Regress.test_glist_everything_return
-      assert_equal ["1", "2", "3"], arr
+      list = Regress.test_glist_everything_return
+      assert_equal ["1", "2", "3"], list.to_a
     end
 
     should "have correct test_glist_nothing_in" do
@@ -524,13 +700,13 @@ class GeneratedRegressTest < Test::Unit::TestCase
     end
 
     should "have correct test_glist_nothing_return" do
-      arr = Regress.test_glist_nothing_return
-      assert_equal ["1", "2", "3"], arr
+      list = Regress.test_glist_nothing_return
+      assert_equal ["1", "2", "3"], list.to_a
     end
 
     should "have correct test_glist_nothing_return2" do
-      arr = Regress.test_glist_nothing_return2
-      assert_equal ["1", "2", "3"], arr
+      list = Regress.test_glist_nothing_return2
+      assert_equal ["1", "2", "3"], list.to_a
     end
 
     should "have correct test_glist_null_in" do
@@ -541,17 +717,26 @@ class GeneratedRegressTest < Test::Unit::TestCase
 
     should "have correct test_glist_null_out" do
       result = Regress.test_glist_null_out
-      assert_equal [], result
+      assert_equal nil, result
     end
 
-    should "have correct test_gslist_container_return" do
-      arr = Regress.test_gslist_container_return
-      assert_equal ["1", "2", "3"], arr
+    context "#test_gslist_container_return" do
+      setup do
+        @slist = Regress.test_gslist_container_return
+      end
+
+      should "return a GLib::SList object" do
+        assert_instance_of GLib::SList, @slist
+      end
+
+      should "return the correct values" do
+        assert_equal ["1", "2", "3"], @slist.to_a
+      end
     end
 
     should "have correct test_gslist_everything_return" do
-      arr = Regress.test_gslist_everything_return
-      assert_equal ["1", "2", "3"], arr
+      slist = Regress.test_gslist_everything_return
+      assert_equal ["1", "2", "3"], slist.to_a
     end
 
     should "have correct test_gslist_nothing_in" do
@@ -567,13 +752,13 @@ class GeneratedRegressTest < Test::Unit::TestCase
     end
 
     should "have correct test_gslist_nothing_return" do
-      arr = Regress.test_gslist_nothing_return
-      assert_equal ["1", "2", "3"], arr
+      slist = Regress.test_gslist_nothing_return
+      assert_equal ["1", "2", "3"], slist.to_a
     end
 
     should "have correct test_gslist_nothing_return2" do
-      arr = Regress.test_gslist_nothing_return2
-      assert_equal ["1", "2", "3"], arr
+      slist = Regress.test_gslist_nothing_return2
+      assert_equal ["1", "2", "3"], slist.to_a
     end
 
     should "have correct test_gslist_null_in" do
@@ -582,9 +767,11 @@ class GeneratedRegressTest < Test::Unit::TestCase
       }
     end
 
-    should "have correct test_gslist_null_out" do
-      result = Regress.test_gslist_null_out
-      assert_equal [], result
+    context "#test_gslist_null_out" do
+      should "return nil" do
+        result = Regress.test_gslist_null_out
+        assert_equal nil, result
+      end
     end
 
     should "have correct test_gtype" do
@@ -661,7 +848,7 @@ class GeneratedRegressTest < Test::Unit::TestCase
       assert_equal [5, 6, 7.0], [result[:some_int], result[:some_int8], result[:some_double]]
     end
 
-    context "the test_simple_callback function" do
+    describe "the #test_simple_callback function" do
       should "call the passed-in proc" do
 	a = 0
 	Regress.test_simple_callback Proc.new { a = 1 }
@@ -690,10 +877,30 @@ class GeneratedRegressTest < Test::Unit::TestCase
       assert_equal true, Regress.test_strv_in(['1', '2', '3'])
     end
 
-    should "have correct test_strv_out"
-    should "have correct test_strv_out_c"
-    should "have correct test_strv_out_container"
-    should "have correct test_strv_outarg"
+    it "has correct #test_strv_in_gvalue" do
+      gv = Regress.test_strv_in_gvalue
+      assert_equal ['one', 'two', 'three'], gv.ruby_value
+    end
+
+    it "has correct #test_strv_out" do
+      arr = Regress.test_strv_out
+      assert_equal ["thanks", "for", "all", "the", "fish"], arr
+    end
+
+    it "has correct #test_strv_out_c" do
+      arr = Regress.test_strv_out_c
+      assert_equal ["thanks", "for", "all", "the", "fish"], arr
+    end
+
+    it "has correct #test_strv_out_container" do
+      arr = Regress.test_strv_out_container
+      assert_equal ['1', '2', '3'], arr
+    end
+
+    it "has correct #test_strv_outarg" do
+      arr = Regress.test_strv_outarg
+      assert_equal ['1', '2', '3'], arr
+    end
 
     should "have correct test_timet" do
       # Time rounded to seconds.
@@ -753,6 +960,16 @@ class GeneratedRegressTest < Test::Unit::TestCase
       assert_equal 54_000_000_000_000, Regress.test_uint64(54_000_000_000_000)
     end
 
+    it "has a correct #test_unichar" do
+      assert_equal 120, Regress.test_unichar(120)
+      assert_equal 540_000, Regress.test_unichar(540_000)
+    end
+
+    it "has a correct #test_unsigned_enum_param" do
+      assert_equal "value1", Regress.test_unsigned_enum_param(:value1)
+      assert_equal "value2", Regress.test_unsigned_enum_param(:value2)
+    end
+
     should "have correct test_ushort" do
       assert_equal 54_000_000, Regress.test_uint64(54_000_000)
     end
@@ -809,6 +1026,13 @@ class GeneratedRegressTest < Test::Unit::TestCase
       assert_equal 3423, result.get_int
     end
 
+    it "raises an appropriate NoMethodError when a function is not found" do
+      begin
+        Regress.this_method_does_not_exist
+      rescue => e
+        assert_equal "undefined method `this_method_does_not_exist' for Regress:Module", e.message
+      end
+    end
   end
 
 end

data/test/girffi_test.rb

@@ -1,11 +1,26 @@
 require File.expand_path('test_helper.rb', File.dirname(__FILE__))
 
-class GirFFITest < Test::Unit::TestCase
+class GirFFITest < MiniTest::Spec
   context "GirFFI" do
-    should "be able to set up cairo" do
-      assert_nothing_raised {
-        GirFFI.setup :cairo
-      }
+    it "sets up cairo as Cairo" do
+      GirFFI.setup :cairo
+      assert Object.const_defined?(:Cairo)
+    end
+
+    it "sets up xlib, which has no shared library" do
+      gir = GirFFI::IRepository.default
+      gir.require 'xlib'
+      assert_nil gir.shared_library('xlib'), "Precondition for test failed"
+      GirFFI.setup :xlib
+    end
+
+    it "sets up dependencies" do
+      save_module :GObject
+      save_module :Regress
+      GirFFI.setup :Regress
+      assert Object.const_defined?(:GObject)
+      restore_module :Regress
+      restore_module :GObject
     end
   end
 end

data/test/glib_overrides_test.rb

@@ -0,0 +1,81 @@
+require File.expand_path('test_helper.rb', File.dirname(__FILE__))
+
+describe "With the GLib overrides" do
+  describe "a HashTable provided by the system" do
+    before do
+      GirFFI.setup :Regress
+      @hash = Regress.test_ghash_container_return
+    end
+
+    it "has a working #each method" do
+      a = {}
+      @hash.each {|k, v| a[k] = v}
+      a.must_be :==, {"foo" => "bar", "baz" => "bat",
+        "qux" => "quux"}
+    end
+
+    it "includes Enumerable" do
+      GLib::HashTable.must_include Enumerable 
+    end
+
+    it "has a working #to_hash method" do
+      @hash.to_hash.must_be :==, {"foo" => "bar", "baz" => "bat",
+        "qux" => "quux"}
+    end
+  end
+
+  describe "HashTable" do
+    it "can be created (for now) with Glib.hash_table_new" do
+      h = GLib.hash_table_new :utf8, :utf8
+      h.to_hash.must_be :==, {}
+    end
+
+    it "allows key-value pairs to be inserted" do
+      h = GLib.hash_table_new :utf8, :utf8
+      h.insert "foo", "bar"
+      h.to_hash.must_be :==, {"foo" => "bar"}
+    end
+  end
+
+  describe "ByteArray" do
+    it "can be created (for now) with Glib.byte_array_new" do
+      ba = GLib.byte_array_new
+      assert_instance_of GLib::ByteArray, ba
+    end
+
+    it "allows strings to be appended to it" do
+      ba = GLib.byte_array_new
+      GLib::byte_array_append ba, "abdc"
+      pass
+    end
+
+    it "has a working #to_s method" do
+      ba = GLib.byte_array_new
+      ba = GLib::byte_array_append ba, "abdc"
+      assert_equal "abdc", ba.to_string
+    end
+  end
+
+  describe "Array" do
+    it "can be created (for now) with Glib.array_new" do
+      arr = GLib.array_new :int32
+      assert_instance_of GLib::Array, arr
+      assert_equal :int32, arr.element_type
+    end
+
+    it "allows values to be appended to it" do
+      ba = GLib.array_new :int32
+      GLib.array_append_vals ba, [1, 2, 3]
+      assert_equal 3, ba[:len]
+    end
+
+    # TODO: Make GLib::Array a full Enumerable"
+    it "has a working #to_a method" do
+      ba = GLib.array_new :int32
+      GLib.array_append_vals ba, [1, 2, 3]
+      assert_equal [1, 2, 3], ba.to_a
+    end
+  end
+end
+
+

data/test/gtk_overrides_test.rb

@@ -1,10 +1,9 @@
 require File.expand_path('test_helper.rb', File.dirname(__FILE__))
 
-class GtkOverridesTest < Test::Unit::TestCase
+class GtkOverridesTest < MiniTest::Spec
   context "The Gtk.init function" do
     setup do
-      cleanup_module :Gtk
-      GirFFI.setup :Gtk
+      GirFFI.setup :Gtk, '2.0'
     end
 
     should "not take any arguments" do

data/test/i_object_info_test.rb

@@ -1,7 +1,7 @@
 require File.expand_path('test_helper.rb', File.dirname(__FILE__))
 
 module GirFFI
-  class IObjectInfoTest < Test::Unit::TestCase
+  class IObjectInfoTest < MiniTest::Spec
     context "An IObjectInfo object" do
 
       setup do