require 'rails_helper'

describe ResponseRate, type: :model do
  let(:school) { create(:school) }
  let(:academic_year) { create(:academic_year) }

  describe StudentResponseRate do
    let(:subcategory) { create(:subcategory) }
    let(:sufficient_measure_1) { create(:measure, subcategory:) }
    let(:sufficient_scale_1) { create(:scale, measure: sufficient_measure_1) }
    let(:sufficient_measure_2) { create(:measure, subcategory:) }
    let(:sufficient_scale_2) { create(:scale, measure: sufficient_measure_2) }
    let(:sufficient_teacher_survey_item) { create(:teacher_survey_item, scale: sufficient_scale_1) }
    let(:sufficient_student_survey_item_1) { create(:student_survey_item, scale: sufficient_scale_1) }
    let(:insufficient_student_survey_item_1) { create(:student_survey_item, scale: sufficient_scale_1) }
    let(:sufficient_student_survey_item_2) { create(:student_survey_item, scale: sufficient_scale_2) }

    before :each do
      create_list(:survey_item_response, SurveyItemResponse::TEACHER_RESPONSE_THRESHOLD, survey_item: sufficient_teacher_survey_item,
                                                                                         academic_year:, school:, likert_score: 1)
      create_list(:survey_item_response, SurveyItemResponse::STUDENT_RESPONSE_THRESHOLD, survey_item: sufficient_student_survey_item_1,
                                                                                         academic_year:, school:, likert_score: 4)
      create_list(:survey_item_response, SurveyItemResponse::STUDENT_RESPONSE_THRESHOLD, survey_item: sufficient_student_survey_item_2,
                                                                                         academic_year:, school:, likert_score: 4)
    end
    context 'when a students take a regular survey' do
      before :each do
        create(:respondent, school:, academic_year:)
        create(:survey, school:, academic_year:)
      end

      context 'when the average number of student responses per question in a subcategory is equal to the student response threshold' do
        it 'returns a response rate equal to the response threshold' do
          expect(StudentResponseRate.new(subcategory:, school:,
                                         academic_year:).rate).to eq 25
        end
      end
    end

    context 'when students take the short form survey' do
      before :each do
        create(:respondent, school:, academic_year:)
        create(:survey, form: :short, school:, academic_year:)
      end

      context 'when the average number of student responses per question in a subcategory is equal to the student response threshold' do
        before :each do
          sufficient_student_survey_item_1.update! on_short_form: true
          sufficient_student_survey_item_2.update! on_short_form: true
        end

        it 'returns 100 percent' do
          expect(StudentResponseRate.new(subcategory:, school:,
                                         academic_year:).rate).to eq 25
        end

        context 'for the same number of responses, if only one of the questions is a short form question, the response rate will be half' do
          before do
            sufficient_student_survey_item_2.update! on_short_form: false
          end

          it 'returns 100 percent' do
            expect(StudentResponseRate.new(subcategory:, school:,
                                           academic_year:).rate).to eq 50
          end
        end
      end
    end

    context 'when the average number of teacher responses is greater than the total possible responses' do
      before do
        create(:respondent, school:, academic_year:)
        create(:survey, school:, academic_year:)
        create_list(:survey_item_response, SurveyItemResponse::STUDENT_RESPONSE_THRESHOLD * 11, survey_item: sufficient_student_survey_item_2,
                                                                                                academic_year:, school:, likert_score: 1)
      end
      it 'returns 100 percent' do
        expect(StudentResponseRate.new(subcategory:, school:,
                                       academic_year:).rate).to eq 100
      end
    end

    context 'when no survey information exists for that school or year' do
      it 'returns 100 percent' do
        expect(StudentResponseRate.new(subcategory:, school:, academic_year:).rate).to eq 100
      end
    end

    context 'when there is an imbalance in the response rate of the student items' do
      context 'and one of the student items has no associated survey item responses' do
        before do
          create(:respondent, school:, academic_year:)
          create(:survey, school:, academic_year:)
          insufficient_student_survey_item_1
        end
        it 'ignores the empty survey item and returns only the average response rate of student survey items with responses' do
          expect(StudentResponseRate.new(subcategory:, school:,
                                         academic_year:).rate).to eq 25
        end
      end
    end
  end

  describe TeacherResponseRate do
    let(:subcategory) { create(:subcategory) }
    let(:sufficient_measure_1) { create(:measure, subcategory:) }
    let(:sufficient_scale_1) { create(:scale, measure: sufficient_measure_1) }
    let(:sufficient_measure_2) { create(:measure, subcategory:) }
    let(:sufficient_scale_2) { create(:scale, measure: sufficient_measure_2) }
    let(:sufficient_teacher_survey_item_1) { create(:teacher_survey_item, scale: sufficient_scale_1) }
    let(:sufficient_teacher_survey_item_2) { create(:teacher_survey_item, scale: sufficient_scale_1) }
    let(:sufficient_teacher_survey_item_3) { create(:teacher_survey_item, scale: sufficient_scale_1) }
    let(:insufficient_teacher_survey_item_4) { create(:teacher_survey_item, scale: sufficient_scale_1) }
    let(:sufficient_student_survey_item_1) { create(:student_survey_item, scale: sufficient_scale_1) }

    before :each do
      create_list(:survey_item_response, SurveyItemResponse::TEACHER_RESPONSE_THRESHOLD, survey_item: sufficient_teacher_survey_item_1,
                                                                                         academic_year:, school:, likert_score: 1)
      create_list(:survey_item_response, SurveyItemResponse::TEACHER_RESPONSE_THRESHOLD, survey_item: sufficient_teacher_survey_item_2,
                                                                                         academic_year:, school:, likert_score: 1)
      create_list(:survey_item_response, SurveyItemResponse::STUDENT_RESPONSE_THRESHOLD, survey_item: sufficient_student_survey_item_1,
                                                                                         academic_year:, school:, likert_score: 4)
    end

    context 'when the average number of teacher responses per question in a subcategory is at the threshold' do
      before :each do
        create(:respondent, school:, academic_year:)
        create(:survey, school:, academic_year:)
      end
      it 'returns 25 percent' do
        expect(TeacherResponseRate.new(subcategory:, school:,
                                       academic_year:).rate).to eq 25
      end
    end

    context 'when the teacher response rate is not a whole number. eg 29.166%' do
      before do
        create(:respondent, school:, academic_year:)
        create(:survey, school:, academic_year:)
        create_list(:survey_item_response, SurveyItemResponse::TEACHER_RESPONSE_THRESHOLD + 1, survey_item: sufficient_teacher_survey_item_3,
                                                                                               academic_year:, school:, likert_score: 1)
      end
      it 'it will return the nearest whole number' do
        expect(TeacherResponseRate.new(subcategory:, school:,
                                       academic_year:).rate).to eq 29
      end
    end

    context 'when the average number of teacher responses is greater than the total possible responses' do
      before do
        create(:respondent, school:, academic_year:)
        create(:survey, school:, academic_year:)
        create_list(:survey_item_response, SurveyItemResponse::TEACHER_RESPONSE_THRESHOLD * 11, survey_item: sufficient_teacher_survey_item_3,
                                                                                                academic_year:, school:, likert_score: 1)
      end
      it 'returns 100 percent' do
        expect(TeacherResponseRate.new(subcategory:, school:,
                                       academic_year:).rate).to eq 100
      end
    end

    context 'when no survey information exists for that school and academic_year' do
      it 'returns 100 percent' do
        expect(TeacherResponseRate.new(subcategory:, school:,
                                       academic_year:).rate).to eq 100
      end
    end

    context 'when there is an imbalance in the response rate of the teacher items' do
      context 'and one of the teacher items has no associated survey item responses' do
        before do
          create(:respondent, school:, academic_year:)
          create(:survey, school:, academic_year:)
          insufficient_teacher_survey_item_4
        end
        it 'ignores the empty survey item and returns only the average response rate of teacher survey items with responses' do
          expect(TeacherResponseRate.new(subcategory:, school:,
                                         academic_year:).rate).to eq 25
        end
      end
    end
  end
end