# frozen_string_literal: true

require 'tc_helper'
require 'support/capture_warnings'

class TestDataValidation < Test::Unit::TestCase
  include CaptureWarnings

  def setup
    # inverse defaults
    @boolean_options = { allowBlank: false, hideDropDown: true, showErrorMessage: false, showInputMessage: true }
    @nil_options = { formula1: 'foo', formula2: 'foo', errorTitle: 'foo', operator: :lessThan, prompt: 'foo', promptTitle: 'foo', sqref: 'foo' }
    @type_option = { type: :whole }
    @error_style_option = { errorStyle: :warning }

    @string_options = { formula1: 'foo', formula2: 'foo', error: 'foo', errorTitle: 'foo', prompt: 'foo', promptTitle: 'foo', sqref: 'foo' }
    @symbol_options = { errorStyle: :warning, operator: :lessThan, type: :whole }

    @options = @boolean_options.merge(@nil_options).merge(@type_option).merge(@error_style_option)

    @dv = Axlsx::DataValidation.new(@options)
  end

  def test_initialize
    dv = Axlsx::DataValidation.new

    @boolean_options.each do |key, value|
      assert_equal(!value, dv.send(key.to_sym), "initialized default #{key} should be #{!value}")
      assert_equal(value, @dv.send(key.to_sym), "initialized options #{key} should be #{value}")
    end

    @nil_options.each do |key, value|
      assert_nil(dv.send(key.to_sym), "initialized default #{key} should be nil")
      assert_equal(value, @dv.send(key.to_sym), "initialized options #{key} should be #{value}")
    end

    @type_option.each do |key, value|
      assert_equal(:none, dv.send(key.to_sym), "initialized default #{key} should be :none")
      assert_equal(value, @dv.send(key.to_sym), "initialized options #{key} should be #{value}")
    end

    @error_style_option.each do |key, value|
      assert_equal(:stop, dv.send(key.to_sym), "initialized default #{key} should be :stop")
      assert_equal(value, @dv.send(key.to_sym), "initialized options #{key} should be #{value}")
    end
  end

  def test_boolean_attribute_validation
    @boolean_options.each do |key, value|
      assert_raise(ArgumentError, "#{key} must be boolean") { @dv.send("#{key}=".to_sym, 'A') }
      assert_nothing_raised { @dv.send("#{key}=".to_sym, value) }
    end
  end

  def test_string_attribute_validation
    @string_options.each do |key, value|
      assert_raise(ArgumentError, "#{key} must be string") { @dv.send("#{key}=".to_sym, :symbol) }
      assert_nothing_raised { @dv.send("#{key}=".to_sym, value) }
    end
  end

  def test_symbol_attribute_validation
    @symbol_options.each do |key, value|
      assert_raise(ArgumentError, "#{key} must be symbol") { @dv.send("#{key}=".to_sym, "foo") }
      assert_nothing_raised { @dv.send("#{key}=".to_sym, value) }
    end
  end

  def test_formula1
    assert_raise(ArgumentError) { @dv.formula1 = 10 }
    assert_nothing_raised { @dv.formula1 = "=SUM(A1:A1)" }
    assert_equal("=SUM(A1:A1)", @dv.formula1)
  end

  def test_formula2
    assert_raise(ArgumentError) { @dv.formula2 = 10 }
    assert_nothing_raised { @dv.formula2 = "=SUM(A1:A1)" }
    assert_equal("=SUM(A1:A1)", @dv.formula2)
  end

  def test_allowBlank
    assert_raise(ArgumentError) { @dv.allowBlank = "foo´" }
    assert_nothing_raised { @dv.allowBlank = false }
    refute(@dv.allowBlank)
  end

  def test_error
    assert_raise(ArgumentError) { @dv.error = :symbol }
    assert_nothing_raised { @dv.error = "This is a error message" }
    assert_equal("This is a error message", @dv.error)
  end

  def test_errorStyle
    assert_raise(ArgumentError) { @dv.errorStyle = "foo" }
    assert_nothing_raised { @dv.errorStyle = :information }
    assert_equal(:information, @dv.errorStyle)
  end

  def test_errorTitle
    assert_raise(ArgumentError) { @dv.errorTitle = :symbol }
    assert_nothing_raised { @dv.errorTitle = "This is the error title" }
    assert_equal("This is the error title", @dv.errorTitle)
  end

  def test_operator
    assert_raise(ArgumentError) { @dv.operator = "foo" }
    assert_nothing_raised { @dv.operator = :greaterThan }
    assert_equal(:greaterThan, @dv.operator)
  end

  def test_prompt
    assert_raise(ArgumentError) { @dv.prompt = :symbol }
    assert_nothing_raised { @dv.prompt = "This is a prompt message" }
    assert_equal("This is a prompt message", @dv.prompt)
  end

  def test_promptTitle
    assert_raise(ArgumentError) { @dv.promptTitle = :symbol }
    assert_nothing_raised { @dv.promptTitle = "This is the prompt title" }
    assert_equal("This is the prompt title", @dv.promptTitle)
  end

  def test_showDropDown
    warnings = capture_warnings do
      assert_raise(ArgumentError) { @dv.showDropDown = "foo´" }
      assert_nothing_raised { @dv.showDropDown = false }
      refute(@dv.showDropDown)
    end

    assert_equal 2, warnings.size
    assert_includes warnings.first, 'The `showDropDown` has an inverted logic, false shows the dropdown list! You should use `hideDropDown` instead.'
  end

  def test_hideDropDown
    assert_raise(ArgumentError) { @dv.hideDropDown = "foo´" }
    assert_nothing_raised { @dv.hideDropDown = false }
    refute(@dv.hideDropDown)
    # As hideDropdown is just an alias for showDropDown, we should test the original value too
    refute(@dv.showDropDown)
  end

  def test_showErrorMessage
    assert_raise(ArgumentError) { @dv.showErrorMessage = "foo´" }
    assert_nothing_raised { @dv.showErrorMessage = false }
    refute(@dv.showErrorMessage)
  end

  def test_showInputMessage
    assert_raise(ArgumentError) { @dv.showInputMessage = "foo´" }
    assert_nothing_raised { @dv.showInputMessage = false }
    refute(@dv.showInputMessage)
  end

  def test_sqref
    assert_raise(ArgumentError) { @dv.sqref = 10 }
    assert_nothing_raised { @dv.sqref = "A1:A1" }
    assert_equal("A1:A1", @dv.sqref)
  end

  def test_type
    assert_raise(ArgumentError) { @dv.type = "foo" }
    assert_nothing_raised { @dv.type = :list }
    assert_equal(:list, @dv.type)
  end

  def test_whole_decimal_data_time_textLength_to_xml
    p = Axlsx::Package.new
    @ws = p.workbook.add_worksheet name: "data_validation"
    @ws.add_data_validation("A1", { type: :whole, operator: :between, formula1: '5', formula2: '10',
                                    showErrorMessage: true, errorTitle: 'Wrong input', error: 'Only values between 5 and 10',
                                    errorStyle: :information, showInputMessage: true, promptTitle: 'Be carful!',
                                    prompt: 'Only values between 5 and 10' })

    doc = Nokogiri::XML.parse(@ws.to_xml_string)

    # test attributes
    assert_equal(1, doc.xpath("//xmlns:worksheet/xmlns:dataValidations[@count='1']/xmlns:dataValidation[@sqref='A1']
      [@promptTitle='Be carful!'][@prompt='Only values between 5 and 10'][@operator='between'][@errorTitle='Wrong input']
      [@error='Only values between 5 and 10'][@showErrorMessage=1][@allowBlank=1][@showInputMessage=1][@type='whole']
      [@errorStyle='information']").size)
    assert doc.xpath("//xmlns:worksheet/xmlns:dataValidations[@count='1']/xmlns:dataValidation[@sqref='A1']
      [@promptTitle='Be carful!'][@prompt='Only values between 5 and 10'][@operator='between'][@errorTitle='Wrong input']
      [@error='Only values between 5 and 10'][@showErrorMessage=1][@allowBlank=1][@showInputMessage=1]
      [@type='whole'][@errorStyle='information']")

    # test forumula1
    assert_equal(1, doc.xpath("//xmlns:worksheet/xmlns:dataValidations/xmlns:dataValidation/xmlns:formula1").size)
    assert doc.xpath("//xmlns:worksheet/xmlns:dataValidations/xmlns:dataValidation/xmlns:formula1='5'")

    # test forumula2
    assert_equal(1, doc.xpath("//xmlns:worksheet/xmlns:dataValidations/xmlns:dataValidation/xmlns:formula2").size)
    assert doc.xpath("//xmlns:worksheet/xmlns:dataValidations/xmlns:dataValidation/xmlns:formula2='10'")
  end

  def test_list_to_xml
    p = Axlsx::Package.new
    @ws = p.workbook.add_worksheet name: "data_validation"
    @ws.add_data_validation("A1", { type: :list, formula1: 'A1:A5',
                                    showErrorMessage: true, errorTitle: 'Wrong input', error: 'Only values from list',
                                    errorStyle: :stop, showInputMessage: true, promptTitle: 'Be carful!',
                                    prompt: 'Only values from list', hideDropDown: true })

    doc = Nokogiri::XML.parse(@ws.to_xml_string)

    # test attributes
    assert_equal(1, doc.xpath("//xmlns:worksheet/xmlns:dataValidations[@count='1']/xmlns:dataValidation[@sqref='A1']
      [@promptTitle='Be carful!'][@prompt='Only values from list'][@errorTitle='Wrong input'][@error='Only values from list']
      [@showErrorMessage=1][@allowBlank=1][@showInputMessage=1][@showDropDown=1][@type='list']
      [@errorStyle='stop']").size)
    assert doc.xpath("//xmlns:worksheet/xmlns:dataValidations[@count='1']/xmlns:dataValidation[@sqref='A1']
      [@promptTitle='Be carful!'][@prompt='Only values from list'][@errorTitle='Wrong input'][@error='Only values from list']
      [@showErrorMessage=1][@allowBlank=1][@showInputMessage=1][@showDropDown=1][@type='list'][@errorStyle='stop']")

    # test forumula1
    assert_equal(1, doc.xpath("//xmlns:worksheet/xmlns:dataValidations/xmlns:dataValidation/xmlns:formula1").size)
    assert doc.xpath("//xmlns:worksheet/xmlns:dataValidations/xmlns:dataValidation/xmlns:formula1='A1:A5'")
  end

  def test_custom_to_xml
    p = Axlsx::Package.new
    @ws = p.workbook.add_worksheet name: "data_validation"
    @ws.add_data_validation("A1", { type: :custom, formula1: '=5/2',
                                    showErrorMessage: true, errorTitle: 'Wrong input', error: 'Only values corresponding formula',
                                    errorStyle: :stop, showInputMessage: true, promptTitle: 'Be carful!',
                                    prompt: 'Only values corresponding formula' })

    doc = Nokogiri::XML.parse(@ws.to_xml_string)

    # test attributes
    assert_equal(1, doc.xpath("//xmlns:worksheet/xmlns:dataValidations[@count='1']/xmlns:dataValidation[@sqref='A1'][@promptTitle='Be carful!']
      [@prompt='Only values corresponding formula'][@errorTitle='Wrong input'][@error='Only values corresponding formula'][@showErrorMessage=1]
      [@allowBlank=1][@showInputMessage=1][@type='custom'][@errorStyle='stop']").size)
    assert doc.xpath("//xmlns:worksheet/xmlns:dataValidations[@count='1']/xmlns:dataValidation[@sqref='A1'][@promptTitle='Be carful!']
      [@prompt='Only values corresponding formula'][@errorTitle='Wrong input'][@error='Only values corresponding formula']
      [@showErrorMessage=1][@allowBlank=1][@showInputMessage=1][@type='custom'][@errorStyle='stop']")

    # test forumula1
    assert_equal(1, doc.xpath("//xmlns:worksheet/xmlns:dataValidations/xmlns:dataValidation/xmlns:formula1").size)
    assert doc.xpath("//xmlns:worksheet/xmlns:dataValidations/xmlns:dataValidation/xmlns:formula1='=5/2'")
  end

  def test_none_to_xml
    p = Axlsx::Package.new
    @ws = p.workbook.add_worksheet name: "data_validation"
    @ws.add_data_validation("A1", { type: :none,
                                    showInputMessage: true, promptTitle: 'Be careful!',
                                    prompt: 'This is a warning to be extra careful editing this cell' })

    doc = Nokogiri::XML.parse(@ws.to_xml_string)

    # test attributes
    assert_equal(1, doc.xpath("//xmlns:worksheet/xmlns:dataValidations[@count='1']/xmlns:dataValidation[@sqref='A1']
      [@promptTitle='Be careful!'][@prompt='This is a warning to be extra careful editing this cell']
      [@allowBlank=1][@showInputMessage=1][@type='none']").size)
    assert doc.xpath("//xmlns:worksheet/xmlns:dataValidations[@count='1']/xmlns:dataValidation[@sqref='A1']
      [@promptTitle='Be careful!'][@prompt='This is a warning to be extra careful editing this cell']
      [@allowBlank=1][@showInputMessage=1][@type='none']")
  end

  def test_multiple_datavalidations_to_xml
    p = Axlsx::Package.new
    @ws = p.workbook.add_worksheet name: "data_validation"
    @ws.add_data_validation("A1", { type: :whole, operator: :between, formula1: '5', formula2: '10',
                                    showErrorMessage: true, errorTitle: 'Wrong input', error: 'Only values between 5 and 10',
                                    errorStyle: :information, showInputMessage: true, promptTitle: 'Be carful!',
                                    prompt: 'Only values between 5 and 10' })
    @ws.add_data_validation("B1", { type: :list, formula1: 'A1:A5',
                                    showErrorMessage: true, errorTitle: 'Wrong input', error: 'Only values from list',
                                    errorStyle: :stop, showInputMessage: true, promptTitle: 'Be carful!',
                                    prompt: 'Only values from list', hideDropDown: true })

    doc = Nokogiri::XML.parse(@ws.to_xml_string)

    # test attributes
    assert_equal(1, doc.xpath("//xmlns:worksheet/xmlns:dataValidations[@count='2']/xmlns:dataValidation[@sqref='A1']
      [@promptTitle='Be carful!'][@prompt='Only values between 5 and 10'][@operator='between'][@errorTitle='Wrong input']
      [@error='Only values between 5 and 10'][@showErrorMessage=1][@allowBlank=1][@showInputMessage=1][@type='whole']
      [@errorStyle='information']").size)
    assert doc.xpath("//xmlns:worksheet/xmlns:dataValidations[@count='2']/xmlns:dataValidation[@sqref='A1']
      [@promptTitle='Be carful!'][@prompt='Only values between 5 and 10'][@operator='between'][@errorTitle='Wrong input']
      [@error='Only values between 5 and 10'][@showErrorMessage=1][@allowBlank=1][@showInputMessage=1]
      [@type='whole'][@errorStyle='information']")

    # test attributes
    assert_equal(1, doc.xpath("//xmlns:worksheet/xmlns:dataValidations[@count='2']/xmlns:dataValidation[@sqref='B1']
      [@promptTitle='Be carful!'][@prompt='Only values from list'][@errorTitle='Wrong input'][@error='Only values from list']
      [@showErrorMessage=1][@allowBlank=1][@showInputMessage=1][@showDropDown=1][@type='list']
      [@errorStyle='stop']").size)
    assert doc.xpath("//xmlns:worksheet/xmlns:dataValidations[@count='2']/xmlns:dataValidation[@sqref='B1']
      [@promptTitle='Be carful!'][@prompt='Only values from list'][@errorTitle='Wrong input'][@error='Only values from list']
      [@showErrorMessage=1][@allowBlank=1][@showInputMessage=1][@showDropDown=1][@type='list'][@errorStyle='stop']")
  end

  def test_empty_attributes
    v = Axlsx::DataValidation.new

    assert_equal([:allowBlank,
                  :error,
                  :errorStyle,
                  :errorTitle,
                  :prompt,
                  :promptTitle,
                  :showErrorMessage,
                  :showInputMessage,
                  :sqref,
                  :type], v.send(:get_valid_attributes))
  end
end