class Mail::TestRetriever

def self.emails
  @@emails
end

def self.emails=(val)
  @@emails = val
end

def find(options = {}, &block)
  options[:count] ||= :all
  options[:order] ||= :asc
  options[:what] ||= :first
  emails = @@emails.dup
  emails.reverse! if options[:what] == :last
  emails = case count = options[:count]
    when :all then emails
    when 1 then emails.first
    when Fixnum then emails[0, count]
    else
      raise 'Invalid count option value: ' + count.inspect
  end
  if options[:what] == :last && options[:order] == :asc || options[:what] == :first && options[:order] == :desc
    emails.reverse!
  end
  emails.each { |email| email.mark_for_delete = true } if options[:delete_after_find]
  if block_given?
    emails.each { |email| yield email }
  else
    emails
  end.tap do |results|
    emails.each { |email| @@emails.delete(email) if email.is_marked_for_delete? } if options[:delete_after_find]
  end
end

def initialize(values)
  @@emails = []
end