# frozen_string_literal: true

require 'spec_helper'

shared_examples 'group_minimum_answered_tests' do
  it 'is valid when all questions are filled in' do
    select_radio_option 'v_radio', 'a1'
    select_radio_option 'v_scale', 'a1'
    select_select_option 'v_select', 'a1'
    check_option 'v_ck_a1'
    uncheck_option 'v_ck_a2'
    fill_in_question 'v_string', 'kittens!'
    fill_in_question 'v_integer', '37'
    fill_in_question 'v_float', '4.2'
    fill_in_question('v_date_year',  '2013')
    fill_in_question('v_date_month', '12')
    fill_in_question('v_date_day',   '10')
    set_slider_value('v_slider', '50')
    run_validations
    expect_no_errors
    expect_saved_value 'v_radio', 'a1'
    expect_saved_value 'v_scale', 'a1'
    expect_saved_value 'v_select', 'a1'
    expect_saved_value 'v_check_box', {'v_ck_a1' => 1, 'v_ck_a2' => 0}
    expect_saved_value 'v_string', 'kittens!'
    expect_saved_value 'v_integer', "37"
    expect_saved_value 'v_float', "4.2"
    expect_saved_value 'v_date_year', "2013"
    expect_saved_value 'v_date_month', "12"
    expect_saved_value 'v_date_day', "10"
    # expect_saved_value 'v_slider', '50' # occasional client side rounding issue :S
  end

  it 'is not valid when radio question is not filled' do
    # select_radio_option 'v_radio', 'a1'
    select_radio_option 'v_scale', 'a1'
    select_select_option 'v_select', 'a1'
    check_option 'v_ck_a1'
    uncheck_option 'v_ck_a2'
    fill_in_question 'v_string', 'kittens!'
    fill_in_question 'v_integer', '37'
    fill_in_question 'v_float', '4.2'
    fill_in_question('v_date_year',  '2013')
    fill_in_question('v_date_month', '12')
    fill_in_question('v_date_day',   '10')
    set_slider_value('v_slider', '50')
    run_validations
    expect_errors_on_group
  end

  it 'is not valid when scale question is not filled' do
    select_radio_option 'v_radio', 'a1'
    # select_radio_option 'v_scale', 'a1'
    select_select_option 'v_select', 'a1'
    check_option 'v_ck_a1'
    uncheck_option 'v_ck_a2'
    fill_in_question 'v_string', 'kittens!'
    fill_in_question 'v_integer', '37'
    fill_in_question 'v_float', '4.2'
    fill_in_question('v_date_year',  '2013')
    fill_in_question('v_date_month', '12')
    fill_in_question('v_date_day',   '10')
    set_slider_value('v_slider', '50')
    run_validations
    expect_errors_on_group
  end

  it 'is not valid when select question is not filled' do
    select_radio_option 'v_radio', 'a1'
    select_radio_option 'v_scale', 'a1'
    # select_select_option 'v_select', 'a1'
    check_option 'v_ck_a1'
    uncheck_option 'v_ck_a2'
    fill_in_question 'v_string', 'kittens!'
    fill_in_question 'v_integer', '37'
    fill_in_question 'v_float', '4.2'
    fill_in_question('v_date_year',  '2013')
    fill_in_question('v_date_month', '12')
    fill_in_question('v_date_day',   '10')
    set_slider_value('v_slider', '50')
    run_validations
    expect_errors_on_group
  end

  it 'is not valid when check_box question is not filled' do
    select_radio_option 'v_radio', 'a1'
    select_radio_option 'v_scale', 'a1'
    select_select_option 'v_select', 'a1'
    # check_option 'v_ck_a1'
    # uncheck_option 'v_ck_a2'
    fill_in_question 'v_string', 'kittens!'
    fill_in_question 'v_integer', '37'
    fill_in_question 'v_float', '4.2'
    fill_in_question('v_date_year',  '2013')
    fill_in_question('v_date_month', '12')
    fill_in_question('v_date_day',   '10')
    set_slider_value('v_slider', '50')
    run_validations
    expect_errors_on_group
  end

  it 'is not valid when string question is not filled' do
    select_radio_option 'v_radio', 'a1'
    select_radio_option 'v_scale', 'a1'
    select_select_option 'v_select', 'a1'
    check_option 'v_ck_a1'
    uncheck_option 'v_ck_a2'
    # fill_in_question 'v_string', 'kittens!'
    fill_in_question 'v_integer', '37'
    fill_in_question 'v_float', '4.2'
    fill_in_question('v_date_year',  '2013')
    fill_in_question('v_date_month', '12')
    fill_in_question('v_date_day',   '10')
    set_slider_value('v_slider', '50')
    run_validations
    expect_errors_on_group
  end

  it 'is not valid when integer question is not filled' do
    select_radio_option 'v_radio', 'a1'
    select_radio_option 'v_scale', 'a1'
    select_select_option 'v_select', 'a1'
    check_option 'v_ck_a1'
    uncheck_option 'v_ck_a2'
    fill_in_question 'v_string', 'kittens!'
    # fill_in_question 'v_integer', '37'
    fill_in_question 'v_float', '4.2'
    fill_in_question('v_date_year',  '2013')
    fill_in_question('v_date_month', '12')
    fill_in_question('v_date_day',   '10')
    set_slider_value('v_slider', '50')
    run_validations
    expect_errors_on_group
  end

  it 'is not valid when float question is not filled' do
    select_radio_option 'v_radio', 'a1'
    select_radio_option 'v_scale', 'a1'
    select_select_option 'v_select', 'a1'
    check_option 'v_ck_a1'
    uncheck_option 'v_ck_a2'
    fill_in_question 'v_string', 'kittens!'
    fill_in_question 'v_integer', '37'
    # fill_in_question 'v_float', '4.2'
    fill_in_question('v_date_year',  '2013')
    fill_in_question('v_date_month', '12')
    fill_in_question('v_date_day',   '10')
    set_slider_value('v_slider', '50')
    run_validations
    expect_errors_on_group
  end

  it 'is not valid when date question is not filled' do
    select_radio_option 'v_radio', 'a1'
    select_radio_option 'v_scale', 'a1'
    select_select_option 'v_select', 'a1'
    check_option 'v_ck_a1'
    uncheck_option 'v_ck_a2'
    fill_in_question 'v_string', 'kittens!'
    fill_in_question 'v_integer', '37'
    fill_in_question 'v_float', '4.2'
    # fill_in_question('v_date_year',  '2013')
    # fill_in_question('v_date_month', '12')
    # fill_in_question('v_date_day',   '10')
    set_slider_value('v_slider', '50')
    run_validations
    expect_errors_on_group
  end

  it 'is not valid when slider question is not filled' do
    select_radio_option 'v_radio', 'a1'
    select_radio_option 'v_scale', 'a1'
    select_select_option 'v_select', 'a1'
    check_option 'v_ck_a1'
    uncheck_option 'v_ck_a2'
    fill_in_question 'v_string', 'kittens!'
    fill_in_question 'v_integer', '37'
    fill_in_question 'v_float', '4.2'
    fill_in_question('v_date_year',  '2013')
    fill_in_question('v_date_month', '12')
    fill_in_question('v_date_day',   '10')
    # set_slider_value('v_slider', '50')
    run_validations
    expect_errors_on_group
  end
end

shared_examples 'group_minimum_answered' do
  before do
    allow_server_side_validation_error
  end

  context 'minimum number of given answers in a group' do
    let(:questionnaire) do
      inject_questionnaire 'test', <<-END
        n = 9

        panel do
          question :v_radio, type: :radio, question_group: :group1, group_minimum_answered: n do
            title 'Radio Question'
            option :a1, value: 1, description: "Radio Option 1"
            option :a2, value: 2, description: "Radio Option 2"
          end

          question :v_scale, type: :scale, question_group: :group1, group_minimum_answered: n do
            title 'Scale Question'
            option :a1, value: 1, description: "Scale Option 1"
            option :a2, value: 2, description: "Scale Option 2"
          end

          question :v_select, type: :select, question_group: :group1, group_minimum_answered: n do
            title 'Select Question'
            option :a0, value: 0, description: "--- Kies ---", placeholder: true
            option :a1, value: 1, description: "Select Option 1"
            option :a2, value: 2, description: "Select Option 2"
          end

          question :v_check_box, type: :check_box, question_group: :group1, group_minimum_answered: n do
            title "Pick one"
            option :v_ck_a1, value: 1, description: 'Unicorns'
            option :v_ck_a2, value: 2, description: 'Rainbows'
          end

          question :v_string, type: :string, question_group: :group1, group_minimum_answered: n do
            title 'String Question'
          end

          question :v_integer, type: :integer, question_group: :group1, group_minimum_answered: n do
            title 'Integer Question'
          end

          question :v_float, type: :float, question_group: :group1, group_minimum_answered: n do
            title 'Float Question'
          end

          question :v_date, type: :date, question_group: :group1, group_minimum_answered: n,
                            year_key: :v_date_year, month_key: :v_date_month, day_key: :v_date_day do
            title "Enter a date"
          end

          question :v_slider, type: :float, as: :slider, size: 20, default_position: :hidden,
                              question_group: :group1, group_minimum_answered: n do
            title "Slider"
            validates_in_range 0..100
          end
        end; end_panel
      END
    end

    it_behaves_like 'group_minimum_answered_tests'
  end

  context 'table-based minimum number of given answers in a group' do
    let(:questionnaire) do
      inject_questionnaire 'test', <<-END
      n = 9

      panel do
        table columns: 20 do
          question :v_radio, type: :radio, question_group: :group1, group_minimum_answered: n do
            title 'Radio Question'
            option :a1, value: 1, description: "Radio Option 1"
            option :a2, value: 2, description: "Radio Option 2"
          end

          question :v_scale, type: :scale, question_group: :group1, group_minimum_answered: n do
            title 'Scale Question'
            option :a1, value: 1, description: "Scale Option 1"
            option :a2, value: 2, description: "Scale Option 2"
          end

          question :v_select, type: :select, question_group: :group1, group_minimum_answered: n do
            title 'Select Question'
            option :a0, value: 0, description: "--- Kies ---", placeholder: true
            option :a1, value: 1, description: "Select Option 1"
            option :a2, value: 2, description: "Select Option 2"
          end

          question :v_check_box, type: :check_box, question_group: :group1, group_minimum_answered: n do
            title "Pick one"
            option :v_ck_a1, value: 1, description: 'Unicorns'
            option :v_ck_a2, value: 2, description: 'Rainbows'
          end

          question :v_string, type: :string, question_group: :group1, group_minimum_answered: n do
            title 'String Question'
          end

          question :v_integer, type: :integer, question_group: :group1, group_minimum_answered: n do
            title 'Integer Question'
          end

          question :v_float, type: :float, question_group: :group1, group_minimum_answered: n do
            title 'Float Question'
          end

          question :v_date, type: :date, question_group: :group1, group_minimum_answered: n,
                            year_key: :v_date_year, month_key: :v_date_month, day_key: :v_date_day do
            title "Enter a date"
          end
        end

        question :v_slider, type: :float, as: :slider, size: 20, default_position: :hidden,
                            question_group: :group1, group_minimum_answered: n do
          title "Slider"
          validates_in_range 0..100
        end
      end
      end_panel
      END
    end

    it_behaves_like 'group_minimum_answered_tests'
  end

  context 'with hidden questions in the mix' do
    let(:questionnaire) do
      inject_questionnaire 'test', <<-END
        n = 3

        panel do
          question :v_radio, type: :radio, question_group: :grp1, group_minimum_answered: n do
            title 'Radio Question'
            option :a1, value: 1, description: "Radio Option 1"
            option :a2, value: 2, description: "Radio Option 2"
          end

          question :v_scale, type: :scale, default_invisible: true, question_group: :grp1, group_minimum_answered: n do
            title 'Scale Question'
            option :a1, value: 1, description: "Scale Option 1"
            option :a2, value: 2, description: "Scale Option 2"
          end

          question :v_select, type: :select, question_group: :grp1, group_minimum_answered: n do
            title 'Select Question'
            option :a0, value: 0, description: "--- Kies ---", placeholder: true
            option :a1, value: 1, description: "Select Option 1"
            option :a2, value: 2, description: "Select Option 2"
          end
        end; end_panel
      END
    end

    it 'does not count hidden as answered' do
      select_radio_option 'v_radio', 'a1'
      select_select_option 'v_select', 'a1'
      run_validations
      expect_error_on 'v_radio', 'answer_group_minimum'
      expect_error_on 'v_select', 'answer_group_minimum'
    end
  end

  context 'when all questions are hidden' do
    let(:questionnaire) do
      inject_questionnaire 'test', <<-END
        panel do
          question :v_1, type: :radio do
            title 'Q1'
            option :a1, value: 1, description: "Hide", hides_questions: [:v_2, :v_3]
            option :a2, value: 2, description: "None"
          end

          question :v_2, type: :radio, question_group: :grp1, group_minimum_answered: 2 do
            title 'Radio Question'
            option :a1, value: 1, description: "Radio Option 1"
            option :a2, value: 2, description: "Radio Option 2"
          end

          question :v_3, type: :radio, question_group: :grp1, group_minimum_answered: 2 do
            title 'Radio Question'
            option :a1, value: 1, description: "Radio Option 1"
            option :a2, value: 2, description: "Radio Option 2"
          end
        end; end_panel
      END
    end

    it 'does not count hidden required' do
      select_radio_option 'v_1', 'a1'
      run_validations
      expect_no_errors
    end
  end

  def expect_errors_on_group
    expect_error_on 'v_radio', 'answer_group_minimum'
    expect_error_on 'v_scale', 'answer_group_minimum'
    expect_error_on 'v_select', 'answer_group_minimum'
    expect_error_on 'v_check_box', 'answer_group_minimum'
    expect_error_on 'v_string', 'answer_group_minimum'
    expect_error_on 'v_integer', 'answer_group_minimum'
    expect_error_on 'v_float', 'answer_group_minimum'
    expect_error_on 'v_date', 'answer_group_minimum'
    expect_error_on 'v_slider', 'answer_group_minimum'
  end
end

feature 'Client-side validations for group minimum answered', js: true do
  include ClientSideValidationHelpers
  it_behaves_like "group_minimum_answered"
end

feature 'Server-side validations for group minimum answered' do
  include ServerSideValidationHelpers
  it_behaves_like "group_minimum_answered"
end