sundbp-extlib 0.9.14

data/lib/extlib/struct.rb

@@ -0,0 +1,17 @@
+class Struct
+  ##
+  # Get a hash with names and values of all instance variables.
+  #
+  #   class Foo < Struct.new(:name, :age, :gender); end
+  #   f = Foo.new("Jill", 50, :female)
+  #   f.attributes   #=> {:name => "Jill", :age => 50, :gender => :female}
+  #
+  # @return [Hash] Hash of instance variables in receiver, keyed by ivar name
+  #
+  # @api public
+  def attributes
+    h = {}
+    each_pair { |k,v| h[k] = v }
+    h
+  end
+end # class Struct

data/lib/extlib/symbol.rb

@@ -0,0 +1,21 @@
+class Symbol
+
+  def try_dup
+    self
+  end
+
+  ##
+  # Join with _o_ as a file path
+  #
+  #   :merb/"core_ext"              #=> "merb/core_ext"
+  #   :merb / :core_ext / :string   #=> "merb/core_ext/string"
+  #
+  # @param [#to_s] o The path component(s) to append.
+  #
+  # @return [String] The receiver (as path string), concatenated with _o_.
+  #
+  # @api public
+  def /(o)
+    File.join(self.to_s, o.to_s)
+  end
+end

data/lib/extlib/time.rb

@@ -0,0 +1,43 @@
+require "date"
+
+class Time
+
+  ##
+  # Convert to ISO 8601 representation
+  #
+  #   Time.now.to_json        #=> "\"2008-03-28T17:54:20-05:00\""
+  #
+  # @return [String]
+  #   ISO 8601 compatible representation of the Time object.
+  #
+  # @api public
+  def to_json(*)
+    self.xmlschema.to_json
+  end
+
+  ##
+  # Return receiver (for DateTime/Time conversion protocol).
+  #
+  #   Time.now.to_time        #=> Wed Nov 19 20:08:28 -0800 2008
+  #
+  # @return [Time] Receiver
+  #
+  # @api public
+  remove_method :to_time if instance_methods(false).any? { |m| m.to_sym == :to_time }
+  def to_time
+    self
+  end
+
+  ##
+  # Convert to DateTime (for DateTime/Time conversion protocol).
+  #
+  #   Time.now.to_datetime    #=> #<DateTime: 106046956823/43200,-1/3,2299161>
+  #
+  # @return [DateTime] DateTime object representing the same moment as receiver
+  #
+  # @api public
+  remove_method :to_datetime if instance_methods(false).any? { |m| m.to_sym == :to_datetime }
+  def to_datetime
+    DateTime.new(year, month, day, hour, min, sec, Rational(gmt_offset, 24 * 3600))
+  end
+end

data/lib/extlib/virtual_file.rb

@@ -0,0 +1,10 @@
+require "stringio"
+
+# To use as a parameter to Merb::Template.inline_template
+class VirtualFile < StringIO
+  attr_accessor :path
+  def initialize(string, path)
+    super(string)
+    @path = path
+  end
+end

data/spec/array_spec.rb

@@ -0,0 +1,39 @@
+require File.expand_path(File.join(File.dirname(__FILE__), 'spec_helper'))
+
+describe Array do
+  before :all do
+    @array = [ [ :a, [ 1 ] ], [ :b, [ 2 ] ], [ :c, [ 3 ] ] ].freeze
+  end
+
+  it { @array.should respond_to(:to_hash) }
+
+  describe '#to_hash' do
+    before :all do
+      @return = @array.to_hash
+    end
+
+    it 'should return a Hash' do
+      @return.should be_kind_of(Hash)
+    end
+
+    it 'should return expected value' do
+      @return.should == { :a => [ 1 ], :b => [ 2 ], :c => [ 3 ] }
+    end
+  end
+
+  it { @array.should respond_to(:to_mash) }
+
+  describe '#to_mash' do
+    before :all do
+      @return = @array.to_mash
+    end
+
+    it 'should return a Mash' do
+      @return.should be_kind_of(Mash)
+    end
+
+    it 'should return expected value' do
+      @return.should == { 'a' => [ 1 ], 'b' => [ 2 ], 'c' => [ 3 ] }
+    end
+  end
+end

data/spec/blank_spec.rb

@@ -0,0 +1,85 @@
+require File.expand_path(File.join(File.dirname(__FILE__), 'spec_helper'))
+
+describe Object do
+  it 'should provide blank?' do
+    Object.new.should respond_to(:blank?)
+  end
+
+  it 'should be blank if it is nil' do
+    object = Object.new
+    class << object
+      def nil?; true end
+    end
+    object.should be_blank
+  end
+
+  it 'should be blank if it is empty' do
+    {}.should be_blank
+    [].should be_blank
+  end
+
+  it 'should not be blank if not nil or empty' do
+    Object.new.should_not be_blank
+    [nil].should_not be_blank
+    { nil => 0 }.should_not be_blank
+  end
+end
+
+describe Numeric do
+  it 'should provide blank?' do
+    1.should respond_to(:blank?)
+  end
+
+  it 'should never be blank' do
+    1.should_not be_blank
+  end
+end
+
+describe NilClass do
+  it 'should provide blank?' do
+    nil.should respond_to(:blank?)
+  end
+
+  it 'should always be blank' do
+    nil.should be_blank
+  end
+end
+
+describe TrueClass do
+  it 'should provide blank?' do
+    true.should respond_to(:blank?)
+  end
+
+  it 'should never be blank' do
+    true.should_not be_blank
+  end
+end
+
+describe FalseClass do
+  it 'should provide blank?' do
+    false.should respond_to(:blank?)
+  end
+
+  it 'should always be blank' do
+    false.should be_blank
+  end
+end
+
+describe String do
+  it 'should provide blank?' do
+    'string'.should respond_to(:blank?)
+  end
+
+  it 'should be blank if empty' do
+    ''.should be_blank
+  end
+
+  it 'should be blank if it only contains whitespace' do
+    ' '.should be_blank
+    " \r \n \t ".should be_blank
+  end
+
+  it 'should not be blank if it contains non-whitespace' do
+    ' a '.should_not be_blank
+  end
+end

data/spec/byte_array_spec.rb

@@ -0,0 +1,7 @@
+require File.expand_path(File.join(File.dirname(__FILE__), 'spec_helper'))
+
+describe Extlib::ByteArray do
+  it 'should be a String' do
+    Extlib::ByteArray.new.should be_kind_of(String)
+  end
+end

data/spec/class_spec.rb

@@ -0,0 +1,157 @@
+require File.expand_path(File.join(File.dirname(__FILE__), 'spec_helper'))
+
+class Grandparent
+end
+
+class Parent < Grandparent
+end
+
+class Child < Parent
+end
+
+class Parent
+end
+
+class Grandparent
+  class_inheritable_accessor :last_name, :_attribute
+
+  self._attribute = 1900
+end
+
+class ClassWithInheritableSymbolAccessor
+  class_inheritable_accessor :symbol
+  self.symbol = :foo
+end
+
+class ClassInheritingSymbolAccessor < ClassWithInheritableSymbolAccessor
+end
+
+describe Class, "#inheritable_accessor" do
+
+  after :each do
+    Grandparent.send(:remove_instance_variable, "@last_name") rescue nil
+    Parent.send(:remove_instance_variable, "@last_name") rescue nil
+    Child.send(:remove_instance_variable, "@last_name") rescue nil
+  end
+
+  it 'inherits from parent unless overriden' do
+    Parent._attribute.should == 1900
+    Child._attribute.should == 1900
+  end
+
+  it 'inherits from grandparent unless overriden' do
+    Child._attribute.should == 1900
+  end
+
+  it "inherits even if the accessor is made after the inheritance" do
+    Grandparent.last_name = "Merb"
+    Parent.last_name.should == "Merb"
+    Child.last_name.should == "Merb"
+  end
+
+  it "supports ||= to change a child" do
+    Parent.last_name ||= "Merb"
+    Grandparent.last_name.should == nil
+    Parent.last_name.should == "Merb"
+    Child.last_name.should == "Merb"
+  end
+
+  it "supports << to change a child when the parent is an Array" do
+    Grandparent.last_name = ["Merb"]
+    Parent.last_name << "Core"
+    Grandparent.last_name.should == ["Merb"]
+    Parent.last_name.should == ["Merb", "Core"]
+  end
+
+  it "supports ! methods on an Array" do
+    Grandparent.last_name = %w(Merb Core)
+    Parent.last_name.reverse!
+    Grandparent.last_name.should == %w(Merb Core)
+    Parent.last_name.should == %w(Core Merb)
+  end
+
+  it "support modifying a parent Hash" do
+    Grandparent.last_name = {"Merb" => "name"}
+    Parent.last_name["Core"] = "name"
+    Parent.last_name.should == {"Merb" => "name", "Core" => "name"}
+    Grandparent.last_name.should == {"Merb" => "name"}
+  end
+
+  it "supports hard-merging a parent Hash" do
+    Grandparent.last_name = {"Merb" => "name"}
+    Parent.last_name.merge!("Core" => "name")
+    Parent.last_name.should == {"Merb" => "name", "Core" => "name"}
+    Grandparent.last_name.should == {"Merb" => "name"}
+  end
+
+  it "supports changes to the parent even if the child has already been read" do
+    Child.last_name
+    Grandparent.last_name = "Merb"
+    Child.last_name.should == "Merb"
+  end
+
+  it "handles nil being set midstream" do
+    Child.last_name
+    Parent.last_name = nil
+    Grandparent.last_name = "Merb"
+    Child.last_name.should == nil
+  end
+
+  it "handles false being used in Parent" do
+    Child.last_name
+    Parent.last_name = false
+    Grandparent.last_name = "Merb"
+    Child.last_name.should == false
+  end
+
+  it "handles the grandparent changing the value (as long as the child isn't read first)" do
+    Grandparent.last_name = "Merb"
+    Grandparent.last_name = "Core"
+    Child.last_name.should == "Core"
+  end
+
+end
+
+describe Class, "#inheritable_accessor (of type Symbol)" do
+
+  it "should not raise" do
+    lambda { ClassInheritingSymbolAccessor.symbol }.should_not raise_error(TypeError)
+  end
+
+end
+
+#
+# The bug that prompted this estoric spec was found in
+# the wild when using dm-is-versioned with c_i_w.
+#
+
+module Plugin
+  def self.included(base)
+    base.class_eval do
+      class_inheritable_writer :plugin_options
+      class_inheritable_reader :plugin_options
+      self.plugin_options = :foo
+    end
+  end
+end
+
+class Model
+  def self.new
+    model = Class.new
+    model.send(:include, Plugin)
+    model
+  end
+
+  include Plugin
+  self.const_set("Version", Model.new)
+end
+
+describe Class, "#inheritable_accessor" do
+  it "uses object_id for comparison" do
+    Model.methods.map { |m| m.to_sym }.should be_include(:plugin_options)
+    Model.plugin_options.should == :foo
+
+    Model::Version.methods.map { |m| m.to_sym }.should be_include(:plugin_options)
+    Model::Version.plugin_options.should == :foo
+  end
+end

data/spec/datetime_spec.rb

@@ -0,0 +1,22 @@
+require File.expand_path(File.join(File.dirname(__FILE__), 'spec_helper'))
+require 'json'
+
+describe DateTime, "#to_time" do
+  before do
+    @expected = Time.now.to_s
+    @datetime = DateTime.parse(@expected)
+  end
+
+  it "should return a copy of time" do
+    time = @datetime.to_time
+    time.class.should == Time
+    time.to_s.should == @expected
+  end
+end
+
+describe Time, "#to_datetime" do
+  it "should return a copy of its self" do
+    datetime = DateTime.now
+    datetime.to_datetime.should == datetime
+  end
+end

data/spec/hash_spec.rb

@@ -0,0 +1,537 @@
+require File.expand_path(File.join(File.dirname(__FILE__), 'spec_helper'))
+require "date"
+require 'bigdecimal'
+
+describe Hash, "environmentize_keys!" do
+  it "should transform keys to uppercase text" do
+    { :test_1  => 'test', 'test_2' => 'test', 1 => 'test' }.environmentize_keys!.should ==
+      { 'TEST_1' => 'test', 'TEST_2' => 'test', '1' => 'test' }
+  end
+
+  it "should only transform one level of keys" do
+    { :test_1  => { :test2 => 'test'} }.environmentize_keys!.should ==
+      { 'TEST_1' => { :test2 => 'test'} }
+  end
+end
+
+
+describe Hash, "only" do
+  before do
+    @hash = { :one => 'ONE', 'two' => 'TWO', 3 => 'THREE', 4 => nil }
+  end
+
+  it "should return a hash with only the given key(s)" do
+    @hash.only(:not_in_there).should == {}
+    @hash.only(4).should == {4 => nil}
+    @hash.only(:one).should == { :one => 'ONE' }
+    @hash.only(:one, 3).should == { :one => 'ONE', 3 => 'THREE' }
+  end
+end
+
+
+describe Hash, "except" do
+  before do
+    @hash = { :one => 'ONE', 'two' => 'TWO', 3 => 'THREE' }
+  end
+
+  it "should return a hash without only the given key(s)" do
+    @hash.except(:one).should == { 'two' => 'TWO', 3 => 'THREE' }
+    @hash.except(:one, 3).should == { 'two' => 'TWO' }
+  end
+end
+
+
+describe Hash, "to_xml_attributes" do
+  before do
+    @hash = { :one => "ONE", "two" => "TWO" }
+  end
+
+  it "should turn the hash into xml attributes" do
+    attrs = @hash.to_xml_attributes
+    attrs.should match(/one="ONE"/m)
+    attrs.should match(/two="TWO"/m)
+  end
+
+  it 'should preserve _ in hash keys' do
+    attrs = {
+      :some_long_attribute => "with short value",
+      :crash               => :burn,
+      :merb                => "uses extlib"
+    }.to_xml_attributes
+
+    attrs.should =~ /some_long_attribute="with short value"/
+    attrs.should =~ /merb="uses extlib"/
+    attrs.should =~ /crash="burn"/
+  end
+end
+
+
+describe Hash, "from_xml" do
+  it "should transform a simple tag with content" do
+    xml = "<tag>This is the contents</tag>"
+    Hash.from_xml(xml).should == { 'tag' => 'This is the contents' }
+  end
+
+  it "should work with cdata tags" do
+    xml = <<-END
+      <tag>
+      <![CDATA[
+        text inside cdata
+      ]]>
+      </tag>
+    END
+    Hash.from_xml(xml)["tag"].strip.should == "text inside cdata"
+  end
+
+  it "should transform a simple tag with attributes" do
+    xml = "<tag attr1='1' attr2='2'></tag>"
+    hash = { 'tag' => { 'attr1' => '1', 'attr2' => '2' } }
+    Hash.from_xml(xml).should == hash
+  end
+
+  it "should transform repeating siblings into an array" do
+    xml =<<-XML
+      <opt>
+        <user login="grep" fullname="Gary R Epstein" />
+        <user login="stty" fullname="Simon T Tyson" />
+      </opt>
+    XML
+
+    Hash.from_xml(xml)['opt']['user'].should be_an_instance_of(Array)
+
+    hash = {
+      'opt' => {
+        'user' => [{
+          'login'    => 'grep',
+          'fullname' => 'Gary R Epstein'
+        },{
+          'login'    => 'stty',
+          'fullname' => 'Simon T Tyson'
+        }]
+      }
+    }
+
+    Hash.from_xml(xml).should == hash
+  end
+
+  it "should not transform non-repeating siblings into an array" do
+    xml =<<-XML
+      <opt>
+        <user login="grep" fullname="Gary R Epstein" />
+      </opt>
+    XML
+
+    Hash.from_xml(xml)['opt']['user'].should be_an_instance_of(Hash)
+
+    hash = {
+      'opt' => {
+        'user' => {
+          'login' => 'grep',
+          'fullname' => 'Gary R Epstein'
+        }
+      }
+    }
+
+    Hash.from_xml(xml).should == hash
+  end
+
+  it "should typecast an integer" do
+    xml = "<tag type='integer'>10</tag>"
+    Hash.from_xml(xml)['tag'].should == 10
+  end
+
+  it "should typecast a true boolean" do
+    xml = "<tag type='boolean'>true</tag>"
+    Hash.from_xml(xml)['tag'].should be_true
+  end
+
+  it "should typecast a false boolean" do
+    ["false"].each do |w|
+      Hash.from_xml("<tag type='boolean'>#{w}</tag>")['tag'].should be_false
+    end
+  end
+
+  it "should typecast a datetime" do
+    xml = "<tag type='datetime'>2007-12-31 10:32</tag>"
+    Hash.from_xml(xml)['tag'].should == Time.parse( '2007-12-31 10:32' ).utc
+  end
+
+  it "should typecast a date" do
+    xml = "<tag type='date'>2007-12-31</tag>"
+    Hash.from_xml(xml)['tag'].should == Date.parse('2007-12-31')
+  end
+
+  it "should unescape html entities" do
+    values = {
+      "<" => "&lt;",
+      ">" => "&gt;",
+      '"' => "&quot;",
+      "'" => "&apos;",
+      "&" => "&amp;"
+    }
+    values.each do |k,v|
+      xml = "<tag>Some content #{v}</tag>"
+      Hash.from_xml(xml)['tag'].should match(Regexp.new(k))
+    end
+  end
+
+  it "should undasherize keys as tags" do
+    xml = "<tag-1>Stuff</tag-1>"
+    Hash.from_xml(xml).should have_key('tag_1')
+  end
+
+  it "should undasherize keys as attributes" do
+    xml = "<tag1 attr-1='1'></tag1>"
+    Hash.from_xml(xml)['tag1'].should have_key('attr_1')
+  end
+
+  it "should undasherize keys as tags and attributes" do
+    xml = "<tag-1 attr-1='1'></tag-1>"
+    Hash.from_xml(xml).should have_key('tag_1' )
+    Hash.from_xml(xml)['tag_1'].should have_key('attr_1')
+  end
+
+  it "should render nested content correctly" do
+    xml = "<root><tag1>Tag1 Content <em><strong>This is strong</strong></em></tag1></root>"
+    Hash.from_xml(xml)['root']['tag1'].should == "Tag1 Content <em><strong>This is strong</strong></em>"
+  end
+
+  it "should render nested content with split text nodes correctly" do
+    xml = "<root>Tag1 Content<em>Stuff</em> Hi There</root>"
+    Hash.from_xml(xml)['root'].should == "Tag1 Content<em>Stuff</em> Hi There"
+  end
+
+  it "should ignore attributes when a child is a text node" do
+    xml = "<root attr1='1'>Stuff</root>"
+    Hash.from_xml(xml).should == { "root" => "Stuff" }
+  end
+
+  it "should ignore attributes when any child is a text node" do
+    xml = "<root attr1='1'>Stuff <em>in italics</em></root>"
+    Hash.from_xml(xml).should == { "root" => "Stuff <em>in italics</em>" }
+  end
+
+  it "should correctly transform multiple children" do
+    xml = <<-XML
+    <user gender='m'>
+      <age type='integer'>35</age>
+      <name>Home Simpson</name>
+      <dob type='date'>1988-01-01</dob>
+      <joined-at type='datetime'>2000-04-28 23:01</joined-at>
+      <is-cool type='boolean'>true</is-cool>
+    </user>
+    XML
+
+    hash =  {
+      "user" => {
+        "gender"    => "m",
+        "age"       => 35,
+        "name"      => "Home Simpson",
+        "dob"       => Date.parse('1988-01-01'),
+        "joined_at" => Time.parse("2000-04-28 23:01"),
+        "is_cool"   => true
+      }
+    }
+
+    Hash.from_xml(xml).should == hash
+  end
+
+  it "should properly handle nil values (ActiveSupport Compatible)" do
+    topic_xml = <<-EOT
+      <topic>
+        <title></title>
+        <id type="integer"></id>
+        <approved type="boolean"></approved>
+        <written-on type="date"></written-on>
+        <viewed-at type="datetime"></viewed-at>
+        <content type="yaml"></content>
+        <parent-id></parent-id>
+      </topic>
+    EOT
+
+    expected_topic_hash = {
+      'title'      => nil,
+      'id'         => nil,
+      'approved'   => nil,
+      'written_on' => nil,
+      'viewed_at'  => nil,
+      'content'    => nil,
+      'parent_id'  => nil
+    }
+    Hash.from_xml(topic_xml)["topic"].should == expected_topic_hash
+  end
+
+  it "should handle a single record from xml (ActiveSupport Compatible)" do
+    topic_xml = <<-EOT
+      <topic>
+        <title>The First Topic</title>
+        <author-name>David</author-name>
+        <id type="integer">1</id>
+        <approved type="boolean"> true </approved>
+        <replies-count type="integer">0</replies-count>
+        <replies-close-in type="integer">2592000000</replies-close-in>
+        <written-on type="date">2003-07-16</written-on>
+        <viewed-at type="datetime">2003-07-16T09:28:00+0000</viewed-at>
+        <content type="yaml">--- \n1: should be an integer\n:message: Have a nice day\narray: \n- should-have-dashes: true\n  should_have_underscores: true\n</content>
+        <author-email-address>david@loudthinking.com</author-email-address>
+        <parent-id></parent-id>
+        <ad-revenue type="decimal">1.5</ad-revenue>
+        <optimum-viewing-angle type="float">135</optimum-viewing-angle>
+        <resident type="symbol">yes</resident>
+      </topic>
+    EOT
+
+    expected_topic_hash = {
+      'title' => "The First Topic",
+      'author_name' => "David",
+      'id' => 1,
+      'approved' => true,
+      'replies_count' => 0,
+      'replies_close_in' => 2592000000,
+      'written_on' => Date.new(2003, 7, 16),
+      'viewed_at' => Time.utc(2003, 7, 16, 9, 28),
+      # Changed this line where the key is :message.  The yaml specifies this as a symbol, and who am I to change what you specify
+      # The line in ActiveSupport is
+      # 'content' => { 'message' => "Have a nice day", 1 => "should be an integer", "array" => [{ "should-have-dashes" => true, "should_have_underscores" => true }] },
+      'content' => { :message => "Have a nice day", 1 => "should be an integer", "array" => [{ "should-have-dashes" => true, "should_have_underscores" => true }] },
+      'author_email_address' => "david@loudthinking.com",
+      'parent_id' => nil,
+      'ad_revenue' => BigDecimal("1.50"),
+      'optimum_viewing_angle' => 135.0,
+      'resident' => :yes
+    }
+
+    Hash.from_xml(topic_xml)["topic"].each do |k,v|
+      v.should == expected_topic_hash[k]
+    end
+  end
+
+  it "should handle multiple records (ActiveSupport Compatible)" do
+    topics_xml = <<-EOT
+      <topics type="array">
+        <topic>
+          <title>The First Topic</title>
+          <author-name>David</author-name>
+          <id type="integer">1</id>
+          <approved type="boolean">false</approved>
+          <replies-count type="integer">0</replies-count>
+          <replies-close-in type="integer">2592000000</replies-close-in>
+          <written-on type="date">2003-07-16</written-on>
+          <viewed-at type="datetime">2003-07-16T09:28:00+0000</viewed-at>
+          <content>Have a nice day</content>
+          <author-email-address>david@loudthinking.com</author-email-address>
+          <parent-id nil="true"></parent-id>
+        </topic>
+        <topic>
+          <title>The Second Topic</title>
+          <author-name>Jason</author-name>
+          <id type="integer">1</id>
+          <approved type="boolean">false</approved>
+          <replies-count type="integer">0</replies-count>
+          <replies-close-in type="integer">2592000000</replies-close-in>
+          <written-on type="date">2003-07-16</written-on>
+          <viewed-at type="datetime">2003-07-16T09:28:00+0000</viewed-at>
+          <content>Have a nice day</content>
+          <author-email-address>david@loudthinking.com</author-email-address>
+          <parent-id></parent-id>
+        </topic>
+      </topics>
+    EOT
+
+    expected_topic_hash = {
+      'title' => "The First Topic",
+      'author_name' => "David",
+      'id' => 1,
+      'approved' => false,
+      'replies_count' => 0,
+      'replies_close_in' => 2592000000,
+      'written_on' => Date.new(2003, 7, 16),
+      'viewed_at' => Time.utc(2003, 7, 16, 9, 28),
+      'content' => "Have a nice day",
+      'author_email_address' => "david@loudthinking.com",
+      'parent_id' => nil
+    }
+    # puts Hash.from_xml(topics_xml)['topics'].first.inspect
+    Hash.from_xml(topics_xml)["topics"].first.each do |k,v|
+      v.should == expected_topic_hash[k]
+    end
+  end
+
+  it "should handle a single record from_xml with attributes other than type (ActiveSupport Compatible)" do
+    topic_xml = <<-EOT
+    <rsp stat="ok">
+      <photos page="1" pages="1" perpage="100" total="16">
+        <photo id="175756086" owner="55569174@N00" secret="0279bf37a1" server="76" title="Colored Pencil PhotoBooth Fun" ispublic="1" isfriend="0" isfamily="0"/>
+      </photos>
+    </rsp>
+    EOT
+
+    expected_topic_hash = {
+      'id' => "175756086",
+      'owner' => "55569174@N00",
+      'secret' => "0279bf37a1",
+      'server' => "76",
+      'title' => "Colored Pencil PhotoBooth Fun",
+      'ispublic' => "1",
+      'isfriend' => "0",
+      'isfamily' => "0",
+    }
+    Hash.from_xml(topic_xml)["rsp"]["photos"]["photo"].each do |k,v|
+      v.should == expected_topic_hash[k]
+    end
+  end
+
+  it "should handle an emtpy array (ActiveSupport Compatible)" do
+    blog_xml = <<-XML
+      <blog>
+        <posts type="array"></posts>
+      </blog>
+    XML
+    expected_blog_hash = {"blog" => {"posts" => []}}
+    Hash.from_xml(blog_xml).should == expected_blog_hash
+  end
+
+  it "should handle empty array with whitespace from xml (ActiveSupport Compatible)" do
+    blog_xml = <<-XML
+      <blog>
+        <posts type="array">
+        </posts>
+      </blog>
+    XML
+    expected_blog_hash = {"blog" => {"posts" => []}}
+    Hash.from_xml(blog_xml).should == expected_blog_hash
+  end
+
+  it "should handle array with one entry from_xml (ActiveSupport Compatible)" do
+    blog_xml = <<-XML
+      <blog>
+        <posts type="array">
+          <post>a post</post>
+        </posts>
+      </blog>
+    XML
+    expected_blog_hash = {"blog" => {"posts" => ["a post"]}}
+    Hash.from_xml(blog_xml).should == expected_blog_hash
+  end
+
+  it "should handle array with multiple entries from xml (ActiveSupport Compatible)" do
+    blog_xml = <<-XML
+      <blog>
+        <posts type="array">
+          <post>a post</post>
+          <post>another post</post>
+        </posts>
+      </blog>
+    XML
+    expected_blog_hash = {"blog" => {"posts" => ["a post", "another post"]}}
+    Hash.from_xml(blog_xml).should == expected_blog_hash
+  end
+
+  it "should handle file types (ActiveSupport Compatible)" do
+    blog_xml = <<-XML
+      <blog>
+        <logo type="file" name="logo.png" content_type="image/png">
+        </logo>
+      </blog>
+    XML
+    hash = Hash.from_xml(blog_xml)
+    hash.should have_key('blog')
+    hash['blog'].should have_key('logo')
+
+    file = hash['blog']['logo']
+    file.original_filename.should == 'logo.png'
+    file.content_type.should == 'image/png'
+  end
+
+  it "should handle file from xml with defaults (ActiveSupport Compatible)" do
+    blog_xml = <<-XML
+      <blog>
+        <logo type="file">
+        </logo>
+      </blog>
+    XML
+    file = Hash.from_xml(blog_xml)['blog']['logo']
+    file.original_filename.should == 'untitled'
+    file.content_type.should == 'application/octet-stream'
+  end
+
+  it "should handle xsd like types from xml (ActiveSupport Compatible)" do
+    bacon_xml = <<-EOT
+    <bacon>
+      <weight type="double">0.5</weight>
+      <price type="decimal">12.50</price>
+      <chunky type="boolean"> 1 </chunky>
+      <expires-at type="dateTime">2007-12-25T12:34:56+0000</expires-at>
+      <notes type="string"></notes>
+      <illustration type="base64Binary">YmFiZS5wbmc=</illustration>
+    </bacon>
+    EOT
+
+    expected_bacon_hash = {
+      'weight' => 0.5,
+      'chunky' => true,
+      'price' => BigDecimal("12.50"),
+      'expires_at' => Time.utc(2007,12,25,12,34,56),
+      'notes' => "",
+      'illustration' => "babe.png"
+    }
+
+    Hash.from_xml(bacon_xml)["bacon"].should == expected_bacon_hash
+  end
+
+  it "should let type trickle through when unknown (ActiveSupport Compatible)" do
+    product_xml = <<-EOT
+    <product>
+      <weight type="double">0.5</weight>
+      <image type="ProductImage"><filename>image.gif</filename></image>
+
+    </product>
+    EOT
+
+    expected_product_hash = {
+      'weight' => 0.5,
+      'image' => {'type' => 'ProductImage', 'filename' => 'image.gif' },
+    }
+
+    Hash.from_xml(product_xml)["product"].should == expected_product_hash
+  end
+
+  it "should handle unescaping from xml (ActiveResource Compatible)" do
+    xml_string = '<person><bare-string>First &amp; Last Name</bare-string><pre-escaped-string>First &amp;amp; Last Name</pre-escaped-string></person>'
+    expected_hash = {
+      'bare_string'        => 'First & Last Name',
+      'pre_escaped_string' => 'First &amp; Last Name'
+    }
+
+    Hash.from_xml(xml_string)['person'].should == expected_hash
+  end
+end
+
+describe Hash, 'to_params' do
+  {
+    { "foo" => "bar", "baz" => "bat" } => "foo=bar&baz=bat",
+    { "foo" => [ "bar", "baz" ] } => "foo[]=bar&foo[]=baz",
+    { "foo" => [ {"bar" => "1"}, {"bar" => 2} ] } => "foo[][bar]=1&foo[][bar]=2",
+    { "foo" => { "bar" => [ {"baz" => 1}, {"baz" => "2"}  ] } } => "foo[bar][][baz]=1&foo[bar][][baz]=2",
+    { "foo" => {"1" => "bar", "2" => "baz"} } => "foo[1]=bar&foo[2]=baz"
+  }.each do |hash, params|
+    it "should covert hash: #{hash.inspect} to params: #{params.inspect}" do
+      hash.to_params.split('&').sort.should == params.split('&').sort
+    end
+  end
+
+  it 'should not leave a trailing &' do
+    { :name => 'Bob', :address => { :street => '111 Ruby Ave.', :city => 'Ruby Central', :phones => ['111-111-1111', '222-222-2222'] } }.to_params.should_not match(/&$/)
+  end
+end
+
+describe Hash, 'to_mash' do
+  before :each do
+    @hash = Hash.new(10)
+  end
+
+  it "copies default Hash value to Mash" do
+    @mash = @hash.to_mash
+    @mash[:merb].should == 10
+  end
+end