class Test::Unit::Priority::Checker

def available_priorities
  methods(false).collect do |name|
    /\Arun_priority_(.+)\?\z/ =~ name.to_s
    $1
  end.compact
end

def escape_class_name(class_name)
  escape_name(class_name)
end

def escape_name(name)
  name.gsub(/(?:[: \/!?=])/) do |matched|
    case matched
    when ":"
      "_colon_"
    when " ", "/"
      "_"
    when "!"
      ".destructive"
    when "?"
      ".predicate"
    when "="
      ".equal"
    end
  end
end

def escaped_method_name
  escape_name(@test.method_name.to_s)
end

def have_priority?(name)
  singleton_class = (class << self; self; end)
  singleton_class.method_defined?(priority_check_method_name(name))
end

def initialize(test)
  @test = test
end

def need_to_run?(test)
  priority = test[:priority] || Priority.default
  if have_priority?(priority)
    __send__(priority_check_method_name(priority), test)
  else
    true
  end
end

def need_to_run?
  !previous_test_success? or self.class.need_to_run?(@test)
end

def passed_file
  File.join(result_dir, "passed")
end

def previous_test_success?
  File.exist?(passed_file)
end

def priority_check_method_name(priority_name)
  "run_priority_#{priority_name}?"
end

def result_dir
  components = [
    ".test-result",
    escape_class_name(@test.class.name || "AnonymousTestCase"),
    escaped_method_name,
  ]
  parent_directories = [File.dirname($0), Dir.pwd]
  if Process.respond_to?(:uid)
    parent_directories << File.join(Dir.tmpdir, Process.uid.to_s)
  end
  parent_directories.each do |parent_directory|
    dir = File.expand_path(File.join(parent_directory, *components))
    begin
      FileUtils.mkdir_p(dir)
      return dir
    rescue Errno::EACCES
    end
  end
  raise Errno::EACCES, parent_directories.join(", ")
end

def run_priority_high?(test)
  rand > 0.3
end

def run_priority_important?(test)
  rand > 0.1
end

def run_priority_low?(test)
  rand > 0.75
end

def run_priority_must?(test)
  true
end

def run_priority_never?(test)
  false
end

def run_priority_normal?(test)
  rand > 0.5
end

def setup
  FileUtils.rm_f(passed_file)
end

def teardown
  if @test.__send__(:passed?)
    FileUtils.touch(passed_file)
  else
    FileUtils.rm_f(passed_file)
  end
end