require 'rails_helper'

describe ResponseRatePresenter do
  let(:academic_year) { create(:academic_year, range: '2022-23') }
  let(:school) { create(:school, name: 'A school') }
  let(:respondents) { create(:respondent, school:, academic_year:, total_students: 40, total_teachers: 40) }
  let(:wrong_school) { create(:school, name: 'Wrong school') }
  let(:wrong_academic_year) { create(:academic_year) }
  let(:wrong_respondents) do
    create(:respondent, school: wrong_school, academic_year: wrong_academic_year, total_students: 40,
                        total_teachers: 40)
  end

  let(:student_survey_item) { create(:student_survey_item) }
  let(:teacher_survey_item) { create(:teacher_survey_item) }
  let(:oldest_student_survey_response) do
    create(:survey_item_response, school:, academic_year:, survey_item: student_survey_item)
  end
  let(:newest_student_survey_response) do
    create(:survey_item_response, school:, academic_year:, survey_item: student_survey_item)
  end
  let(:oldest_teacher_survey_response) do
    create(:survey_item_response, school:, academic_year:, survey_item: teacher_survey_item)
  end
  let(:newest_teacher_survey_response) do
    create(:survey_item_response, school:, academic_year:, survey_item: teacher_survey_item)
  end

  let(:wrong_student_survey_response) do
    create(:survey_item_response, school: wrong_school, academic_year: wrong_academic_year,
                                  survey_item: student_survey_item)
  end
  let(:wrong_teacher_survey_response) do
    create(:survey_item_response, school: wrong_school, academic_year: wrong_academic_year,
                                  survey_item: teacher_survey_item)
  end

  context '.date' do
    context 'when focus is student' do
      before :each do
        oldest_student_survey_response
        newest_student_survey_response
        wrong_student_survey_response
        wrong_teacher_survey_response
      end

      it 'ignores all teacher items and only gets the modified date of the last student item' do
        rdate = ResponseRatePresenter.new(focus: :student, academic_year:, school:).date
        expect(rdate).to eq(newest_student_survey_response.updated_at)
      end
    end
    context 'when focus is teacher' do
      before :each do
        oldest_teacher_survey_response
        newest_teacher_survey_response
        wrong_student_survey_response
        wrong_teacher_survey_response
      end

      it 'ignores all student responses and only gets the modified date of the last teacher item' do
        rdate = ResponseRatePresenter.new(focus: :teacher, academic_year:, school:).date
        expect(rdate).to eq(newest_teacher_survey_response.updated_at)
      end
    end
  end

  context '.percentage' do
    before :each do
      respondents
      wrong_respondents
    end
    context 'when no survey responses are found for a school' do
      it 'returns a response rate of 0' do
        rdate = ResponseRatePresenter.new(focus: :teacher, academic_year:, school:).percentage
        expect(rdate).to eq(0)
      end
    end

    context 'when there all possible teacher respondents answered questions' do
      before :each do
        create_list(:survey_item_response, 40, school:, academic_year:,
                                               survey_item: teacher_survey_item)
      end

      it 'returns a response rate of 100' do
        rdate = ResponseRatePresenter.new(focus: :teacher, academic_year:, school:).percentage
        expect(rdate).to eq(100)
      end
    end

    context 'when more teachers responded than staff the school' do
      before :each do
        create_list(:survey_item_response, 80, school:, academic_year:,
                                               survey_item: teacher_survey_item)
      end

      it 'returns a response rate of 100' do
        rdate = ResponseRatePresenter.new(focus: :teacher, academic_year:, school:).percentage
        expect(rdate).to eq(100)
      end
    end

    context 'when three quarters of the teachers responded to the survey' do
      before :each do
        create_list(:survey_item_response, 30, school:, academic_year:,
                                               survey_item: teacher_survey_item)
      end

      it 'returns a response rate of 75' do
        rdate = ResponseRatePresenter.new(focus: :teacher, academic_year:, school:).percentage
        expect(rdate).to eq(75)
      end
    end
    context 'when one quarter of the teachers responded to the survey' do
      before :each do
        create_list(:survey_item_response, 10, school:, academic_year:,
                                               survey_item: teacher_survey_item)
      end

      it 'returns a response rate of 25' do
        rdate = ResponseRatePresenter.new(focus: :teacher, academic_year:, school:).percentage
        expect(rdate).to eq(25)
      end
    end
    context 'When the percentage is not a round number' do
      before :each do
        create_list(:survey_item_response, 9, school:, academic_year:,
                                              survey_item: teacher_survey_item)
      end

      it 'its rounded to the nearest integer' do
        rdate = ResponseRatePresenter.new(focus: :teacher, academic_year:, school:).percentage
        expect(rdate).to eq(23)
      end
    end

    context 'when there all possible student respondents answered questions' do
      before :each do
        create_list(:survey_item_response, 40, school:, academic_year:,
                                               survey_item: student_survey_item)
      end

      it 'returns a response rate of 100' do
        rdate = ResponseRatePresenter.new(focus: :student, academic_year:, school:).percentage
        expect(rdate).to eq(100)
      end
    end
    context 'when half of all students responded' do
      before :each do
        create_list(:survey_item_response, 20, school:, academic_year:,
                                               survey_item: student_survey_item)
      end

      it 'returns a response rate of 50' do
        rdate = ResponseRatePresenter.new(focus: :student, academic_year:, school:).percentage
        expect(rdate).to eq(50)
      end
    end
  end
end