rad_core 0.0.13

data/lib/rad/spec/http.rb

@@ -0,0 +1,93 @@
+require 'rad/spec/controller'
+
+rspec do
+  def request
+    rad.workspace.request
+  end
+  
+  def self.with_http
+    with_controller
+    
+    before :all do
+      rad.before_scope :cycle do  
+        if defined?(Rad::Processors) and defined?(Rad::Processors::PrepareParams)
+          rad.conveyors.web do |web|
+            web.definitions.delete_if{|pdef, args| pdef == Rad::Processors::PrepareParams}
+            web.build!
+          end
+        end
+      end
+    end
+  end
+  
+  WCALL_OPTIONS = [:controller]
+  attr_writer :wcall_options
+  def wcall_options; @wcall_options ||= {} end
+  
+  def set_wcall options
+    invalid_options = options.keys - WCALL_OPTIONS
+    raise "Unsupported options #{invalid_options}!" unless invalid_options.empty?
+    
+    self.wcall_options = options
+  end
+  
+  def set_controller controller_class
+    set_wcall controller: controller_class
+  end
+  
+  def self.set_controller &block
+    block.must_be.defined
+    before(:each){set_controller block.call}
+  end
+  
+  def wcall *args, &block    
+    workspace_variables, params = parse_wcall_arguments *args
+    ccall nil, nil, params, workspace_variables, &block
+  end
+  
+  def post_wcall *args, &block
+    params = args.extract_options!
+    raise "_method variable already set!" if params.include?(:_method) or params.include?('_method')
+    wcall(*(args << params.merge(_method: 'post')), &block)
+  end
+  
+  protected
+    def parse_wcall_arguments *args
+      # parsing params
+      params = args.extract_options!
+      first = args.first
+
+      workspace_variables = {}            
+      if args.size == 1 and first.is_a?(String) and first =~ /^\//
+        workspace_variables[:path] = first
+      elsif (first.is_a?(String) or first.is_a?(Symbol)) and args.size <= 2
+        workspace_variables[:path] = '/'
+        workspace_variables[:class] = wcall_options[:controller] || raise("not defined wcall controller (use set_wcall controller: SomeController)!")
+        workspace_variables[:method_name] = first
+        workspace_variables.merge! args[1] if args.size > 1
+      elsif first.is_a?(Class) and args.size <= 3
+        workspace_variables[:path] = '/'
+        workspace_variables[:class] = args[0]
+        workspace_variables[:method_name] = args[1]          
+        workspace_variables.merge! args[2] if args.size > 2
+      else
+        raise "Invalid input!"
+      end
+      
+      # preparing environment
+      workspace_variables[:env] ||= {}
+      workspace_variables[:env].reverse_merge! Rad::HTTPAdapter.mock_environment      
+
+      # setting request method
+      if request_method = params.delete(:_method) || params.delete('_method')
+        request_method = request_method.to_s.upcase
+        raise "invalid request method :#{request}" unless %w(GET POST PUT DELETE).include? request_method.
+        raise "REQUEST_METHOD variable already set!" if workspace_variables[:env].include? 'REQUEST_METHOD'
+        workspace_variables[:env]['REQUEST_METHOD'] = request_method
+      end
+      
+      workspace_variables[:request] = Rad::Request.new(workspace_variables[:env])
+      
+      return workspace_variables, params
+    end
+end

data/lib/rad/spec/mail.rb

@@ -0,0 +1,31 @@
+module Rad
+  module RSpecHelper
+    def sent_letters
+      Rad::RSpecHelper.sent_letters
+    end
+    
+    class << self
+      attr_accessor :sent_letters
+    end    
+  end  
+end
+
+rspec do
+  def self.with_mail
+    Rad::Mailer.class_eval do
+      def deliver letter
+        Rad::RSpecHelper.sent_letters << letter
+      end
+    end
+    
+    Mail.defaults do
+      delivery_method :test
+    end
+    
+    rspec.include Rad::RSpecHelper
+    
+    before :each do
+      Rad::RSpecHelper.sent_letters = []
+    end        
+  end  
+end

data/lib/rad/spec/remote.rb

@@ -0,0 +1,9 @@
+require 'rad/spec/environment'
+
+rspec do
+  def rcall klass, method, params = {}      
+    rad.conveyors.services.call(
+      class: klass, method_name: method, params: Rad::Params.new(params)
+    )
+  end
+end

data/lib/rad/spec/router.rb

@@ -0,0 +1,18 @@
+require 'rad/router'
+
+rspec do
+  def self.with_router
+    include Rad::CoreRoutingHelper
+  end  
+end
+
+# Rad::Response.class_eval do
+#   def success?
+#     headers['Location'].blank?
+#   end
+# end
+
+rspec.define_matcher :redirect_to do |actual, expected|
+  (actual.headers['Location'] and actual.headers['Location'].include?(expected)) or
+    (actual.body and actual.body.include?('window.location') and actual.body.include?(expected))
+end

data/lib/rad/spec/template.rb

@@ -0,0 +1,12 @@
+rspec do
+  def self.with_view_path *args
+    list = if args.first.is_a? Array
+      args.first
+    else
+      args
+    end
+    
+    before(:all){list.each{|path| Rad::Template.paths << path}}
+    after(:all){list.each{|path| Rad::Template.paths.delete path}}
+  end
+end

data/lib/rad/spec/view.rb

@@ -0,0 +1,10 @@
+raise 'not finished'
+
+# 
+# Routes
+# 
+rspec do
+  def default_path
+    rad.config.default_path!
+  end
+end

data/lib/rad/spec/xhtml.rb

@@ -0,0 +1,33 @@
+class String
+  def to_xhtml css = nil    
+    node = Nokogiri::HTML(self)
+    unless css
+      node
+    else
+      nodes = node.css(css)
+      raise "Elements for '#{css}' CSS query not found!" if nodes.size < 1
+      raise "Found more than one elment for '#{css}' CSS query!" if nodes.size > 1
+      nodes.first
+    end
+  end
+end
+
+require 'nokogiri'
+::Nokogiri::XML::Node.class_eval do
+  def should_be_fuzzy_equal_to attributes
+    node_attributes = {}
+    
+    attributes.each do |k, v|
+      nv = if k.to_s == 'content'
+        self.content
+      else
+        self[k.to_s]
+      end
+      node_attributes[k] = nv
+    end
+    
+    node_attributes.should == attributes
+  end
+  
+  
+end

data/lib/rad/spec.rb

@@ -0,0 +1,11 @@
+require 'rspec_ext'
+
+%w(
+  controller
+  environment
+  template
+  http
+  mail
+  remote
+  router
+).each{|f| require "rad/spec/#{f}"}

data/lib/rad/support/active_support/locales/en/actionpack.yml

@@ -0,0 +1,154 @@
+"en":
+  number:
+    # Used in number_with_delimiter()
+    # These are also the defaults for 'currency', 'percentage', 'precision', and 'human'
+    format:
+      # Sets the separator between the units, for more precision (e.g. 1.0 / 2.0 == 0.5)
+      separator: "."
+      # Delimets thousands (e.g. 1,000,000 is a million) (always in groups of three)
+      delimiter: ","
+      # Number of decimals, behind the separator (the number 1 with a precision of 2 gives: 1.00)
+      precision: 3
+      # If set to true, precision will mean the number of significant digits instead
+      # of the number of decimal digits (1234 with precision 2 becomes 1200, 1.23543 becomes 1.2)
+      significant: false
+      # If set, the zeros after the decimal separator will always be stripped (eg.: 1.200 will be 1.2)
+      strip_insignificant_zeros: false
+
+    # Used in number_to_currency()
+    currency:
+      format:
+        # Where is the currency sign? %u is the currency unit, %n the number (default: $5.00)
+        format: "%u%n"
+        unit: "$"
+        # These five are to override number.format and are optional
+        separator: "."
+        delimiter: ","
+        precision: 2
+        significant: false
+        strip_insignificant_zeros: false
+
+    # Used in number_to_percentage()
+    percentage:
+      format:
+        # These five are to override number.format and are optional
+        # separator:
+        delimiter: ""
+        # precision:
+        # significant: false
+        # strip_insignificant_zeros: false
+
+    # Used in number_to_precision()
+    precision:
+      format:
+        # These five are to override number.format and are optional
+        # separator:
+        delimiter: ""
+        # precision:
+        # significant: false
+        # strip_insignificant_zeros: false
+
+    # Used in number_to_human_size() and number_to_human()
+    human:
+      format:
+        # These five are to override number.format and are optional
+        # separator:
+        delimiter: ""
+        precision: 3
+        significant: true
+        strip_insignificant_zeros: true
+      # Used in number_to_human_size()
+      storage_units:
+        # Storage units output formatting.
+        # %u is the storage unit, %n is the number (default: 2 MB)
+        format: "%n %u"
+        units:
+          byte:
+            one:   "Byte"
+            other: "Bytes"
+          kb: "KB"
+          mb: "MB"
+          gb: "GB"
+          tb: "TB"
+      # Used in number_to_human()
+      decimal_units:
+        format: "%n %u"
+        # Decimal units output formatting
+        # By default we will only quantify some of the exponents
+        # but the commented ones might be defined or overridden
+        # by the user.
+        units:
+          # femto: Quadrillionth
+          # pico: Trillionth
+          # nano: Billionth
+          # micro: Millionth
+          # mili: Thousandth
+          # centi: Hundredth
+          # deci: Tenth
+          unit: ""
+          # ten:
+          #   one: Ten
+          #   other: Tens
+          # hundred: Hundred
+          thousand: Thousand
+          million: Million
+          billion: Billion
+          trillion: Trillion
+          quadrillion: Quadrillion
+
+  # Used in distance_of_time_in_words(), distance_of_time_in_words_to_now(), time_ago_in_words()
+  datetime:
+    distance_in_words:
+      half_a_minute: "half a minute"
+      less_than_x_seconds:
+        one:   "less than 1 second"
+        other: "less than %{count} seconds"
+      x_seconds:
+        one:   "1 second"
+        other: "%{count} seconds"
+      less_than_x_minutes:
+        one:   "less than a minute"
+        other: "less than %{count} minutes"
+      x_minutes:
+        one:   "1 minute"
+        other: "%{count} minutes"
+      about_x_hours:
+        one:   "about 1 hour"
+        other: "about %{count} hours"
+      x_days:
+        one:   "1 day"
+        other: "%{count} days"
+      about_x_months:
+        one:   "about 1 month"
+        other: "about %{count} months"
+      x_months:
+        one:   "1 month"
+        other: "%{count} months"
+      about_x_years:
+        one:   "about 1 year"
+        other: "about %{count} years"
+      over_x_years:
+        one:   "over 1 year"
+        other: "over %{count} years"
+      almost_x_years:
+        one:   "almost 1 year"
+        other: "almost %{count} years"
+    prompts:
+      year:   "Year"
+      month:  "Month"
+      day:    "Day"
+      hour:   "Hour"
+      minute: "Minute"
+      second: "Seconds"
+
+  helpers:
+    select:
+      # Default value for :prompt => true in FormOptionsHelper
+      prompt: "Please select"
+
+    # Default translation keys for submit FormHelper
+    submit:
+      create: 'Create %{model}'
+      update: 'Update %{model}'
+      submit: 'Save %{model}'
+

data/lib/rad/support/active_support/locales/en/activesupport.yml

@@ -0,0 +1,36 @@
+en:
+  date:
+    formats:
+      # Use the strftime parameters for formats.
+      # When no format has been given, it uses default.
+      # You can provide other formats here if you like!
+      default: "%Y-%m-%d"
+      short: "%b %d"
+      long: "%B %d, %Y"
+
+    day_names: [Sunday, Monday, Tuesday, Wednesday, Thursday, Friday, Saturday]
+    abbr_day_names: [Sun, Mon, Tue, Wed, Thu, Fri, Sat]
+
+    # Don't forget the nil at the beginning; there's no such thing as a 0th month
+    month_names: [~, January, February, March, April, May, June, July, August, September, October, November, December]
+    abbr_month_names: [~, Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sep, Oct, Nov, Dec]
+    # Used in date_select and datetime_select.
+    order:
+      - :year
+      - :month
+      - :day
+
+  time:
+    formats:
+      default: "%a, %d %b %Y %H:%M:%S %z"
+      short: "%d %b %H:%M"
+      long: "%B %d, %Y %H:%M"
+    am: "am"
+    pm: "pm"
+
+# Used in array.to_sentence.
+  support:
+    array:
+      words_connector: ", "
+      two_words_connector: " and "
+      last_word_connector: ", and "

data/lib/rad/support/active_support/micelaneous.rb

@@ -0,0 +1,2 @@
+# default time
+Time::DATE_FORMATS[:default] = "%Y-%m-%d %H:%M:%S"

data/lib/rad/support/active_support/time.rb

@@ -0,0 +1,105 @@
+class Time
+  # Reports the approximate distance in time between two Time or Date objects or integers as seconds.
+  # Set <tt>include_seconds</tt> to true if you want more detailed approximations when distance < 1 min, 29 secs
+  # Distances are reported based on the following table:
+  #
+  #   0 <-> 29 secs                                                             # => less than a minute
+  #   30 secs <-> 1 min, 29 secs                                                # => 1 minute
+  #   1 min, 30 secs <-> 44 mins, 29 secs                                       # => [2..44] minutes
+  #   44 mins, 30 secs <-> 89 mins, 29 secs                                     # => about 1 hour
+  #   89 mins, 29 secs <-> 23 hrs, 59 mins, 29 secs                             # => about [2..24] hours
+  #   23 hrs, 59 mins, 29 secs <-> 47 hrs, 59 mins, 29 secs                     # => 1 day
+  #   47 hrs, 59 mins, 29 secs <-> 29 days, 23 hrs, 59 mins, 29 secs            # => [2..29] days
+  #   29 days, 23 hrs, 59 mins, 30 secs <-> 59 days, 23 hrs, 59 mins, 29 secs   # => about 1 month
+  #   59 days, 23 hrs, 59 mins, 30 secs <-> 1 yr minus 1 sec                    # => [2..12] months
+  #   1 yr <-> 1 yr, 3 months                                                   # => about 1 year
+  #   1 yr, 3 months <-> 1 yr, 9 months                                         # => over 1 year
+  #   1 yr, 9 months <-> 2 yr minus 1 sec                                       # => almost 2 years
+  #   2 yrs <-> max time or date                                                # => (same rules as 1 yr)
+  #
+  # With <tt>include_seconds</tt> = true and the difference < 1 minute 29 seconds:
+  #   0-4   secs      # => less than 5 seconds
+  #   5-9   secs      # => less than 10 seconds
+  #   10-19 secs      # => less than 20 seconds
+  #   20-39 secs      # => half a minute
+  #   40-59 secs      # => less than a minute
+  #   60-89 secs      # => 1 minute
+  #
+  # ==== Examples
+  #   from_time = Time.now
+  #   distance_of_time_in_words(from_time, from_time + 50.minutes)        # => about 1 hour
+  #   distance_of_time_in_words(from_time, 50.minutes.from_now)           # => about 1 hour
+  #   distance_of_time_in_words(from_time, from_time + 15.seconds)        # => less than a minute
+  #   distance_of_time_in_words(from_time, from_time + 15.seconds, true)  # => less than 20 seconds
+  #   distance_of_time_in_words(from_time, 3.years.from_now)              # => about 3 years
+  #   distance_of_time_in_words(from_time, from_time + 60.hours)          # => about 3 days
+  #   distance_of_time_in_words(from_time, from_time + 45.seconds, true)  # => less than a minute
+  #   distance_of_time_in_words(from_time, from_time - 45.seconds, true)  # => less than a minute
+  #   distance_of_time_in_words(from_time, 76.seconds.from_now)           # => 1 minute
+  #   distance_of_time_in_words(from_time, from_time + 1.year + 3.days)   # => about 1 year
+  #   distance_of_time_in_words(from_time, from_time + 3.years + 6.months) # => over 3 years
+  #   distance_of_time_in_words(from_time, from_time + 4.years + 9.days + 30.minutes + 5.seconds) # => about 4 years
+  #
+  #   to_time = Time.now + 6.years + 19.days
+  #   distance_of_time_in_words(from_time, to_time, true)     # => about 6 years
+  #   distance_of_time_in_words(to_time, from_time, true)     # => about 6 years
+  #   distance_of_time_in_words(Time.now, Time.now)           # => less than a minute
+  #
+  def distance_of_time_in_words(to_time = 0, include_seconds = false, options = {})
+    from_time = self
+    
+    from_time = from_time.to_time if from_time.respond_to?(:to_time)
+    to_time = to_time.to_time if to_time.respond_to?(:to_time)
+    distance_in_minutes = (((to_time - from_time).abs)/60).round
+    distance_in_seconds = ((to_time - from_time).abs).round
+
+    I18n.with_options :locale => options[:locale], :scope => :'datetime.distance_in_words' do |locale|
+      case distance_in_minutes
+        when 0..1
+          return distance_in_minutes == 0 ?
+                 locale.t(:less_than_x_minutes, :count => 1) :
+                 locale.t(:x_minutes, :count => distance_in_minutes) unless include_seconds
+
+          case distance_in_seconds
+            when 0..4   then locale.t :less_than_x_seconds, :count => 5
+            when 5..9   then locale.t :less_than_x_seconds, :count => 10
+            when 10..19 then locale.t :less_than_x_seconds, :count => 20
+            when 20..39 then locale.t :half_a_minute
+            when 40..59 then locale.t :less_than_x_minutes, :count => 1
+            else             locale.t :x_minutes,           :count => 1
+          end
+
+        when 2..44           then locale.t :x_minutes,      :count => distance_in_minutes
+        when 45..89          then locale.t :about_x_hours,  :count => 1
+        when 90..1439        then locale.t :about_x_hours,  :count => (distance_in_minutes.to_f / 60.0).round
+        when 1440..2529      then locale.t :x_days,         :count => 1
+        when 2530..43199     then locale.t :x_days,         :count => (distance_in_minutes.to_f / 1440.0).round
+        when 43200..86399    then locale.t :about_x_months, :count => 1
+        when 86400..525599   then locale.t :x_months,       :count => (distance_in_minutes.to_f / 43200.0).round
+        else
+          distance_in_years           = distance_in_minutes / 525600
+          minute_offset_for_leap_year = (distance_in_years / 4) * 1440
+          remainder                   = ((distance_in_minutes - minute_offset_for_leap_year) % 525600)
+          if remainder < 131400
+            locale.t(:about_x_years,  :count => distance_in_years)
+          elsif remainder < 394200
+            locale.t(:over_x_years,   :count => distance_in_years)
+          else
+            locale.t(:almost_x_years, :count => distance_in_years + 1)
+          end
+      end
+    end
+  end
+    
+  # Like distance_of_time_in_words, but where <tt>to_time</tt> is fixed to <tt>Time.now</tt>.
+  #
+  # ==== Examples
+  #   time_ago_in_words(3.minutes.from_now)       # => 3 minutes
+  #   time_ago_in_words(Time.now - 15.hours)      # => 15 hours
+  #   time_ago_in_words(Time.now)                 # => less than a minute
+  #
+  #   from_time = Time.now - 3.days - 14.minutes - 25.seconds     # => 3 days
+  def time_ago_in_words(include_seconds = false)
+    distance_of_time_in_words(Time.now, include_seconds)
+  end
+end

data/lib/rad/support/active_support.rb

@@ -0,0 +1,49 @@
+require 'active_support/all'
+
+# gem 'activesupport' #, '= 2.3.5'
+# 
+# # autoload :BacktraceCleaner, 'active_support/backtrace_cleaner'
+# autoload :Base64, 'active_support/base64'
+# # autoload :BasicObject, 'active_support/basic_object' we use our own implementation
+# 
+# # autoload :BufferedLogger, 'active_support/buffered_logger'
+# # autoload :Cache, 'active_support/cache'
+# # autoload :Callbacks, 'active_support/callbacks'
+# # autoload :Deprecation, 'active_support/deprecation'
+# # autoload :Duration, 'active_support/duration'
+# # autoload :Gzip, 'active_support/gzip'
+# autoload :Inflector, 'active_support/inflector'
+# # autoload :Memoizable, 'active_support/memoizable'
+# # autoload :MessageEncryptor, 'active_support/message_encryptor'
+# # autoload :MessageVerifier, 'active_support/message_verifier'
+# # autoload :Multibyte, 'active_support/multibyte'
+# # autoload :OptionMerger, 'active_support/option_merger'
+# # autoload :OrderedHash, 'active_support/ordered_hash'
+# # autoload :OrderedOptions, 'active_support/ordered_options'
+# # autoload :Rescuable, 'active_support/rescuable'
+# # autoload :SecureRandom, 'active_support/secure_random'
+# # autoload :StringInquirer, 'active_support/string_inquirer'
+# autoload :TimeWithZone, 'active_support/time_with_zone'
+# autoload :TimeZone, 'active_support/values/time_zone'
+# # autoload :XmlMini, 'active_support/xml_mini'
+# 
+# # require 'active_support/vendor'
+# require 'active_support/core_ext'
+# # require 'active_support/dependencies'
+# # require 'active_support/json'
+
+
+# 
+# Hacks
+# 
+%w(
+  micelaneous
+  time
+).each{|f| require "rad/support/active_support/#{f}"}
+
+
+#
+# Locales
+#
+support_dir = File.dirname __FILE__
+I18n.load_path += Dir["#{support_dir}/active_support/locales/**/*.{rb,yml}"]

data/lib/rad/support/addressable.rb

@@ -0,0 +1,45 @@
+Addressable::URI.class_eval do
+  def request_uri
+    return nil if self.absolute? && self.scheme !~ /^https?$/
+    return (
+      (self.path != "" ? self.path : "/") +
+      (self.query ? "?#{self.query}" : "")
+    )
+  end
+  
+  def self.normalize_host host
+    host.gsub(/^www\./, "")
+  end
+  
+  def normalized_host
+    host ? host : host.gsub(/^www\./, '')
+  end
+
+  # Delete 'nil' keys
+  def query_values_with_skip_nil= options
+    to_delete = []
+    options.each{|k, v| to_delete << k if v.nil?}
+    to_delete.each{|k| options.delete k}    
+    
+    self.query_values_without_skip_nil = options
+  end
+  alias_method_chain :query_values=, :skip_nil
+    
+    
+  # Override original to fix:
+  # - extra '?' sign (/some_path?) if there's empty but not-nil query
+  def to_s
+    @uri_string ||= (begin
+      uri_string = ""
+      uri_string << "#{self.scheme}:" if self.scheme != nil
+      uri_string << "//#{self.authority}" if self.authority != nil
+      uri_string << self.path.to_s
+      uri_string << "?#{self.query}" unless self.query.blank?
+      uri_string << "##{self.fragment}" if self.fragment != nil
+      if uri_string.respond_to?(:force_encoding)
+        uri_string.force_encoding(Encoding::UTF_8)
+      end
+      uri_string
+    end)
+  end
+end

data/lib/rad/support/buffered_logger.rb

@@ -0,0 +1,44 @@
+# 
+# In development mode log also to STDOUT
+# 
+ActiveSupport::BufferedLogger.class_eval do
+  
+  def flush_with_stdout
+    STDOUT.write(buffer.join) unless buffer.empty?
+    flush_without_stdout
+  end
+  rad.after :config do
+    if rad.include?(:config) and (rad.config.development? or rad.config.stdout_logger(false))      
+      alias_method_chain :flush, :stdout
+    end
+  end
+  
+  
+  def info_with_format obj
+    info_without_format(obj_to_string(obj))
+  end
+  alias_method_chain :info, :format
+  
+  def warn_with_format obj
+    warn_without_format("WARN: " + obj_to_string(obj))
+  end
+  alias_method_chain :warn, :format
+  
+  def error_with_format obj
+    error_without_format("ERROR: " + obj_to_string(obj))
+  end
+  alias_method_chain :error, :format
+  
+  protected
+    def obj_to_string obj
+      if obj.is_a? Exception
+        backtrace = (obj.backtrace && obj.backtrace.sfilter(Exception.common_filters)) || []
+        %{\
+#{obj.message}
+  #{backtrace.join("\n  ")}
+} 
+      else
+        obj.to_s
+      end
+    end
+end