merb-core 0.9.2

data/lib/merb-core/vendor/facets/inflect.rb

@@ -0,0 +1,211 @@
+module Language
+
+module English
+
+  # = English Nouns Number Inflection.
+  #
+  # This module provides english singular <-> plural noun inflections.
+  module Inflect
+
+    @singular_of = {}
+    @plural_of = {}
+
+    @singular_rules = []
+    @plural_rules = []
+
+    class << self
+      # Define a general exception.
+      def word(singular, plural=nil)
+        plural = singular unless plural
+        singular_word(singular, plural)
+        plural_word(singular, plural)
+      end
+
+      # Define a singularization exception.
+      def singular_word(singular, plural)
+        @singular_of[plural] = singular
+      end
+
+      # Define a pluralization exception.
+      def plural_word(singular, plural)
+        @plural_of[singular] = plural
+      end
+
+      # Define a general rule.
+      def rule(singular, plural)
+        singular_rule(singular, plural)
+        plural_rule(singular, plural)
+      end
+
+      # Define a singularization rule.
+      def singular_rule(singular, plural)
+        @singular_rules << [singular, plural]
+      end
+
+      # Define a plurualization rule.
+      def plural_rule(singular, plural)
+        @plural_rules << [singular, plural]
+      end
+
+      # Read prepared singularization rules.
+      def singularization_rules
+        return @singularization_rules if @singularization_rules
+        sorted = @singular_rules.sort_by{ |s, p| "#{p}".size }.reverse
+        @singularization_rules = sorted.collect do |s, p|
+          [ /#{p}$/, "#{s}" ]
+        end
+      end
+
+      # Read prepared pluralization rules.
+      def pluralization_rules
+        return @pluralization_rules if @pluralization_rules
+        sorted = @plural_rules.sort_by{ |s, p| "#{s}".size }.reverse
+        @pluralization_rules = sorted.collect do |s, p|
+          [ /#{s}$/, "#{p}" ]
+        end
+      end
+
+      #
+      def plural_of
+        @plural_of
+      end
+
+      #
+      def singular_of
+        @singular_of
+      end
+
+      # Convert an English word from plurel to singular.
+      #
+      #   "boys".singular      #=> boy
+      #   "tomatoes".singular  #=> tomato
+      #
+      def singular(word)
+        if result = singular_of[word]
+          return result.dup
+        end
+        result = word.dup
+        singularization_rules.each do |(match, replacement)|
+          break if result.gsub!(match, replacement)
+        end
+        return result
+      end
+
+      # Alias for #singular (a Railism).
+      #
+      alias_method(:singularize, :singular)
+
+      # Convert an English word from singular to plurel.
+      #
+      #   "boy".plural     #=> boys
+      #   "tomato".plural  #=> tomatoes
+      #
+      def plural(word)
+        if result = plural_of[word]
+          return result.dup
+        end
+        #return self.dup if /s$/ =~ self # ???
+        result = word.dup
+        pluralization_rules.each do |(match, replacement)|
+          break if result.gsub!(match, replacement)
+        end
+        return result
+      end
+
+      # Alias for #plural (a Railism).
+      alias_method(:pluralize, :plural)
+    end
+
+    # One argument means singular and plural are the same.
+
+    word 'equipment'
+    word 'information'
+    word 'money'
+    word 'species'
+    word 'series'
+    word 'fish'
+    word 'sheep'
+    word 'moose'
+    word 'hovercraft'
+
+    # Two arguments defines a singular and plural exception.
+
+    word 'Swiss'     , 'Swiss'
+    word 'life'      , 'lives'
+    word 'wife'      , 'wives'
+    word 'goose'     , 'geese'
+    word 'criterion' , 'criteria'
+    word 'alias'     , 'aliases'
+    word 'status'    , 'statuses'
+    word 'axis'      , 'axes'
+    word 'crisis'    , 'crises'
+    word 'testis'    , 'testes'
+    word 'child'     , 'children'
+    word 'person'    , 'people'
+    word 'potato'    , 'potatoes'
+    word 'tomato'    , 'tomatoes'
+    word 'buffalo'   , 'buffaloes'
+    word 'torpedo'   , 'torpedoes'
+    word 'quiz'      , 'quizes'
+    word 'matrix'    , 'matrices'
+    word 'vertex'    , 'vetices'
+    word 'index'     , 'indices'
+    word 'ox'        , 'oxen'
+    word 'mouse'     , 'mice'
+    word 'louse'     , 'lice'
+    word 'thesis'    , 'theses'
+    word 'thief'     , 'thieves'
+    word 'analysis'  , 'analyses'
+
+    # One-way singularization exception (convert plural to singular).
+
+    singular_word 'cactus', 'cacti'
+
+    # General rules.
+
+    rule 'hive' , 'hives'
+    rule 'rf'   , 'rves'
+    rule 'af'   , 'aves'
+    rule 'ero'  , 'eroes'
+    rule 'man'  , 'men'
+    rule 'ch'   , 'ches'
+    rule 'sh'   , 'shes'
+    rule 'ss'   , 'sses'
+    rule 'ta'   , 'tum'
+    rule 'ia'   , 'ium'
+    rule 'ra'   , 'rum'
+    rule 'ay'   , 'ays'
+    rule 'ey'   , 'eys'
+    rule 'oy'   , 'oys'
+    rule 'uy'   , 'uys'
+    rule 'y'    , 'ies'
+    rule 'x'    , 'xes'
+    rule 'lf'   , 'lves'
+    rule 'us'   , 'uses'
+    rule ''     , 's'
+
+    # One-way singular rules.
+
+    singular_rule 'of' , 'ofs' # proof
+    singular_rule 'o'  , 'oes' # hero, heroes
+    singular_rule 'f'  , 'ves'
+
+    # One-way plural rules.
+
+    plural_rule 'fe' , 'ves' # safe, wife
+    plural_rule 's'  , 'ses'
+
+  end
+end
+end
+
+class String
+  def singular
+    Language::English::Inflect.singular(self)
+  end
+  alias_method(:singularize, :singular)
+  def plural
+    Language::English::Inflect.plural(self)
+  end
+  alias_method(:pluralize, :plural)
+end

data/lib/merb-core/version.rb

@@ -0,0 +1,11 @@
+module Merb
+  VERSION = '0.9.2' unless defined?(Merb::VERSION)
+
+  # Merb::RELEASE meanings:
+  # 'dev'   : unreleased
+  # 'pre'   : pre-release Gem candidates
+  #  nil    : released
+  # You should never check in to trunk with this changed.  It should
+  # stay 'dev'.  Change it to nil in release tags.
+  RELEASE = nil unless defined?(Merb::RELEASE)
+end

data/spec/private/config/adapter_spec.rb

@@ -0,0 +1,32 @@
+require File.dirname(__FILE__) + '/spec_helper'
+
+MERB_BIN = File.dirname(__FILE__) + "/../../../bin/merb"
+
+describe Merb::Config do
+  before do
+    ARGV.replace([])
+    Merb::Server.should_receive(:start).and_return(nil)
+  end
+  
+  it "should load the runner adapter by default" do
+    Merb.start 
+    Merb::Config[:adapter].should == "runner"
+  end
+  
+  it "should load mongrel adapter when running `merb`" do
+    load(MERB_BIN)
+    Merb::Config[:adapter].should == "mongrel"
+  end
+
+  it "should override adapter when running `merb -a other`" do
+    ARGV.push *%w[-a other]
+    load(MERB_BIN)
+    Merb::Config[:adapter].should == "other"
+  end  
+  
+  it "should load irb adapter when running `merb -i`" do
+    ARGV << '-i'
+    load(MERB_BIN)
+    Merb::Config[:adapter].should == "irb"
+  end
+end

data/spec/private/config/config_spec.rb

@@ -0,0 +1,139 @@
+require File.dirname(__FILE__) + '/spec_helper'
+
+describe Merb::Config do
+  before do
+    Merb::Config.setup
+  end
+  
+  it "should be able to yield the configuration via #use" do
+    res = nil
+    Merb::Config.use {|c| res = c}
+    res.should == Merb::Config.defaults
+  end
+  
+  it "should be able to get a configuration key" do
+    Merb::Config[:host].should == "0.0.0.0"
+  end
+  
+  it "should be able to set a configuration key" do
+    Merb::Config[:bar] = "Hello"
+    Merb::Config[:bar].should == "Hello"
+  end
+  
+  it "should be able to #delete a configuration key" do
+    Merb::Config[:bar] = "Hello"    
+    Merb::Config[:bar].should == "Hello"    
+    Merb::Config.delete(:bar)
+    Merb::Config[:bar].should == nil    
+  end
+  
+  it "should be able to #fetch a key that does exist" do
+    Merb::Config.fetch(:host, "192.168.2.1").should == "0.0.0.0"
+  end
+
+  it "should be able to #fetch a key that does exist" do
+    Merb::Config.fetch(:bar, "heylo").should == "heylo"
+  end
+
+  it "should be able to dump to YAML" do
+    Merb::Config.to_yaml.should == Merb::Config.instance_variable_get("@configuration").to_yaml
+  end
+
+  it "should support -u to set the user to run Merb as" do
+    Merb::Config.parse_args(["-u", "tester"])
+    Merb::Config[:user].should == "tester"
+  end
+  
+  it "should support -G to set the group to run Merb as" do
+    Merb::Config.parse_args(["-G", "tester"])
+    Merb::Config[:group].should == "tester"    
+  end
+
+  it "should support -f to set the filename to run Merb as" do
+    Merb::Config.parse_args(["-d"])
+    Merb::Config[:daemonize].should == true
+  end
+  
+  it "should support -c to set the number of cluster nodes" do
+    Merb::Config.parse_args(["-c", "4"])
+    Merb::Config[:cluster].should == "4"
+  end
+  
+  it "should support -p to set the port number" do
+    Merb::Config.parse_args(["-p", "6000"])
+    Merb::Config[:port].should == "6000"    
+  end
+  
+  it "should support -P to set the PIDfile" do
+    Merb::Config.parse_args(["-P", "pidfile"])
+    Merb::Config[:pid_file].should == "pidfile"
+  end
+
+  it "should support -h to set the hostname" do
+    Merb::Config.parse_args(["-h", "hostname"])
+    Merb::Config[:host].should == "hostname"
+  end
+  
+  it "should support -i to specify loading IRB" do
+    Merb::Config.parse_args(["-i"])
+    Merb::Config[:adapter].should == "irb"
+  end
+  
+  it "should support -l to specify the log level" do
+    Merb::Config.parse_args(["-l", "debug"])
+    Merb::Config[:log_level].should == :debug
+  end
+  
+  it "should support -L to specify the location of the log file" do
+    Merb::Config.parse_args(["-L", "log_file"])
+    Merb::Config[:log_file].should == "log_file"
+  end
+  
+  it "should support -r to specify a runner" do
+    Merb::Config.parse_args(["-r", "foo_runner"])
+    Merb::Config[:runner_code].should == "foo_runner"
+    Merb::Config[:adapter].should == "runner"
+  end
+  
+  it "should support -K for a graceful kill" do
+    Merb::Server.should_receive(:kill).with("all", 1)
+    Merb::Config.parse_args(["-K", "all"])
+  end
+
+  it "should support -k for a hard kill" do
+    Merb::Server.should_receive(:kill).with("all", 9)
+    Merb::Config.parse_args(["-k", "all"])
+  end
+  
+  it "should support -X off to turn off the mutex" do
+    Merb::Config.parse_args(["-X", "off"])
+    Merb::Config[:use_mutex].should == false
+  end
+
+  it "should support -X on to turn off the mutex" do
+    Merb::Config.parse_args(["-X", "on"])
+    Merb::Config[:use_mutex].should == true
+  end
+  
+  it "should take Merb.disable into account" do
+    Merb::Config[:disabled_components].should == []
+    Merb::Config[:disabled_components] << :foo
+    Merb.disable(:bar)
+    Merb.disable(:buz, :fux)
+    Merb::Config[:disabled_components].should == [:foo, :bar, :buz, :fux]
+    Merb.disabled?(:foo).should == true
+    Merb.disabled?(:foo, :buz).should == true
+  end
+  
+  it "should take Merb.testing? into account" do
+    $TESTING.should == true
+    Merb::Config[:testing].should be_nil
+    Merb.should be_testing
+    $TESTING = false
+    Merb.should_not be_testing
+    Merb::Config[:testing] = true
+    Merb.should be_testing
+    $TESTING = true; Merb::Config[:testing] = false # reset
+  end
+  
+end

data/spec/private/config/environment_spec.rb

@@ -0,0 +1,13 @@
+require File.dirname(__FILE__) + '/spec_helper'
+
+describe Merb::Config do
+  it "should apply environment from the command line option --environment" do
+    Merb.start %w( --environment performance_testing )
+    Merb.environment.should == "performance_testing"
+  end
+
+  it "should apply environment from the command line option -e" do
+    Merb.start %w( -e selenium )
+    Merb.environment.should == "selenium"
+  end  
+end

data/spec/private/config/spec_helper.rb

@@ -0,0 +1 @@
+require File.join(File.dirname(__FILE__), "..", "..", "spec_helper")

data/spec/private/core_ext/hash_spec.rb

@@ -0,0 +1,506 @@
+require 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' }
+  end
+  
+  it "should return a hash with only the given key(s)" do
+    @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
+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).keys.should include( 'tag_1' )
+  end
+  
+  it "should undasherize keys as attributes" do
+    xml = "<tag1 attr-1='1'></tag1>"
+    Hash.from_xml(xml)['tag1'].keys.should include( 'attr_1')
+  end
+  
+  it "should undasherize keys as tags and attributes" do
+    xml = "<tag-1 attr-1='1'></tag-1>"
+    Hash.from_xml(xml).keys.should include( 'tag_1' )
+    Hash.from_xml(xml)['tag_1'].keys.should include( '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
+  before do
+    @hash = { :name => 'Bob', :address => { :street => '111 Ruby Ave.', :city => 'Ruby Central', :phones => ['111-111-1111', '222-222-2222'] } }
+  end
+  
+  it 'should convert correctly into query parameters' do
+    @hash.to_params.split('&').sort.should ==
+      'name=Bob&address[city]=Ruby Central&address[phones]=111-111-1111222-222-2222&address[street]=111 Ruby Ave.'.split('&').sort
+  end
+  
+  it 'should not leave a trailing &' do
+    @hash.to_params.should_not match(/&$/)
+  end
+end