facets 0.6.3 → 0.7.0

data/lib/facet/string/format.rb

@@ -1,64 +0,0 @@
-class String
-  # The #format mehtod is a special toolbox method, or methodbox.
-  # Within it are a collection of finer methods.
-  #
-  #   require 'facet/string/format'
-  #
-  #   "dogthispony".format.camelcase  #=> "DogThisPony"
-  #
-  def format
-    Format.new( self )
-  end
-  
-  class Format
-    def initialize( word )
-      @self = word
-    end
-
-    # only available via public call
-    def self
-      @self
-    end
-
-    def camelcase #(lower_case_and_underscored_word)
-      @self.to_s.gsub(/(^|_)(.)/){$2.upcase}
-    end
-    alias :camelize :camelcase
-    
-    def underscore #(camel_cased_word)
-      @self.to_s.gsub(/([A-Z]+)([A-Z])/,'\1_\2').gsub(/([a-z])([A-Z])/,'\1_\2').downcase
-    end
-  
-    def humanize #(lower_case_and_underscored_word)
-      @self.to_s.gsub(/_/, " ").capitalize
-    end
-  
-    def demodulize #(class_name_in_module)
-      @self.to_s.gsub(/^.*::/, '')
-    end
-  
-    def tableize #(class_name)
-      @self.underscore.inflect.plural
-    end
-    
-    def classify #(table_name)
-      @self.inflect.singular.format.camel
-    end
-  
-    def foreign_key(separate_class_name_and_id_with_underscore = true)
-      @self.demodulize.underscore + ( separate_class_name_and_id_with_underscore ? "_id" : "id")
-    end
-
-  end
-  
-end
-
-
-# --- dev testing ---
-
-if $0 == __FILE__
-
-  p "dog_this_pony".format.camelize
-
-end
-

data/lib/facet/string/inflect.rb

@@ -1,70 +0,0 @@
-class String
- 
-  def inflect
-    Inflect.new( self )
-  end
-
-  class Inflect
-    def initialize( word )
-      @self = word
-    end
-
-    # only available via public call
-    def self
-      @self
-    end
-   
-    def pluralize
-      result = word.to_s.dup
-      plural_rules.each do |(rule, replacement)|
-        break if result.gsub!(rule, replacement)
-      end
-      return result      
-    end
-
-    def singularize #(word)
-      result = word.to_s.dup
-      singular_rules.each do |(rule, replacement)|
-        break if result.gsub!(rule, replacement)
-      end
-      return result
-    end
-
-    private
-    
-    def plural_rules #:doc:
-      [
-        [/(x|ch|ss|sh)$/, '\1es'],            # search, switch, fix, box, process, address
-        [/([^aeiouy]|qu)ies$/, '\1y'],
-        [/([^aeiouy]|qu)y$/, '\1ies'],        # query, ability, agency
-        [/(?:([^f])fe|([lr])f)$/, '\1\2ves'], # half, safe, wife
-        [/sis$/, 'ses'],                      # basis, diagnosis
-        [/([ti])um$/, '\1a'],                 # datum, medium
-        [/person$/, 'people'],                # person, salesperson
-        [/man$/, 'men'],                      # man, woman, spokesman
-        [/child$/, 'children'],               # child
-        [/s$/, 's'],                          # no change (compatibility)
-        [/$/, 's']
-      ]
-    end
-
-    def singular_rules #:doc:
-      [
-        [/(x|ch|ss)es$/, '\1'],
-        [/movies$/, 'movie'],
-        [/([^aeiouy]|qu)ies$/, '\1y'],
-        [/([lr])ves$/, '\1f'],
-        [/([^f])ves$/, '\1fe'],
-        [/(analy|ba|diagno|parenthe|progno|synop|the)ses$/, '\1sis'],
-        [/([ti])a$/, '\1um'],
-        [/people$/, 'person'],
-        [/men$/, 'man'],
-        [/status$/, 'status'],
-        [/children$/, 'child'],
-        [/s$/, '']
-      ]
-    end
-       
-  end
-
-end

data/lib/facet/symbol/~.rb

@@ -1,8 +0,0 @@
-class Symbol
-  def ~@
-    return :"~#{self}"
-  end
-  def not?
-    self.to_s[0,1] == '~'
-  end
-end

data/test/array/tc_brackets.rb

@@ -1,16 +0,0 @@
-
-require 'test/unit'
-
-require 'facet/array/[]'
-
-
-class TC_Array < Test::Unit::TestCase
-
-  # []
-  
-  def test_square_brackets
-    a = ['a','b','c','d','e','f']
-    assert_equal( ['a','c','e'], a[0,2,4] )
-  end
- 
-end

data/test/fileutils/tc_head&tail.rb

@@ -1,72 +0,0 @@
-
-require 'test/unit'
-require 'facet/fileutils/head&tail'
-
-
-class TC_FileUtils_HeadTail < Test::Unit::TestCase
-   
-  def setup
-    @workdir = Dir.getwd
-    @thisdir = File.dirname(__FILE__)
-    
-    @tfile = 'test_file.txt'
-    
-    @expected_head1 = ["line1\n","line2\n","line3\n","line4\n","line5\n"]
-    @expected_head1.push("line6\n","line7\n","line8\n","line9\n","line10\n")
-    @expected_head2 = ["line1\n","line2\n","line3\n","line4\n","line5\n"]
-    
-    @expected_tail1 = ["line16\n","line17\n","line18\n","line19\n","line20\n"]
-    @expected_tail1.push("line21\n","line22\n","line23\n","line24\n","line25\n")
-    @expected_tail2 = ["line21\n","line22\n","line23\n","line24\n","line25\n"]
-    
-    @expected_body1 = ["line10\n", "line11\n", "line12\n", "line13\n", "line14\n"]
-    @expected_body1.push("line15\n","line16\n", "line17\n", "line18\n", "line19\n","line20\n")
-    @expected_body2 = ["line14\n","line15\n","line16\n","line17\n","line18\n","line19\n","line20\n"]
-    @expected_body3 = ["line5\n","line6\n","line7\n","line8\n","line9\n","line10\n"]
-  end
-
-  def test_method
-    assert_respond_to( FileUtils, :head )
-    assert_respond_to( FileUtils, :tail )
-    assert_respond_to( FileUtils, :body )
-  end
-
-  def test_head
-    Dir.chdir @thisdir
-    begin
-    assert_nothing_raised{ FileUtils.head(@tfile) }
-    assert_nothing_raised{ FileUtils.head(@tfile,5) }
-    assert_equal(@expected_head1,FileUtils.head(@tfile))
-    assert_equal(@expected_head2,FileUtils.head(@tfile,5))
-    ensure
-      Dir.chdir @workdir
-    end
-  end
-
-  def test_tail
-    Dir.chdir @thisdir
-    begin
-      assert_nothing_raised{ FileUtils.tail(@tfile) }
-      assert_nothing_raised{ FileUtils.tail(@tfile,5) }
-      assert_equal(@expected_tail1,FileUtils.tail(@tfile))
-      assert_equal(@expected_tail2,FileUtils.tail(@tfile,5))
-    ensure
-      Dir.chdir @workdir
-    end
-  end
-   
-  def test_body
-    Dir.chdir @thisdir
-    begin
-      assert_nothing_raised{ FileUtils.body(@tfile) }
-      assert_nothing_raised{ FileUtils.body(@tfile,14) }
-      assert_nothing_raised{ FileUtils.body(@tfile,5,10) }
-      assert_equal(@expected_body1,FileUtils.body(@tfile))
-      assert_equal(@expected_body2,FileUtils.body(@tfile,14))
-      assert_equal(@expected_body3,FileUtils.body(@tfile,5,10))
-    ensure
-      Dir.chdir @workdir
-    end
-  end
-   
-end

data/test/hash/tc_slice.rb

@@ -1,98 +0,0 @@
-
-require "test/unit"
-
-require "facet/hash/[]"
-
-
-class TC_HashSlice < Test::Unit::TestCase
-
-  @hash = nil
-  AryKey = %w{an array as a key}
-  AryVal = %w{an array as a value}
-
-  def setup
-    @hash = {
-      "this" => "is",
-      "a" => "test",
-      "hash" => "with",
-      "some" => "values",
-      "for" => "testing",
-      AryKey => 'aryKey',
-      'aryVal' => AryVal
-    }
-  end
-
-  # Testing teardown method
-  def teardown
-      @hash = nil
-  end
-
-  # Make sure we haven't screwed up regular element reference
-  def test_get_regular
-      assert_equal('is', @hash['this'])
-      assert_equal('aryKey', @hash[ AryKey ])
-      assert_equal(AryVal, @hash[ 'aryVal' ])
-      assert_nil(@hash['nonExistant'])
-  end
-
-  # Test slice reference
-  def test_get_2args
-    res = @hash['this','a']
-    assert_instance_of( Array, res )
-    assert_equal( ['is','test'], res )
-    
-    assert_equal(['aryKey','with'], @hash[ AryKey, 'hash' ])
-    
-    assert_equal([AryVal,'testing'], @hash[ 'aryVal', 'for' ])
-    
-    assert_equal(['aryKey',AryVal], @hash[ AryKey, 'aryVal' ])
-          
-    res = @hash['nonExistant', 'anotherNonExistant']
-    assert_nil(res[0])
-    assert_nil(res[1])
-          
-    @hash.default = 'default'
-    res = @hash['nonExistant', 'anotherNonExistant']
-    assert_equal( 'default', res[0] )
-    assert_equal( 'default', res[1] )
-  end
-
-  # Test fetching slices with duplicate keys
-  def test_get_duplicate_args
-    assert_equal(['is','is'], @hash['this','this'])
-    assert_equal(['aryKey','aryKey'], @hash[ AryKey, AryKey ])
-    assert_equal([AryVal,AryVal], @hash[ 'aryVal', 'aryVal' ])
-    assert_equal(['aryKey',AryVal,'aryKey','aryKey'], @hash[ AryKey, 'aryVal', AryKey, AryKey ])
-  end
-
-  # Test to make sure we haven't mucked up regular element assign
-  def test_set_regular
-    # Single string key assign
-    @hash['this'] = 'something else'
-    assert_equal( 'something else', @hash['this'] )
-  
-    # Single array key assign
-    @hash[AryKey] = 'something else'
-    assert_equal( 'something else', @hash[AryKey] )
-      
-    # Make sure range-assign behaviour is unchanged
-    rng = 1..5
-    @hash[ rng ] = 1..5
-    assert_instance_of( Range, @hash[rng] )
-    assert_equal( 1..5, @hash[1..5] )
-  end
-
-  # Test slice-assign
-  def test_set_2args
-    # Test slice-assign with string keys
-    assert_nothing_raised {@hash['this','a'] = 'other', 'stuff'}
-    assert_equal( 'other', @hash['this'] )
-    assert_equal( 'stuff', @hash['a'] )
-      
-    # Test slice-assign with array keys and a string and array value
-    assert_nothing_raised {@hash[AryKey, %w{some other array}] = 'another', %w{set of values}}
-    assert_equal( 'another', @hash[AryKey] )
-    assert_equal( %w{set of values}, @hash[%w{some other array}] )
-  end
-
-end

data/test/kernel/test_file.rb

@@ -1,3 +0,0 @@
-# This file is just here to test require_local.
-# Nothing doing! :)
-

data/test/object/tc_constant.rb

@@ -1,21 +0,0 @@
-require 'test/unit'
-
-require 'facet/object/constant'
-
-
-class TC_Object_Constant < Test::Unit::TestCase
-
-  # constant
-  
-  def test_constant
-    c = ::Test::Unit::TestCase.name
-    assert_equal( ::Test::Unit::TestCase, constant(c) )
-    c = "Test::Unit::TestCase"
-    assert_equal( ::Test::Unit::TestCase, constant(c) )
-    c = "Unit::TestCase"
-    assert_equal( ::Test::Unit::TestCase, Test.constant(c) )
-    c = "TestCase"
-    assert_equal( ::Test::Unit::TestCase, Test::Unit.constant(c) )
-  end
-
-end

data/test/object/tc_with_accessor.rb

@@ -1,31 +0,0 @@
-
-require 'test/unit'
-
-require 'facet/object/with_accessor'
-
-
-# fixture
-
-class T
-  def initialize
-    with_reader :foo => "FOO"
-    with_writer :bar => "BAR"
-    with_accessor :baz => "BAZ"
-  end
-  def get_bar
-    @bar
-  end
-end
-
-# testcase
-
-class TC_Object < Test::Unit::TestCase
-
-  def test_with_accessor
-    assert_nothing_raised { @t = T.new }
-    assert_equal("FOO", @t.foo)
-    assert_equal("BAZ", @t.baz)
-    assert_equal("BAR", @t.get_bar)
-  end
-
-end

data/test/string/tc_fuzzy_match.rb

@@ -1,2 +0,0 @@
-# TO DO
- 

data/test/string/tc_unix_crypt.rb

@@ -1,2 +0,0 @@
-# TO DO
- 

data/test/t_require.rb

@@ -1,4 +0,0 @@
-
-require 'facet/all-base'
-require 'facet/all-base-common'
-