# encoding: utf-8

require File.expand_path(File.dirname(__FILE__) + '/spec_helper')

describe Mongoid::Search do

  before(:each) do
    Mongoid::Search.match         = :any
    Mongoid::Search.stem_keywords = false
    Mongoid::Search.ignore_list   = nil
    @product = Product.create :brand => "Apple",
                              :name => "iPhone",
                              :tags => ["Amazing", "Awesome", "Olé"].map { |tag| Tag.new(:name => tag) },
                              :category => Category.new(:name => "Mobile"),
                              :subproducts => [Subproduct.new(:brand => "Apple", :name => "Craddle")],
                              :info => { :summary => "Info-summary",
                                         :description => "Info-description"}
  end

  describe "Serialized hash fields" do
    context "when the hash is populated" do
      it "should return the product" do
        Product.full_text_search("Info-summary").first.should eq @product
        Product.full_text_search("Info-description").first.should eq @product
      end
    end

    context "when the hash is empty" do
      before(:each) do
        @product.info = nil
        @product.save
      end

      it "should not return the product" do
        Product.full_text_search("Info-description").size.should eq 0
        Product.full_text_search("Info-summary").size.should eq 0
      end
    end
  end

  context "utf-8 characters" do
    before do
      Mongoid::Search.stem_keywords = false
      Mongoid::Search.ignore_list   = nil
      @product = Product.create :brand => "Эльбрус",
                                :name => "Процессор",
                                :tags => ["Amazing", "Awesome", "Olé"].map { |tag| Tag.new(:name => tag) },
                                :category => Category.new(:name => "процессоры"),
                                :subproducts => []
    end

    it "should leave utf8 characters" do
      @product._keywords.should == ["amazing", "awesome", "ole", "процессор", "процессоры", "эльбрус"]
    end

    it "should return results in search when case doesn't match" do
      Product.full_text_search("ЭЛЬБРУС").size.should == 1
    end
  end

  context "when references are nil" do
    context "when instance is being created" do
      it "should not complain about method missing" do
        lambda { Product.create! }.should_not raise_error
      end
    end

    subject { Product.create :brand => "Apple", :name => "iPhone" }

    its(:_keywords) { should == ["apple", "iphone"] }
  end

  it "should set the _keywords field for array fields also" do
    @product.attrs = ['lightweight', 'plastic', :red]
    @product.save!
    @product._keywords.should include 'lightweight', 'plastic', 'red'
  end

  it "should inherit _keywords field and build upon" do
    variant = Variant.create :brand => "Apple",
                              :name => "iPhone",
                              :tags => ["Amazing", "Awesome", "Olé"].map { |tag| Tag.new(:name => tag) },
                              :category => Category.new(:name => "Mobile"),
                              :subproducts => [Subproduct.new(:brand => "Apple", :name => "Craddle")],
                              :color => :white
    variant._keywords.should include 'white'
    Variant.full_text_search(:name => 'Apple', :color => :white).should eq [variant]
  end

  it "should expand the ligature to ease searching" do
    # ref: http://en.wikipedia.org/wiki/Typographic_ligature, only for french right now. Rules for other languages are not know
    variant1 = Variant.create :tags => ["œuvre"].map {|tag| Tag.new(:name => tag)}
    variant2 = Variant.create :tags => ["æquo"].map {|tag| Tag.new(:name => tag)}

    Variant.full_text_search("œuvre").should eq [variant1]
    Variant.full_text_search("oeuvre").should eq [variant1]
    Variant.full_text_search("æquo").should eq [variant2]
    Variant.full_text_search("aequo").should eq [variant2]
  end

  it "should set the _keywords field with stemmed words if stem is enabled" do
    Mongoid::Search.stem_keywords = true
    @product.save!
    @product._keywords.sort.should == ["amaz", "appl", "awesom", "craddl", "iphon", "mobil", "ol", "info", "descript", "summari"].sort
  end

  it "should ignore keywords in an ignore list" do
    Mongoid::Search.ignore_list = YAML.load(File.open(File.dirname(__FILE__) + '/config/ignorelist.yml'))["ignorelist"]
    @product.save!
    @product._keywords.sort.should == ["apple", "craddle", "iphone", "mobile", "ole", "info", "description", "summary"].sort
  end

   it "should incorporate numbers as keywords" do
        @product = Product.create :brand => "Ford",
                              :name => "T 1908",
                              :tags => ["Amazing", "First", "Car"].map { |tag| Tag.new(:name => tag) },
                              :category => Category.new(:name => "Vehicle")

      @product.save!
      @product._keywords.should == ["1908", "amazing", "car", "first", "ford",  "vehicle"]
   end


  it "should return results in search" do
    Product.full_text_search("apple").size.should == 1
  end

  it "should return results in search for dynamic attribute" do
    @product[:outlet] = "online shop"
    @product.save!
    Product.full_text_search("online").size.should == 1
  end

  it "should return results in search even searching a accented word" do
    Product.full_text_search("Ole").size.should == 1
    Product.full_text_search("Olé").size.should == 1
  end

  it "should return results in search even if the case doesn't match" do
    Product.full_text_search("oLe").size.should == 1
  end

  it "should return results in search with a partial word by default" do
    Product.full_text_search("iph").size.should == 1
  end

  it "should return results for any matching word with default search" do
    Product.full_text_search("apple motorola").size.should == 1
  end

  it "should not return results when all words do not match, if using :match => :all" do
    Mongoid::Search.match = :all
    Product.full_text_search("apple motorola").size.should == 0
  end

  it "should return results for any matching word, using :match => :all, passing :match => :any to .full_text_search" do
    Mongoid::Search.match = :all
    Product.full_text_search("apple motorola", :match => :any).size.should == 1
  end

  it "should not return results when all words do not match, passing :match => :all to .full_text_search" do
    Product.full_text_search("apple motorola", :match => :all).size.should == 0
  end

  it "should return no results when a blank search is made" do
    Mongoid::Search.allow_empty_search = false
    Product.full_text_search("").size.should == 0
  end

  it "should return results when a blank search is made when :allow_empty_search is true" do
    Mongoid::Search.allow_empty_search = true
    Product.full_text_search("").size.should == 1
  end

  it "should search for embedded documents" do
    Product.full_text_search("craddle").size.should == 1
  end

  it 'should work in a chainable fashion' do
    @product.category.products.where(:brand => 'Apple').full_text_search('apple').size.should == 1
    @product.category.products.full_text_search('craddle').where(:brand => 'Apple').size.should == 1
  end

  it 'should return the classes that include the search module' do
    Mongoid::Search.classes.should == [Product]
  end

  it 'should have a method to index keywords' do
    @product.index_keywords!.should == true
  end

  it 'should have a class method to index all documents keywords' do
    Product.index_keywords!.should_not include(false)
  end

  context "when regex search is false" do
    before do
      Mongoid::Search.regex_search = false
    end

    it "should not return results in search with a partial word if not using regex search" do
      Product.full_text_search("iph").size.should == 0
    end

    it "should return results in search with a full word if not using regex search" do
      Product.full_text_search("iphone").size.should == 1
    end
  end

  context "relevant search" do
    before do
      Mongoid::Search.relevant_search = true
      @imac = Product.create :name => 'apple imac'
    end

    it "should return results ordered by relevance and with correct ids" do
      Product.full_text_search('apple imac').map(&:_id).should == [@imac._id, @product._id]
    end

    it "results should be recognized as persisted objects" do
      Product.full_text_search('apple imac').map(&:persisted?).should_not include false
    end

    it "should include relevance information" do
      Product.full_text_search('apple imac').map(&:relevance).should == [2, 1]
    end
  end
end