zucker 1 → 2

data/lib/zucker/2/spec/binding_spec.rb

@@ -0,0 +1,8 @@
+require 'zucker/binding'
+
+describe 'Binding#inspect' do
+  it 'should output the current environment' do
+    pending '#TODO: write spec'
+  end
+end
+

data/lib/zucker/2/spec/blank_spec.rb

@@ -0,0 +1,20 @@
+require 'zucker/blank'
+
+describe 'Object#blank?' do
+  it 'should be blank for blank values' do
+    blank_values   = [ nil, false, '', '   ', "  \n\t  \r ", [], {}, // ]
+
+    blank_values.each{ |blank|
+      blank.blank?.should == true
+    }
+  end
+
+  it 'should not be blank for non blank values' do
+    present_values = [ Object.new, true, 0, 1, 'a', [nil], { nil => nil } ]
+
+    present_values.each{ |present|
+      present.blank?.should == false
+    }
+  end
+end
+

data/lib/zucker/2/spec/class2proc_spec.rb

@@ -0,0 +1,9 @@
+require 'zucker/class2proc'
+require 'set'
+
+describe 'Class#to_proc' do
+  it 'should create new instances of the class' do
+    [ [1,2],[3,5,6,7,3] ].map(&Set).should == [ Set[1,2], Set[5,6,7,3] ]
+  end
+end
+

data/lib/zucker/2/spec/egonil_spec.rb

@@ -0,0 +1,30 @@
+require 'zucker/egonil'
+
+describe 'egonil' do
+  it 'should not raise nil exceptions in the block' do
+    proc do
+      egonil{ nil.some_methods.that[:do].not.exist }
+    end.should_not raise_exception
+  end
+
+  it 'should return the nil_value if given' do
+    egonil(9){ nil.some_methods.that[:do].not.exist }.should == 9
+  end
+
+  it 'should restore default behaviour after the block' do
+    proc do
+      egonil{ nil.some_methods.that[:do].not.exist }
+    end.should_not raise_exception
+
+    proc do
+      nil.a_method
+    end.should raise_exception NoMethodError
+  end
+
+  it 'raise NoMethodError for non-nil objects' do
+    proc do
+      egonil{ 5.a_method }
+    end.should raise_exception NoMethodError
+  end
+end
+

data/lib/zucker/2/spec/enumerable_spec.rb

@@ -0,0 +1,8 @@
+require 'zucker/enumerable'
+
+describe 'Enumerable#mash' do
+  it 'should "map" a hash' do
+    [1,2,3].mash{|e| [e, e.to_s] }.should == {1=>'1',2=>'2',3=>'3',}
+  end
+end
+

data/lib/zucker/2/spec/hash2proc_spec.rb

@@ -0,0 +1,12 @@
+require 'zucker/hash2proc'
+
+describe 'Hash#to_proc' do
+  it 'should run the proc given in the value for a key in the hash' do
+    [1,2,3,4].map(&{
+      4 => :to_s,
+      # 3 => [:to_s, 2]  # "11" =>  if array2proc is used
+      2 => lambda {|e| e + 1000}
+    }).should == [1, 1002, 3, "4"]
+  end
+end
+

data/lib/zucker/2/spec/hash_spec.rb

@@ -0,0 +1,17 @@
+require 'zucker/hash'
+
+describe 'Hash.zip' do
+  it 'should zip together both given enumerables and take them as key=>values for a new hash' do
+    Hash.zip( [1,2,3], [4,5,6] ).should == { 1=>4, 2=>5, 3=>6 }
+  end
+end
+
+describe 'Hash#<<' do
+  it 'should append new elements to the hash' do
+    a =  { 1=>4, 2=>5, 3=>6 }
+    a << { 4=>7 }
+    a << [5, 8]
+    a.should == { 1=>4, 2=>5, 3=>6, 4=>7, 5=>8 }
+  end
+end
+

data/lib/zucker/2/spec/info_spec.rb

@@ -0,0 +1,8 @@
+require 'zucker/info'
+
+describe 'Info' do
+  it 'should define accessors for global variables, constants and some special methods/keywords' do
+    # see sourcefile for the list
+  end
+end
+

data/lib/zucker/2/spec/iterate_spec.rb

@@ -0,0 +1,54 @@
+require 'zucker/iterate'
+
+describe 'Object#iterate' do
+  let :a   do [1, 2, 3]     end
+  let :b   do %w|a b c d|   end
+  let :res do Hash.new {[]} end
+
+  it 'should behave like Enumerable#each for a single argument' do
+    iterate a do |ele|
+      res[:iter] << ele
+    end
+
+    a.each do |ele|
+      res[:each] << ele
+    end
+
+    res[:iter].should == res[:each]
+  end
+
+  it 'should pass the right params to the block' do
+    res = Hash.new {[]} # TODO: why?
+    res[:iter_a_b] = [] # ....
+    res[:iter_b_a] = [] # ....
+
+
+    iterate a, b do |e,f|
+      res[:iter_a_b] << [e, f]
+#      p res[:iter_a_b], e, f
+    end
+
+    res[:iter_a_b].should == [
+      [1, 'a'],
+      [2, 'b'],
+      [3, 'c'],
+      [nil, 'd'],
+    ]
+
+    iterate b, a do |e,f|
+      res[:iter_b_a] << [e, f]
+    end
+
+    res[:iter_b_a].should == [
+      ['a', 1],
+      ['b', 2],
+      ['c', 3],
+      ['d', nil],
+    ]
+
+  end
+
+  it 'should return enumerators if no block is applied' do
+  end
+end
+

data/lib/zucker/2/spec/ivars_spec.rb

@@ -0,0 +1,20 @@
+require 'zucker/ivars'
+
+describe 'instance_variables_from' do
+  it 'should tansform the given parameter to instance variables' do
+    def a_method(a = 1, b = 2)
+      instance_variables_from binding # assigns @a and @b
+
+      params = {:c => 3, :d => 4}
+      ivars params # # assigns @c and @d
+    end
+
+    a_method
+    @a.should == 1
+    @b.should == 2
+    @c.should == 3
+    @d.should == 4
+
+  end
+end
+

data/lib/zucker/2/spec/kernel_spec.rb

@@ -0,0 +1,28 @@
+require 'zucker/kernel'
+
+describe 'activate_warnings!' do
+  it 'should set $VERBOSE to true' do
+    activate_warnings!
+    $VERBOSE.should == true
+  end
+end
+
+describe 'deactivate_warnings!' do
+  it 'should set $VERBOSE to false' do
+    deactivate_warnings!
+    $VERBOSE.should == false
+  end
+end
+
+describe 'library?' do
+  it 'should return false if the file is invoked directly' do
+    library?.should == ( __FILE__ != $PROGRAM_NAME )
+  end
+end
+
+describe 'ignore_sigint!' do
+  it 'should catch ctrl+c signals' do
+    # ...
+  end
+end
+

data/lib/zucker/2/spec/mcopy_spec.rb

@@ -0,0 +1,13 @@
+require 'zucker/mcopy'
+
+describe 'Object#mcopy' do
+  it 'create a (deep) copy via marshalling' do
+    a = %w[hello world]
+    b = a.mcopy
+    b.should == a
+
+    b[0][1,1] = ''
+    b.should_not == a
+  end
+end
+

data/lib/zucker/2/spec/mm_spec.rb

@@ -0,0 +1,8 @@
+require 'zucker/mm'
+
+describe 'Object#method_list' do
+  it 'should display an ordered method list' do
+    pending '#TODO: write spec'
+  end
+end
+

data/lib/zucker/2/spec/regexp2proc_spec.rb

@@ -0,0 +1,9 @@
+require 'zucker/regexp2proc'
+
+describe 'Regexp#to_proc' do
+  it 'should match the regex' do
+    %w|just another string array|.map(     &/[jy]/).should == ["j", nil, nil, "y"]
+    %w|just another string array|.select(  &/[jy]/).should == ["just", "array"]
+  end
+end
+

data/lib/zucker/2/spec/sandbox_spec.rb

@@ -0,0 +1,26 @@
+require 'zucker/sandbox'
+
+describe 'sandbox' do
+  it 'should throw a SecurityError if bad commands are issued' do
+    proc do
+      sandbox do
+        `ls`
+      end
+    end.should raise_exception SecurityError
+  end
+
+  it 'should not throw an exception for errors, if the given parameter is not nil' do
+    proc do
+      sandbox( true ) do
+        `ls`
+      end
+    end.should_not raise_exception
+  end
+
+  it 'should run the proc passed as parameter for errors, if it is given' do
+    sandbox( lambda{|e| e.class } ) do
+      `ls`
+    end.should == SecurityError
+  end
+end
+

data/lib/zucker/2/spec/spec_helper.rb

@@ -0,0 +1,18 @@
+require 'stringio'
+
+def capture_stdout
+  capture = StringIO.new
+  restore, $stdout = $stdout, capture
+  yield
+  $stdout = restore
+  capture.string
+end
+
+def capture_stderr
+  capture = StringIO.new
+  restore, $stderr = $stderr, capture
+  yield
+  $stderr = restore
+  capture.string
+end
+

data/lib/zucker/2/spec/square_brackets_for_spec.rb

@@ -0,0 +1,59 @@
+require 'zucker/square_brackets_for'
+
+describe 'square_brackets_for' do
+
+  before do
+    class Klass
+      def initialize
+        @var = {
+          :a_key => 1,
+          :another_one => 2,
+        }
+      end
+
+      @eigenvar = {
+        :a_key => 99
+      }
+    end
+  end
+
+  it 'should define a [] getter (not a setter) for an instance var, if the second parameter is false' do
+
+    class Klass
+      square_brackets_for :var, nil
+    end
+
+    a = Klass.new
+    a[:a_key].should == 1
+
+    proc do
+      a[:this_is] = 'not possible'
+    end.should raise_exception NoMethodError
+  end
+
+  it 'should define [] and []= for accessing an instance variable' do
+
+    class Klass
+      square_brackets_for :var
+    end
+
+    a = Klass.new
+    a[:a_key].should == 1
+
+    a[:this_is] = 'useful'
+    a[:this_is].should == 'useful'
+  end
+
+  it 'should also work for class-instance variables' do
+
+    class Klass
+      class << Klass
+        square_brackets_for :eigenvar
+      end
+    end
+
+    Klass[:a_key].should == 99
+  end
+
+end
+

data/lib/zucker/2/spec/string_spec.rb

@@ -0,0 +1,29 @@
+require 'zucker/string'
+
+describe 'String#^' do
+  it 'should give C-like substring access to strings' do
+    string = 'Theoretische Informatik ist voll geil!'
+
+    (string^0).should  == 'Theoretische Informatik ist voll geil!'
+    (string^1).should  == 'heoretische Informatik ist voll geil!'
+    (string^13).should == 'Informatik ist voll geil!'
+    (string^-1).should == 'Theoretische Informatik ist voll geil'
+    (string^38).should == ''
+    (string^99).should == nil
+  end
+end
+
+describe 'String#lchomp' do
+  it 'should chomp on the left side' do
+    string = 'Theoretische Informatik ist voll geil!'
+    string.lchomp('T').should  == 'heoretische Informatik ist voll geil!'
+  end
+end
+
+describe 'String#ords' do
+  it 'should unpack characters' do
+    string = 'Theoretische Informatik ist voll geil!'
+    string.ords.should  == [84, 104, 101, 111, 114, 101, 116, 105, 115, 99, 104, 101, 32, 73, 110, 102, 111, 114, 109, 97, 116, 105, 107, 32, 105, 115, 116, 32, 118, 111, 108, 108, 32, 103, 101, 105, 108, 33]
+  end
+end
+

data/lib/zucker/2/spec/unary_spec.rb

@@ -0,0 +1,26 @@
+require 'zucker/unary'
+
+describe Symbol, '#+@' do
+  it 'should convert to_s' do
+    +(:matz) == 'matz' # () 1.8 bug
+  end
+end
+
+describe Symbol, '#-@' do
+  it 'should do nothing' do
+    -:matz == :matz
+  end
+end
+
+describe String, '#+@' do
+  it 'should do nothing' do
+    +'matz' == 'matz'
+  end
+end
+
+describe String, '#-@' do
+  it 'should convert to_sym' do
+    -'matz' == :matz
+  end
+end
+

data/lib/zucker/2/spec/union_spec.rb

@@ -0,0 +1,15 @@
+require 'zucker/union'
+
+shared_examples_for "Regexp.union operator" do
+  it "should create an Regexp.union of both operands" do
+  end
+end
+
+describe 'Regexp#|' do
+  it_should_behave_like 'Regexp.union operator'
+end
+
+describe 'String#|' do
+  it_should_behave_like 'Regexp.union operator'
+end
+