facets 2.0.2 → 2.0.3

data/task/testpairs

@@ -0,0 +1,50 @@
+#!/usr/bin/env ratch
+
+# cross-run unit tests
+#
+# This tool runs all tests against each other in pairs
+# to ensure across the board compatibility.
+
+abort "Not working correctly. Fix me."
+
+require "./lib/more/facets/progressbar"
+
+main :test do
+  output = "doc/log/crosstest.txt"
+
+  live = ARGV.delete('--live')
+
+  find = 'test/**/test_*.rb'
+
+  tests = Dir.glob(find).reject{ |f| dir?(f) }.sort
+  tests = tests.sort{ |a,b| File.basename(a) <=> File.basename(b) }
+
+  File.open(output, 'w'){ |f|
+    f << "= CROSS TESTING\n#{Time.now}"
+  }
+
+  total = tests.size * tests.size
+
+  pbar = Console::ProgressBar.new("CrossTest", total+1)
+  pbar.inc
+
+  tests.each do |file1|
+    tests.each do |file2|
+      next if file1 == file2
+
+      sh %{echo "\n\n#{file1} & #{file2}" >> #{output}}
+
+      pbar.title = File.basename(file1)
+      pbar.inc
+      pbar.flush
+
+      if live
+        sh %{ruby -r#{file2} #{file1} >> #{output}}
+      else
+        sh %{ruby -Ilib/more -Ilib/core -Ilib/methods -r#{file2} #{file1} >> #{output}}
+      end
+    end
+  end
+
+  pbar.finish
+end

data/test/lib/rq.rb

@@ -0,0 +1,15 @@
+BEGIN {
+
+   module Kernel
+     h = Hash.new
+     define_method(:requiree) do
+       h
+     end
+
+     r = method :require
+     define_method(:require) do |a|
+       r.call a
+       h[a] = caller
+     end
+   end
+}

data/test/unit/array/test_merge.rb

@@ -1,51 +1,29 @@
-  #  _____         _
-  # |_   _|__  ___| |_
-  #   | |/ _ \/ __| __|
-  #   | |  __/\__ \ |
-  #   |_|\___||___/\__|
-  #
-  # for lib/facets/array/merge.rb
-  #
-  # Extracted Mon Sep 03 16:23:07 -0700 2007
-  # w/ Test Extraction Ratchet
-  #
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |
+#   |_|\___||___/\__|
+#
+# for facets/array/merge.rb
 
- require 'facets/array/merge.rb'
+require 'facets/array/merge.rb'
 
+require 'test/unit'
 
+class TestArray < Test::Unit::TestCase
 
-  require 'test/unit'
-
-  class TestArray < Test::Unit::TestCase
-
-    def test_merge
-      a = [1,2,3]
-      b = [3,4,5]
-      assert_equal( [1,2,3,4,5], a.merge(b) )
-    end
-
-    def test_merge!
-      a = [1,2,3]
-      b = [3,4,5]
-      a.merge!(b)
-      assert_equal( [1,2,3,4,5], a )
-    end
-
-    def test_rotate
-      a = [1,2,3]
-      assert_equal( [3,1,2], a.rotate, 'clockwise' )
-      assert_equal( [2,3,1], a.rotate(-1), 'counter-clockwise' )
-    end
-
-    def test_rotate!
-      a = [1,2,3]
-      a.rotate!
-      assert_equal( [3,1,2], a, 'clockwise' )
-      a.rotate!(-1)
-      assert_equal( [1,2,3], a, 'counter-clockwise' )
-    end
-
+  def test_merge
+    a = [1,2,3]
+    b = [3,4,5]
+    assert_equal( [1,2,3,4,5], a.merge(b) )
   end
 
+  def test_merge!
+    a = [1,2,3]
+    b = [3,4,5]
+    a.merge!(b)
+    assert_equal( [1,2,3,4,5], a )
+  end
 
+end
 

data/test/unit/array/test_only.rb

@@ -0,0 +1,21 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |
+#   |_|\___||___/\__|
+#
+require 'facets/array/only.rb'
+
+require 'test/unit'
+
+class TestArrayOnly < Test::Unit::TestCase
+
+  def test_only
+    assert_equal(5,   [5].only)
+    assert_equal(nil, [nil].only)
+    assert_raise(IndexError) { [].only }
+    assert_raise(IndexError) { [1,2,3].only }
+  end
+
+end
+

data/test/unit/enumerable/test_collect.rb

@@ -4,14 +4,9 @@
 #   | |  __/\__ \ |
 #   |_|\___||___/\__|
 #
-# for lib/facets/enumerable/partition.rb
-#
-# Extracted Mon Sep 03 16:23:07 -0700 2007
-# w/ Test Extraction Ratchet
-#
+# for facets/enumerable/collect.rb
 
 require 'facets/enumerable/collect.rb'
-
 require 'test/unit'
 require 'set'
 
@@ -140,13 +135,6 @@ class TestEnumerable < Test::Unit::TestCase
     assert_equal( [[1,2],[3,4]], r )
   end
 
-  def test_each_unique_pair
-    r = []
-    a = [1,2,3,4]
-    a.each_unique_pair{ |a,b| r << [a,b] }
-    assert_equal( [[1,2],[1,3],[1,4],[2,3],[2,4],[3,4]], r )
-  end
-
   def test_eachn
     x = []
     [1,2,3,4].eachn{ |a,b| x << [a,b] }
@@ -159,14 +147,6 @@ class TestEnumerable < Test::Unit::TestCase
     assert_equal( o, x )
   end
 
-  def test_each_combination
-    r = []
-    a = [1,2,3,4]
-    a.each_combination(2){ |a,b| r << [a,b] }
-    assert_equal( [[1,2],[1,3],[1,4],[2,3],[2,4],[3,4]], r )
-  end
-
-
   def test_collect_with_index
     a = [1,2,3].collect_with_index{ |e,i| e*i }
     assert_equal( [0,2,6], a )

data/test/unit/enumerable/test_combination.rb

@@ -1,49 +1,55 @@
-  #  _____         _
-  # |_   _|__  ___| |_
-  #   | |/ _ \/ __| __|
-  #   | |  __/\__ \ |
-  #   |_|\___||___/\__|
-  #
-  # for lib/facets/enumerable/combination.rb
-  #
-  # Extracted Mon Sep 03 16:23:07 -0700 2007
-  # w/ Test Extraction Ratchet
-  #
-
- require 'facets/enumerable/combination.rb'
-
-
-
-  require 'test/unit'
-  require 'set'
-
-  class TestEnumerableCombination < Test::Unit::TestCase
-
-    def test_combinations_01
-      a = [1,2]
-      b = [3,4]
-      z = Enumerable.combinations(a,b)
-      r = [[1,3],[1,4],[2,3],[2,4]]
-      assert_equal( r, z )
-    end
-
-    def test_combinations_02
-      a = %w|a b|
-      b = %w|a x|
-      c = %w|x y|
-      z = Enumerable.combinations(a, b, c)
-      r = [ ["a", "a", "x"],
-            ["a", "a", "y"],
-            ["a", "x", "x"],
-            ["a", "x", "y"],
-            ["b", "a", "x"],
-            ["b", "a", "y"],
-            ["b", "x", "x"],
-            ["b", "x", "y"] ]
-      assert_equal( r, z )
-    end
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |
+#   |_|\___||___/\__|
+#
+# for lib/facets/enumerable/combination.rb
+
+require 'facets/enumerable/combination.rb'
+require 'test/unit'
+require 'set'
+
+class TestEnumerableCombination < Test::Unit::TestCase
+
+  def test_combinations
+    a = [1,2]
+    b = [3,4]
+    z = Enumerable.combinations(a,b)
+    r = [[1,3],[1,4],[2,3],[2,4]]
+    assert_equal( r, z )
+  end
+
+  def test_combinations_of_three
+    a = %w|a b|
+    b = %w|a x|
+    c = %w|x y|
+    z = Enumerable.combinations(a, b, c)
+    r = [ ["a", "a", "x"],
+          ["a", "a", "y"],
+          ["a", "x", "x"],
+          ["a", "x", "y"],
+          ["b", "a", "x"],
+          ["b", "a", "y"],
+          ["b", "x", "x"],
+          ["b", "x", "y"] ]
+    assert_equal( r, z )
+  end
 
+  def test_each_combination
+    r = []
+    a = [1,2,3,4]
+    a.each_combination(2){ |a,b| r << [a,b] }
+    assert_equal( [[1,2],[1,3],[1,4],[2,3],[2,4],[3,4]], r )
   end
 
+#   DEPRECATED
+#   def test_each_unique_pair
+#     r = []
+#     a = [1,2,3,4]
+#     a.each_unique_pair{ |a,b| r << [a,b] }
+#     assert_equal( [[1,2],[1,3],[1,4],[2,3],[2,4],[3,4]], r )
+#   end
 
+end
 

data/test/unit/file/test_topath.rb

@@ -1,74 +1,65 @@
-  #  _____         _
-  # |_   _|__  ___| |_
-  #   | |/ _ \/ __| __|
-  #   | |  __/\__ \ |
-  #   |_|\___||___/\__|
-  #
-  # for lib/facets/file/topath.rb
-  #
-  # Extracted Mon Sep 03 16:23:07 -0700 2007
-  # w/ Test Extraction Ratchet
-  #
+#      _____         _
+#    |_   _|__  ___| |_
+#     | |/ _ \/ __| __|
+#    | |  __/\__ \ |
+#   |_|\___||___/\__|
+#
+# for facets/file/topath.rb
 
- require 'facets/file/topath.rb'
+require 'facets/file/topath.rb'
 
+require 'test/unit'
 
+# mock file
 
-  require 'test/unit'
-
-  # mock file
-
-  class File
-    def self.open( fname, mode, &blk )
-      blk.call(self)
-    end
-    def self.read( fname=nil )
-      @mock_content.clone
-    end
-    def self.write( str )
-      @mock_content = str
-    end
-    def self.<<( str )
-      (@mock_content ||="") << str
-    end
+class MockFile < File
+  def self.open( fname, mode, &blk )
+    blk.call(self)
   end
+  def self.read( fname=nil )
+    @mock_content.clone
+  end
+  def self.write( str )
+    @mock_content = str
+  end
+  def self.<<( str )
+    (@mock_content ||="") << str
+  end
+end
 
-  # tests
-
-  class TestFile < Test::Unit::TestCase
-
-    # TODO Write file identity tests.
-
-    def test_sanitize_01
-      assert_equal( "This_is_a_test", File.sanitize('This is a test') )
-    end
+# tests
 
-    def test_sanitize_02
-      assert_equal( "test", File.sanitize('This\is\test') )
-    end
+class TestFile < Test::Unit::TestCase
 
-    def test_sanitize_03
-      assert_equal( "test", File.sanitize('This/is/test') )
-    end
+  # TODO Write file identity tests.
 
-    def test_sanitize_04
-      assert_equal( "te_____st", File.sanitize('This/te#$#@!st') )
-    end
+  def test_sanitize_01
+    assert_equal( "This_is_a_test", MockFile.sanitize('This is a test') )
+  end
 
-    def test_sanitize_05
-      assert_equal( "_.", File.sanitize('.') )
-    end
+  def test_sanitize_02
+    assert_equal( "test", MockFile.sanitize('This\is\test') )
+  end
 
-    def test_sanitize_06
-      assert_equal( "_....", File.sanitize('....') )
-    end
+  def test_sanitize_03
+    assert_equal( "test", MockFile.sanitize('This/is/test') )
+  end
 
-    def test_split_all
-      fp = "this/is/test"
-      assert_equal( ['this', 'is', 'test'], File.split_all(fp) )
-    end
+  def test_sanitize_04
+    assert_equal( "te_____st", MockFile.sanitize('This/te#$#@!st') )
+  end
 
+  def test_sanitize_05
+    assert_equal( "_.", MockFile.sanitize('.') )
   end
 
+  def test_sanitize_06
+    assert_equal( "_....", MockFile.sanitize('....') )
+  end
 
+  def test_split_all
+    fp = "this/is/test"
+    assert_equal( ['this', 'is', 'test'], MockFile.split_all(fp) )
+  end
 
+end

data/test/unit/file/test_write.rb

@@ -0,0 +1,82 @@
+#      _____         _
+#    |_   _|__  ___| |_
+#     | |/ _ \/ __| __|
+#    | |  __/\__ \ |
+#   |_|\___||___/\__|
+#
+# for facets/file/write.rb
+
+# TODO Needs a file mock.
+
+require 'facets/file/write.rb'
+require 'test/unit'
+require 'tempfile'
+
+class TC_FileWrite < Test::Unit::TestCase
+
+  def setup
+    tmp_dir = Dir::tmpdir # ENV["TMP"] || ENV["TEMP"] || "/tmp"
+    raise "Can't find temporary directory" unless File.directory?(tmp_dir)
+    @path = File.join(tmp_dir, "ruby_io_test")
+  end
+
+  # Test File.write
+  def test_file_write
+    data_in = "Test data\n"
+    nbytes = File.write(@path, data_in)
+    data_out = File.read(@path)          # This is standard class method.
+    assert_equal(data_in, data_out)
+    assert_equal(data_out.size, nbytes)
+  end
+
+  # Test File.writelines
+  def test_file_writelines
+    data_in = %w[one two three four five]
+    File.writelines(@path, data_in)
+    data_out = File.readlines(@path)     # This is standard class method.
+    assert_equal(data_in, data_out.map { |l| l.chomp })
+  end
+
+end
+
+
+# TODO This isn't right, and I'm concerned about acidentally writing a real file.
+
+# class TestFileWrite < Test::Unit::TestCase
+# 
+#   class MockFile < ::File
+#     def open( fname, mode, &blk )
+#       blk.call(self)
+#     end
+#     def ead( fname=nil )
+#       @mrock_content.clone
+#     end
+#     def write( str )
+#       @mock_content = str
+#     end
+#     def <<( str )
+#       (@mock_content ||="") << str
+#     end
+#   end
+# 
+#   File = MockFile.new
+# 
+#   def test_create
+#     f = "not a real file"
+#     t = 'This is a test'
+#     File.create( f, t )
+#     s = File.read( f )
+#     assert_equal( t, s )
+#   end
+# 
+#   def test_rewrite
+#     f = "not a real file"
+#     t = 'This is a test'
+#     File.write( t )
+#     File.rewrite(f) { |s| s.reverse! }
+#     s = File.read(f)
+#     assert_equal( t.reverse, s )
+#   end
+# 
+# end
+