blockenspiel 0.2.0.1-java

data/tests/tc_dynamic.rb

@@ -0,0 +1,175 @@
+# -----------------------------------------------------------------------------
+# 
+# Blockenspiel dynamic tests
+# 
+# This file contains tests for dynamic DSL generation.
+# 
+# -----------------------------------------------------------------------------
+# Copyright 2008-2009 Daniel Azuma
+# 
+# All rights reserved.
+# 
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+# 
+# * Redistributions of source code must retain the above copyright notice,
+#   this list of conditions and the following disclaimer.
+# * Redistributions in binary form must reproduce the above copyright notice,
+#   this list of conditions and the following disclaimer in the documentation
+#   and/or other materials provided with the distribution.
+# * Neither the name of the copyright holder, nor the names of any other
+#   contributors to this software, may be used to endorse or promote products
+#   derived from this software without specific prior written permission.
+# 
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+# ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+# LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+# POSSIBILITY OF SUCH DAMAGE.
+# -----------------------------------------------------------------------------
+;
+
+
+require 'test/unit'
+require File.expand_path("#{File.dirname(__FILE__)}/../lib/blockenspiel.rb")
+
+
+module Blockenspiel
+  module Tests  # :nodoc:
+    
+    class TestDynamic < Test::Unit::TestCase  # :nodoc:
+      
+      
+      # Test the simple case.
+      # 
+      # * Asserts that the simplest case works.
+      
+      def test_simple
+        block_ = proc do
+          set_value(:a, 1)
+        end
+        hash_ = Hash.new
+        Blockenspiel.invoke(block_) do
+          add_method(:set_value) do |key_, value_|
+            hash_[key_] = value_
+          end
+        end
+        assert_equal(1, hash_[:a])
+      end
+      
+      
+      # Test renaming.
+      # 
+      # * Asserts that the method appears renamed in a parameterless block.
+      # * Asserts that the method appears in its original name in a parametered block.
+      
+      def test_renaming
+        hash_ = Hash.new
+        dsl_definition_ = proc do
+          add_method(:set_value, :dsl_method => :renamed_set_value) do |key_, value_|
+            hash_[key_] = value_
+          end
+        end
+        block1_ = proc do
+          renamed_set_value(:a, 1)
+          assert_raise(NoMethodError){ set_value(:b, 2) }
+        end
+        Blockenspiel.invoke(block1_, &dsl_definition_)
+        block2_ = proc do |dsl_|
+          dsl_.set_value(:c, 3)
+          assert_raise(NoMethodError){ renamed_set_value(:d, 4) }
+        end
+        Blockenspiel.invoke(block2_, &dsl_definition_)
+        assert_equal(1, hash_[:a])
+        assert_nil(hash_[:b])
+        assert_equal(3, hash_[:c])
+        assert_nil(hash_[:d])
+      end
+      
+      
+      # Test calls with blocks.
+      # 
+      # * Asserts that a block passed "first" works.
+      # * Asserts that a block passed "last" works.
+      # * Asserts that a block passed "last" works.
+      
+      def test_blocks_first_and_last
+        hash_ = Hash.new
+        dsl_definition_ = proc do
+          add_method(:set_value1, :block => :first) do |bl_, key_|
+            hash_[key_] = bl_.call
+          end
+          add_method(:set_value2, :block => :last) do |key_, bl_|
+            hash_[key_] = bl_.call
+          end
+          add_method(:set_value3, :block => true) do |bl_, key_|
+            hash_[key_] = bl_.call
+          end
+        end
+        block_ = proc do
+          set_value1(:a){ 1 }
+          set_value2(:b){ 2 }
+          set_value2(:c){ 3 }
+        end
+        Blockenspiel.invoke(block_, &dsl_definition_)
+        assert_equal(1, hash_[:a])
+        assert_equal(2, hash_[:b])
+        assert_equal(3, hash_[:c])
+      end
+      
+      
+      # Test calls with blocks not passed.
+      # 
+      # * Asserts that if a block isn't given, it is set to nil.
+      
+      def test_blocks_nil
+        hash_ = Hash.new
+        dsl_definition_ = proc do
+          add_method(:set_value1, :block => :first) do |bl_, key_|
+            assert_nil(bl_)
+          end
+          add_method(:set_value2, :block => :last) do |key_, bl_|
+            assert_nil(bl_)
+          end
+        end
+        block_ = proc do
+          set_value1(:a)
+          set_value2(:b)
+        end
+        Blockenspiel.invoke(block_, &dsl_definition_)
+        assert_nil(hash_[:a])
+        assert_nil(hash_[:b])
+      end
+      
+      
+      # Test calls with blocks (legacy api)
+      # 
+      # * Asserts that a block passed "first" works.
+      # * Asserts that a block passed "last" works.
+      # * Asserts that a block passed "last" works.
+      
+      def test_blocks_legacy
+        hash_ = Hash.new
+        dsl_definition_ = proc do
+          add_method(:set_value, :receive_block => true) do |key_, bl_|
+            hash_[key_] = bl_.call
+          end
+        end
+        block_ = proc do
+          set_value(:a){ 1 }
+        end
+        Blockenspiel.invoke(block_, &dsl_definition_)
+        assert_equal(1, hash_[:a])
+      end
+      
+      
+    end
+    
+  end
+end

data/tests/tc_mixins.rb

@@ -0,0 +1,240 @@
+# -----------------------------------------------------------------------------
+# 
+# Blockenspiel mixin tests
+# 
+# This file contains tests for various mixin cases,
+# including nested blocks and multithreading.
+# 
+# -----------------------------------------------------------------------------
+# Copyright 2008-2009 Daniel Azuma
+# 
+# All rights reserved.
+# 
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+# 
+# * Redistributions of source code must retain the above copyright notice,
+#   this list of conditions and the following disclaimer.
+# * Redistributions in binary form must reproduce the above copyright notice,
+#   this list of conditions and the following disclaimer in the documentation
+#   and/or other materials provided with the distribution.
+# * Neither the name of the copyright holder, nor the names of any other
+#   contributors to this software, may be used to endorse or promote products
+#   derived from this software without specific prior written permission.
+# 
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+# ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+# LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+# POSSIBILITY OF SUCH DAMAGE.
+# -----------------------------------------------------------------------------
+;
+
+
+require 'test/unit'
+require File.expand_path("#{File.dirname(__FILE__)}/../lib/blockenspiel.rb")
+
+
+module Blockenspiel
+  module Tests  # :nodoc:
+    
+    class TestMixins < Test::Unit::TestCase  # :nodoc:
+      
+      
+      class Target1 < Blockenspiel::Base
+        
+        def initialize(hash_)
+          @hash = hash_
+        end
+        
+        def set_value(key_, value_)
+          @hash["#{key_}1"] = value_
+        end
+        
+        def set_value2(key_)
+          @hash["#{key_}1"] = yield
+        end
+        
+      end
+      
+      
+      class Target2 < Blockenspiel::Base
+        
+        dsl_methods false
+        
+        def initialize(hash_=nil)
+          @hash = hash_ || Hash.new
+        end
+        
+        def set_value(key_, value_)
+          @hash["#{key_}2"] = value_
+        end
+        dsl_method :set_value
+        
+        def set_value2(key_)
+          @hash["#{key_}2"] = yield
+        end
+        dsl_method :set_value2_inmixin, :set_value2
+        
+      end
+      
+      
+      # Basic test of mixin mechanism.
+      # 
+      # * Asserts that the mixin methods are added and removed for a single mixin.
+      # * Asserts that the methods properly delegate to the target object.
+      # * Asserts that self doesn't change, and instance variables are preserved.
+      
+      def test_basic_mixin
+        hash_ = Hash.new
+        saved_object_id_ = self.object_id
+        @my_instance_variable_test = :hello
+        assert(!self.respond_to?(:set_value))
+        assert(!self.respond_to?(:set_value2))
+        block_ = proc do
+          set_value('a', 1)
+          set_value2('b'){ 2 }
+          assert_equal(:hello, @my_instance_variable_test)
+          assert_equal(saved_object_id_, self.object_id)
+        end
+        Blockenspiel.invoke(block_, Target1.new(hash_))
+        assert(!self.respond_to?(:set_value))
+        assert(!self.respond_to?(:set_value2))
+        assert_equal(1, hash_['a1'])
+        assert_equal(2, hash_['b1'])
+      end
+      
+      
+      # Test renaming of mixin methods.
+      # 
+      # * Asserts that correctly renamed mixin methods are added and removed.
+      # * Asserts that the methods properly delegate to the target object.
+      
+      def test_mixin_with_renaming
+        hash_ = Hash.new
+        assert(!self.respond_to?(:set_value))
+        assert(!self.respond_to?(:set_value2))
+        assert(!self.respond_to?(:set_value2_inmixin))
+        block_ = proc do
+          set_value('a', 1)
+          set_value2_inmixin('b'){ 2 }
+          assert(!self.respond_to?(:set_value2))
+        end
+        Blockenspiel.invoke(block_, Target2.new(hash_))
+        assert(!self.respond_to?(:set_value))
+        assert(!self.respond_to?(:set_value2))
+        assert(!self.respond_to?(:set_value2_inmixin))
+        assert_equal(1, hash_['a2'])
+        assert_equal(2, hash_['b2'])
+      end
+      
+      
+      # Test of two different nested mixins.
+      # 
+      # * Asserts that the right methods are added and removed at the right time.
+      # * Asserts that the methods delegate to the right target object, even when
+      #   multiple mixins add the same method name
+      
+      def test_nested_different
+        hash_ = Hash.new
+        assert(!self.respond_to?(:set_value))
+        assert(!self.respond_to?(:set_value2))
+        assert(!self.respond_to?(:set_value2_inmixin))
+        Blockenspiel.invoke(proc do
+          set_value('a', 1)
+          set_value2('b'){ 2 }
+          assert(!self.respond_to?(:set_value2_inmixin))
+          Blockenspiel.invoke(proc do
+            set_value('c', 1)
+            set_value2_inmixin('d'){ 2 }
+          end, Target2.new(hash_))
+          assert(!self.respond_to?(:set_value2_inmixin))
+          set_value('e', 1)
+          set_value2('f'){ 2 }
+        end, Target1.new(hash_))
+        assert(!self.respond_to?(:set_value))
+        assert(!self.respond_to?(:set_value2))
+        assert(!self.respond_to?(:set_value2_inmixin))
+        assert_equal(1, hash_['a1'])
+        assert_equal(2, hash_['b1'])
+        assert_equal(1, hash_['c2'])
+        assert_equal(2, hash_['d2'])
+        assert_equal(1, hash_['e1'])
+        assert_equal(2, hash_['f1'])
+      end
+      
+      
+      # Test of the same mixin nested in itself.
+      # 
+      # * Asserts that the methods are added and removed at the right time.
+      
+      def test_nested_same
+        hash_ = Hash.new
+        assert(!self.respond_to?(:set_value))
+        assert(!self.respond_to?(:set_value2))
+        assert(!self.respond_to?(:set_value2_inmixin))
+        Blockenspiel.invoke(proc do
+          set_value('a', 1)
+          set_value2_inmixin('b'){ 2 }
+          Blockenspiel.invoke(proc do
+            set_value('c', 1)
+            set_value2_inmixin('d'){ 2 }
+            assert(!self.respond_to?(:set_value2))
+          end, Target2.new(hash_))
+          set_value('e', 1)
+          set_value2_inmixin('f'){ 2 }
+        end, Target2.new(hash_))
+        assert(!self.respond_to?(:set_value))
+        assert(!self.respond_to?(:set_value2))
+        assert(!self.respond_to?(:set_value2_inmixin))
+        assert_equal(1, hash_['a2'])
+        assert_equal(2, hash_['b2'])
+        assert_equal(1, hash_['c2'])
+        assert_equal(2, hash_['d2'])
+        assert_equal(1, hash_['e2'])
+        assert_equal(2, hash_['f2'])
+      end
+      
+      
+      # Test of two threads mixing the same mixin into the same object
+      # 
+      # * Asserts that the mixin is removed only after the second thread is done.
+      
+      def test_threads_same_mixin
+        hash_ = Hash.new
+        block1_ = proc do
+          set_value('a', 1)
+          sleep(0.5)
+          set_value2('b'){ 2 }
+        end
+        block2_ = proc do
+          set_value('c', 3)
+          sleep(1)
+          set_value2('d'){ 4 }
+        end
+        target_ = Target1.new(hash_)
+        thread1_ = Thread.new do
+          Blockenspiel.invoke(block1_, target_)
+        end
+        thread2_ = Thread.new do
+          Blockenspiel.invoke(block2_, target_)
+        end
+        thread1_.join
+        thread2_.join
+        assert_equal(1, hash_['a1'])
+        assert_equal(2, hash_['b1'])
+        assert_equal(3, hash_['c1'])
+        assert_equal(4, hash_['d1'])
+      end
+      
+      
+    end
+    
+  end
+end

metadata

@@ -0,0 +1,77 @@
+--- !ruby/object:Gem::Specification 
+extensions: []
+
+homepage: http://virtuoso.rubyforge.org/blockenspiel
+executables: []
+
+version: !ruby/object:Gem::Version 
+  version: 0.2.0.1
+post_install_message: 
+date: 2009-04-16 07:00:00 +00:00
+files: 
+- ext/blockenspiel/unmixer.c
+- ext/blockenspiel/extconf.rb
+- ext/blockenspiel/BlockenspielUnmixerService.java
+- lib/blockenspiel.rb
+- lib/blockenspiel/impl.rb
+- lib/blockenspiel/version.rb
+- tests/tc_basic.rb
+- tests/tc_behaviors.rb
+- tests/tc_dsl_methods.rb
+- tests/tc_dynamic.rb
+- tests/tc_mixins.rb
+- History.rdoc
+- ImplementingDSLblocks.rdoc
+- README.rdoc
+- Rakefile
+- lib/blockenspiel_unmixer.jar
+rubygems_version: 1.3.1
+rdoc_options: []
+
+signing_key: 
+cert_chain: []
+
+name: blockenspiel
+has_rdoc: true
+platform: java
+summary: Blockenspiel is a helper library designed to make it easy to implement DSL
+  blocks.
+default_executable: 
+bindir: bin
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  version: 
+  requirements: 
+  - - '>='
+    - !ruby/object:Gem::Version 
+      version: "0"
+required_ruby_version: !ruby/object:Gem::Requirement 
+  version: 
+  requirements: 
+  - - '>='
+    - !ruby/object:Gem::Version 
+      version: 1.8.6
+require_paths: 
+- lib
+specification_version: 2
+test_files: 
+- tests/tc_basic.rb
+- tests/tc_behaviors.rb
+- tests/tc_dsl_methods.rb
+- tests/tc_dynamic.rb
+- tests/tc_mixins.rb
+dependencies: []
+
+description: Blockenspiel is a helper library designed to make it easy to implement
+  DSL blocks. It is designed to be comprehensive and robust, supporting most common
+  usage patterns, and working correctly in the presence of nested blocks and multithreading.
+email: dazuma@gmail.com
+authors: 
+- Daniel Azuma
+extra_rdoc_files: 
+- README.rdoc
+- History.rdoc
+- ImplementingDSLblocks.rdoc
+requirements: []
+
+rubyforge_project: virtuoso
+autorequire: