rallhook 0.7.0

data/test/basic_proc.rb

@@ -0,0 +1,45 @@
+require "test/unit"
+require "rallhook"
+
+class BasicHookProc
+
+ include RallHook::Helper
+
+  class BasicMethodWrapper < MethodWrapper
+
+    def call(*args)
+      if block_given?
+        original_call(*args) do |*x|
+         yield(*x)
+        end
+      else
+        original_call(*args)
+      end
+    end
+  end
+
+  def handle_method(klass,recv_,m, method_id)
+    return BasicMethodWrapper.redirect_handler(klass,recv_,m,method_id)
+  end
+end
+
+module BasicHookProcTest
+  def hook
+    rallhook = RallHook::Hook
+    basichook = BasicHookProc.new
+
+    rallhook.hook basichook do
+      yield
+    end
+  end
+
+  def oracle_hook_assert_equal
+    result = nil
+    hook do
+      result = yield
+    end
+
+    assert_equal result, yield
+  end
+  alias oracle_hook_assert oracle_hook_assert_equal
+end

data/test/integrity/test_array.rb

@@ -0,0 +1,42 @@
+require "test/unit"
+require "test/basic_proc"
+
+class TestArray < Test::Unit::TestCase
+
+  include BasicHookProcTest
+
+
+  def test_array_basic
+    oracle_hook_assert { [1,2,3,4] }
+  end
+
+  def f0(input)
+    input.select{|i| i%2==0}
+  end
+  def f1(input)
+    input.map{|i| i*5+2}
+  end
+  def f2(input)
+    input.inject{|x,y| x*y}
+  end
+
+  def test_array_blocks
+
+    # oracle testing, the result of the method out of hook must be the same in the hook
+    25.times do
+      ary = [rand(20),rand(20),rand(20),rand(20),rand(20)]
+      oracle_hook_assert do
+        f0(ary)
+      end
+      oracle_hook_assert do
+        f1(ary)
+      end
+      oracle_hook_assert do
+        f2(ary)
+      end
+
+    end
+
+  end
+
+end

data/test/integrity/test_binding.rb

@@ -0,0 +1,26 @@
+require "test/unit"
+require "test/basic_proc"
+
+class TestBinding < Test::Unit::TestCase
+
+  include BasicHookProcTest
+
+  def generate_binding
+    a = 1
+    b = 2
+    c = 3
+
+    binding
+  end
+
+  def f0()
+    eval("a+b+c", generate_binding)
+  end
+
+  def test_array_blocks
+    oracle_hook_assert do
+      f0
+    end
+  end
+
+end

data/test/integrity/test_block.rb

@@ -0,0 +1,37 @@
+require "test/unit"
+require "test/basic_proc"
+
+class TestBlock < Test::Unit::TestCase
+
+  include BasicHookProcTest
+
+  def block_func(*a)
+    yield(*a)
+  end
+
+  def f0(test_args)
+
+    result = nil
+    block_func(*test_args) do |*args|
+      result = args
+    end
+
+    result
+  end
+
+  def _test_block_passing(*test_args)
+    # oracle testing, the result with hook and without hook must be the same
+    oracle_hook_assert do f0(test_args) end
+  end
+
+  def test_block
+    _test_block_passing(1)
+    _test_block_passing(1,2)
+    _test_block_passing("3333")
+    _test_block_passing("3333",9999, 1.32)
+    _test_block_passing([1,2,3])
+    _test_block_passing([1])
+    _test_block_passing([[1]])
+  end
+end
+

data/test/integrity/test_call.rb

@@ -0,0 +1 @@
+

data/test/integrity/test_class_methods.rb

@@ -0,0 +1 @@
+

data/test/integrity/test_exception.rb

@@ -0,0 +1 @@
+

data/test/integrity/test_super.rb

@@ -0,0 +1,34 @@
+require "test/unit"
+require "test/basic_proc"
+
+class TestSuper < Test::Unit::TestCase
+
+  include BasicHookProcTest
+
+  class X
+    def foo
+      [1]
+    end
+  end
+  class Y < X
+    def foo
+      super+[2]
+    end
+  end
+  class Z < Y
+    def foo
+      super+[3]
+    end
+  end
+
+  def f0(klass)
+    z = klass.new
+    z.foo
+  end
+  def test_basic
+    oracle_hook_assert_equal do f0(X) end
+    oracle_hook_assert_equal do f0(Y) end
+    oracle_hook_assert_equal do f0(Z) end
+  end
+end
+

data/test/introspection/test_call.rb

@@ -0,0 +1,29 @@
+require "test/unit"
+require "test/basic_proc"
+
+class InstrospectionTestCall < Test::Unit::TestCase
+
+  class X
+    def foo
+      "fooX"
+    end
+  end
+
+  class Y < X
+    def foo
+      "fooY"
+    end
+  end
+
+  def test_file
+    y = Y.new
+
+    assert_equal y.specific_method(:foo).call, "fooY"
+    assert_equal y.specific_method(X,:foo).call, "fooX"
+    assert_equal y.specific_method(Y,:foo).call, "fooY"
+
+    assert_raise NameError do
+      y.specific_method(Fixnum,:foo)
+    end
+  end
+end

data/test/introspection/test_class_method.rb

@@ -0,0 +1,41 @@
+require "test/unit"
+require "test/basic_proc"
+
+
+class TestClassMethod < Test::Unit::TestCase
+
+  class << self
+    attr_accessor :global_binding
+  end
+
+  TestClassMethod.global_binding = binding
+
+  class X
+    def self.foo
+    end
+  end
+
+  class MethodHandler < RallHook::HookHandler
+    def handle_method (klass,self_,m,method_id)
+      if m
+      file = klass.instance_method(m).body.file
+      end
+
+      nil # do nothing
+    end
+  end
+
+
+  def test_file
+    assert_nothing_raised do
+      MethodHandler.hook do
+        eval( "
+          class Y < X
+          end
+          Y.foo
+        ", TestClassMethod.global_binding)
+
+      end
+    end
+  end
+end

data/test/introspection/test_file.rb

@@ -0,0 +1,15 @@
+require "test/unit"
+require "test/basic_proc"
+
+class InstrospectionTestFile < Test::Unit::TestCase
+  def _test_file(name)
+    eval("def xmethod; end", binding, name)
+    assert_equal self.method(:xmethod).body.file, name
+  end
+
+  def test_file
+    10.times do
+    _test_file("xxx" + rand(999).to_s)
+    end
+  end
+end

metadata

@@ -0,0 +1,113 @@
+--- !ruby/object:Gem::Specification 
+name: rallhook
+version: !ruby/object:Gem::Version 
+  version: 0.7.0
+platform: ruby
+authors: 
+- Dario Seminara
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2010-06-20 00:00:00 -03:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: ruby-cymbol
+  type: :runtime
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 0.1.0
+    version: 
+description: 
+email: robertodarioseminara@gmail.com
+executables: []
+
+extensions: 
+- ext/rallhook_base/extconf.rb
+extra_rdoc_files: 
+- README
+files: 
+- examples/hook/shadow.rb
+- examples/hook/intercept.rb
+- examples/hook/redirect.rb
+- examples/hook/example1.rb
+- examples/hook/example3.rb
+- examples/hook/example4.rb
+- examples/hook/intercept2.rb
+- examples/hook/redirect_inherited.rb
+- examples/hook/example2.rb
+- examples/instrospection/source1.rb
+- examples/instrospection/main.rb
+- examples/instrospection/source2.rb
+- lib/rallhook.rb
+- lib/rallhook/thread_hook.rb
+- test/integrity/test_exception.rb
+- test/integrity/test_call.rb
+- test/integrity/test_block.rb
+- test/integrity/test_class_methods.rb
+- test/integrity/test_binding.rb
+- test/integrity/test_super.rb
+- test/integrity/test_array.rb
+- test/basic_proc.rb
+- test/introspection/test_call.rb
+- test/introspection/test_file.rb
+- test/introspection/test_class_method.rb
+- ext/rallhook_base/ruby_symbols.c
+- ext/rallhook_base/rb_call_fake.c
+- ext/rallhook_base/ruby_redirect.c
+- ext/rallhook_base/hook.c
+- ext/rallhook_base/rallhook.c
+- ext/rallhook_base/restrict_def.c
+- ext/rallhook_base/hook_rb_call.c
+- ext/rallhook_base/method_node.c
+- ext/rallhook_base/hook.h
+- ext/rallhook_base/ruby_version.h
+- ext/rallhook_base/node_defs.h
+- ext/rallhook_base/hook_rb_call.h
+- ext/rallhook_base/ruby_symbols.h
+- ext/rallhook_base/ruby_redirect.h
+- ext/rallhook_base/restrict_def.h
+- ext/rallhook_base/rb_call_fake.h
+- ext/rallhook_base/distorm.h
+- ext/rallhook_base/method_node.h
+- ext/rallhook_base/extconf.rb
+- AUTHORS
+- CHANGELOG
+- README
+- Rakefile
+- TODO
+has_rdoc: true
+homepage: http://github.com/tario/rallhook
+licenses: []
+
+post_install_message: 
+rdoc_options: 
+- --main
+- README
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.3.5
+signing_key: 
+specification_version: 3
+summary: Allow hooking of all method invocations transparently to control and / or monitor the behavior of a ruby program
+test_files: []
+