dub 0.2.2 → 1.0.0

data/test/lua_function_gen_test.rb

@@ -0,0 +1,242 @@
+require 'helper'
+require 'dub/lua'
+
+class LuaFunctionGenTest < Test::Unit::TestCase
+  context 'A Lua generator' do
+    setup do
+      @generator = Dub::Lua
+    end
+
+    context 'with a function' do
+      setup do
+        # namespacecv_xml = Dub.parse(fixture('namespacecv.xml'))
+        @function = namespacecv_xml[:cv][:resize]
+      end
+
+      should 'return Function on bind' do
+        assert_kind_of Dub::Function, @generator.bind(@function)
+      end
+    end
+  end
+
+  context 'A Function' do
+    setup do
+      @function = namespacecv_xml[:cv][:resize]
+    end
+
+    context 'bound to a Lua generator' do
+      setup do
+        Dub::Lua.bind(@function)
+        @generator = Dub::Lua.function_generator
+      end
+
+
+      should 'return string on to_s' do
+        assert_kind_of String, @function.to_s
+      end
+
+      should 'generate a static function returning an int' do
+        assert_match %r{static int cv_resize}, @function.to_s
+      end
+
+      should 'insert code to check for an arguments on get_arg' do
+        assert_match /Mat.*\*\s*src\s*=\s*\*\(\(const\s+Mat\s+\*\*\)\s*luaL_checkudata\s*\(L,\s*1,\s*\"cv\.Mat\"\s*\)\)\s*;/,
+                     @generator.get_arg(@function.arguments.first, 1) # 1 = first argument in Lua stack
+      end
+
+      context 'with default values' do
+        should 'verify stack size' do
+          assert_match /top__\s*<\s*6/, @generator.function(@function)
+        end
+      end
+
+      context 'in a class with a class as parameter' do
+        setup do
+          @function = namespacecv_xml[:cv][:Mat][:locateROI]
+        end
+
+        should 'use parameter class identifier' do
+          assert_match /Size\s*\*\*\)luaL_checkudata\s*\(L,\s*1,\s*\"cv\.Size\"\s*\)\)\s*;/,
+                       @generator.get_arg(@function.arguments.first, 1) # 1 = first argument in Lua stack
+        end
+      end
+
+      context 'using a custom template' do
+        setup do
+          @generator.template_path = fixture('dummy_function.cpp.erb')
+        end
+
+        teardown do
+          @generator.template_path = nil
+        end
+
+        should 'use custom template to render function' do
+          assert_equal 'DUMMY: resize', @generator.function(@function)
+        end
+      end
+
+      context 'using a custom type' do
+        setup do
+          @generator.custom_type(/lua_State /) do |type_def, arg, stack_pos|
+            if type_def =~ /lua_State\s*\*\s*L/
+              ""
+            else
+              "#{type_def} = L;"
+            end
+          end
+        end
+
+        should 'use custom block to get arg type' do
+          method = @generator.function(namespacedub_xml[:dub][:Matrix][:lua_thing])
+          assert_match %r{int a = luaL_checkint\(L, 2\)}, method
+          assert_no_match %r{L\s*=}, method
+          assert_match %r{int b = luaL_checkint\(L, 4\)}, method
+          assert_match %r{lua_thing\(a, L, b\)}, method
+        end
+      end
+
+      context 'using LuaStackSize return value' do
+        should 'return call result as stack size' do
+          method = @generator.function(namespacedub_xml[:dub][:Matrix][:work_with_lua])
+          assert_match %r{return retval__}, method
+          assert_no_match %r{lua_pushclass}, method
+        end
+      end
+
+      context 'using const char * return value' do
+        should 'pushstring' do
+          method = @generator.function(namespacedub_xml[:dub][:Matrix][:name])
+          assert_match %r{lua_pushstring\(L, retval__\);}, method
+        end
+      end
+
+      context 'using bool return value' do
+        should 'pushbool' do
+          method = @generator.function(namespacedub_xml[:dub][:Matrix][:true])
+          assert_match %r{lua_pushboolean\(L, retval__\);}, method
+        end
+      end
+    end
+  end
+
+  context 'A group of overloaded functions' do
+    setup do
+      # namespacecv_xml = Dub.parse(fixture('namespacecv.xml'))
+      @function_group = namespacecv_xml[:cv][:divide]
+    end
+
+    context 'bound to a Lua generator' do
+      setup do
+        Dub::Lua.bind(@function_group)
+      end
+
+      should 'return string content on to_s' do
+        assert_kind_of String, @function_group.to_s
+      end
+
+      should 'generate a static function returning an int' do
+        assert_match %r{static int cv_divide}, @function_group.to_s
+      end
+
+      should 'generate a static function returning an int for each overloaded function' do
+        bindings = @function_group.to_s
+        assert_match %r{static int cv_divide1}, bindings
+        assert_match %r{static int cv_divide2}, bindings
+        assert_match %r{static int cv_divide3}, bindings
+        assert_match %r{static int cv_divide4}, bindings
+      end
+
+      # should 'declare chooser' do
+      #   assert_match %r{"divide",\s*cv_divide\}}, @group.to_s
+      # end
+    end
+  end
+
+  context 'A function with a custom class return value' do
+    setup do
+      # namespacecv_xml = Dub.parse(fixture('namespacecv.xml'))
+      @function = namespacecv_xml[:cv][:getRotationMatrix2D]
+    end
+
+    context 'bound to a Lua generator' do
+      setup do
+        Dub::Lua.bind(@function)
+      end
+
+      should 'call template push method' do
+        assert_match %r{lua_pushclass<Mat>\(\s*L\s*,\s*retval__\s*,\s*"cv.Mat"\s*\)}, @function.to_s
+      end
+    end
+  end
+
+  context 'A function with pointer parameters' do
+    setup do
+      # namespacecv_xml = Dub.parse(fixture('namespacecv.xml'))
+      @function = namespacecv_xml[:cv][:calcHist][0]
+    end
+
+    context 'bound to a Lua generator' do
+      setup do
+        Dub::Lua.bind(@function)
+      end
+
+      should 'use a DubArgPointer with the given type' do
+        assert_match %r{DubArgPointer<int>}, @function.to_s
+      end
+    end
+  end
+
+  context 'A member function bound to a Lua generator' do
+    subject do
+      member = namespacedub_xml[:dub][:Matrix][:rows]
+      Dub::Lua.bind(member)
+      member.to_s
+    end
+
+    should 'start by getting self' do
+      assert_match %r{self__\s*=\s*\*\(\(Matrix\*\*\)luaL_checkudata}, subject
+    end
+
+    should 'assert that self is not nil' do
+      assert_match %r{self__\s*=\s*\*\(\(Matrix\*\*\)luaL_checkudata}, subject
+    end
+
+    should 'prefix call with self' do
+      assert_match %r{self__->rows\(}, subject
+    end
+  end
+
+  context 'A constructor bound to a Lua generator' do
+    setup do
+      @constructor = namespacedub_xml[:dub][:Matrix][:Matrix].first
+      Dub::Lua.bind(@constructor)
+    end
+
+    should 'use pushclass in constructor' do
+      result = @constructor.to_s
+      assert_match %r{lua_pushclass<Matrix>\s*\(L, retval__, \"dub.Matrix\"\s*\)}, result
+    end
+  end
+
+  context 'A function without return value' do
+    setup do
+      @function = namespacecv_xml[:cv][:blur]
+    end
+
+    context 'bound to a Lua generator' do
+      setup do
+        Dub::Lua.bind(@function)
+      end
+
+      should 'return 0' do
+        assert_match %r{return\s+0}, @function.to_s
+      end
+    end
+  end
+
+
+end
+
+
+
+

data/test/namespace_test.rb

@@ -0,0 +1,220 @@
+require 'helper'
+require 'dub/lua'
+
+class NamespaceTest < Test::Unit::TestCase
+  context 'A Namespace' do
+    setup do
+      # namespacecv_xml = Dub.parse(fixture('namespacecv.xml'))
+      @namespace = namespacecv_xml[:cv]
+    end
+
+    should 'find a function with functions method' do
+      assert_kind_of Dub::Function, @namespace.function(:resize)
+    end
+
+    should 'find a function with array index' do
+      assert_kind_of Dub::Function, @namespace[:resize]
+    end
+
+    should 'respond to name' do
+      assert_equal 'cv', @namespace.name
+    end
+
+    should 'respond to lib_name' do
+      # nested namespace could be cv_more
+      assert_equal 'cv', @namespace.lib_name
+    end
+
+    should 'respond to id_name' do
+      # nested namespace could be cv.more
+      assert_equal 'cv', @namespace.id_name
+    end
+
+    should 'return header name on header' do
+      assert_equal 'cv.hpp', @namespace.header
+    end
+
+    should 'return defined header if changed' do
+      namespace = Dub.parse(fixture('namespacecv.xml'))[:cv]
+      namespace.header = 'opencv/cv.h'
+      assert_equal 'opencv/cv.h', namespace.header
+    end
+
+    should 'remove members on minus equal operator when bound' do
+      namespace = Dub.parse(fixture('app/xml/namespacedub.xml'))[:dub]
+      namespace.ignore 'FMatrix'
+      assert_equal %w{Matrix}, namespace.classes.map{|k| k.name}
+    end
+
+    context 'when bound' do
+      setup do
+        @generator = Dub::Lua.namespace_generator
+      end
+
+      should 'contain generator' do
+        res = Dub::Lua.bind(@namespace)
+        assert_equal res, @namespace
+        assert_equal @generator, @namespace.gen
+      end
+
+    end
+
+    context 'with overloaded functions' do
+      setup do
+        @function = namespacecv_xml[:cv][:divide]
+      end
+
+      should 'find a Dub::FunctionGroup' do
+        assert_kind_of Dub::FunctionGroup, @function
+      end
+
+      should 'find a group of functions' do
+        assert_kind_of Dub::Function, @function[0]
+        assert_kind_of Dub::Function, @function[1]
+      end
+
+      should 'group functions by name' do
+        assert_equal 'divide', @function[0].name
+        assert_equal 'divide', @function[1].name
+      end
+
+      should 'assign an overloaded_index to grouped functions' do
+        assert_equal 1, @function[0].overloaded_index
+        assert_equal 2, @function[1].overloaded_index
+      end
+    end
+  end
+
+  context 'A namespace with class definitions' do
+    setup do
+      @namespace = namespacedub_xml[:dub]
+    end
+
+    should 'find classes by array index' do
+      assert_kind_of Dub::Klass, @namespace[:Matrix]
+    end
+
+    should 'find classes with klass' do
+      assert_kind_of Dub::Klass, @namespace.klass('Matrix')
+    end
+
+    should 'return a list of classes with classes' do
+      assert_kind_of Array, @namespace.classes
+      assert_kind_of Dub::Klass, @namespace.classes.first
+    end
+  end
+
+  context 'A namespace with template class definitions' do
+    setup do
+      @namespace = namespacedub_xml[:dub]
+    end
+
+    should 'ignore template classes in class list' do
+      assert !@namespace.classes.map{|m| m.name}.include?("TMat")
+    end
+
+    should 'return template class with template_class' do
+      assert_kind_of Dub::Klass, @namespace.template_class('TMat')
+    end
+
+    should 'build a full classes for template typedefs' do
+      assert_kind_of Dub::Klass, @namespace.klass(:FloatMat)
+    end
+
+    context 'bound to a generator' do
+      setup do
+        Dub::Lua.bind(@namespace)
+      end
+
+      should 'generate a valid class' do
+        # TODO: rerun all tests for lua class generation
+        assert_match %r{luaL_register\(L,\s*"dub".*FMatrix}, @namespace[:FloatMat].to_s
+      end
+    end
+  end
+
+  context 'A namespace with enums' do
+    setup do
+      @namespace = namespacecv_xml[:cv]
+    end
+
+    should 'respond true to has_enums' do
+      assert @namespace.has_constants?
+    end
+
+    should 'produce namespaced declarations' do
+      assert_match %r{\{"INTER_LINEAR"\s*,\s*cv::INTER_LINEAR\}}, Dub::Lua.namespace_generator.constants_registration(@namespace)
+    end
+
+    context 'bound to a generator' do
+      setup do
+        Dub::Lua.bind(@namespace)
+      end
+
+      should 'produce enums registration' do
+        result = @namespace.to_s
+        assert_match %r{\{"INTER_LINEAR"\s*,\s*cv::INTER_LINEAR\}}, result
+        assert_match %r{register_constants\(L,\s*"cv",\s*cv_namespace_constants\)}, result
+      end
+    end
+
+    context 'On merge with a group' do
+      setup do
+        @namespace = Dub.parse(fixture('namespacecv.xml'))[:cv]
+        group = Dub.parse(fixture('group___magic_type.xml'))[:MagicType]
+        @namespace.merge!(group)
+        Dub::Lua.bind(@namespace)
+      end
+
+      should 'produce enums and defines registration' do
+        result = @namespace.to_s
+        assert_match %r{\{"INTER_LINEAR"\s*,\s*cv::INTER_LINEAR\}}, result
+        assert_match %r{register_constants\(L,\s*"cv",\s*cv_namespace_constants\)}, result
+        assert_match %r{\{"CV_32FC1"\s*,\s*CV_32FC1\}}, result
+        assert_match %r{register_constants\(L,\s*"cv",\s*cv_namespace_constants\)}, result
+      end
+    end
+  end
+
+  context 'A Group with defines' do
+    setup do
+      # groupmagic_xml = Dub.parse(fixture('group___magic_type.xml'))
+      @group = groupmagic_xml[:MagicType]
+    end
+
+    should 'parse defines' do
+      assert @group.defines.include?("CV_32FC1")
+    end
+
+    should 'ignore defines with parameters' do
+      assert !@group.defines.include?("CV_8UC")
+    end
+
+    context 'bound to a generator' do
+      setup do
+        Dub::Lua.bind(@group)
+        @group.name = 'cv'
+      end
+
+      should 'produce defines registration' do
+        result = @group.to_s
+        assert_match %r{\{"CV_32FC1"\s*,\s*CV_32FC1\}}, result
+        assert_match %r{register_constants\(L,\s*"cv",\s*cv_namespace_constants\)}, result
+      end
+    end
+  end
+
+  context 'A namespace bound to a generator' do
+    setup do
+      @namespace = namespacecv_xml[:cv]
+      Dub::Lua.bind(@namespace)
+    end
+
+    should 'produce methods registration' do
+      result = @namespace.to_s
+      assert_match %r{\{"resize"\s*,\s*cv_resize\},}, result
+      assert_match %r{luaL_register\(L,\s*"cv".*cv_functions}, result
+    end
+  end
+
+end

data/test/parser_test.rb

@@ -0,0 +1,36 @@
+require 'helper'
+
+class ParserTest < Test::Unit::TestCase
+  # cache parsing to speed things up
+  @@namespace = Dub.parse(fixture('namespacecv.xml'))
+  @@group = Dub.parse(fixture('group___magic_type.xml'))
+
+  context 'Parsing a namespace' do
+    setup do
+      @parser = @@namespace
+    end
+
+    should 'find cv namespace with namespace method' do
+      assert_kind_of Dub::Namespace, @parser.namespace(:cv)
+    end
+
+    should 'find namespace with array index' do
+      assert_kind_of Dub::Namespace, @parser[:cv]
+    end
+  end
+
+  context 'Parsing a group' do
+    setup do
+      @parser = @@group
+    end
+
+    should 'find MagicType group with group method' do
+      assert_kind_of Dub::Namespace, @parser.group(:MagicType)
+    end
+
+    should 'find group with array index' do
+      assert_kind_of Dub::Namespace, @parser[:MagicType]
+    end
+  end
+
+end