couch_surfer 0.3.2

data/lib/couch_surfer/query.rb

@@ -0,0 +1,34 @@
+module CouchSurfer
+  module Query
+    module ClassMethods
+      def query_processor(name)
+        self.external = name
+      end
+      def query(view_name, query_string, query_options = {})
+        payload = {
+          :design => self.send(:design_doc_slug),
+          :view => set_view_options(view_name, query_options),
+          :external => set_external_options(query_string),
+        }
+        result = CouchRest.post "http://#{database}/_mix", payload
+        result['rows'].collect{|r|new(r['doc'])} if result['rows']
+      end
+
+      private
+
+      def set_view_options(view_name, query_options)
+        {:name => view_name, :query => {:include_docs => true}.merge(query_options)}
+      end
+
+      def set_external_options(query_string)
+        {:name =>  external, :query =>  {:q =>  query_string}, :include_docs =>  true}
+      end
+    end
+    def self.included(receiver)
+      receiver.extend         ClassMethods
+      receiver.class_eval do
+        class_inheritable_accessor :external
+      end
+    end
+  end
+end

data/lib/couch_surfer/validations.rb

@@ -0,0 +1,49 @@
+require 'validatable'
+
+module CouchSurfer
+  module Validations
+    module ClassMethods
+      def validates_uniqueness_of *args
+        # add view, validation and before callbacks
+        options = args.last.is_a?(Hash) ? args.pop : {}
+        field = args.first
+        class_eval do
+          #view_by *args
+          validates_true_for args.first, :logic => lambda { is_unique?(field, options) }, :message => options[:message] || "is taken"
+        end
+      end
+    end
+    
+    module InstanceMethods
+      def is_unique?(field, options)
+        if options[:view]
+          view_name = options[:view]
+          query     = options[:query].is_a?(Proc) ? self.instance_eval(&options[:query]) : nil
+        end
+        view_name ||= "by_#{field}"
+        query ||= {:key => self.send(field)}
+        result = self.class.send(view_name, query)
+        if result.blank?
+          return true
+        else
+          return !id.blank? && (id == result.first.id)
+        end
+      end
+      
+      def validate_instance
+        throw(:halt, false) unless valid?
+      end
+    end
+
+    def self.included(receiver)
+      receiver.extend ClassMethods
+      receiver.send :include, Validatable
+      receiver.send :include, InstanceMethods
+      receiver.class_eval do
+        [:save].each do |method|
+          before method, :validate_instance
+        end
+      end
+    end
+  end
+end

data/lib/couchrest/extensions.rb

@@ -0,0 +1,51 @@
+module CouchRest
+  class Database
+    # Query a CouchDB view as defined by a <tt>_design</tt> document. Accepts
+    # paramaters as described in http://wiki.apache.org/couchdb/HttpViewApi
+    #/db/_design/examples/_list/index-posts/posts-by-date
+    
+    def list(list_name, view_name, doc_name, params = {})
+      url = CouchRest.paramify_url "#{@root}/_design/#{doc_name}/_list/#{list_name}/#{view_name}", params
+      response = RestClient.get(url)
+      JSON.parse(response)
+    rescue
+      response
+    end
+  end
+
+  class Design
+    # Dispatches to any named view.
+    # (using the database where this design doc was saved)
+    def list(list_name, view_name, query = {})
+      database.list(list_name, view_name.to_s, name, query)
+    end
+
+    # Dispatches to any named view.
+    # (using the database where this design doc was saved)
+    def view view_name, query={}, &block
+      view_on database, view_name, query, &block
+    end
+
+    # Dispatches to any named view in a specific database
+    def view_on db, view_name, query={}, &block
+      view_name = view_name.to_s
+      view_slug = "#{name}/#{view_name}"
+      defaults = (self['views'][view_name] && self['views'][view_name]["couchrest-defaults"]) || {}
+      db.view(view_slug, defaults.merge(query), &block)
+    end
+
+    private
+
+    # returns stored defaults if the there is a view named this in the design doc
+    def has_view?(view)
+      view = view.to_s
+      self['views'][view] &&
+        (self['views'][view]["couchrest-defaults"]||{})
+    end
+
+    def fetch_view view_name, opts, &block
+      database.view(view_name, opts, &block)
+    end
+
+  end
+end

data/spec/fixtures/attachments/README

@@ -0,0 +1,3 @@
+This is an example README file.
+
+More of the README, whee.

data/spec/fixtures/attachments/test.html

@@ -0,0 +1,11 @@
+<!DOCTYPE html>
+<html>
+  <head>
+    <title>Test</title>
+  </head>
+  <body>
+    <p>
+      Test
+    </p>
+  </body>
+</html>

data/spec/fixtures/views/lib.js

@@ -0,0 +1,3 @@
+function globalLib() {
+  return "fixture";
+};

data/spec/fixtures/views/test_view/lib.js

@@ -0,0 +1,3 @@
+function justThisView() {
+  return "fixture";
+};

data/spec/fixtures/views/test_view/only-map.js

@@ -0,0 +1,4 @@
+function(doc) {
+  //include-lib
+  emit(null, null);
+};

data/spec/fixtures/views/test_view/test-map.js

@@ -0,0 +1,3 @@
+function(doc) {
+  emit(null, null);
+};

data/spec/fixtures/views/test_view/test-reduce.js

@@ -0,0 +1,3 @@
+function(ks,vs,co) {
+  return vs.length;
+};

data/spec/lib/associations_spec.rb

@@ -0,0 +1,187 @@
+require File.dirname(__FILE__) + '/../spec_helper.rb'
+
+class Account
+  include CouchSurfer::Model
+  include CouchSurfer::Associations
+
+  key_accessor :name
+
+  has_many :employees,
+      :view => :by_account_id_and_role,
+      :query => lambda{ {:startkey => [id, nil], :endkey => [id, {}]} }
+
+  has_many :programmers, :class_name => :employee,
+      :view => :by_account_id_and_role,
+      :query => lambda{ {:startkey => [id, "Programmer"], :endkey => [id, "Programmer"]} }
+
+  has_many :projects
+
+end
+
+class Project
+  include CouchSurfer::Model
+  include CouchSurfer::Associations
+  
+  key_accessor :name, :account_id
+  
+  belongs_to :account
+  has_many :members, :through => :memberships, :class_name => :employee
+  
+  view_by :account_id
+  view_by :id
+end
+
+class Membership
+  include CouchSurfer::Model
+  include CouchSurfer::Associations
+  
+  key_accessor :project_id, :employee_id
+  belongs_to :project
+  belongs_to :employee
+  
+  view_by :project_id
+  view_by :employee_id
+end
+
+
+class Employee
+  include CouchSurfer::Model
+  include CouchSurfer::Associations
+  
+  key_accessor :email, :account_id, :role
+  
+  belongs_to :employer, :class_name => :account
+  has_many :shirts, :inline => true
+  has_many :projects, :through => :memberships
+  
+  view_by :account_id, :role
+end
+
+class Shirt
+  include CouchSurfer::Model
+  include CouchSurfer::Associations
+  
+  key_accessor :color, :bought_on
+  cast :bought_on, :as => "Time"
+  
+  def change_color(new_color)
+    self.color = new_color
+  end
+end
+
+describe CouchSurfer::Associations do
+  before(:all) do
+    db = CouchRest.database!('couch_surfer-test')
+    db.delete!
+    CouchSurfer::Model.default_database = CouchRest.database!('http://127.0.0.1:5984/couch_surfer-test')
+    @account = Account.create(:name => "My Account")
+    2.times do |i|
+      Employee.create(:email => "foo#{i+1}@bar.com", :account_id => @account.id, :role => "Programmer")
+      Employee.create(:email => "foo#{i+3}@bar.com", :account_id => @account.id, :role => "Engineer")
+      Project.create(:name => "Project No. #{i}", :account_id => @account.id)
+    end
+    @employee = @account.employees.first
+    @project = @account.projects.first
+  end
+  
+  describe "belongs_to" do
+    it "should return it's parent" do
+      @project.account.should == @account
+    end
+    
+    it "should take the class_name into consideration" do
+      @employee.employer.should == @account
+    end
+  end
+  
+  describe "has_many" do
+    describe "vanilla" do
+      it "should return it's children" do
+        @account.employees.length.should == 4
+        @account.employees.map{|employee| employee.email}.sort.should == ["foo1@bar.com", "foo2@bar.com", "foo3@bar.com", "foo4@bar.com"]
+      end
+    end
+    
+    describe ":class_name" do
+      it "should return it's children" do
+        @account.programmers.length.should == 2
+      end
+    end
+    describe ":inline" do
+      before(:all) do
+        @employee.shirts.clear
+        @white_shirt = Shirt.new(:color => "White")
+        @pink_shirt = Shirt.new(:color => "Pink")
+        @employee.shirts << {:color => "Blue"}
+        @employee.shirts << @white_shirt
+        @employee.save
+        @employee = Employee.get(@employee.id)
+        @employee.shirts << @pink_shirt
+        @employee.save
+      end
+      it "should return it's children" do
+        employee = Employee.get(@employee.id)
+        employee.shirts.each do |shirt|
+          shirt.should be_kind_of(Shirt)
+        end
+        employee.shirts.map{|shirt| shirt.color}.should == %w(Blue White Pink)
+      end
+
+      it "should be able to delete a child" do
+        employee = Employee.get(@employee.id)
+        employee.shirts.delete(@pink_shirt)
+        employee.save
+        employee = Employee.get(@employee.id)
+        employee.shirts.map{|shirt| shirt.color}.should == %w(Blue White)
+      end
+      
+      it "should have an append method" do
+        employee = Employee.get(@employee.id)
+        employee.shirts << {:color => "Black"}
+        employee.save
+        employee = Employee.get(@employee.id)
+        employee.shirts.map{|shirt| shirt.color}.should == %w(Blue White Black)
+      end
+      
+      it "should cast the childrens methods appropriately" do
+        employee = Employee.new(:email => "foofoo@bar.com", :account_id => @account.id, :role => "Programmer")
+        employee.save
+        employee.shirts << Shirt.new(:color => "Mauve", :bought_on => Time.now)
+        employee.shirts.last.bought_on.should be_an_instance_of(Time)
+        employee.shirts.last.color.should == "Mauve"
+        # Save ..
+        employee.save
+        employee.shirts.last.bought_on.should be_an_instance_of(Time)
+        employee.shirts.last.color.should == "Mauve"
+        # Reload ..
+        employee = Employee.get(employee.id)
+        employee.shirts.last.bought_on.should be_an_instance_of(Time)
+        employee.shirts.last.color.should == "Mauve"
+      end
+
+    end
+    
+    describe ":through" do
+      it "should return it's 'through' children" do
+        @employee.memberships.should be_empty
+      end
+      
+      it "should return it's children" do
+        3.times do |i|
+          p = Project.create(:name => "Project with Invitations No. #{i}", :account_id => @account.id)
+          Membership.create(:employee_id => @employee.id, :project_id => p.id)
+        end
+        
+        7.times do |i|
+          e = Employee.create(:email => "bar#{i}@bar.com", :account_id => @account.id)
+          Membership.create(:employee_id => e.id, :project_id => @project.id)
+        end
+        
+        @employee.memberships.size.should == 3
+        @employee.projects.size.should == 3
+        @project.memberships.size.should == 7
+        @project.members.size.should == 7
+      end
+    end
+  end
+end

data/spec/lib/attachments_spec.rb

@@ -0,0 +1,52 @@
+require File.dirname(__FILE__) + '/../spec_helper.rb'
+
+class Person
+  include CouchSurfer::Model
+  include CouchSurfer::Attachments
+
+  key_accessor :name, :email
+
+end
+
+describe CouchSurfer::Attachments do
+  before(:all) do
+    db = CouchRest.database!('couch_surfer-test')
+    db.delete!
+    CouchSurfer::Model.default_database = CouchRest.database!('http://127.0.0.1:5984/couch_surfer-test')
+  end
+
+  before do
+    @person = Person.create(:name => "John", :email => "john@mail.com")
+  end
+
+  describe "attaching a file" do
+    it "should return true" do
+      @person.put_attachment("couchdb.png", open_fixture("attachments/couchdb.png")).should be_true
+    end
+
+    it "should raise an exception if the record is not yet saved" do
+      person = Person.new(:name => "John", :email => "john@mail.com")
+      lambda {person.put_attachment("couchdb.png", open_fixture("attachments/couchdb.png"))}.should raise_error(ArgumentError)
+    end
+  end
+
+  describe "fetching a file" do
+    it "should return the file" do
+      @person.put_attachment("couchdb.png", open_fixture("attachments/couchdb.png")).should be_true
+      @person.fetch_attachment("couchdb.png").size.should >= 3000
+    end
+
+    it "should raise an exception if the record is not yet saved" do
+      person = Person.new(:name => "John", :email => "john@mail.com")
+      lambda {person.fetch_attachment("couchdb.png")}.should raise_error(ArgumentError)      
+    end
+  end
+
+  describe "deleting a file" do
+    it "should return true" do
+      @person.put_attachment("couchdb.png", open_fixture("attachments/couchdb.png")).should be_true
+      @person.delete_attachment("couchdb.png").should be_true
+      lambda {@person.fetch_attachment("couchdb.png")}.should raise_error(RestClient::ResourceNotFound)
+    end
+  end
+end

data/spec/lib/extensions_spec.rb

@@ -0,0 +1,29 @@
+require File.dirname(__FILE__) + '/../spec_helper.rb'
+
+describe "Extensions" do
+  before(:all) do
+    @cr = CouchRest.new(COUCHHOST)
+    @db = @cr.database(TESTDB)
+    @db.delete! rescue nil
+    @db = @cr.create_db(TESTDB) rescue nil
+    @adb = @cr.database('couchrest-model-test')
+    @adb.delete! rescue nil
+    CouchSurfer::Model.default_database = CouchRest.database!('http://127.0.0.1:5984/couch_surfer-test')
+    @des = CouchRest::Design.new
+    @des.database = @db
+    @des.name = "MyDesignDoc"
+    @des.save
+  end
+
+  describe CouchRest::Database do
+    it "should have a list method" do
+      @db.should respond_to(:list)
+    end
+  end
+
+  describe CouchRest::Document do
+    it "should have a list method" do
+      @des.should respond_to(:list)
+    end
+  end
+end