module FFaker::SSNSE

def generate_ssn(from, to, gender)
  birth_date = random_birth_time_between(from, to)
  birth_date_str = birth_date.strftime('%Y%m%d') # "19800228"
  region = random_region_for(gender) # "413"
  ssn_without_check_digit = birth_date_str + region # "19800228413"
  check_digit = luhn_check(ssn_without_check_digit) # "9"
  ssn_without_check_digit + check_digit # "198002284139"
end

def raise_error_on_bad_arguments(from, to, gender)
  raise ArgumentError, 'Invalid from argument: from' unless to.is_a? ::Time
  raise ArgumentError, 'Invalid from argument: from' unless from.is_a? ::Time
  raise ArgumentError, 'Invalid argument: from > to' if from > to
  raise ArgumentError, 'Invalid argument: gender' unless GENDERS.include?(gender.to_s)
end

def random_birth_time_between(from = ::Time.local(1940, 1, 1), to = ::Time.now)
  ::Time.at(from + rand * (to.to_f - from.to_f))
end

def random_region_even
  rand(0..498) * 2
end

def random_region_for(gender)
  region_number = case gender
                  when 'female' then random_region_even
                  when 'male' then random_region_odd
                  end
  three_character_string(region_number)
end

def random_region_odd
  rand(0..498) * 2 + 1
end

def ssn(opts = {})
  from   = opts[:from] || ::Time.local(1940, 1, 1)
  to     = opts[:to] || ::Time.now
  gender = (opts[:gender] || fetch_sample(GENDERS)).to_s
  raise_error_on_bad_arguments(from, to, gender)
  generate_ssn(from, to, gender)
end

def three_character_string(number)
  format('%03d', number)
end