modalsupport 0.1.1 → 0.2.0

data/VERSION

@@ -1 +1 @@
-0.1.1
+0.2.0

data/lib/modalsupport/enumerable.rb

@@ -3,5 +3,29 @@ module Enumerable
   def grep_each(pattern)
     grep(pattern){|str| yield(Regexp.last_match)}
   end
+  
+  if RUBY_VERSION < "1.8.7"
+    require 'enumerator'
+    alias enumerator_each_slice each_slice
+    def each_slice(n, &blk)
+      if blk
+        # each_slice is implemented in the enumerator extension, requiring a block, and is used by enum_slice
+        enumerator_each_slice(n, &blk)
+      else
+        enum_slice(n, &blk)
+      end
+    end
+  end
+  
+  def each_pair(&blk)
+    each_slice(2, &blk)
+  end
+  
+  # Convert to pairs [[e1,e2], [e3,e4], ...]
+  # Note that for a Hash, this is equivalent to hash.to_a.to_pairs which may not be what's intended; hash.to_a is
+  # an array of key-value pairs; to_pairs is an array of pairs of key-value pairs.
+  def to_pairs
+    each_pair.to_a
+  end
  
 end

data/modalsupport.gemspec

@@ -5,11 +5,11 @@
 
 Gem::Specification.new do |s|
   s.name = %q{modalsupport}
-  s.version = "0.1.1"
+  s.version = "0.2.0"
 
   s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
   s.authors = ["Javier Goizueta"]
-  s.date = %q{2010-01-24}
+  s.date = %q{2010-02-05}
   s.description = %q{additional support extensions to ActiveSupport and HoboSupport}
   s.email = %q{jgoizueta@gmail.com}
   s.extra_rdoc_files = [
@@ -34,6 +34,7 @@ Gem::Specification.new do |s|
      "test/test_gsub.rb",
      "test/test_match.rb",
      "test/test_relative_path.rb",
+     "test/test_slice.rb",
      "test/test_unindent.rb"
   ]
   s.homepage = %q{http://github.com/jgoizueta/modalsupport}
@@ -47,6 +48,7 @@ Gem::Specification.new do |s|
      "test/test_gsub.rb",
      "test/test_match.rb",
      "test/test_relative_path.rb",
+     "test/test_slice.rb",
      "test/test_unindent.rb"
   ]
 

data/test/test_grep.rb

@@ -2,14 +2,18 @@ require 'helper'
 
 class TestGrep < Test::Unit::TestCase
 
-  should "pass match info to a block" do
-    assert_equal %w{AXA AYA AZA}, %w{xxx axa yue asx aya aza}.grep_each(/a.a/){|match| match.to_s.upcase}
-  end
+  context "Applying grep_each to an array" do
+
+    should "pass match info to a block" do
+      assert_equal %w{AXA AYA AZA}, %w{xxx axa yue asx aya aza}.grep_each(/a.a/){|match| match.to_s.upcase}
+    end
 
-  should "not modify the array" do
-    str = %w{xxx axa yue asx aya aza}
-    str.grep_each(/a.a/){|match| match.to_s.upcase}
-    assert_equal %w{xxx axa yue asx aya aza}, str
+    should "not modify the array" do
+      str = %w{xxx axa yue asx aya aza}
+      str.grep_each(/a.a/){|match| match.to_s.upcase}
+      assert_equal %w{xxx axa yue asx aya aza}, str
+    end
+    
   end
 
 end

data/test/test_gsub.rb

@@ -1,21 +1,25 @@
 require 'helper'
 
-class TestMatch < Test::Unit::TestCase
+class TestGsub < Test::Unit::TestCase
+  
+  context "Applying gsub_each to string" do
 
-  should "pass match info to a block and use result for substitution" do
-    assert_equal "xxx AXA yue asx AYA AZA", "xxx axa yue asx aya aza".gsub_each(/a.a/){|match| match.to_s.upcase}
-  end
+    should "pass match info to a block and use result for substitution" do
+      assert_equal "xxx AXA yue asx AYA AZA", "xxx axa yue asx aya aza".gsub_each(/a.a/){|match| match.to_s.upcase}
+    end
 
-  should "not modify the string" do
-    str = "xxx axa yue asx aya aza"
-    str.gsub_each(/a.a/){|match| match.to_s.upcase}
-    assert_equal "xxx axa yue asx aya aza", str
-  end
+    should "not modify the string" do
+      str = "xxx axa yue asx aya aza"
+      str.gsub_each(/a.a/){|match| match.to_s.upcase}
+      assert_equal "xxx axa yue asx aya aza", str
+    end
 
-  should "have a mutating version" do
-    str = "xxx axa yue asx aya aza"
-    str.gsub_each!(/a.a/){|match| match.to_s.upcase}
-    assert_equal "xxx AXA yue asx AYA AZA", str
+    should "have a mutator version" do
+      str = "xxx axa yue asx aya aza"
+      str.gsub_each!(/a.a/){|match| match.to_s.upcase}
+      assert_equal "xxx AXA yue asx AYA AZA", str
+    end
+    
   end
   
 end

data/test/test_match.rb

@@ -1,22 +1,30 @@
 require 'helper'
 
-class TestGsub < Test::Unit::TestCase
+class TestMatch < Test::Unit::TestCase
 
-  should "pass match info to a block and return the block result" do
-    assert_equal "axa", "xxx axa yue asx aya aza".match_one(/a.a/){|match| match.to_s}
-    assert_equal "axa", /a.a/.match_one("xxx axa yue asx aya aza"){|match| match.to_s}
-  end
+  context "Applying match_one to a string or regular expression" do
+
+    should "pass match info to a block and return the block result" do
+      assert_equal "axa", "xxx axa yue asx aya aza".match_one(/a.a/){|match| match.to_s}
+      assert_equal "axa", /a.a/.match_one("xxx axa yue asx aya aza"){|match| match.to_s}
+    end
 
-  should "return nil if no match" do
-    assert_equal "axa", "xxx axa yue asx aya aza".match_one(/a.a/){|match| match.to_s}
-    assert_equal "axa", /a.a/.match_one("xxx axa yue asx aya aza"){|match| match.to_s}
-    assert_nil "xxx axa yue asx aya aza".match_one(/b.b/){|match| match.to_s}
-    assert_nil /b.b/.match_one("xxx axa yue asx aya aza"){|match| match.to_s}
+    should "return nil if no match" do
+      assert_equal "axa", "xxx axa yue asx aya aza".match_one(/a.a/){|match| match.to_s}
+      assert_equal "axa", /a.a/.match_one("xxx axa yue asx aya aza"){|match| match.to_s}
+      assert_nil "xxx axa yue asx aya aza".match_one(/b.b/){|match| match.to_s}
+      assert_nil /b.b/.match_one("xxx axa yue asx aya aza"){|match| match.to_s}
+    end
+    
   end
 
-  should "map all matches to an array" do
-    assert_equal ["axa", "aya", "aza"], "xxx axa yue asx aya aza".match_all(/a.a/){|match| match.to_s}
-    assert_equal ["axa", "aya", "aza"], /a.a/.match_all("xxx axa yue asx aya aza"){|match| match.to_s}
+  context "Applying match_all to a string or regular expression" do
+    
+    should "map all matches to an array" do
+      assert_equal ["axa", "aya", "aza"], "xxx axa yue asx aya aza".match_all(/a.a/){|match| match.to_s}
+      assert_equal ["axa", "aya", "aza"], /a.a/.match_all("xxx axa yue asx aya aza"){|match| match.to_s}
+    end
+  
   end
   
 end

data/test/test_relative_path.rb

@@ -1,77 +1,81 @@
 require 'helper'
 
 class TestRelativePaths < Test::Unit::TestCase
+  
+  context "File.relative_path" do
 
-  should "handle relative paths" do
-    assert_equal 'aaa/bbb/ccc/ddd.eee', File.relative_path('aaa/bbb/ccc/ddd.eee')
-    assert_equal 'ccc/ddd.eee', File.relative_path('aaa/bbb/ccc/ddd.eee', 'aaa/bbb')
-    assert_equal 'aaa/bbb/ccc/ddd.eee', File.relative_path('aaa/bbb/ccc/ddd.eee','/aaa/bbb')
-    assert_equal 'aaa/bbb/ccc/ddd.eee', File.relative_path('aaa/bbb/ccc/ddd.eee','xxx/yyy')
-    assert_equal 'aaa/bbb/ccc/ddd.eee', File.relative_path('aaa/bbb/ccc/ddd.eee','/xxx/yyy')
-  end
+    should "handle relative paths" do
+      assert_equal 'aaa/bbb/ccc/ddd.eee', File.relative_path('aaa/bbb/ccc/ddd.eee')
+      assert_equal 'ccc/ddd.eee', File.relative_path('aaa/bbb/ccc/ddd.eee', 'aaa/bbb')
+      assert_equal 'aaa/bbb/ccc/ddd.eee', File.relative_path('aaa/bbb/ccc/ddd.eee','/aaa/bbb')
+      assert_equal 'aaa/bbb/ccc/ddd.eee', File.relative_path('aaa/bbb/ccc/ddd.eee','xxx/yyy')
+      assert_equal 'aaa/bbb/ccc/ddd.eee', File.relative_path('aaa/bbb/ccc/ddd.eee','/xxx/yyy')
+    end
   
-  should "handle absolute root paths" do
-    assert_equal '/aaa/bbb/ccc/ddd.eee', File.relative_path('/aaa/bbb/ccc/ddd.eee')
-    assert_equal 'ccc/ddd.eee', File.relative_path('/aaa/bbb/ccc/ddd.eee', '/aaa/bbb')
-    assert_equal '/aaa/bbb/ccc/ddd.eee', File.relative_path('/aaa/bbb/ccc/ddd.eee','aaa/bbb')
-    assert_equal '/aaa/bbb/ccc/ddd.eee', File.relative_path('/aaa/bbb/ccc/ddd.eee','xxx/yyy')
-    assert_equal '/aaa/bbb/ccc/ddd.eee', File.relative_path('/aaa/bbb/ccc/ddd.eee','/xxx/yyy')
-  end
+    should "handle absolute root paths" do
+      assert_equal '/aaa/bbb/ccc/ddd.eee', File.relative_path('/aaa/bbb/ccc/ddd.eee')
+      assert_equal 'ccc/ddd.eee', File.relative_path('/aaa/bbb/ccc/ddd.eee', '/aaa/bbb')
+      assert_equal '/aaa/bbb/ccc/ddd.eee', File.relative_path('/aaa/bbb/ccc/ddd.eee','aaa/bbb')
+      assert_equal '/aaa/bbb/ccc/ddd.eee', File.relative_path('/aaa/bbb/ccc/ddd.eee','xxx/yyy')
+      assert_equal '/aaa/bbb/ccc/ddd.eee', File.relative_path('/aaa/bbb/ccc/ddd.eee','/xxx/yyy')
+    end
 
-  should "handle absolute home paths" do
-    assert_equal '~/aaa/bbb/ccc/ddd.eee', File.relative_path('~/aaa/bbb/ccc/ddd.eee')
-    assert_equal 'ccc/ddd.eee', File.relative_path('~/aaa/bbb/ccc/ddd.eee', '~/aaa/bbb')
-    assert_equal '~/aaa/bbb/ccc/ddd.eee', File.relative_path('~/aaa/bbb/ccc/ddd.eee','aaa/bbb')
-    assert_equal '~/aaa/bbb/ccc/ddd.eee', File.relative_path('~/aaa/bbb/ccc/ddd.eee','/aaa/bbb')
-    assert_equal '~/aaa/bbb/ccc/ddd.eee', File.relative_path('~/aaa/bbb/ccc/ddd.eee','xxx/yyy')
-    assert_equal '~/aaa/bbb/ccc/ddd.eee', File.relative_path('~/aaa/bbb/ccc/ddd.eee','/xxx/yyy')
-  end
+    should "handle absolute home paths" do
+      assert_equal '~/aaa/bbb/ccc/ddd.eee', File.relative_path('~/aaa/bbb/ccc/ddd.eee')
+      assert_equal 'ccc/ddd.eee', File.relative_path('~/aaa/bbb/ccc/ddd.eee', '~/aaa/bbb')
+      assert_equal '~/aaa/bbb/ccc/ddd.eee', File.relative_path('~/aaa/bbb/ccc/ddd.eee','aaa/bbb')
+      assert_equal '~/aaa/bbb/ccc/ddd.eee', File.relative_path('~/aaa/bbb/ccc/ddd.eee','/aaa/bbb')
+      assert_equal '~/aaa/bbb/ccc/ddd.eee', File.relative_path('~/aaa/bbb/ccc/ddd.eee','xxx/yyy')
+      assert_equal '~/aaa/bbb/ccc/ddd.eee', File.relative_path('~/aaa/bbb/ccc/ddd.eee','/xxx/yyy')
+    end
   
-  should "absolute paths with Windows units" do
-    assert_equal 'C:/aaa/bbb/ccc/ddd.eee', File.relative_path('C:/aaa/bbb/ccc/ddd.eee')
-    assert_equal 'ccc/ddd.eee', File.relative_path('C:/aaa/bbb/ccc/ddd.eee', 'C:/aaa/bbb')
-    assert_equal 'C:/aaa/bbb/ccc/ddd.eee', File.relative_path('C:/aaa/bbb/ccc/ddd.eee','aaa/bbb')
-    assert_equal 'C:/aaa/bbb/ccc/ddd.eee', File.relative_path('C:/aaa/bbb/ccc/ddd.eee','/aaa/bbb')
-    assert_equal 'C:/aaa/bbb/ccc/ddd.eee', File.relative_path('C:/aaa/bbb/ccc/ddd.eee','D:/aaa/bbb')
-    assert_equal 'C:/aaa/bbb/ccc/ddd.eee', File.relative_path('C:/aaa/bbb/ccc/ddd.eee','xxx/yyy')
-    assert_equal 'C:/aaa/bbb/ccc/ddd.eee', File.relative_path('C:/aaa/bbb/ccc/ddd.eee','/xxx/yyy')
-    assert_equal 'C:/aaa/bbb/ccc/ddd.eee', File.relative_path('C:/aaa/bbb/ccc/ddd.eee','C:/xxx/yyy')
-  end
+    should "absolute paths with Windows units" do
+      assert_equal 'C:/aaa/bbb/ccc/ddd.eee', File.relative_path('C:/aaa/bbb/ccc/ddd.eee')
+      assert_equal 'ccc/ddd.eee', File.relative_path('C:/aaa/bbb/ccc/ddd.eee', 'C:/aaa/bbb')
+      assert_equal 'C:/aaa/bbb/ccc/ddd.eee', File.relative_path('C:/aaa/bbb/ccc/ddd.eee','aaa/bbb')
+      assert_equal 'C:/aaa/bbb/ccc/ddd.eee', File.relative_path('C:/aaa/bbb/ccc/ddd.eee','/aaa/bbb')
+      assert_equal 'C:/aaa/bbb/ccc/ddd.eee', File.relative_path('C:/aaa/bbb/ccc/ddd.eee','D:/aaa/bbb')
+      assert_equal 'C:/aaa/bbb/ccc/ddd.eee', File.relative_path('C:/aaa/bbb/ccc/ddd.eee','xxx/yyy')
+      assert_equal 'C:/aaa/bbb/ccc/ddd.eee', File.relative_path('C:/aaa/bbb/ccc/ddd.eee','/xxx/yyy')
+      assert_equal 'C:/aaa/bbb/ccc/ddd.eee', File.relative_path('C:/aaa/bbb/ccc/ddd.eee','C:/xxx/yyy')
+    end
   
-  if File::ALT_SEPARATOR == "\\"
-  should "handle absolute paths with Windows units and Windows separators" do
-    assert_equal 'C:\\aaa\\bbb\\ccc\\ddd.eee', File.relative_path('C:\\aaa\\bbb\\ccc\\ddd.eee')
-    assert_equal 'ccc\\ddd.eee', File.relative_path('C:\\aaa\\bbb\\ccc\\ddd.eee', 'C:\\aaa\\bbb')
-    assert_equal 'C:\\aaa\\bbb\\ccc\\ddd.eee', File.relative_path('C:\\aaa\\bbb\\ccc\\ddd.eee','aaa\\bbb')
-    assert_equal 'C:\\aaa\\bbb\\ccc\\ddd.eee', File.relative_path('C:\\aaa\\bbb\\ccc\\ddd.eee','\\aaa\\bbb')
-    assert_equal 'C:\\aaa\\bbb\\ccc\\ddd.eee', File.relative_path('C:\\aaa\\bbb\\ccc\\ddd.eee','D:\\aaa\\bbb')
-    assert_equal 'C:\\aaa\\bbb\\ccc\\ddd.eee', File.relative_path('C:\\aaa\\bbb\\ccc\\ddd.eee','xxx\\yyy')
-    assert_equal 'C:\\aaa\\bbb\\ccc\\ddd.eee', File.relative_path('C:\\aaa\\bbb\\ccc\\ddd.eee','\\xxx\\yyy')
-    assert_equal 'C:\\aaa\\bbb\\ccc\\ddd.eee', File.relative_path('C:\\aaa\\bbb\\ccc\\ddd.eee','C:\\xxx\\yyy')
-  end
-  end
+    if File::ALT_SEPARATOR == "\\"
+    should "handle absolute paths with Windows units and Windows separators" do
+      assert_equal 'C:\\aaa\\bbb\\ccc\\ddd.eee', File.relative_path('C:\\aaa\\bbb\\ccc\\ddd.eee')
+      assert_equal 'ccc\\ddd.eee', File.relative_path('C:\\aaa\\bbb\\ccc\\ddd.eee', 'C:\\aaa\\bbb')
+      assert_equal 'C:\\aaa\\bbb\\ccc\\ddd.eee', File.relative_path('C:\\aaa\\bbb\\ccc\\ddd.eee','aaa\\bbb')
+      assert_equal 'C:\\aaa\\bbb\\ccc\\ddd.eee', File.relative_path('C:\\aaa\\bbb\\ccc\\ddd.eee','\\aaa\\bbb')
+      assert_equal 'C:\\aaa\\bbb\\ccc\\ddd.eee', File.relative_path('C:\\aaa\\bbb\\ccc\\ddd.eee','D:\\aaa\\bbb')
+      assert_equal 'C:\\aaa\\bbb\\ccc\\ddd.eee', File.relative_path('C:\\aaa\\bbb\\ccc\\ddd.eee','xxx\\yyy')
+      assert_equal 'C:\\aaa\\bbb\\ccc\\ddd.eee', File.relative_path('C:\\aaa\\bbb\\ccc\\ddd.eee','\\xxx\\yyy')
+      assert_equal 'C:\\aaa\\bbb\\ccc\\ddd.eee', File.relative_path('C:\\aaa\\bbb\\ccc\\ddd.eee','C:\\xxx\\yyy')
+    end
+    end
   
-  should "handle absolute UNC paths" do
-    assert_equal '//aaa/bbb/ccc/ddd.eee', File.relative_path('//aaa/bbb/ccc/ddd.eee')
-    assert_equal 'ccc/ddd.eee', File.relative_path('//aaa/bbb/ccc/ddd.eee', '//aaa/bbb')
-    assert_equal '//aaa/bbb/ccc/ddd.eee', File.relative_path('//aaa/bbb/ccc/ddd.eee','aaa/bbb')
-    assert_equal '//aaa/bbb/ccc/ddd.eee', File.relative_path('//aaa/bbb/ccc/ddd.eee','/aaa/bbb')
-    assert_equal '//aaa/bbb/ccc/ddd.eee', File.relative_path('//aaa/bbb/ccc/ddd.eee','xxx/yyy')
-    assert_equal '//aaa/bbb/ccc/ddd.eee', File.relative_path('//aaa/bbb/ccc/ddd.eee','/xxx/yyy')
-    assert_equal '//aaa/bbb/ccc/ddd.eee', File.relative_path('//aaa/bbb/ccc/ddd.eee','//xxx/yyy')
-  end
+    should "handle absolute UNC paths" do
+      assert_equal '//aaa/bbb/ccc/ddd.eee', File.relative_path('//aaa/bbb/ccc/ddd.eee')
+      assert_equal 'ccc/ddd.eee', File.relative_path('//aaa/bbb/ccc/ddd.eee', '//aaa/bbb')
+      assert_equal '//aaa/bbb/ccc/ddd.eee', File.relative_path('//aaa/bbb/ccc/ddd.eee','aaa/bbb')
+      assert_equal '//aaa/bbb/ccc/ddd.eee', File.relative_path('//aaa/bbb/ccc/ddd.eee','/aaa/bbb')
+      assert_equal '//aaa/bbb/ccc/ddd.eee', File.relative_path('//aaa/bbb/ccc/ddd.eee','xxx/yyy')
+      assert_equal '//aaa/bbb/ccc/ddd.eee', File.relative_path('//aaa/bbb/ccc/ddd.eee','/xxx/yyy')
+      assert_equal '//aaa/bbb/ccc/ddd.eee', File.relative_path('//aaa/bbb/ccc/ddd.eee','//xxx/yyy')
+    end
   
-  if File::ALT_SEPARATOR == "\\"
-    # This test fails on non-windows platforms because File.expand_path("\\\\...","base") == "base/\\\\..."
-    should "handle absolute UNC paths with Windows separators" do
-      assert_equal '\\\\aaa\\bbb\\ccc\\ddd.eee', File.relative_path('\\\\aaa\\bbb\\ccc\\ddd.eee')
-      assert_equal 'ccc\\ddd.eee', File.relative_path('\\\\aaa\\bbb\\ccc\\ddd.eee', '\\\\aaa\\bbb')
-      assert_equal '\\\\aaa\\bbb\\ccc\\ddd.eee', File.relative_path('\\\\aaa\\bbb\\ccc\\ddd.eee','aaa\\bbb')
-      assert_equal '\\\\aaa\\bbb\\ccc\\ddd.eee', File.relative_path('\\\\aaa\\bbb\\ccc\\ddd.eee','\\aaa\\bbb')
-      assert_equal '\\\\aaa\\bbb\\ccc\\ddd.eee', File.relative_path('\\\\aaa\\bbb\\ccc\\ddd.eee','xxx\\yyy')
-      assert_equal '\\\\aaa\\bbb\\ccc\\ddd.eee', File.relative_path('\\\\aaa\\bbb\\ccc\\ddd.eee','\\xxx\\yyy')
-      assert_equal '\\\\aaa\\bbb\\ccc\\ddd.eee', File.relative_path('\\\\aaa\\bbb\\ccc\\ddd.eee','\\\\xxx\\yyy')
+    if File::ALT_SEPARATOR == "\\"
+      # This test fails on non-windows platforms because File.expand_path("\\\\...","base") == "base/\\\\..."
+      should "handle absolute UNC paths with Windows separators" do
+        assert_equal '\\\\aaa\\bbb\\ccc\\ddd.eee', File.relative_path('\\\\aaa\\bbb\\ccc\\ddd.eee')
+        assert_equal 'ccc\\ddd.eee', File.relative_path('\\\\aaa\\bbb\\ccc\\ddd.eee', '\\\\aaa\\bbb')
+        assert_equal '\\\\aaa\\bbb\\ccc\\ddd.eee', File.relative_path('\\\\aaa\\bbb\\ccc\\ddd.eee','aaa\\bbb')
+        assert_equal '\\\\aaa\\bbb\\ccc\\ddd.eee', File.relative_path('\\\\aaa\\bbb\\ccc\\ddd.eee','\\aaa\\bbb')
+        assert_equal '\\\\aaa\\bbb\\ccc\\ddd.eee', File.relative_path('\\\\aaa\\bbb\\ccc\\ddd.eee','xxx\\yyy')
+        assert_equal '\\\\aaa\\bbb\\ccc\\ddd.eee', File.relative_path('\\\\aaa\\bbb\\ccc\\ddd.eee','\\xxx\\yyy')
+        assert_equal '\\\\aaa\\bbb\\ccc\\ddd.eee', File.relative_path('\\\\aaa\\bbb\\ccc\\ddd.eee','\\\\xxx\\yyy')
+      end
     end
+  
   end
   
 end

data/test/test_slice.rb

@@ -0,0 +1,42 @@
+require 'helper'
+
+class TestSlice < Test::Unit::TestCase
+
+  context "Enumerable objects" do
+  
+    should "have each_slice" do
+      assert [].respond_to?(:each_slice)
+      assert({}.respond_to?(:each_slice))
+    end
+
+    should "iterate into disjoint groups with each_slice" do
+      a = (1..8).to_a
+    
+      slices = []
+      a.each_slice(2){|s| slices << s}
+      assert_equal [[1,2],[3,4],[5,6],[7,8]], slices
+    
+      slices = []
+      a.each_slice(3){|s| slices << s}
+      assert_equal [[1,2,3],[4,5,6],[7,8]], slices
+    end
+
+    should "convert each_slice to an array" do
+      assert_equal [[1,2],[3,4],[5,6],[7,8]], [1,2,3,4,5,6,7,8].each_slice(2).to_a
+      assert_equal [[1,2,3],[4,5,6],[7,8]], [1,2,3,4,5,6,7,8].each_slice(3).to_a    
+    end
+  
+    should "have each_pair" do
+      assert_equal [[1,2],[3,4],[5,6],[7,8]], [1,2,3,4,5,6,7,8].each_pair.to_a
+    end
+
+    should "have to_pairs" do
+      assert [].respond_to?(:to_pairs)
+      assert({}.respond_to?(:to_pairs))
+      assert_equal [[1,2],[3,4],[5,6],[7,8]], [1,2,3,4,5,6,7,8].to_pairs
+      assert_equal [[1,2],[3,4],[5,6],[7]], [1,2,3,4,5,6,7].to_pairs
+    end
+    
+  end
+
+end

data/test/test_unindent.rb

@@ -22,6 +22,7 @@ class TestUnindent < Test::Unit::TestCase
       Fourh line}
     assert_equal txt, txt.unindent  
   end
+  
   should "remove empty lines at the beginning and end" do
     assert_equal @unindented_text, %{
       First line
@@ -30,6 +31,7 @@ class TestUnindent < Test::Unit::TestCase
       Fourth line
     }.unindent
   end
+  
   should "replace indentation by a given number of spaces" do
     assert_equal @indented_text, %{
       First line
@@ -38,6 +40,7 @@ class TestUnindent < Test::Unit::TestCase
       Fourth line
     }.unindent(4)
   end
+  
   should "replace indentation by a string" do
     assert_equal @indented_text, %{
       First line

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification 
 name: modalsupport
 version: !ruby/object:Gem::Version 
-  version: 0.1.1
+  version: 0.2.0
 platform: ruby
 authors: 
 - Javier Goizueta
@@ -9,7 +9,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2010-01-24 00:00:00 +01:00
+date: 2010-02-05 00:00:00 +01:00
 default_executable: 
 dependencies: 
 - !ruby/object:Gem::Dependency 
@@ -69,6 +69,7 @@ files:
 - test/test_gsub.rb
 - test/test_match.rb
 - test/test_relative_path.rb
+- test/test_slice.rb
 - test/test_unindent.rb
 has_rdoc: true
 homepage: http://github.com/jgoizueta/modalsupport
@@ -104,4 +105,5 @@ test_files:
 - test/test_gsub.rb
 - test/test_match.rb
 - test/test_relative_path.rb
+- test/test_slice.rb
 - test/test_unindent.rb