mark_mapper 0.0.1

data/spec/unit/mark_mapper_spec.rb

@@ -0,0 +1,37 @@
+require 'spec_helper'
+
+class Address; end
+
+describe "MarkMapper" do
+  it "should be able to write and read connection" do
+    conn = MarkLogic::Connection.new(HOST, PORT)
+    MarkMapper.connection = conn
+    MarkMapper.connection.should == conn
+  end
+
+  it "should default connection to new marklogic ruby driver" do
+    MarkMapper.connection = nil
+    MarkMapper.connection.should be_instance_of(MarkLogic::Connection)
+  end
+
+  it "should be able to write and read default database" do
+    MarkMapper.database = 'test'
+    MarkMapper.database.should be_instance_of(MarkLogic::Database)
+    MarkMapper.database.database_name.should == 'test'
+  end
+
+  it "should have document not found error" do
+    lambda {
+      MarkMapper::DocumentNotFound
+    }.should_not raise_error
+  end
+
+  it "should be able to read/write config" do
+    config = {
+      'development' => {'host' => '127.0.0.1', 'port' => 8006, 'database' => 'test'},
+      'production'  => {'host' => '127.0.0.1', 'port' => 8006, 'database' => 'test-prod'}
+    }
+    MarkMapper.config = config
+    MarkMapper.config.should == config
+  end
+end

data/spec/unit/model_generator_spec.rb

@@ -0,0 +1,45 @@
+# require 'spec_helper'
+# require 'rails/generators'
+# require 'rails/generators/test_case'
+# require 'rails/generators/mark_mapper/model/model_generator'
+
+# describe MarkMapper::Generators::ModelGenerator do
+#   include GeneratorSpec::TestCase
+#   destination File.expand_path('../../tmp', File.dirname(__FILE__))
+
+#   before do
+#     prepare_destination
+#   end
+
+#   it 'help shows MarkMapper options' do
+#     content = run_generator ['--help']
+#     assert_match(/rails generate mark_mapper:model/, content)
+#   end
+
+#   it 'model are properly created' do
+#     run_generator ['Color']
+#     assert_file 'app/models/color.rb', /class Color/
+#     assert_file 'app/models/color.rb', /include MarkMapper::Document/
+#   end
+
+#   it 'model are properly created with attributes' do
+#     run_generator ['Color', 'name:string', 'saturation:integer']
+#     assert_file 'app/models/color.rb', /class Color/
+#     assert_file 'app/models/color.rb', /include MarkMapper::Document/
+#     assert_file 'app/models/color.rb', /key :name, String/
+#     assert_file 'app/models/color.rb', /key :saturation, Integer/
+#   end
+
+#   it 'model are properly created with timestamps option' do
+#     run_generator ['Color', '--timestamps']
+#     assert_file 'app/models/color.rb', /class Color/
+#     assert_file 'app/models/color.rb', /include MarkMapper::Document/
+#     assert_file 'app/models/color.rb', /timestamps/
+#   end
+
+#   it 'model are properly created with parent option' do
+#     run_generator ['Green', '--parent', 'Color']
+#     assert_file 'app/models/green.rb', /class Green < Color/
+#   end
+
+# end

data/spec/unit/normalizers/criteria_hash_key_spec.rb

@@ -0,0 +1,37 @@
+require 'spec_helper'
+
+describe MarkMapper::Normalizers::CriteriaHashKey do
+  subject {
+    described_class.new
+  }
+
+  context "with a string" do
+    it "returns symbol" do
+      subject.call('foo').should eq(:foo)
+    end
+  end
+
+  context "with a symbol" do
+    it "returns symbol" do
+      subject.call(:foo).should eq(:foo)
+    end
+  end
+
+  context "with :id" do
+    it "returns :_id" do
+      subject.call(:id).should eq(:_id)
+    end
+  end
+
+  it "returns key if something weird" do
+    subject.call(['crazytown']).should eq(['crazytown'])
+  end
+
+  SymbolOperators.each do |operator|
+    context "with #{operator} symbol operator" do
+      it "returns field" do
+        subject.call(:age.send(operator)).should eq(:age)
+      end
+    end
+  end
+end

data/spec/unit/normalizers/criteria_hash_value_spec.rb

@@ -0,0 +1,200 @@
+require 'spec_helper'
+require 'securerandom'
+
+describe MarkMapper::Normalizers::CriteriaHashValue do
+  let(:criteria_hash) { MarkMapper::CriteriaHash.new }
+
+  subject {
+    described_class.new(criteria_hash)
+  }
+
+  context "with a string" do
+    it "leaves string values for string keys alone" do
+      subject.call(:foo, :foo, 'bar').should eq('bar')
+    end
+
+    context "that is actually an object id" do
+      it "converts string values to object ids for object id keys" do
+        criteria_hash.object_ids = [:_id]
+        id = SecureRandom.hex
+        subject.call(:_id, :_id, id.to_s).should eq(id)
+      end
+    end
+  end
+
+  context "with a time" do
+    it "converts times to utc" do
+      time = Time.now
+      actual = time
+      expected = time.utc
+      result = subject.call(:foo, :foo, actual)
+      result.should be_utc
+      result.should eq(expected)
+    end
+
+    it "leaves utc times alone" do
+      time = Time.now
+      actual = time.utc
+      expected = time.utc
+      result = subject.call(:foo, :foo, actual)
+      result.should be_utc
+      result.should eq(expected)
+    end
+  end
+
+  context "with an array" do
+    it "defaults to $eq" do
+      actual = [1,2,3]
+      expected = {:$eq => [1,2,3]}
+      subject.call(:foo, :foo, actual).should eq(expected)
+    end
+
+    it "does not double up $eq" do
+      actual = [1, 2, 3]
+      expected = [1, 2, 3]
+      subject.call(:$eq, :$eq, actual).should eq(expected)
+    end
+
+    it "uses existing modifier if present" do
+      actual = {'$all' => [1,2,3]}
+      expected = {'$all' => [1,2,3]}
+      subject.call(:foo, :foo, actual).should eq(expected)
+
+      actual = {'$any' => [1,2,3]}
+      expected = {'$any' => [1,2,3]}
+      subject.call(:foo, :foo, actual).should eq(expected)
+    end
+
+    it "does not turn value to $eq with an empty array value" do
+      actual = []
+      expected = []
+      subject.call(:foo, :foo, actual).should eq(expected)
+    end
+
+    it "does not turn value to $eq with $or key" do
+      actual = [{:numbers => 1}, {:numbers => 2}]
+      expected = [{:numbers => 1}, {:numbers => 2}]
+      subject.call(:$or, :$or, actual).should eq(expected)
+    end
+
+    it "does not turn value to $eq with $and key" do
+      actual = [{:numbers => 1}, {:numbers => 2}]
+      expected = [{:numbers => 1}, {:numbers => 2}]
+      subject.call(:$and, :$and, actual).should eq(expected)
+    end
+
+    it "does not turn value to $eq with $nor key" do
+      actual = [{:numbers => 1}, {:numbers => 2}]
+      expected = [{:numbers => 1}, {:numbers => 2}]
+      subject.call(:$nor, :$nor, actual).should eq(expected)
+    end
+
+    it "defaults to $eq even with ObjectId keys" do
+      actual = [1,2,3]
+      expected = {:$eq => [1,2,3]}
+      criteria_hash.object_ids = [:mistake_id]
+      subject.call(:mistake_id, :mistake_id, actual).should eq(expected)
+    end
+  end
+
+  context "with a set" do
+    it "defaults to $eq and convert to array" do
+      actual = [1,2,3].to_set
+      expected = {:$eq => [1,2,3]}
+      subject.call(:numbers, :numbers, actual).should eq(expected)
+    end
+
+    it "uses existing modifier if present and convert to array" do
+      actual = {'$all' => [1,2,3].to_set}
+      expected = {'$all' => [1,2,3]}
+      subject.call(:foo, :foo, actual).should eq(expected)
+
+      actual = {'$any' => [1,2,3].to_set}
+      expected = {'$any' => [1,2,3]}
+      subject.call(:foo, :foo, actual).should eq(expected)
+    end
+  end
+
+  context "with string object ids for string keys" do
+    let(:object_id) { SecureRandom.hex }
+
+    it "leaves string ids as strings" do
+      subject.call(:_id, :_id, object_id.to_s).should eq(object_id.to_s)
+      subject.call(:room_id, :room_id, object_id.to_s).should eq(object_id.to_s)
+    end
+  end
+
+  context "with string object ids for object id keys" do
+    let(:object_id) { SecureRandom.hex }
+
+    before do
+      criteria_hash.object_ids = [:_id, :room_id]
+    end
+
+    it "converts strings to object ids" do
+      subject.call(:_id, :_id, object_id.to_s).should eq(object_id)
+      subject.call(:room_id, :room_id, object_id.to_s).should eq(object_id)
+    end
+
+    context "nested with modifier" do
+      let(:oid1) { SecureRandom.hex }
+      let(:oid2) { SecureRandom.hex }
+      let(:oids) { [oid1.to_s, oid2.to_s] }
+
+      it "converts strings to object ids" do
+        actual = {:$eq => oids}
+        expected = {:$eq => [oid1, oid2]}
+        subject.call(:_id, :_id, actual).should eq(expected)
+      end
+
+      it "does not modify original array of string ids" do
+        subject.call(:_id, :_id, {:$eq => oids})
+        oids.should == [oid1.to_s, oid2.to_s]
+      end
+    end
+  end
+
+  context "nested clauses" do
+    it "knows constant array of operators that take nested queries" do
+      described_class::NestingOperators.should == [:$or, :$and, :$nor]
+    end
+
+    described_class::NestingOperators.each do |operator|
+      context "with #{operator}" do
+        it "works with symbol operators" do
+          nested1     = {:age.gt   => 12, :age.lt => 20}
+          translated1 = {:age      => {:$gt  => 12, :$lt  => 20 }}
+          nested2     = {:type.eq => ['friend', 'enemy']}
+          translated2 = {:type     => {:$eq => ['friend', 'enemy']}}
+          value       = [nested1, nested2]
+          expected    = [translated1, translated2]
+
+          subject.call(operator, operator, value).should eq(expected)
+        end
+
+        it "honors criteria hash options" do
+          nested     = [{:post_id  => '4f5ead6378fca23a13000001'}]
+          translated = [{:post_id  => '4f5ead6378fca23a13000001'}]
+          given      = {operator.to_s => [nested]}
+
+          criteria_hash.object_ids = [:post_id]
+          subject.call(operator, operator, nested).should eq(translated)
+        end
+      end
+    end
+
+    context "doubly nested" do
+      it "works with symbol operators" do
+        nested1     = {:age.gt   => 12, :age.lt => 20}
+        translated1 = {:age      => {:$gt => 12, :$lt => 20}}
+        nested2     = {:type.eq => ['friend', 'enemy']}
+        translated2 = {:type     => {:$eq => ['friend', 'enemy']}}
+        nested3     = {'$and'    => [nested2]}
+        translated3 = {:$and     => [translated2]}
+        expected    = [translated1, translated3]
+
+        subject.call(:$or, :$or, [nested1, nested3]).should eq(expected)
+      end
+    end
+  end
+end

data/spec/unit/normalizers/fields_value_spec.rb

@@ -0,0 +1,45 @@
+require 'spec_helper'
+require 'mark_mapper/normalizers/fields_value'
+
+describe MarkMapper::Normalizers::FieldsValue do
+  it "defaults to nil" do
+    subject.call(nil).should be_nil
+  end
+
+  it "returns nil if empty string" do
+    subject.call('').should be_nil
+  end
+
+  it "returns nil if empty array" do
+    subject.call([]).should be_nil
+  end
+
+  it "works with array" do
+    subject.call(['one', 'two']).should eq(['one', 'two'])
+  end
+
+  # Ruby 1.9.x was sending array [{:age => 20}], instead of hash.
+  it "works with array that has one hash" do
+    subject.call([{:age => 20}]).should eq({:age => 20})
+  end
+
+  it "flattens multi-dimensional array" do
+    subject.call([[:one, :two]]).should eq([:one, :two])
+  end
+
+  it "works with symbol" do
+    subject.call(:one).should eq([:one])
+  end
+
+  it "works with array of symbols" do
+    subject.call([:one, :two]).should eq([:one, :two])
+  end
+
+  it "works with hash" do
+    subject.call({:one => 1, :two => -1}).should eq({:one => 1, :two => -1})
+  end
+
+  it "converts comma separated list to array" do
+    subject.call('one, two').should eq(['one', 'two'])
+  end
+end

data/spec/unit/normalizers/hash_key_spec.rb

@@ -0,0 +1,15 @@
+require 'spec_helper'
+
+describe MarkMapper::Normalizers::HashKey do
+  subject {
+    described_class.new(:bacon => :sizzle)
+  }
+
+  it "changes defined fields" do
+    subject.call(:bacon).should eq(:sizzle)
+  end
+
+  it "does not change undefined fields" do
+    subject.call(:sausage).should eq(:sausage)
+  end
+end

data/spec/unit/normalizers/integer_spec.rb

@@ -0,0 +1,24 @@
+require 'spec_helper'
+require 'mark_mapper/normalizers/integer'
+
+describe MarkMapper::Normalizers::Integer do
+  context "with nil" do
+    it "returns nil" do
+      subject.call(nil).should be_nil
+    end
+  end
+
+  context "with an integer" do
+    it "returns an integer" do
+      subject.call(1).should be(1)
+      subject.call(3232).should be(3232)
+    end
+  end
+
+  context "with a string" do
+    it "returns a string" do
+      subject.call('1').should be(1)
+      subject.call('3232').should be(3232)
+    end
+  end
+end

data/spec/unit/normalizers/options_hash_value_spec.rb

@@ -0,0 +1,99 @@
+require 'spec_helper'
+
+describe MarkMapper::Normalizers::OptionsHashValue do
+  let(:key_normalizer) {
+    lambda { |key|
+      if key == :id
+        :_id
+      else
+        key.to_sym
+      end
+    }
+  }
+
+  let(:upcasing_normalizer) {
+    lambda { |value| value.to_s.upcase }
+  }
+
+  let(:default_arguments) {
+    {
+      :key_normalizer => key_normalizer,
+    }
+  }
+
+  subject {
+    described_class.new(default_arguments)
+  }
+
+  it "raises exception if missing key normalizer" do
+    expect {
+      described_class.new
+    }.to raise_error(ArgumentError, "Missing required key :key_normalizer")
+  end
+
+  it "allows injecting a new value normalizer" do
+    instance = described_class.new(default_arguments.merge({
+      :value_normalizers => {
+        :some_field => upcasing_normalizer,
+      }
+    }))
+
+    instance.call(:some_field, 'upcase me').should eq('UPCASE ME')
+  end
+
+  context "with :fields key" do
+    subject {
+      described_class.new(default_arguments.merge({
+        :value_normalizers => {
+          :fields => upcasing_normalizer
+        },
+      }))
+    }
+
+    it "calls the fields value normalizer" do
+      subject.call(:fields, :foo).should eq('FOO')
+    end
+  end
+
+  context "with :sort key" do
+    subject {
+      described_class.new(default_arguments.merge({
+        :value_normalizers => {
+          :sort => upcasing_normalizer
+        },
+      }))
+    }
+
+    it "calls the sort value normalizer" do
+      subject.call(:sort, :foo).should eq('FOO')
+    end
+  end
+
+  context "with :limit key" do
+    subject {
+      described_class.new(default_arguments.merge({
+        :value_normalizers => {
+          :limit => upcasing_normalizer
+        },
+      }))
+    }
+
+    it "calls the limit value normalizer" do
+      subject.call(:limit, :foo).should eq('FOO')
+    end
+  end
+
+  context "with :skip key" do
+    subject {
+      described_class.new(default_arguments.merge({
+        :value_normalizers => {
+          :skip => upcasing_normalizer
+        },
+      }))
+    }
+
+    it "calls the skip value normalizer" do
+      subject.call(:skip, :foo).should eq('FOO')
+    end
+  end
+end