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(: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 100 percent' 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
  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(: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
  end
end