norr-couchrest 0.30

data/spec/couchrest/more/property_spec.rb

@@ -0,0 +1,146 @@
+require File.join(File.dirname(__FILE__), '..', '..', 'spec_helper')
+require File.join(FIXTURE_PATH, 'more', 'person')
+require File.join(FIXTURE_PATH, 'more', 'card')
+require File.join(FIXTURE_PATH, 'more', 'invoice')
+require File.join(FIXTURE_PATH, 'more', 'service')
+require File.join(FIXTURE_PATH, 'more', 'event')
+
+
+describe "ExtendedDocument properties" do
+  
+  before(:each) do
+    reset_test_db!
+    @card = Card.new(:first_name => "matt")
+  end
+  
+  it "should be accessible from the object" do
+    @card.properties.should be_an_instance_of(Array)
+    @card.properties.map{|p| p.name}.should include("first_name")
+  end
+  
+  it "should let you access a property value (getter)" do
+    @card.first_name.should == "matt"
+  end
+  
+  it "should let you set a property value (setter)" do
+    @card.last_name = "Aimonetti"
+    @card.last_name.should == "Aimonetti"
+  end
+  
+  it "should not let you set a property value if it's read only" do
+    lambda{@card.read_only_value = "test"}.should raise_error
+  end
+  
+  it "should let you use an alias for an attribute" do
+    @card.last_name = "Aimonetti"
+    @card.family_name.should == "Aimonetti"
+    @card.family_name.should == @card.last_name
+  end
+  
+  it "should let you use an alias for a casted attribute" do
+    @card.cast_alias = Person.new(:name => "Aimonetti")
+    @card.cast_alias.name.should == "Aimonetti"
+    @card.calias.name.should == "Aimonetti"
+    card = Card.new(:first_name => "matt", :cast_alias => {:name => "Aimonetti"})
+    card.cast_alias.name.should == "Aimonetti"
+    card.calias.name.should == "Aimonetti"
+  end
+  
+  it "should be auto timestamped" do
+    @card.created_at.should be_nil
+    @card.updated_at.should be_nil
+    @card.save.should be_true
+    @card.created_at.should_not be_nil
+    @card.updated_at.should_not be_nil
+  end
+  
+  describe "validation" do
+    before(:each) do
+      @invoice = Invoice.new(:client_name => "matt", :employee_name => "Chris", :location => "San Diego, CA")
+    end
+    
+    it "should be able to be validated" do
+      @card.valid?.should == true
+    end
+
+    it "should let you validate the presence of an attribute" do
+      @card.first_name = nil
+      @card.should_not be_valid
+      @card.errors.should_not be_empty
+      @card.errors.on(:first_name).should == ["First name must not be blank"]
+    end
+    
+    it "should let you look up errors for a field by a string name" do
+      @card.first_name = nil
+      @card.should_not be_valid
+      @card.errors.on('first_name').should == ["First name must not be blank"]
+    end
+
+    it "should validate the presence of 2 attributes" do
+      @invoice.clear
+      @invoice.should_not be_valid
+      @invoice.errors.should_not be_empty
+      @invoice.errors.on(:client_name).first.should == "Client name must not be blank"
+      @invoice.errors.on(:employee_name).should_not be_empty
+    end
+    
+    it "should let you set an error message" do
+      @invoice.location = nil
+      @invoice.valid?
+      @invoice.errors.on(:location).should == ["Hey stupid!, you forgot the location"]
+    end
+    
+    it "should validate before saving" do
+      @invoice.location = nil
+      @invoice.should_not be_valid
+      @invoice.save.should be_false
+      @invoice.should be_new_document
+    end
+  end
+  
+  describe "autovalidation" do
+    before(:each) do
+      @service = Service.new(:name => "Coumpound analysis", :price => 3_000)
+    end
+    
+    it "should be valid" do
+      @service.should be_valid
+    end
+    
+    it "should not respond to properties not setup" do
+      @service.respond_to?(:client_name).should be_false
+    end
+    
+    describe "property :name, :length => 4...20" do
+      
+      it "should autovalidate the presence when length is set" do
+        @service.name = nil
+        @service.should_not be_valid
+        @service.errors.should_not be_nil
+        @service.errors.on(:name).first.should == "Name must be between 4 and 19 characters long"
+      end
+    
+      it "should autovalidate the correct length" do
+        @service.name = "a"
+        @service.should_not be_valid
+        @service.errors.should_not be_nil
+        @service.errors.on(:name).first.should == "Name must be between 4 and 19 characters long"
+      end
+    end
+  end
+  
+  describe "casting" do
+    describe "cast keys to any type" do
+      before(:all) do
+        event_doc = { :subject => "Some event", :occurs_at => Time.now }
+        e = Event.database.save_doc event_doc
+
+        @event = Event.get e['id']
+      end
+      it "should cast created_at to Time" do
+        @event['occurs_at'].should be_an_instance_of(Time)
+      end
+    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/more/article.rb

@@ -0,0 +1,34 @@
+class Article < CouchRest::ExtendedDocument
+  use_database DB
+  unique_id :slug
+  
+  view_by :date, :descending => true
+  view_by :user_id, :date
+    
+  view_by :tags,
+    :map => 
+      "function(doc) {
+        if (doc['couchrest-type'] == 'Article' && doc.tags) {
+          doc.tags.forEach(function(tag){
+            emit(tag, 1);
+          });
+        }
+      }",
+    :reduce => 
+      "function(keys, values, rereduce) {
+        return sum(values);
+      }"  
+
+  property :date
+  property :slug, :read_only => true
+  property :title
+  property :tags
+
+  timestamps!
+  
+  save_callback :before, :generate_slug_from_title
+  
+  def generate_slug_from_title
+    self['slug'] = title.downcase.gsub(/[^a-z0-9]/,'-').squeeze('-').gsub(/^\-|\-$/,'') if new_document?
+  end
+end

data/spec/fixtures/more/card.rb

@@ -0,0 +1,22 @@
+class Card < CouchRest::ExtendedDocument  
+  # Include the validation module to get access to the validation methods
+  include CouchRest::Validation
+  # set the auto_validation before defining the properties
+  auto_validate!
+  
+  # Set the default database to use
+  use_database DB
+  
+  # Official Schema
+  property :first_name
+  property :last_name,        :alias     => :family_name
+  property :read_only_value,  :read_only => true
+  property :cast_alias,       :cast_as   =>  'Person',  :alias  => :calias
+
+  
+  timestamps!
+  
+  # Validation
+  validates_present :first_name
+  
+end

data/spec/fixtures/more/cat.rb

@@ -0,0 +1,18 @@
+class Cat < CouchRest::ExtendedDocument
+  include ::CouchRest::Validation
+
+  # Set the default database to use
+  use_database DB
+
+  property :name
+  property :toys, :cast_as => ['CatToy'], :default => []
+end
+
+class CatToy < Hash
+  include ::CouchRest::CastedModel
+  include ::CouchRest::Validation
+
+  property :name
+
+  validates_present :name
+end

data/spec/fixtures/more/course.rb

@@ -0,0 +1,14 @@
+require File.join(FIXTURE_PATH, 'more', 'question')
+require File.join(FIXTURE_PATH, 'more', 'person')
+
+class Course < CouchRest::ExtendedDocument
+  use_database TEST_SERVER.default_database
+  
+  property :title
+  property :questions,      :cast_as => ['Question']
+  property :professor,      :cast_as => 'Person'
+  property :final_test_at,  :cast_as => 'Time'
+  
+  view_by :title
+  view_by :dept, :ducktype => true
+end

data/spec/fixtures/more/event.rb

@@ -0,0 +1,6 @@
+class Event < CouchRest::ExtendedDocument
+  use_database DB
+  
+  property :subject
+  property :occurs_at, :cast_as => 'Time', :send => 'parse'
+end

data/spec/fixtures/more/invoice.rb

@@ -0,0 +1,17 @@
+class Invoice < CouchRest::ExtendedDocument  
+  # Include the validation module to get access to the validation methods
+  include CouchRest::Validation
+  
+  # Set the default database to use
+  use_database DB
+  
+  # Official Schema
+  property :client_name
+  property :employee_name
+  property :location
+  
+  # Validation
+  validates_present :client_name, :employee_name
+  validates_present :location, :message => "Hey stupid!, you forgot the location"
+  
+end

data/spec/fixtures/more/person.rb

@@ -0,0 +1,8 @@
+class Person < Hash
+  include ::CouchRest::CastedModel
+  property :name
+  
+  def last_name
+    name.last
+  end
+end

data/spec/fixtures/more/question.rb

@@ -0,0 +1,6 @@
+class Question < Hash
+  include ::CouchRest::CastedModel
+  
+  property :q
+  property :a
+end

data/spec/fixtures/more/service.rb

@@ -0,0 +1,12 @@
+class Service < CouchRest::ExtendedDocument  
+  # Include the validation module to get access to the validation methods
+  include CouchRest::Validation
+  auto_validate!
+  # Set the default database to use
+  use_database DB
+  
+  # Official Schema
+  property :name, :length => 4...20
+  property :price, :type => Integer
+  
+end

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/spec.opts

@@ -0,0 +1,6 @@
+--colour
+--format
+progress
+--loadby
+mtime
+--reverse

data/spec/spec_helper.rb

@@ -0,0 +1,37 @@
+require "rubygems"
+require "spec" # Satisfies Autotest and anyone else not using the Rake tasks
+
+require File.join(File.dirname(__FILE__), '..','lib','couchrest')
+# check the following file to see how to use the spec'd features.
+
+unless defined?(FIXTURE_PATH)
+  FIXTURE_PATH = File.join(File.dirname(__FILE__), '/fixtures')
+  SCRATCH_PATH = File.join(File.dirname(__FILE__), '/tmp')
+
+  COUCHHOST = "http://127.0.0.1:5984"
+  TESTDB    = 'couchrest-test'
+  TEST_SERVER    = CouchRest.new
+  TEST_SERVER.default_database = TESTDB
+  DB = TEST_SERVER.database(TESTDB)
+end
+
+class Basic < CouchRest::ExtendedDocument
+  use_database TEST_SERVER.default_database
+end
+
+def reset_test_db!
+  DB.recreate! rescue nil
+  DB
+end
+
+Spec::Runner.configure do |config|
+  config.before(:all) { reset_test_db! }
+  
+  config.after(:all) do
+    cr = TEST_SERVER
+    test_dbs = cr.databases.select { |db| db =~ /^#{TESTDB}/ }
+    test_dbs.each do |db|
+      cr.database(db).delete! rescue nil
+    end
+  end
+end

data/utils/remap.rb

@@ -0,0 +1,27 @@
+require 'rubygems'
+require 'couchrest'
+
+# set the source db and map view
+source = CouchRest.new("http://127.0.0.1:5984").database('source-db')
+source_view = 'mydesign/view-map'
+
+# set the target db
+target = CouchRest.new("http://127.0.0.1:5984").database('target-db')
+
+
+pager = CouchRest::Pager.new(source)
+
+# pager will yield once per uniq key in the source view
+
+pager.key_reduce(source_view, 10000) do |key, values|
+  # create a doc from the key and the values
+  example_doc = {
+    :key => key,
+    :values => values.uniq
+  }
+
+  target.save(example_doc)
+  
+  # keep us up to date with progress
+  puts k if (rand > 0.9)
+end

data/utils/subset.rb

@@ -0,0 +1,30 @@
+require 'rubygems'
+require 'couchrest'
+
+# subset.rb replicates a percentage of a database to a fresh database.
+# use it to create a smaller dataset on which to prototype views.
+
+# specify the source database
+source = CouchRest.new("http://127.0.0.1:5984").database('source-db')
+
+# specify the target database
+target = CouchRest.new("http://127.0.0.1:5984").database('target-db')
+
+# pager efficiently yields all view rows
+pager = CouchRest::Pager.new(source)
+
+pager.all_docs(1000) do |rows|  
+  docs = rows.collect do |r|
+    # the percentage of docs to clone
+    next if rand > 0.1 
+    doc = source.get(r['id'])
+    doc.delete('_rev')
+    doc      
+  end.compact
+  puts docs.length
+  next if docs.empty?
+
+  puts docs.first['_id']
+  target.bulk_save(docs)
+end
+