moon 0.0.1

data/lib/moon/response/json/collection.rb

@@ -0,0 +1,12 @@
+
+# Moon::Response::JSON::Collection provides a response that contains one single collection.
+class Moon::Response::JSON::Collection < Moon::Response::JSON
+
+  def initialize(collection)
+    @collection = collection.map do |object|
+      Moon::Formatter.hash_for object
+    end
+    super 200, @collection
+  end
+
+end

data/lib/moon/response/json/message.rb

@@ -0,0 +1,18 @@
+
+# Moon::Response::JSON::Message provides a simple response with one message
+class Moon::Response::JSON::Message < Moon::Response::JSON
+
+  attr_accessor :message
+  attr_accessor :id
+
+  def initialize(status, message, id = nil)
+    @message, @id = message, id
+    super status
+  end
+
+  def hash
+    id = self.id
+    { :message => message }.merge(id ? { :id => id } : { })
+  end
+
+end

data/lib/moon/response/json/model.rb

@@ -0,0 +1,16 @@
+
+# Moon::Response::JSON::Collection provides a response that contains one single collection.
+class Moon::Response::JSON::Model < Moon::Response::JSON
+
+  def initialize(key, object)
+    @key, @object = key, object
+    super 200, hash
+  end
+
+  private
+
+  def hash
+    { @key.to_s => Moon::Formatter.hash_for(@object) }
+  end
+
+end

data/lib/moon/response/json/validation_errors.rb

@@ -0,0 +1,9 @@
+
+# Moon::Response::JSON::ValidationErrors provides a simple response with the validation messages
+class Moon::Response::JSON::ValidationErrors < Moon::Response::JSON
+
+  def initialize(validation_errors)
+    super 200, :validation_errors => validation_errors
+  end
+
+end

data/lib/moon/utility.rb

@@ -0,0 +1,7 @@
+
+module Moon::Utility
+
+  autoload :String, File.join(File.dirname(__FILE__), "utility", "string")
+  autoload :Template, File.join(File.dirname(__FILE__), "utility", "template")
+
+end

data/lib/moon/utility/string.rb

@@ -0,0 +1,17 @@
+
+module Moon::Utility::String
+
+  def self.camelize(lower_case_and_underscored_word)
+    lower_case_and_underscored_word.to_s.gsub(/\/(.?)/) { "::#{$1}".upcase }.gsub(/(?:^|_)(.)/) { $1.upcase }
+  end
+
+  def self.underscore(camel_cased_word)
+    camel_cased_word.to_s.
+      gsub(/::/, '/').
+      gsub(/([A-Z]+)([A-Z][a-z])/, '\1_\2').
+      gsub(/([a-z\d])([A-Z])/, '\1_\2').
+      tr("-", "_").
+      downcase
+  end
+
+end

data/lib/moon/utility/template.rb

@@ -0,0 +1,23 @@
+
+module Moon::Utility::Template
+
+  def self.extended(base)
+    base.class_eval do
+
+      def self.template(*class_attributes)
+        @class_attributes = class_attributes
+        self.class.send :attr_accessor, *@class_attributes
+      end
+
+      def self.[](*values)
+        klass = self.dup
+        (@class_attributes || [ ]).each do |class_attribute|
+          klass.send :"#{class_attribute}=", values.shift
+        end
+        klass
+      end
+
+    end
+  end
+
+end

data/lib/moon/validator.rb

@@ -0,0 +1,71 @@
+
+# Generic validator class. Can be used to validate model attributes.
+class Moon::Validator
+
+  autoload :Format, File.join(File.dirname(__FILE__), "validator", "format")
+  autoload :Length, File.join(File.dirname(__FILE__), "validator", "length")
+  autoload :Presence, File.join(File.dirname(__FILE__), "validator", "presence")
+
+  attr_reader :model
+
+  def initialize(model)
+    @model = model
+  end
+
+  def ok?
+    perform_checks
+    @ok
+  end
+
+  def messages
+    perform_checks
+    @messages
+  end
+
+  private
+
+  def perform_checks
+    @ok, @messages = true, { }
+    self.class.checks.each do |attribute, attribute_validator_class|
+      perform_attribute_checks attribute, attribute_validator_class
+    end
+  end
+
+  def perform_attribute_checks(attribute, attribute_validator_classes)
+    attribute_validator_classes.each do |attribute_validator_class|
+      attribute_validator = attribute_validator_class.new @model.send(attribute)
+      ok, message = attribute_validator.ok?, attribute_validator.message
+      @ok &&= ok
+      add_message attribute, ok, message
+    end
+  end
+
+  def add_message(attribute, ok, message)
+    return if ok || !message
+    @messages[attribute] ||= [ ]
+    @messages[attribute] << message
+  end
+
+  def self.configuration=(value)
+    @configuration = value
+  end
+
+  def self.configuration
+    @configuration
+  end
+
+  def self.checks=(value)
+    @checks = value
+  end
+
+  def self.checks
+    @checks || { }
+  end
+
+  def self.[](model_class)
+    validator = self.dup
+    validator.checks = self.configuration[model_class]
+    validator
+  end
+
+end

data/lib/moon/validator/format.rb

@@ -0,0 +1,32 @@
+
+# Value format validator.
+class Moon::Validator::Format
+  extend Moon::Utility::Template
+
+  template :format
+
+  attr_accessor :value
+
+  def initialize(value)
+    @value = value
+    @ok, @message = true, nil
+  end
+
+  def ok?
+    check
+    @ok
+  end
+
+  def message
+    check
+    @message
+  end
+
+  private
+
+  def check
+    @ok = @value =~ self.class.format
+    @message = "Has a wrong format." unless @ok
+  end
+
+end

data/lib/moon/validator/length.rb

@@ -0,0 +1,42 @@
+
+# Value length validator.
+class Moon::Validator::Length
+  extend Moon::Utility::Template
+
+  template :minimum, :maximum
+
+  attr_accessor :value
+
+  def initialize(value)
+    @value = value
+    @ok, @messages = true, [ ]
+  end
+
+  def ok?
+    check
+    @ok
+  end
+
+  def message
+    check
+    @message
+  end
+
+  def minimum
+    self.class.minimum
+  end
+
+  def maximum
+    self.class.maximum
+  end
+
+  private
+
+  def check
+    raise ArgumentError, "Value doesn't response to :size" unless @value.respond_to?(:size)
+    size, minimum, maximum = @value.size, self.minimum, self.maximum
+    @ok = (!minimum || size >= minimum) && (!maximum || size <= maximum)
+    @message = "Must have at #{size < minimum ? ("least " + minimum.to_s) : ("most " + maximum.to_s)} entries." unless @ok
+  end
+
+end

data/lib/moon/validator/presence.rb

@@ -0,0 +1,29 @@
+
+# Value presence validator.
+class Moon::Validator::Presence
+
+  attr_accessor :value
+
+  def initialize(value)
+    @value = value
+    @ok, @message = true, nil
+  end
+
+  def ok?
+    check
+    @ok
+  end
+
+  def message
+    check
+    @message
+  end
+
+  private
+
+  def check
+    @ok = @value && @value != ""
+    @message = "Must be present." unless @ok
+  end
+
+end

data/spec/lib/moon/action/base_spec.rb

@@ -0,0 +1,29 @@
+require File.expand_path(File.join(File.dirname(__FILE__), "..", "..", "..", "spec_helper"))
+
+describe Moon::Action::Base do
+
+  before :each do
+    @context = mock Moon::Context
+
+    @action = described_class.new @context
+  end
+
+  describe "context" do
+
+    it "should return the context" do
+      @action.context.should == @context
+    end
+
+  end
+
+  describe "perform" do
+
+    it "should raise a #{NotImplementedError}" do
+      lambda do
+        @action.perform
+      end.should raise_error(NotImplementedError)
+    end
+
+  end
+
+end

data/spec/lib/moon/action/model/create_spec.rb

@@ -0,0 +1,111 @@
+require File.expand_path(File.join(File.dirname(__FILE__), "..", "..", "..", "..", "spec_helper"))
+
+describe Moon::Action::Model::Create do
+
+  before :each do
+    @model_class = mock Class, :to_s => "Model"
+    @model = mock Object, :class => @model_class
+
+    @context = Moon::Context.new
+    @context.storage_name = :dump
+    @context.models[:model] = @model
+
+    described_class.model_class = @model_class
+    @action = described_class.new @context
+  end
+
+  describe "perform" do
+
+    before :each do
+      GOM::Storage.stub :store
+      GOM::Object.stub :id => "test:object_1"
+
+      @model_response = mock Moon::Response::JSON::Model
+      Moon::Response::JSON::Model.stub :new => @model_response
+
+      @message_response = mock Moon::Response::JSON::Message
+      Moon::Response::JSON::Message.stub :new => @message_response
+    end
+
+    it "should store the model on the right storage" do
+      GOM::Storage.should_receive(:store).with(@model, :dump)
+      @action.perform
+    end
+
+    it "should initialize #{Moon::Response::JSON::Model}" do
+      Moon::Response::JSON::Model.should_receive(:new).with(:model, @model).and_return(@model_response)
+      @action.perform
+    end
+
+    it "should return the model response" do
+      response = @action.perform
+      response.should == @model_response
+    end
+
+    it "should do nothing if the model isn't initialized" do
+      @context.models[:model] = nil
+      GOM::Storage.should_not_receive(:store)
+      @action.perform
+    end
+
+    it "should initialize the 'failed' message response if the model isn't initialized" do
+      @context.models[:model] = nil
+      Moon::Response::JSON::Message.should_receive(:new).with(200, "No model initialized.").and_return(@message_response)
+      @action.perform
+    end
+
+    it "should return 'failed' message response if the model isn't initialized" do
+      @context.models[:model] = nil
+      response = @action.perform
+      response.should == @message_response
+    end
+
+  end
+
+  describe "model" do
+
+    it "should return the model" do
+      model = @action.model
+      model.should == @model
+    end
+
+  end
+
+  describe "self.model_symbol" do
+
+    it "should return the model symbol" do
+      model_symbol = described_class.model_symbol
+      model_symbol.should == :model
+    end
+
+  end
+
+  describe "self.model_class" do
+
+    it "should return the model class" do
+      model_class = described_class.model_class
+      model_class.should == @model_class
+    end
+
+  end
+
+  describe "self.[]" do
+
+    it "should return a class" do
+      result = described_class[Object]
+      result.should be_instance_of(Class)
+    end
+
+    it "should return a different class" do
+      result = described_class[Object]
+      result.should_not == described_class
+    end
+
+    it "should return a class connected to the given model class" do
+      result = described_class[Object]
+      result.model_class.should == Object
+    end
+
+  end
+
+end

data/spec/lib/moon/action/model/destroy_spec.rb

@@ -0,0 +1,84 @@
+require File.expand_path(File.join(File.dirname(__FILE__), "..", "..", "..", "..", "spec_helper"))
+
+describe Moon::Action::Model::Destroy do
+
+  before :each do
+    @model = mock Object
+
+    @context = Moon::Context.new
+    @context.models[:model] = @model
+
+    described_class.model_symbol = :model
+    @action = described_class.new @context
+  end
+
+  describe "perform" do
+
+    before :each do
+      GOM::Storage.stub :remove => nil
+    end
+
+    it "should rmeove the model" do
+      GOM::Storage.should_receive(:remove).with(@model)
+      @action.perform
+    end
+
+    it "should return 'ok' message response" do
+      response = @action.perform
+      response.should be_instance_of(Moon::Response::JSON::Message)
+      response.status.should == 200
+    end
+
+    it "should do nothing if the model isn't initialized" do
+      @context.models[:model] = nil
+      GOM::Storage.should_not_receive(:remove)
+      @action.perform
+    end
+
+    it "should return 'failed' message response if model isn't initialized" do
+      @context.models[:model] = nil
+      response = @action.perform
+      response.should be_instance_of(Moon::Response::JSON::Message)
+      response.status.should == 401
+    end
+
+  end
+
+  describe "model" do
+
+    it "should return the model" do
+      model = @action.model
+      model.should == @model
+    end
+
+  end
+
+  describe "self.model_symbol" do
+
+    it "should return the model symbol" do
+      model_symbol = described_class.model_symbol
+      model_symbol.should == :model
+    end
+
+  end
+
+  describe "self.[]" do
+
+    it "should return a class" do
+      result = described_class[:model]
+      result.should be_instance_of(Class)
+    end
+
+    it "should return a different class" do
+      result = described_class[:model]
+      result.should_not == described_class
+    end
+
+    it "should return a class connected to the given model symbol" do
+      result = described_class[:model]
+      result.model_symbol.should == :model
+    end
+
+  end
+
+end