serializable_proc 0.1.1 → 0.2.0

data/spec/bounded_vars/class_vars_spec.rb

@@ -0,0 +1,60 @@
+require File.join(File.dirname(__FILE__), '..', 'spec_helper')
+
+describe 'Extracting class vars' do
+
+  extend SerializableProc::Spec::Helpers
+
+  should 'handle outer-scoped ones if @@_not_isolated_vars excludes :class' do
+    @@x, @@y = 'awe', 'some'
+    should_have_expected_binding \
+      SerializableProc.new {
+        @@_not_isolated_vars = nil
+        @@x + @@y
+      }, {:cvar_x => @@x, :cvar_y => @@y}
+  end
+
+  should "handle inner-scoped ones if @@_not_isolated_vars excludes :class" do
+    @@x, @@y = 'awe', 'some'
+    should_have_expected_binding \
+      SerializableProc.new {
+        @@_not_isolated_vars = nil
+        @@z = 'wonder'
+        %w{a b}.each{ puts @@z, @@x, @@y }
+      }, {:cvar_x => @@x, :cvar_y => @@y, :cvar_z => nil}
+  end
+
+  should 'not handle outer-scoped ones if @@_not_isolated_vars includes :class' do
+    @@x, @@y = 'awe', 'some'
+    should_have_empty_binding \
+      SerializableProc.new {
+        @@_not_isolated_vars = :class;
+        @@x + @@y
+      }
+  end
+
+  should "not handle inner-scoped ones if @@_not_isolated_vars includes :class" do
+    @@x, @@y = 'awe', 'some'
+    should_have_empty_binding \
+      SerializableProc.new {
+        @@_not_isolated_vars = :class;
+        @@z = 'wonder'
+        %w{a b}.each{ puts @@z, @@x, @@y }
+      }
+  end
+
+  should 'handle outer-scoped ones w @@_not_isolated_vars unspecified' do
+    @@x, @@y = 'awe', 'some'
+    should_have_expected_binding \
+      SerializableProc.new { @@x + @@y }, {:cvar_x => @@x, :cvar_y => @@y}
+  end
+
+  should "handle inner-scoped ones w @@_not_isolated_vars unspecified" do
+    @@x, @@y = 'awe', 'some'
+    should_have_expected_binding \
+      SerializableProc.new {
+        @@z = 'wonder'
+        %w{a b}.each{ puts @@z, @@x, @@y }
+      }, {:cvar_x => @@x, :cvar_y => @@y, :cvar_z => nil}
+  end
+
+end

data/spec/bounded_vars/class_vars_within_block_scope_spec.rb

@@ -0,0 +1,31 @@
+require File.join(File.dirname(__FILE__), '..', 'spec_helper')
+
+describe 'Extracting class vars within block scope' do
+
+  extend SerializableProc::Spec::Helpers
+
+  should "not handle w @@_not_isolated_vars unspecified" do
+    @@x = 'ox'
+    should_have_empty_binding \
+      SerializableProc.new { def test ; @@x = 'cx' ; end }
+  end
+
+  should "not handle if @@_not_isolated_vars includes :class" do
+    @@x = 'ox'
+    should_have_empty_binding \
+      SerializableProc.new {
+        @@_not_isolated_vars = :class
+        def test ; @@x = 'cx' ; end
+      }
+  end
+
+  should "not handle if @@_not_isolated_vars excludes :class" do
+    @@x = 'ox'
+    should_have_empty_binding \
+      SerializableProc.new {
+        @@_not_isolated_vars = nil
+        def test ; @@x = 'cx' ; end
+      }
+  end
+
+end

data/spec/bounded_vars/errors_spec.rb

@@ -0,0 +1,27 @@
+require File.join(File.dirname(__FILE__), '..', 'spec_helper')
+
+describe 'SerializableProc::CannotSerializeVariableError' do
+
+  extend SerializableProc::Spec::Helpers
+
+  should "raise if local variable cannot be marshalled" do
+    f = Tempfile.new('fake')
+    lambda { SerializableProc.new{ f } }.should.be raising_cannot_serialize_variable_error('f')
+  end
+
+  should "raise if class variable cannot be marshalled" do
+    @@f = Tempfile.new('fake')
+    lambda { SerializableProc.new{ @@f } }.should.be raising_cannot_serialize_variable_error('@@f')
+  end
+
+  should "raise if instance variable cannot be marshalled" do
+    @f = Tempfile.new('fake')
+    lambda { SerializableProc.new{ @f } }.should.be raising_cannot_serialize_variable_error('@f')
+  end
+
+  should "raise if global variable cannot be marshalled" do
+    $f = Tempfile.new('fake')
+    lambda { SerializableProc.new{ $f } }.should.be raising_cannot_serialize_variable_error('$f')
+  end
+
+end

data/spec/bounded_vars/global_vars_spec.rb

@@ -0,0 +1,60 @@
+require File.join(File.dirname(__FILE__), '..', 'spec_helper')
+
+describe 'Extracting global vars' do
+
+  extend SerializableProc::Spec::Helpers
+
+  should 'handle outer-scoped ones if @@_not_isolated_vars excludes :global' do
+    $x, $y = 'awe', 'some'
+    should_have_expected_binding \
+      SerializableProc.new {
+        @@_not_isolated_vars = nil
+        $x + $y
+      }, {:gvar_x => $x, :gvar_y => $y}
+  end
+
+  should "handle inner-scoped ones if @@_not_isolated_vars excludes :global" do
+    $x, $y = 'awe', 'some'
+    should_have_expected_binding \
+      SerializableProc.new {
+        @@_not_isolated_vars = nil
+        $z = 'wonder'
+        %w{a b}.each{ puts $z, $x, $y }
+      }, {:gvar_x => $x, :gvar_y => $y, :gvar_z => nil}
+  end
+
+  should 'not handle outer-scoped ones if @@_not_isolated_vars includes :global' do
+    $x, $y = 'awe', 'some'
+    should_have_empty_binding \
+      SerializableProc.new {
+        @@_not_isolated_vars = :global;
+        $x + $y
+      }
+  end
+
+  should "not handle inner-scoped ones if @@_not_isolated_vars includes :global" do
+    $x, $y = 'awe', 'some'
+    should_have_empty_binding \
+      SerializableProc.new {
+        @@_not_isolated_vars = :global;
+        $z = 'wonder'
+        %w{a b}.each{ puts $z, $x, $y }
+      }
+  end
+
+  should 'handle outer-scoped ones w @@_not_isolated_vars unspecified' do
+    $x, $y = 'awe', 'some'
+    should_have_expected_binding \
+      SerializableProc.new { $x + $y }, {:gvar_x => $x, :gvar_y => $y}
+  end
+
+  should "handle inner-scoped ones w @@_not_isolated_vars unspecified" do
+    $x, $y = 'awe', 'some'
+    should_have_expected_binding \
+      SerializableProc.new {
+        $z = 'wonder'
+        %w{a b}.each{ puts $z, $x, $y }
+      }, {:gvar_x => $x, :gvar_y => $y, :gvar_z => nil}
+  end
+
+end

data/spec/bounded_vars/global_vars_within_block_scope_spec.rb

@@ -0,0 +1,31 @@
+require File.join(File.dirname(__FILE__), '..', 'spec_helper')
+
+describe 'Extracting global vars within block scope' do
+
+  extend SerializableProc::Spec::Helpers
+
+  should "not handle w @@_not_isolated_vars unspecified" do
+    $x = 'ox'
+    should_have_empty_binding \
+      SerializableProc.new { def test ; $x = 'gx' ; end }
+  end
+
+  should "not handle if @@_not_isolated_vars includes :global" do
+    $x = 'ox'
+    should_have_empty_binding \
+      SerializableProc.new {
+        @@_not_isolated_vars = :global
+        def test ; $x = 'gx' ; end
+      }
+  end
+
+  should "not handle if @@_not_isolated_vars excludes :global" do
+    $x = 'ox'
+    should_have_empty_binding \
+      SerializableProc.new {
+        @@_not_isolated_vars = nil
+        def test ; $x = 'gx' ; end
+      }
+  end
+
+end

data/spec/bounded_vars/instance_vars_spec.rb

@@ -0,0 +1,60 @@
+require File.join(File.dirname(__FILE__), '..', 'spec_helper')
+
+describe 'Extracting instance vars' do
+
+  extend SerializableProc::Spec::Helpers
+
+  should 'handle outer-scoped ones if @@_not_isolated_vars excludes :instance' do
+    @x, @y = 'awe', 'some'
+    should_have_expected_binding \
+      SerializableProc.new {
+        @@_not_isolated_vars = nil
+        @x + @y
+      }, {:ivar_x => @x, :ivar_y => @y}
+  end
+
+  should "handle inner-scoped ones if @@_not_isolated_vars excludes :instance" do
+    @x, @y = 'awe', 'some'
+    should_have_expected_binding \
+      SerializableProc.new {
+        @@_not_isolated_vars = nil
+        @z = 'wonder'
+        %w{a b}.each{ puts @z, @x, @y }
+      }, {:ivar_x => @x, :ivar_y => @y, :ivar_z => nil}
+  end
+
+  should 'not handle outer-scoped ones if @@_not_isolated_vars includes :instance' do
+    @x, @y = 'awe', 'some'
+    should_have_empty_binding \
+      SerializableProc.new {
+        @@_not_isolated_vars = :instance;
+        @x + @y
+      }
+  end
+
+  should "not handle inner-scoped ones if @@_not_isolated_vars includes :instance" do
+    @x, @y = 'awe', 'some'
+    should_have_empty_binding \
+      SerializableProc.new {
+        @@_not_isolated_vars = :instance;
+        @z = 'wonder'
+        %w{a b}.each{ puts @z, @x, @y }
+      }
+  end
+
+  should 'handle outer-scoped ones w @@_not_isolated_vars unspecified' do
+    @x, @y = 'awe', 'some'
+    should_have_expected_binding \
+      SerializableProc.new { @x + @y }, {:ivar_x => @x, :ivar_y => @y}
+  end
+
+  should "handle inner-scoped ones w @@_not_isolated_vars unspecified" do
+    @x, @y = 'awe', 'some'
+    should_have_expected_binding \
+      SerializableProc.new {
+        @z = 'wonder'
+        %w{a b}.each{ puts @z, @x, @y }
+      }, {:ivar_x => @x, :ivar_y => @y, :ivar_z => nil}
+  end
+
+end

data/spec/bounded_vars/instance_vars_within_block_scope_spec.rb

@@ -0,0 +1,31 @@
+require File.join(File.dirname(__FILE__), '..', 'spec_helper')
+
+describe 'Extracting instance vars within block scope' do
+
+  extend SerializableProc::Spec::Helpers
+
+  should "not handle w @@_not_isolated_vars unspecified" do
+    @x = 'ox'
+    should_have_empty_binding \
+      SerializableProc.new { def test ; @x = 'ix' ; end }
+  end
+
+  should "not handle if @@_not_isolated_vars includes :instance" do
+    @x = 'ox'
+    should_have_empty_binding \
+      SerializableProc.new {
+        @@_not_isolated_vars = :instance
+        def test ; @x = 'ix' ; end
+      }
+  end
+
+  should "not handle if @@_not_isolated_vars excludes :instance" do
+    @x = 'ox'
+    should_have_empty_binding \
+      SerializableProc.new {
+        @@_not_isolated_vars = nil
+        def test ; @x = 'ix' ; end
+      }
+  end
+
+end

data/spec/bounded_vars/local_vars_spec.rb

@@ -0,0 +1,60 @@
+require File.join(File.dirname(__FILE__), '..', 'spec_helper')
+
+describe 'Extracting local vars' do
+
+  extend SerializableProc::Spec::Helpers
+
+  should 'handle outer-scoped ones if @@_not_isolated_vars excludes :local' do
+    x, y = 'awe', 'some'
+    should_have_expected_binding \
+      SerializableProc.new {
+        @@_not_isolated_vars = nil
+        x + y
+      }, {:lvar_x => x, :lvar_y => y}
+  end
+
+  should "handle inner-scoped ones if @@_not_isolated_vars excludes :local" do
+    x, y = 'awe', 'some'
+    should_have_expected_binding \
+      SerializableProc.new {
+        @@_not_isolated_vars = nil
+        z = 'wonder'
+        %w{a b}.each{ puts z, x, y }
+      }, {:lvar_x => x, :lvar_y => y, :lvar_z => nil}
+  end
+
+  should 'not handle outer-scoped ones if @@_not_isolated_vars includes :local' do
+    x, y = 'awe', 'some'
+    should_have_empty_binding \
+      SerializableProc.new {
+        @@_not_isolated_vars = :local;
+        x + y
+      }
+  end
+
+  should "not handle inner-scoped ones if @@_not_isolated_vars includes :local" do
+    x, y = 'awe', 'some'
+    should_have_empty_binding \
+      SerializableProc.new {
+        @@_not_isolated_vars = :local;
+        z = 'wonder'
+        %w{a b}.each{ puts z, x, y }
+      }
+  end
+
+  should 'handle outer-scoped ones w @@_not_isolated_vars unspecified' do
+    x, y = 'awe', 'some'
+    should_have_expected_binding \
+      SerializableProc.new { x + y }, {:lvar_x => x, :lvar_y => y}
+  end
+
+  should "handle inner-scoped ones w @@_not_isolated_vars unspecified" do
+    x, y = 'awe', 'some'
+    should_have_expected_binding \
+      SerializableProc.new {
+        z = 'wonder'
+        %w{a b}.each{ puts z, x, y }
+      }, {:lvar_x => x, :lvar_y => y, :lvar_z => nil}
+  end
+
+end

data/spec/bounded_vars/local_vars_within_block_scope_spec.rb

@@ -0,0 +1,31 @@
+require File.join(File.dirname(__FILE__), '..', 'spec_helper')
+
+describe 'Extracting local vars within block scope' do
+
+  extend SerializableProc::Spec::Helpers
+
+  should "not handle w @@_mingle_vars unspecified" do
+    x = 'ox'
+    should_have_empty_binding \
+      SerializableProc.new { def test ; x = 'lx' ; end }
+  end
+
+  should "not handle if @@_mingle_vars includes :local" do
+    x = 'ox'
+    should_have_empty_binding \
+      SerializableProc.new {
+        @@_mingle_vars = :local
+        def test ; x = 'lx' ; end
+      }
+  end
+
+  should "not handle if @@_mingle_vars excludes :local" do
+    x = 'ox'
+    should_have_empty_binding \
+      SerializableProc.new {
+        @@_mingle_vars = nil
+        def test ; x = 'lx' ; end
+      }
+  end
+
+end

data/spec/code_block/errors_spec.rb

@@ -0,0 +1,65 @@
+require File.join(File.dirname(__FILE__), '..', 'spec_helper')
+
+describe 'SerializableProc::CannotAnalyseCodeError' do
+  unless $parse_tree_installed
+
+    extend SerializableProc::Spec::Helpers
+
+    should "raise if line has more than 1 'SerializableProc.new'" do
+      lambda {
+        SerializableProc.new {} ; SerializableProc.new { |arg| %w{a b}.map{|x| puts x } }
+      }.should.be raising_cannot_analyse_error("'SerializableProc.new'")
+    end
+
+    should "raise if line has more than 1 'Proc.new'" do
+      lambda {
+        p1 = Proc.new {} ; p2 = Proc.new { |arg| %w{a b}.map{|x| puts x } }
+        SerializableProc.new(&p2)
+      }.should.be raising_cannot_analyse_error("'lambda'/'proc'/'Proc.new'")
+    end
+
+    should "raise if line has more than 1 'lambda'" do
+      lambda {
+        p1 = lambda {} ; p2 = lambda { |arg| %w{a b}.map{|x| puts x } }
+        SerializableProc.new(&p2)
+      }.should.be raising_cannot_analyse_error("'lambda'/'proc'/'Proc.new'")
+    end
+
+    should "raise if line has more than 1 'proc'" do
+      lambda {
+        p1 = proc {} ; p2 = proc { |arg| %w{a b}.map{|x| puts x } }
+        SerializableProc.new(&p2)
+      }.should.be raising_cannot_analyse_error("'lambda'/'proc'/'Proc.new'")
+    end
+
+    should "raise if line mixes 'lambda' & 'proc'" do
+      lambda {
+        p1 = lambda {} ; p2 = proc { |arg| %w{a b}.map{|x| puts x } }
+        SerializableProc.new(&p2)
+      }.should.be raising_cannot_analyse_error("'lambda'/'proc'/'Proc.new'")
+    end
+
+    should "raise if line mixes 'Proc.new' & 'proc'" do
+      lambda {
+        p1 = Proc.new {} ; p2 = proc { |arg| %w{a b}.map{|x| puts x } }
+        SerializableProc.new(&p2)
+      }.should.be raising_cannot_analyse_error("'lambda'/'proc'/'Proc.new'")
+    end
+
+    should "raise if line mixes 'Proc.new' & 'lambda'" do
+      lambda {
+        p1 = Proc.new {} ; p2 = lambda { |arg| %w{a b}.map{|x| puts x } }
+        SerializableProc.new(&p2)
+      }.should.be raising_cannot_analyse_error("'lambda'/'proc'/'Proc.new'")
+    end
+
+    should "raise if line does not have lambda, proc, Proc.new or SerializableProc.new" do
+      lambda {
+        def create_serializable_proc(&block) ; SerializableProc.new(&block) ; end
+        create_serializable_proc { %w{a b}.map{|x| puts x } }
+      }.should.raise(SerializableProc::CannotAnalyseCodeError).
+        message.should.equal('Cannot find specified initializer !!')
+    end
+
+  end
+end

data/spec/{multiple_arities_serializable_proc_spec.rb → code_block/multiple_arities_spec.rb}

@@ -1,6 +1,6 @@
-require File.join(File.dirname(__FILE__), 'spec_helper')
+require File.join(File.dirname(__FILE__), '..', 'spec_helper')
 
-describe 'Multiple arities serializable proc' do
+describe 'Extracting multiple arities code block' do
 
   extend SerializableProc::Spec::Helpers
 

data/spec/{optional_arity_serializable_proc_spec.rb → code_block/optional_arity_spec.rb}

@@ -1,6 +1,6 @@
-require File.join(File.dirname(__FILE__), 'spec_helper')
+require File.join(File.dirname(__FILE__), '..', 'spec_helper')
 
-describe 'Optional arity serializable proc' do
+describe 'Extracting optional arity code block' do
 
   extend SerializableProc::Spec::Helpers
 

data/spec/code_block/renaming_vars_spec.rb

@@ -0,0 +1,160 @@
+require File.join(File.dirname(__FILE__), '..', 'spec_helper')
+
+describe 'Renaming variables' do
+
+  describe '>> wo specified @@_not_isolated_vars' do
+    extend SerializableProc::Spec::Helpers
+
+    should 'handle global, class, instance & local' do
+      x, @x, @@x, $x = 'lx', 'ix', 'cx', 'gx'
+      SerializableProc.new{ [x, @x, @@x, $x] }.should.be \
+        having_runnable_code_as('lambda{ [lvar_x, ivar_x, cvar_x, gvar_x] }')
+    end
+
+    should 'not handle block-scoped ones (single)' do
+      (
+        x, @x, @@x, $x = 'lx', 'ix', 'cx', 'gx'
+        SerializableProc.new do
+          [x, @x, @@x, $x]
+          def test(x) ; [x, @x, @@x, $x] ; end
+        end
+      ).should.be having_runnable_code_as('
+        lambda do
+          [lvar_x, ivar_x, cvar_x, gvar_x]
+          def test(x) ; [x, @x, @@x, $x] ; end
+        end
+      ')
+    end
+
+    should 'not handle block-scoped ones (multiple)' do
+      (
+        x, @x, @@x, $x = 'lx', 'ix', 'cx', 'gx'
+        SerializableProc.new do
+          [x, @x, @@x, $x]
+          def test1(x) ; [x, @x, @@x, $x] ; end
+          def test2(x) ; [x, @x, @@x, $x] ; end
+        end
+      ).should.be having_runnable_code_as('
+        lambda do
+          [lvar_x, ivar_x, cvar_x, gvar_x]
+          def test1(x) ; [x, @x, @@x, $x] ; end
+          def test2(x) ; [x, @x, @@x, $x] ; end
+        end
+      ')
+    end
+
+  end
+
+  describe '>> w @@_not_isolated_vars specified' do
+    extend SerializableProc::Spec::Helpers
+
+    should 'handle only class, instance & local w only :global' do
+      (
+        x, @x, @@x, $x = 'lx', 'ix', 'cx', 'gx'
+        SerializableProc.new do
+          @@_not_isolated_vars = :global
+          [x, @x, @@x, $x]
+        end
+      ).should.be having_runnable_code_as('
+        lambda do
+          @@_not_isolated_vars = :global
+          [lvar_x, ivar_x, cvar_x, $x]
+        end
+      ')
+    end
+
+    should 'handle only global, instance & local w only :class' do
+      (
+        x, @x, @@x, $x = 'lx', 'ix', 'cx', 'gx'
+        SerializableProc.new do
+          @@_not_isolated_vars = :class
+          [x, @x, @@x, $x]
+        end
+      ).should.be having_runnable_code_as('
+        lambda do
+          @@_not_isolated_vars = :class
+          [lvar_x, ivar_x, @@x, gvar_x]
+        end
+      ')
+    end
+
+    should 'handle only global, class & local w only :instance' do
+      (
+        x, @x, @@x, $x = 'lx', 'ix', 'cx', 'gx'
+        SerializableProc.new do
+          @@_not_isolated_vars = :instance
+          [x, @x, @@x, $x]
+        end
+      ).should.be having_runnable_code_as('
+        lambda do
+          @@_not_isolated_vars = :instance
+          [lvar_x, @x, cvar_x, gvar_x]
+        end
+      ')
+    end
+
+    should 'handle only global, class & instance w only :local' do
+      (
+        x, @x, @@x, $x = 'lx', 'ix', 'cx', 'gx'
+        SerializableProc.new do
+          @@_not_isolated_vars = :local
+          [x, @x, @@x, $x]
+        end
+      ).should.be having_runnable_code_as('
+        lambda do
+          @@_not_isolated_vars = :local
+          [x, ivar_x, cvar_x, gvar_x]
+        end
+      ')
+    end
+
+    should 'handle only instance & local w :global & :class' do
+      (
+        x, @x, @@x, $x = 'lx', 'ix', 'cx', 'gx'
+        SerializableProc.new do
+          @@_not_isolated_vars = :global, :class
+          [x, @x, @@x, $x]
+        end
+      ).should.be having_runnable_code_as('
+        lambda do
+          @@_not_isolated_vars = :global, :class
+          [lvar_x, ivar_x, @@x, $x]
+        end
+      ')
+    end
+
+    should 'not handle block-scoped ones (single)' do
+      (
+        x, @x, @@x, $x = 'lx', 'ix', 'cx', 'gx'
+        SerializableProc.new do
+          @@_not_isolated_vars = :global, :class
+          def test(x) ; [x, @x, @@x, $x] ; end
+        end
+      ).should.be having_runnable_code_as('
+        lambda do
+          @@_not_isolated_vars = :global, :class
+          def test(x) ; [x, @x, @@x, $x] ; end
+        end
+      ')
+    end
+
+    should 'not handle block-scoped ones (multiple)' do
+      (
+        x, @x, @@x, $x = 'lx', 'ix', 'cx', 'gx'
+        SerializableProc.new do
+          @@_not_isolated_vars = :global, :class
+          def test1(x) ; [x, @x, @@x, $x] ; end
+          def test2(x) ; [x, @x, @@x, $x] ; end
+        end
+      ).should.be having_runnable_code_as('
+        lambda do
+          @@_not_isolated_vars = :global, :class
+          def test1(x) ; [x, @x, @@x, $x] ; end
+          def test2(x) ; [x, @x, @@x, $x] ; end
+        end
+      ')
+    end
+
+  end
+
+end

data/spec/{one_arity_serializable_proc_spec.rb → code_block/single_arity_spec.rb}

@@ -1,6 +1,6 @@
-require File.join(File.dirname(__FILE__), 'spec_helper')
+require File.join(File.dirname(__FILE__), '..', 'spec_helper')
 
-describe 'One arity serializable proc' do
+describe 'Extracting single arity code block' do
 
   extend SerializableProc::Spec::Helpers
 

data/spec/{zero_arity_serializable_proc_spec.rb → code_block/zero_arity_spec.rb}

@@ -1,6 +1,6 @@
-require File.join(File.dirname(__FILE__), 'spec_helper')
+require File.join(File.dirname(__FILE__), '..', 'spec_helper')
 
-describe 'Zero arity serializable proc' do
+describe 'Extracting zero arity code block' do
 
   extend SerializableProc::Spec::Helpers