couchmodel 0.1.0.beta2

data/spec/fake_transport_helper.rb

@@ -0,0 +1,27 @@
+require 'yaml'
+
+module CouchModel
+
+  module Transport
+
+    def self.fake!
+      @@fake ||= YAML::load_file File.join(File.dirname(__FILE__), "fake_transport.yml")
+      self.stub!(:request).and_return do |http_method, url, options|
+        options ||= { }
+        parameters            = options[:parameters]
+        expected_status_code  = options[:expected_status_code]
+
+        request = @@fake.detect do |hash|
+          hash[:http_method].to_s == http_method.to_s &&
+            hash[:url].to_s == url.to_s &&
+            hash[:parameters] == parameters
+        end
+        raise StandardError, "no fake request found for [#{http_method} #{url} #{parameters.inspect}]" unless request
+        raise UnexpectedStatusCodeError, request[:response][:code].to_i if expected_status_code && expected_status_code.to_s != request[:response][:code]
+        request[:response][:json].dup
+      end
+    end
+
+  end
+
+end

data/spec/integration/basic_spec.rb

@@ -0,0 +1,125 @@
+require File.expand_path(File.join(File.dirname(__FILE__), "..", "spec_helper"))
+require File.expand_path(File.join(File.dirname(__FILE__), "..", "..", "lib", "couch_model"))
+
+CouchModel::Configuration.design_directory = File.join File.dirname(__FILE__), "design"
+
+class User < CouchModel::Base
+
+  setup_database :url => "http://localhost:5984/test", :setup_on_initialization => true, :delete_if_exists => true
+
+  key_accessor :username
+  key_accessor :email
+
+  has_many :memberships,
+           :class_name  => "Membership",
+           :view_name   => :by_user_id_and_created_at,
+           :query       => lambda { |created_at| { :startkey => [ self.id, (created_at || nil) ], :endkey => [ self.id, (created_at || { }) ] } }
+
+end
+
+class Membership < CouchModel::Base
+
+  setup_database :url => "http://localhost:5984/test", :setup_on_initialization => true, :delete_if_exists => true
+
+  key_accessor :created_at
+
+  belongs_to :user, :class_name => "User"
+
+end
+
+describe "integration" do
+
+  use_real_transport!
+
+  context "on new models" do
+
+    before :each do
+      @user = User.new :username => "user", :email => "email"
+    end
+
+    describe "setup" do
+
+      it "should have been created the database" do
+        User.database.exists?.should be_true
+      end
+
+      it "should have been created the design" do
+        User.design.exists?.should be_true
+      end
+
+      it "should setup unique databases" do
+        User.database.should === Membership.database
+      end
+
+      it "should setup designs for each model" do
+        User.design.should_not == Membership.design
+      end
+
+    end
+
+    describe "save" do
+
+      it "should create the model" do
+        @user.save
+        @user.should_not be_new
+      end
+
+    end
+
+  end
+
+  context "on saved models" do
+
+    before :each do
+      @user_one = User.new :username => "user one", :email => "email one"
+      @user_one.save
+      @user_two = User.new :username => "user two", :email => "email two"
+      @user_two.save
+      @membership_one = Membership.new :created_at => "yesterday"
+      @membership_one.user = @user_one
+      @membership_one.save
+      @membership_two = Membership.new :created_at => "yesterday"
+      @membership_two.user = @user_two
+      @membership_two.save
+    end
+
+    describe "all" do
+
+      it "should include the saved user" do
+        User.all.should include(@user_one)
+        User.all.should include(@user_two)
+      end
+
+    end
+
+    describe "belongs_to" do
+
+      it "should return the related model" do
+        @membership_one.user.should == @user_one
+        @membership_two.user.should == @user_two
+      end
+
+    end
+
+    describe "has_many" do
+
+      it "should include the related model" do
+        @user_one.memberships.should include(@membership_one)
+        @user_two.memberships.should include(@membership_two)
+      end
+
+      it "should not include the not-related model" do
+        @user_one.memberships.should_not include(@membership_two)
+        @user_two.memberships.should_not include(@membership_one)
+      end
+
+      it "should use the selector" do
+        @user_one.memberships("yesterday").should include(@membership_one)
+        @user_one.memberships("today").should_not include(@membership_one)
+      end
+
+    end
+
+  end
+
+end

data/spec/integration/design/membership.design

@@ -0,0 +1,5 @@
+:id:        "membership"
+:language:  "javascript"
+:views:
+  "by_user_id_and_created_at":
+    :keys:  [ "user_id", "created_at" ]

data/spec/integration/design/user.design

@@ -0,0 +1,2 @@
+:id:        "user"
+:language:  "javascript"

data/spec/lib/core_extension/array_spec.rb

@@ -0,0 +1,24 @@
+require File.expand_path(File.join(File.dirname(__FILE__), "..", "..", "spec_helper"))
+require File.expand_path(File.join(File.dirname(__FILE__), "..", "..", "..", "lib", "core_extension", "array"))
+
+describe Array do
+
+  describe "wrap" do
+
+    it "should wrap an object into an array" do
+      Array.wrap("test").should == [ "test" ]
+    end
+
+    it "should keep an array as it is" do
+      Array.wrap([ "test" ]).should == [ "test" ]
+    end
+
+    it "should use to_ary to convert the object" do
+      object = Object.new
+      object.stub!(:to_ary).and_return([ "test" ])
+      Array.wrap(object).should == [ "test" ]
+    end
+
+  end
+
+end

data/spec/lib/core_extension/string_spec.rb

@@ -0,0 +1,22 @@
+require File.expand_path(File.join(File.dirname(__FILE__), "..", "..", "spec_helper"))
+require File.expand_path(File.join(File.dirname(__FILE__), "..", "..", "..", "lib", "core_extension", "string"))
+
+describe String do
+
+  describe "underscore" do
+
+    it "should convert camelcase to underscore" do
+      "TestModel".underscore.should == "test_model"
+    end
+
+  end
+
+  describe "camelize" do
+
+    it "should convert underscore to camelcase" do
+      "test_model".camelize.should == "TestModel"
+    end
+
+  end
+
+end

data/spec/lib/couch_model/active_model_spec.rb

@@ -0,0 +1,228 @@
+require File.expand_path(File.join(File.dirname(__FILE__), "..", "..", "spec_helper"))
+require File.expand_path(File.join(File.dirname(__FILE__), "..", "..", "..", "lib", "couch_model", "active_model"))
+
+class ActiveTestModel < CouchModel::Base
+
+  setup_database :url => "http://localhost:5984/test"
+
+  key_accessor :name
+  key_accessor :email
+
+  validates_presence_of :name
+
+  before_initialize :initialize_callback
+  before_save       :save_callback
+  before_create     :create_callback
+  before_update     :update_callback
+  before_destroy    :destroy_callback
+
+  attr_reader :initialized
+
+  def initialize_callback
+    @initialized = true
+  end
+
+  def save_callback; end
+  def create_callback; end
+  def update_callback; end
+  def destroy_callback; end
+
+end
+
+describe ActiveTestModel do
+  include ActiveModel::Lint::Tests
+
+  before :each do
+    @model = ActiveTestModel.new :id => "test_model_1"
+  end
+
+  describe "initialize" do
+
+    it "should call the initialize callback" do
+      @model.initialized.should be_true
+    end
+
+  end
+
+  describe "new_record?" do
+
+    it "should fullfill the lint test" do
+      test_new_record?
+    end
+
+  end
+
+  describe "destroyed?" do
+
+    it "should fullfill the lint test" do
+      test_destroyed?
+    end
+
+    it "should return true if model is new" do
+      @model.stub!(:new?).and_return(true)
+      @model.should be_destroyed
+    end
+
+  end
+
+  describe "naming" do
+
+    it "should fullfill the lint test" do
+      test_model_naming
+    end
+
+  end
+
+  describe "valid?" do
+
+    it "should be true with a given name" do
+      @model.name = "test"
+      @model.should be_valid
+    end
+
+    it "should be false without a given name" do
+      @model.name = ""
+      @model.should_not be_valid
+    end
+
+  end
+
+  describe "changed?" do
+
+    it "should be true if a attribute has changed" do
+      @model.name = "test"
+      @model.should be_changed
+    end
+
+  end
+
+  describe "name_changed?" do
+
+    it "should be true if the attribute has changed" do
+      @model.name = "test"
+      @model.should be_name_changed
+    end
+
+    it "should be false if another attribute has changed" do
+      @model.email = "test"
+      @model.should_not be_name_changed
+    end
+
+  end
+
+  describe "reset_name!" do
+
+    before :each do
+      @model.name = "test"
+    end
+
+    it "should reset the attributes" do
+      @model.reset_name!
+      @model.name.should be_nil
+    end
+
+  end
+
+  describe "save" do
+
+    before :each do
+      @model.name = "test"
+    end
+
+    it "should commit the changes" do
+      @model.save
+      @model.should_not be_changed
+    end
+
+    it "should call the save callback" do
+      @model.should_receive(:save_callback)
+      @model.save
+    end
+
+    describe "on a new model" do
+
+      before :each do
+        @model.stub!(:new?).and_return(true)
+      end
+
+      it "should call the create callback" do
+        @model.should_receive(:create_callback)
+        @model.save
+      end
+
+    end
+
+    describe "on an existing model" do
+
+      before :each do
+        @model.stub!(:new?).and_return(false)
+      end
+
+      it "should call the update callback" do
+        @model.should_receive(:update_callback)
+        @model.save
+      end
+
+    end
+
+  end
+
+  describe "destroy" do
+
+    def do_destroy
+      @model.destroy
+    end
+
+    it "should call the destroy callback" do
+      @model.should_receive(:destroy_callback)
+      do_destroy
+    end
+    
+  end
+
+  describe "to_json" do
+
+    before :each do
+      @model.name = "test"
+      @model.email = "test"
+    end
+
+    it "should return all attributes as json" do
+      @model.to_json.should == "{\"_id\":\"test_model_1\",\"email\":\"test\",\"model_class\":\"ActiveTestModel\",\"name\":\"test\"}"
+    end
+
+  end
+
+  describe "to_xml" do
+
+    before :each do
+      @model.name = "test"
+      @model.email = "test"
+    end
+    
+    it "should return all attributes as xml" do
+      @model.to_xml.should == "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n<active-test-model>\n  <-id>test_model_1</-id>\n  <email>test</email>\n  <model-class>ActiveTestModel</model-class>\n  <name>test</name>\n</active-test-model>\n"
+    end
+
+  end
+
+  describe "human_attribute_name" do
+
+    it "should return a human readable attribute name" do
+      ActiveTestModel.human_attribute_name("name").should == "Name"
+    end
+
+  end
+
+  private
+
+  def assert(condition, message = nil)
+    puts message unless condition
+    condition.should be_true
+  end
+
+  def assert_kind_of(klass, value)
+    value.should be_kind_of(klass)
+  end
+
+end

data/spec/lib/couch_model/base_spec.rb

@@ -0,0 +1,169 @@
+require File.expand_path(File.join(File.dirname(__FILE__), "..", "..", "spec_helper"))
+require File.expand_path(File.join(File.dirname(__FILE__), "..", "..", "..", "lib", "couch_model", "base"))
+
+CouchModel::Configuration.design_directory = File.join File.dirname(__FILE__), "design"
+
+class BaseTestModel < CouchModel::Base
+
+  setup_database :url => "http://localhost:5984/test"
+
+  key_accessor :name
+
+end
+
+describe BaseTestModel do
+
+  before :each do
+    @model = BaseTestModel.new :id => "test_model_1"
+  end
+
+  describe "attributes=" do
+
+    it "should convert an :id or 'id' key to '_id'" do
+      @model.attributes = { :id => "test" }
+      @model.attributes.should == { "_id" => "test", CouchModel::Configuration::CLASS_KEY => "BaseTestModel" }
+    end
+
+  end
+
+  describe "==" do
+
+    before :each do
+      @other = BaseTestModel.new
+      @other.id = "test_model_1"
+    end
+
+    it "should be true if the id's of the models are equal" do
+      @model.should == @other
+    end
+
+    it "should be false if the id's of the models are not equal" do
+      @other.id = "invalid"
+      @model.should_not == @other
+    end
+
+  end
+
+  describe "new?" do
+
+    it "should be true on new model" do
+      BaseTestModel.new.should be_new
+    end
+
+    it "should be false on existing model" do
+      BaseTestModel.find("test_model_1").should_not be_new
+    end
+    
+  end
+
+  describe "load" do
+
+    before :each do
+      @model = BaseTestModel.new :id => "test_model_1"
+    end
+
+    it "should load the model" do
+      @model.load
+      @model.attributes["name"].should == "phil"
+    end
+
+    it "should raise an NotFoundError if the model id is not existing" do
+      @model.id = "invalid"
+      lambda do
+        @model.load
+      end.should raise_error(CouchModel::Base::NotFoundError)
+    end
+
+  end
+
+  describe "save" do
+
+    def do_save
+      @model.save
+    end
+
+    describe "a new model" do
+
+      before :each do
+        @model = BaseTestModel.new
+      end
+
+      it "should return true if the model has been saved" do
+        do_save.should be_true
+      end
+
+      it "should return false on wrong status code" do
+        CouchModel::Transport.stub!(:request).and_raise(CouchModel::Transport::UnexpectedStatusCodeError.new(404))
+        do_save.should be_false
+      end
+
+    end
+
+    describe "an existing model" do
+
+      before :each do
+        @model = BaseTestModel.find "test_model_1"
+      end
+
+      it "should return true if the model has been updated" do
+        do_save.should be_true
+      end
+
+      it "should return false on wrong status code" do
+        CouchModel::Transport.stub!(:request).and_raise(CouchModel::Transport::UnexpectedStatusCodeError.new(404))
+        do_save.should be_false
+      end
+
+    end
+
+  end
+
+  describe "destroy" do
+
+    def do_destroy
+      @model.destroy
+    end
+
+    describe "on a new model" do
+
+      it "should return false" do
+        do_destroy.should be_false
+      end
+
+    end
+
+    describe "on an existing model" do
+
+      before :each do
+        @model.load
+      end
+
+      it "should return true if the model has been destroyed" do
+        do_destroy.should be_true
+      end
+
+      it "should raise NotFoundError on wrong status code" do
+        CouchModel::Transport.stub!(:request).and_raise(CouchModel::Transport::UnexpectedStatusCodeError.new(404))
+        lambda do
+          do_destroy
+        end.should raise_error(CouchModel::Base::NotFoundError)
+      end
+
+      it "should be new afterwards" do
+        do_destroy
+        @model.should be_new
+      end
+
+    end
+    
+  end
+
+  describe "all" do
+
+    it "should return a collection for the class view" do
+      BaseTestModel.all.should be_instance_of(CouchModel::Collection)
+    end
+    
+  end
+
+end

data/spec/lib/couch_model/collection_spec.rb

@@ -0,0 +1,100 @@
+require File.expand_path(File.join(File.dirname(__FILE__), "..", "..", "spec_helper"))
+require File.expand_path(File.join(File.dirname(__FILE__), "..", "..", "..", "lib", "couch_model", "base"))
+require File.expand_path(File.join(File.dirname(__FILE__), "..", "..", "..", "lib", "couch_model", "collection"))
+
+CouchModel::Configuration.design_directory = File.join File.dirname(__FILE__), "design"
+
+class CollectionTestModel < CouchModel::Base
+
+  setup_database :url => "http://localhost:5984/test"
+
+  key_accessor :name
+
+end
+
+describe CouchModel::Collection do
+
+  before :each do
+    @database = CouchModel::Database.new :name => "test"
+    @collection = @database.documents :limit => 1
+  end
+
+  describe "initialize" do
+
+    before :each do
+      @collection = CouchModel::Collection.new @database.url + "/_all_docs", :option => "test"
+    end
+
+    it "should set the url" do
+      @collection.url.should == @database.url + "/_all_docs"
+    end
+
+    it "should set the options" do
+      @collection.options.should == { :option => "test" }
+    end
+
+  end
+
+  describe "total_count" do
+
+    describe "without a previously performed fetch" do
+
+      it "should perform a meta fetch (with a limit of zero)" do
+        CouchModel::Transport.should_receive(:request).with(anything, anything,
+          hash_including(:parameters => { "include_docs" => "true", "limit" => "0" }))
+        @collection.total_count
+      end
+
+      it "should return the total count" do
+        @collection.total_count.should == 1
+      end
+
+    end
+
+    describe "with a previously performed fetch" do
+
+      before :each do
+        @collection.first # perform the fetch
+      end
+
+      it "should not perform another fetch" do
+        CouchModel::Transport.should_not_receive(:request)
+        @collection.total_count
+      end
+
+      it "should return the total count" do
+        @collection.total_count.should == 1
+      end
+
+    end
+
+  end
+
+  describe "fetch" do
+
+    def do_fetch
+      @collection.send :fetch
+    end
+
+    it "should return true" do
+      do_fetch.should be_true
+    end
+
+    it "should fetch the model" do
+      do_fetch
+      @collection.first.should be_instance_of(CollectionTestModel)
+      @collection.first.name.should == "phil"
+    end
+
+  end
+
+  describe "request_parameters" do
+
+    it "should convert options to request parameters" do
+      parameters = @collection.send :request_parameters
+      parameters.should == { "include_docs" => "true", "limit" => "1" }
+    end
+
+  end
+
+end