require 'cases/helper_sqlserver'

class UtilsTestSQLServer < ActiveRecord::TestCase

  it '.quote_string' do
    SQLServer::Utils.quote_string("I'll store this in C:\\Users").must_equal "I''ll store this in C:\\Users"
  end

  it '.unquote_string' do
    SQLServer::Utils.unquote_string("I''ll store this in C:\\Users").must_equal "I'll store this in C:\\Users"
  end

  it '.quoted_raw' do
    SQLServer::Utils.quoted_raw("some.Name").must_equal "[some.Name]"
  end

  describe '.extract_identifiers constructor and thus SQLServer::Utils::Name value object' do

    let(:valid_names) { valid_names_unquoted + valid_names_quoted }

    let(:valid_names_unquoted) {[
      'server.database.schema.object',
      'server.database..object',
      'server..schema.object',
      'server...object',
      'database.schema.object',
      'database..object',
      'schema.object',
      'object'
    ]}

    let(:valid_names_quoted) {[
      '[server].[database].[schema].[object]',
      '[server].[database]..[object]',
      '[server]..[schema].[object]',
      '[server]...[object]',
      '[database].[schema].[object]',
      '[database]..[object]',
      '[schema].[object]',
      '[object]'
    ]}

    let(:server_names)   { valid_names.partition { |name| name =~ /server/ } }
    let(:database_names) { valid_names.partition { |name| name =~ /database/ } }
    let(:schema_names)   { valid_names.partition { |name| name =~ /schema/ } }

    it 'extracts and returns #object identifier unquoted by default or quoted as needed' do
      valid_names.each do |n|
        name = extract_identifiers(n)
        name.object.must_equal 'object', "With #{n.inspect} for #object"
        name.object_quoted.must_equal '[object]', "With #{n.inspect} for #object_quoted"
      end
    end

    [:schema, :database, :server].each do |part|

      it "extracts and returns #{part} identifier unquoted by default or quoted as needed" do
        present, blank = send(:"#{part}_names")
        present.each do |n|
          name = extract_identifiers(n)
          name.send(:"#{part}").must_equal "#{part}", "With #{n.inspect} for ##{part} method"
          name.send(:"#{part}_quoted").must_equal "[#{part}]", "With #{n.inspect} for ##{part}_quoted method"
        end
        blank.each do |n|
          name = extract_identifiers(n)
          name.send(:"#{part}").must_be_nil "With #{n.inspect} for ##{part} method"
          name.send(:"#{part}_quoted").must_be_nil "With #{n.inspect} for ##{part}_quoted method"
        end
      end

    end

    it 'does not blow up on nil or blank string name' do
      extract_identifiers(nil).object.must_be_nil
      extract_identifiers(' ').object.must_be_nil
    end

    it 'has a #quoted that returns a fully quoted name with all identifiers as orginially passed in' do
      extract_identifiers('object').quoted.must_equal '[object]'
      extract_identifiers('server.database..object').quoted.must_equal '[server].[database]..[object]'
      extract_identifiers('[server]...[object]').quoted.must_equal '[server]...[object]'
    end

    it 'can take a symbol argument' do
      extract_identifiers(:object).object.must_equal 'object'
    end

    it 'allows identifiers with periods to work' do
      extract_identifiers('[obj.name]').quoted.must_equal '[obj.name]'
      extract_identifiers('[obj.name].[foo]').quoted.must_equal '[obj.name].[foo]'
    end

    it 'should indicate if a name is fully qualitified' do
      extract_identifiers('object').fully_qualified?.must_equal false
      extract_identifiers('schema.object').fully_qualified?.must_equal false
      extract_identifiers('database.schema.object').fully_qualified?.must_equal false
      extract_identifiers('database.object').fully_qualified?.must_equal false
      extract_identifiers('server...object').fully_qualified?.must_equal false
      extract_identifiers('server.database..object').fully_qualified?.must_equal false
      extract_identifiers('server.database.schema.object').fully_qualified?.must_equal true
      extract_identifiers('server.database.schema.').fully_qualified?.must_equal true
      extract_identifiers('[obj.name]').fully_qualified?.must_equal false
      extract_identifiers('[schema].[obj.name]').fully_qualified?.must_equal false
      extract_identifiers('[database].[schema].[obj.name]').fully_qualified?.must_equal false
      extract_identifiers('[database].[obj.name]').fully_qualified?.must_equal false
      extract_identifiers('[server.name]...[obj.name]').fully_qualified?.must_equal false
      extract_identifiers('[server.name].[database]..[obj.name]').fully_qualified?.must_equal false
      extract_identifiers('[server.name].[database].[schema].[obj.name]').fully_qualified?.must_equal true
      extract_identifiers('[server.name].[database].[schema].').fully_qualified?.must_equal true
    end

    it 'can return fully qualified quoted table name' do
      name = extract_identifiers('[my.server].db.schema.')
      name.fully_qualified_database_quoted.must_equal '[my.server].[db]'
      name = extract_identifiers('[server.name].[database].[schema].[object]')
      name.fully_qualified_database_quoted.must_equal '[server.name].[database]'
      name = extract_identifiers('server.database.schema.object')
      name.fully_qualified_database_quoted.must_equal '[server].[database]'
    end

  end

  private

  def extract_identifiers(name)
    SQLServer::Utils.extract_identifiers(name)
  end

end