freighthopper 0.1.0

data/.gitignore

@@ -0,0 +1,7 @@
+.svn
+lib/svn
+vendor/gems/gems/*
+vendor/gems/specifications/*
+vendor/gems/doc/*
+vendor/gems/environment.rb
+pkg/*

data/Gemfile

@@ -0,0 +1,4 @@
+only 'test' do
+  gem "test-rig", '0.0.1', :require_as => "test_rig"
+  gem 'shoulda'
+end

data/LICENSE

@@ -0,0 +1,20 @@
+Copyright (c) 2009 Jacob Rothstein
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/Rakefile

@@ -0,0 +1,29 @@
+require 'rubygems'
+require 'rake'
+
+begin
+  require 'jeweler'
+  Jeweler::Tasks.new do |gem|
+    gem.name = "freighthopper"
+    gem.summary = %Q{Some extensions for riding the rails}
+    gem.description = %Q{More core ext}
+    gem.email = "github@jacobrothstein.com"
+    gem.homepage = "http://github.com/jbr/freighthopper"
+    gem.authors = ["Jacob Rothstein"]
+    # gem is a Gem::Specification... see http://www.rubygems.org/read/chapter/20 for additional settings
+  end
+  Jeweler::GemcutterTasks.new
+rescue LoadError
+  puts "Jeweler (or a dependency) not available. Install it with: sudo gem install jeweler"
+end
+
+require 'rake/testtask'
+Rake::TestTask.new(:test) do |test|
+  test.libs << 'lib' << 'test'
+  test.pattern = 'test/**/*_test.rb'
+  test.verbose = true
+end
+
+task :test => :check_dependencies
+
+task :default => :test

data/VERSION

@@ -0,0 +1 @@
+0.1.0

data/bin/convert_to_should_syntax

@@ -0,0 +1,3 @@
+#!/System/Library/Frameworks/Ruby.framework/Versions/1.8/usr/bin/ruby
+require File.join(File.dirname(__FILE__), "../vendor/gems/environment")
+load File.join(File.dirname(__FILE__), "../vendor/gems/gems/shoulda-2.10.2/bin/convert_to_should_syntax")

data/freighthopper.gemspec

@@ -0,0 +1,75 @@
+# Generated by jeweler
+# DO NOT EDIT THIS FILE DIRECTLY
+# Instead, edit Jeweler::Tasks in Rakefile, and run the gemspec command
+# -*- encoding: utf-8 -*-
+
+Gem::Specification.new do |s|
+  s.name = %q{freighthopper}
+  s.version = "0.1.0"
+
+  s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
+  s.authors = ["Jacob Rothstein"]
+  s.date = %q{2010-02-03}
+  s.default_executable = %q{convert_to_should_syntax}
+  s.description = %q{More core ext}
+  s.email = %q{github@jacobrothstein.com}
+  s.executables = ["convert_to_should_syntax"]
+  s.extra_rdoc_files = [
+    "LICENSE",
+     "README"
+  ]
+  s.files = [
+    ".gitignore",
+     "Gemfile",
+     "LICENSE",
+     "README",
+     "Rakefile",
+     "VERSION",
+     "bin/convert_to_should_syntax",
+     "freighthopper.gemspec",
+     "init.rb",
+     "lib/freighthopper.rb",
+     "pkg/.gitkeep",
+     "test/array_test.rb",
+     "test/define_and_alias_test.rb",
+     "test/float_test.rb",
+     "test/hash_test.rb",
+     "test/kernel_test.rb",
+     "test/lazy_alias_test.rb",
+     "test/object_test.rb",
+     "test/string_test.rb",
+     "test/test_helper.rb",
+     "vendor/gems/cache/shoulda-2.10.2.gem",
+     "vendor/gems/cache/test-rig-0.0.1.gem",
+     "vendor/gems/doc/.gitkeep",
+     "vendor/gems/gems/.gitkeep",
+     "vendor/gems/specifications/.gitkeep"
+  ]
+  s.homepage = %q{http://github.com/jbr/freighthopper}
+  s.rdoc_options = ["--charset=UTF-8"]
+  s.require_paths = ["lib"]
+  s.rubygems_version = %q{1.3.5}
+  s.summary = %q{Some extensions for riding the rails}
+  s.test_files = [
+    "test/array_test.rb",
+     "test/define_and_alias_test.rb",
+     "test/float_test.rb",
+     "test/hash_test.rb",
+     "test/kernel_test.rb",
+     "test/lazy_alias_test.rb",
+     "test/object_test.rb",
+     "test/string_test.rb",
+     "test/test_helper.rb"
+  ]
+
+  if s.respond_to? :specification_version then
+    current_version = Gem::Specification::CURRENT_SPECIFICATION_VERSION
+    s.specification_version = 3
+
+    if Gem::Version.new(Gem::RubyGemsVersion) >= Gem::Version.new('1.2.0') then
+    else
+    end
+  else
+  end
+end
+

data/init.rb

@@ -0,0 +1 @@
+require 'freighthopper'

data/lib/freighthopper.rb

@@ -0,0 +1,130 @@
+class Module
+  def define_and_alias(target, feature, &blk)
+    aliased_target, punctuation = target.to_s.sub(/([?!=])$/, ''), $1
+    define_method :"#{aliased_target}_with_#{feature}#{punctuation}", &blk
+    alias_method_chain target, feature
+  end
+  
+  def lazy_alias(to, from)
+    define_method(to){|*args| send from, *args}
+  end
+end
+
+class Array
+  def singular?() size == 1 end
+  def singular() singular?? first : nil end
+  def singular!() singular or raise "not singular" end
+end
+ 
+class Object
+  def soft_send(method, *args)
+    send method, *args if respond_to? method
+  end
+  
+  def or_if_blank(val = nil)
+    if soft_send :blank?
+      val || (block_given? ? yield : nil)
+    else
+      self
+    end
+  end
+  
+  def is_one_of?(*args)
+    args.flatten.any?{|klass| is_a? klass}
+  end
+  
+  def eval_with_options(*args, &blk)
+    with_options *args do |map|
+      map.instance_eval(&blk)
+    end
+  end
+end
+
+class String
+  def strip(what = /\s/)
+    gsub /^#{what}*|#{what}*$/, ''
+  end
+  
+  def /(num)
+    scan /.{1,#{(size / num.to_f).ceil}}/
+  end
+  
+  def unindent(options = {})
+    tablength = options[:tablength] || 2
+    lines = gsub("\t", " " * tablength).split("\n")
+
+    whitespace = lines.map do |line|
+      line.match(/^(\s+)/).captures.first
+    end.min{ |l, r| l.length <=> r.length }
+
+    lines.map{ |l| l.gsub /^#{whitespace}/, ''}.join("\n")
+  end
+end
+
+class Hash
+  def map_keys(key_hash)
+    inject({}) do |h, (k, v)|
+      h.merge((key_hash[k] || k) => v)
+    end
+  end
+end
+
+class Float
+  define_and_alias :to_s, :format do |*args|
+    format = args.first
+    return to_s_without_format if format.nil?
+    format = "$%0.2f" if format == :usd
+    (format.is_a?(Fixnum) ? "%0.#{format}f" : format) % self
+  end
+end
+
+require 'pp'
+module Kernel
+  mattr_accessor :trace_output  
+  %w(pp p puts).each do |method|
+    define_and_alias method, :source_and_passthrough do |*args|
+      puts_without_source_and_passthrough caller.first if Kernel.trace_output
+      send :"#{method}_without_source_and_passthrough", *args
+      puts_without_source_and_passthrough if Kernel.trace_output
+      return *args
+    end
+  end
+end
+
+# Kernel.trace_output = true
+
+if defined?(ActionMailer)
+  class ActionMailer::Base
+    class << self
+      define_and_alias :method_missing, :delayed_deliver do |method_name, *args|
+        if method_name.to_s =~ /^delayed_(deliver_[a-z_]+)$/
+          self.send_later $1, *args
+        else
+          method_missing_without_delayed_deliver(method_name, *args)
+        end
+      end
+    end
+  end
+end
+
+if defined?(ActiveRecord)
+  module ActiveRecord
+    class Errors
+      def clear_on(attribute)
+        @errors.delete attribute.to_s
+      end
+    end
+  
+    class Base
+      extend ActiveSupport::Memoizable
+    
+      def cache_key
+        [self.class.to_s.underscore, to_param, soft_send(:cached_at).try(:to_i) || soft_send(:updated_at).try(:to_i)].compact.join("/")
+      end
+
+      def element_id
+        "#{self.class.to_s.underscore}_#{self.to_param}"
+      end
+    end
+  end
+end

data/test/array_test.rb

@@ -0,0 +1,48 @@
+require File.instance_eval { expand_path join(dirname(__FILE__), 'test_helper') }
+require 'freighthopper'
+
+class ArrayTest < Test::Unit::TestCase
+  context 'singular' do
+    should 'return the singular object if there is indeed only one' do
+      assert_singular 5, [5]
+    end
+    
+    should 'return nil if the array is empty' do
+      assert_singular nil, []
+    end
+    
+    should 'return nil if the array has > 1 item' do
+      assert_singular nil, [1, 2]
+    end
+  end
+  
+  context 'singular questionmark' do
+    should 'return true if the array has only one member' do
+      assert_singular [5]
+    end
+    
+    should 'return false if the array is empty' do
+      assert_not_singular []
+    end
+    
+    should 'return false if the array has more than one member' do
+      assert_not_singular [1, 2]
+    end
+  end
+  
+  context 'singular bang' do
+    should 'return the item if there is just one' do
+      assert_equal 5, [5].singular!
+    end
+    
+    should 'raise if there are no items' do
+      e = assert_raise(RuntimeError){ [].singular! }
+      assert_message 'not singular', e
+    end
+
+    should 'raise if there are more than one item' do
+      e = assert_raise(RuntimeError){ [1, 2].singular! }
+      assert_message 'not singular', e
+    end
+  end
+end

data/test/define_and_alias_test.rb

@@ -0,0 +1,48 @@
+require File.instance_eval { expand_path join(dirname(__FILE__), 'test_helper') }
+require 'freighthopper'
+
+class DefineAndAliasTest < Test::Unit::TestCase
+  class SomeClass
+    attr_reader :cache
+    def foo() 5 end
+
+    define_and_alias(:foo, :bar) {foo_without_bar + 5}
+  
+    def even?(number) number % 2 == 0 end
+    
+    define_and_alias :even?, :caching do |number|
+      (@cache ||= {})[number] ||= even_without_caching?(number)
+    end
+  end
+  
+  context 'with a SomeClass' do
+    setup {@object = SomeClass.new}
+
+    should 'respond to foo_with_bar' do
+      assert @object.respond_to?('foo_with_bar')
+    end
+
+    should 'respond to foo_without_bar' do
+      assert @object.respond_to?('foo_without_bar')
+    end
+
+    should 'return 5 for foo_without_bar' do
+      assert_foo_without_bar 5, @object
+    end
+
+    should 'return 10 for foo' do
+      assert_foo 10, @object
+    end
+
+    should 'handle questionmark methods' do
+      %w(even? even_without_caching? even_with_caching?).each do |method|
+        assert @object.respond_to?(method)
+      end
+    end
+  
+    should 'pass arguments' do
+      assert @object.even?(4)
+      assert_length 1, @object.cache
+    end
+  end
+end

data/test/float_test.rb

@@ -0,0 +1,18 @@
+require File.instance_eval { expand_path join(dirname(__FILE__), 'test_helper') }
+require 'freighthopper'
+
+class FloatTest < Test::Unit::TestCase
+  context 'to_s with format' do
+    should 'work as before' do
+      assert_to_s '1.1', 1.1
+    end
+    
+    should 'allow specification of a format string' do
+      assert_equal "1.2", 1.23.to_s("%.1f")
+    end
+    
+    should 'allow specification of a precision' do
+      assert_equal '1.2', 1.23.to_s(1)
+    end
+  end
+end

data/test/hash_test.rb

@@ -0,0 +1,27 @@
+require File.instance_eval { expand_path join(dirname(__FILE__), 'test_helper') }
+require 'freighthopper'
+
+class HashTest < Test::Unit::TestCase
+  context 'map_keys' do
+    should 'replace keys with their mapped replacement' do
+      base = {:hello => :world}
+      expected = {:howdy => :world}
+      assert_equal expected, base.map_keys(:hello => :howdy)
+    end
+    
+    should 'not modify keys that are not specified' do
+      base = {:a => 1, :b => 2}
+      mapping = {:a => :hello}
+      expected = {:hello => 1, :b => 2}
+      
+      assert_equal expected, base.map_keys(mapping)
+    end
+    
+    should 'ignore mappings that do not exist' do
+      base = {:a => 1, :b => 2}
+      mapping = {:q => :r}
+
+      assert_equal base, base.map_keys(mapping)
+    end
+  end
+end

data/test/kernel_test.rb

@@ -0,0 +1,34 @@
+require File.instance_eval { expand_path join(dirname(__FILE__), 'test_helper') }
+require 'freighthopper'
+
+class KernelTest < Test::Unit::TestCase
+  context 'trace output' do
+    context 'without Kernel trace_output' do
+      should 'function as normal' do
+        output = capture(false) { puts 'hello' }
+        assert_equal "hello\n", output
+      end
+    end
+    
+    context 'with Kernel trace_output' do
+      should 'include the line that printed' do
+        output = capture(true) { puts 'hello' }
+        assert_equal "#{__FILE__}:15:in `puts'\nhello\n\n", output
+      end
+    end
+  end
+  
+  private
+  def capture(trace_output, &block)
+    Kernel.trace_output = trace_output
+    original_stdout = $stdout
+    $stdout = fake = StringIO.new
+    begin
+      yield
+    ensure
+      $stdout = original_stdout
+    end
+    Kernel.trace_output = false
+   fake.string
+  end
+end

data/test/lazy_alias_test.rb

@@ -0,0 +1,34 @@
+require File.instance_eval { expand_path join(dirname(__FILE__), 'test_helper') }
+require 'freighthopper'
+
+class DefineAndAliasTest < Test::Unit::TestCase
+  class SomeClass
+    attr_reader :last_method_missing, :last_args
+    lazy_alias :this_method_is_called, :this_hits_method_missing
+    
+    def method_missing(*args)
+      @last_method_missing = args.shift
+      @last_args = args
+    end
+  end
+  
+  context 'with a SomeClass' do
+    setup {@object = SomeClass.new}
+
+    should 'respond to this_method_is_called' do
+      assert @object.respond_to?(:this_method_is_called)
+    end
+    
+    context "after calling this_method_is_called" do
+      setup {@object.this_method_is_called :arg1, :arg2}
+      
+      should 'call whatever method is the second argument' do
+        assert_last_method_missing :this_hits_method_missing, @object
+      end
+      
+      should 'pass through args' do
+        assert_last_args [:arg1, :arg2], @object
+      end
+    end
+  end
+end

data/test/object_test.rb

@@ -0,0 +1,68 @@
+require File.instance_eval { expand_path join(dirname(__FILE__), 'test_helper') }
+require 'freighthopper'
+
+class ObjectTest < Test::Unit::TestCase
+  context 'soft_send' do
+    should 'send the method if the object responds to it' do
+      assert_equal 1, [1].soft_send(:first)
+    end
+    
+    should 'return nil if the object does not' do
+      assert_nil 5.soft_send(:hello)
+    end
+    
+    should 'pass args' do
+      assert_equal 10, 5.soft_send(:*, 2)
+    end
+  end
+  
+  context 'eval_with_options' do
+    setup do
+      def foo(arg1, options = {})
+        [arg1, options]
+      end
+    end
+    
+    should 'pass options to any method called in the block' do
+      returned = nil
+
+      eval_with_options :wibble => :baz do
+        returned = foo(:squee)
+      end
+      
+      assert_equal [:squee, {:wibble => :baz}], returned
+    end
+  end
+  
+  context 'or_if_blank' do
+    should 'return nil if there is no block and the argument is nil' do
+      assert_nil "".or_if_blank(nil)
+    end
+    
+    should 'return the callee if it is not blank' do
+      assert_equal "hello", "hello".or_if_blank(5)
+    end
+    
+    should 'return the first arg if the callee is blank' do
+      assert_equal 5, "".or_if_blank(5)
+    end
+    
+    should 'accept a block' do
+      assert_equal 5, "".or_if_blank{5}
+    end
+  end
+  
+  context 'is_one_of?' do
+    should 'check if the object is one of the arguments' do
+      assert "hello".is_one_of?(Fixnum, Symbol, Proc, String)
+    end
+    
+    should 'work with an array as well' do
+      assert :symbol.is_one_of?([Fixnum, Symbol])
+    end
+    
+    should 'return false if there is no match' do
+      assert_not :symbol.is_one_of?(Proc, String)
+    end
+  end
+end

data/test/string_test.rb

@@ -0,0 +1,58 @@
+require File.instance_eval { expand_path join(dirname(__FILE__), 'test_helper') }
+require 'freighthopper'
+
+class StringTest < Test::Unit::TestCase
+  context 'strip' do
+    should 'still allow normal strip' do
+      assert_strip "hello", " hello \t\n"
+    end
+    
+    should 'also allow a string' do
+      assert_equal "hello", "---hello---".strip("-")
+    end
+    
+    should 'also allow a regular expression' do
+      assert_equal "hello", "123hello456".strip(/[0-9]/)
+    end
+  end
+  
+  context 'division operator' do
+    context 'with an even division' do
+      should 'split the string into that many even strings' do
+        divided = ('-' * 10) / 2
+        assert_size 2, divided
+        assert_equal [5, 5], divided.map{|s| s.length}
+      end
+    end
+    
+    context 'with an uneven division' do
+      should 'take the difference out of the last one' do
+        divided = ('-' * 10) / 3
+        assert_size 3, divided
+        assert_equal [4,4,2], divided.map(&:length)
+      end
+    end
+  end
+  
+  context 'unindent' do
+    should 'remove the least common leading whitespace' do
+      unindented = (<<-END).unindent
+        a
+          b
+            c
+      END
+      
+      assert_equal "a\n  b\n    c", unindented
+    end
+    
+    should 'replace tabs with tablength' do
+      unindented = "\ttest\n\t\ttest".unindent :tablength => 4
+      assert_equal "test\n    test", unindented
+    end
+
+    should 'replace tabs with tablength (defaulting to 2)' do
+      unindented = "\ttest\n\t\ttest".unindent
+      assert_equal "test\n  test", unindented
+    end
+  end
+end

data/test/test_helper.rb

@@ -0,0 +1,17 @@
+begin
+  require File.instance_eval { expand_path join(dirname(__FILE__), '..', 'vendor', 'gems', 'environment')}
+rescue LoadError
+  puts "Bundling Gems\n\nHang in there, this only has to happen once...\n\n"
+  system 'gem bundle'
+  retry
+end
+
+Bundler.require_env :test
+
+$:.unshift File.instance_eval { expand_path join(dirname(__FILE__), "..", "lib") }
+require 'test/unit'
+
+
+class Test::Unit::TestCase
+  include TestRig
+end

metadata

@@ -0,0 +1,88 @@
+--- !ruby/object:Gem::Specification 
+name: freighthopper
+version: !ruby/object:Gem::Version 
+  version: 0.1.0
+platform: ruby
+authors: 
+- Jacob Rothstein
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2010-02-03 00:00:00 -08:00
+default_executable: convert_to_should_syntax
+dependencies: []
+
+description: More core ext
+email: github@jacobrothstein.com
+executables: 
+- convert_to_should_syntax
+extensions: []
+
+extra_rdoc_files: 
+- LICENSE
+- README
+files: 
+- .gitignore
+- Gemfile
+- LICENSE
+- README
+- Rakefile
+- VERSION
+- bin/convert_to_should_syntax
+- freighthopper.gemspec
+- init.rb
+- lib/freighthopper.rb
+- pkg/.gitkeep
+- test/array_test.rb
+- test/define_and_alias_test.rb
+- test/float_test.rb
+- test/hash_test.rb
+- test/kernel_test.rb
+- test/lazy_alias_test.rb
+- test/object_test.rb
+- test/string_test.rb
+- test/test_helper.rb
+- vendor/gems/cache/shoulda-2.10.2.gem
+- vendor/gems/cache/test-rig-0.0.1.gem
+- vendor/gems/doc/.gitkeep
+- vendor/gems/gems/.gitkeep
+- vendor/gems/specifications/.gitkeep
+has_rdoc: true
+homepage: http://github.com/jbr/freighthopper
+licenses: []
+
+post_install_message: 
+rdoc_options: 
+- --charset=UTF-8
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.3.5
+signing_key: 
+specification_version: 3
+summary: Some extensions for riding the rails
+test_files: 
+- test/array_test.rb
+- test/define_and_alias_test.rb
+- test/float_test.rb
+- test/hash_test.rb
+- test/kernel_test.rb
+- test/lazy_alias_test.rb
+- test/object_test.rb
+- test/string_test.rb
+- test/test_helper.rb