Modified CastedModel to apply defaults first

(so the defaults don't overwrite modified values)
Included failing (and now passing) specs

lib/couchrest/more/casted_model.rb

@@ -10,12 +10,12 @@ module CouchRest
     
     def initialize(keys={})
       raise StandardError unless self.is_a? Hash
+      apply_defaults # defined in CouchRest::Mixins::Properties
       super()
       keys.each do |k,v|
         self[k.to_s] = v
       end if keys
-      apply_defaults # defined in CouchRest::Mixins::Properties
-      # cast_keys      # defined in CouchRest::Mixins::Properties
+      cast_keys      # defined in CouchRest::Mixins::Properties
     end
     
     def []= key, value