class ParallelTests::CLI

def any_test_failed?(test_results)
  test_results.any? { |result| result[:exit_status] != 0 }
end

def append_test_options(options, argv)
  new_opts = extract_test_options(argv)
  return if new_opts.empty?
  prev_and_new = [options[:test_options], new_opts.shelljoin]
  options[:test_options] = prev_and_new.compact.join(' ')
end

def detailed_duration(seconds)
  parts = [ seconds / 3600, seconds % 3600 / 60, seconds % 60 ].drop_while(&:zero?)
  return if parts.size < 2
  parts = parts.map { |i| "%02d" % i }.join(':').sub(/^0/, '')
  " (#{parts})"
end

def execute_in_parallel(items, num_processes, options)
  Tempfile.open 'parallel_tests-lock' do |lock|
    progress_indicator = simulate_output_for_ci if options[:serialize_stdout]
    ParallelTests.pids # setup the class vars here so we dont initialize in the threads
    Parallel.map(items, :in_threads => num_processes) do |item|
      result = yield(item)
      if progress_indicator && progress_indicator.alive?
        progress_indicator.exit
        puts
      end
      reprint_output(result, lock.path) if options[:serialize_stdout]
      result
    end
  end
end

def execute_shell_command_in_parallel(command, num_processes, options)
  runs = if options[:only_group]
    options[:only_group].map{|g| g - 1}
  else
    (0...num_processes).to_a
  end
  results = if options[:non_parallel]
    runs.map do |i|
      ParallelTests::Test::Runner.execute_command(command, i, num_processes, options)
    end
  else
    execute_in_parallel(runs, runs.size, options) do |i|
      ParallelTests::Test::Runner.execute_command(command, i, num_processes, options)
    end
  end.flatten
  abort if results.any? { |r| r[:exit_status] != 0 }
end

def extract_file_paths(argv)
  dash_index = argv.rindex("--")
  file_args_at = (dash_index || -1) + 1
  [argv[file_args_at..-1], argv[0...(dash_index || 0)]]
end

def extract_test_options(argv)
  dash_index = argv.index("--") || -1
  argv[dash_index+1..-1]
end

def final_fail_message
  fail_message = "#{@runner.name}s Failed"
  fail_message = "\e[31m#{fail_message}\e[0m" if use_colors?
  fail_message
end

def first_is_1?
  val = ENV["PARALLEL_TEST_FIRST_IS_1"]
  ['1', 'true'].include?(val)
end

def load_runner(type)
  require "parallel_tests/#{type}/runner"
  runner_classname = type.split("_").map(&:capitalize).join.sub("Rspec", "RSpec")
  klass_name = "ParallelTests::#{runner_classname}::Runner"
  klass_name.split('::').inject(Object) { |x, y| x.const_get(y) }
end

def lock(lockfile)
  File.open(lockfile) do |lock|
    begin
      lock.flock File::LOCK_EX
      yield
    ensure
      # This shouldn't be necessary, but appears to be
      lock.flock File::LOCK_UN
    end
  end
end

def parse_options!(argv)
  options = {}
  OptionParser.new do |opts|
    opts.banner = <<-BANNER.gsub(/^          /, '')
      Run all tests in parallel, giving each process ENV['TEST_ENV_NUMBER'] ('', '2', '3', ...)
      [optional] Only selected files & folders:
        parallel_test test/bar test/baz/xxx_text.rb
      [optional] Pass test-options and files via `--`:
        parallel_test -- -t acceptance -f progress -- spec/foo_spec.rb spec/acceptance
      Options are:
    BANNER
    opts.on("-n [PROCESSES]", Integer, "How many processes to use, default: available CPUs") { |n| options[:count] = n }
    opts.on("-p", "--pattern [PATTERN]", "run tests matching this regex pattern") { |pattern| options[:pattern] = /#{pattern}/ }
    opts.on("--group-by [TYPE]", <<-TEXT.gsub(/^          /, '')
      group tests by:
                found - order of finding files
                steps - number of cucumber/spinach steps
                scenarios - individual cucumber scenarios
                filesize - by size of the file
                runtime - info from runtime log
                default - runtime when runtime log is filled otherwise filesize
      TEXT
      ) { |type| options[:group_by] = type.to_sym }
    opts.on("-m [FLOAT]", "--multiply-processes [FLOAT]", Float, "use given number as a multiplier of processes to run") { |multiply| options[:multiply] = multiply }
    opts.on("-s [PATTERN]", "--single [PATTERN]",
      "Run all matching files in the same process") do |pattern|
      options[:single_process] ||= []
      options[:single_process] << /#{pattern}/
    end
    opts.on("-i", "--isolate",
      "Do not run any other tests in the group used by --single(-s)") do |pattern|
      options[:isolate] = true
    end
    opts.on("--only-group INT[, INT]", Array) { |groups| options[:only_group] = groups.map(&:to_i) }
    opts.on("-e", "--exec [COMMAND]", "execute this code parallel and with ENV['TEST_ENV_NUMBER']") { |path| options[:execute] = path }
    opts.on("-o", "--test-options '[OPTIONS]'", "execute test commands with those options") { |arg| options[:test_options] = arg.lstrip }
    opts.on("-t", "--type [TYPE]", "test(default) / rspec / cucumber / spinach") do |type|
      begin
        @runner = load_runner(type)
      rescue NameError, LoadError => e
        puts "Runner for `#{type}` type has not been found! (#{e})"
        abort
      end
    end
    opts.on("--suffix [PATTERN]", <<-TEXT.gsub(/^          /, '')
      override built in test file pattern (should match suffix):
                '_spec\.rb$' - matches rspec files
                '_(test|spec).rb$' - matches test or spec files
      TEXT
      ) { |pattern| options[:suffix] = /#{pattern}/ }
    opts.on("--serialize-stdout", "Serialize stdout output, nothing will be written until everything is done") { options[:serialize_stdout] = true }
    opts.on("--combine-stderr", "Combine stderr into stdout, useful in conjunction with --serialize-stdout") { options[:combine_stderr] = true }
    opts.on("--non-parallel", "execute same commands but do not in parallel, needs --exec") { options[:non_parallel] = true }
    opts.on("--no-symlinks", "Do not traverse symbolic links to find test files") { options[:symlinks] = false }
    opts.on('--ignore-tags [PATTERN]', 'When counting steps ignore scenarios with tags that match this pattern')  { |arg| options[:ignore_tag_pattern] = arg }
    opts.on("--nice", "execute test commands with low priority.") { options[:nice] = true }
    opts.on("--runtime-log [PATH]", "Location of previously recorded test runtimes") { |path| options[:runtime_log] = path }
    opts.on("--allowed-missing [INT]", Integer, "Allowed percentage of missing runtimes (default = 50)") { |percent| options[:allowed_missing_percent] = percent }
    opts.on("--unknown-runtime [FLOAT]", Float, "Use given number as unknown runtime (otherwise use average time)") { |time| options[:unknown_runtime] = time }
    opts.on("--first-is-1", "Use \"1\" as TEST_ENV_NUMBER to not reuse the default test environment") { options[:first_is_1] = true }
    opts.on("--verbose", "Print more output") { options[:verbose] = true }
    opts.on("-v", "--version", "Show Version") { puts ParallelTests::VERSION; exit }
    opts.on("-h", "--help", "Show this.") { puts opts; exit }
  end.parse!(argv)
  if options[:count] == 0
    options.delete(:count)
    options[:non_parallel] = true
  end
  files, remaining = extract_file_paths(argv)
  unless options[:execute]
    abort "Pass files or folders to run" unless files.any?
    options[:files] = files
  end
  append_test_options(options, remaining)
  options[:group_by] ||= :filesize if options[:only_group]
  raise "--group-by found and --single-process are not supported" if options[:group_by] == :found and options[:single_process]
  allowed = [:filesize, :runtime, :found]
  if !allowed.include?(options[:group_by]) && options[:only_group]
    raise "--group-by #{allowed.join(" or ")} is required for --only-group"
  end
  options
end

def report_failure_rerun_commmand(test_results, options)
  failing_sets = test_results.reject { |r| r[:exit_status] == 0 }
  return if failing_sets.none?
  if options[:verbose]
    puts "\n\nTests have failed for a parallel_test group. Use the following command to run the group again:\n\n"
    failing_sets.each do |failing_set|
      command = failing_set[:command]
      command = command.gsub(/;export [A-Z_]+;/, ' ') # remove ugly export statements
      command = @runner.command_with_seed(command, failing_set[:seed]) if failing_set[:seed]
      puts command
    end
  end
end

def report_number_of_tests(groups)
  name = @runner.test_file_name
  num_processes = groups.size
  num_tests = groups.map(&:size).inject(0, :+)
  tests_per_process = (num_processes == 0 ? 0 : num_tests / num_processes)
  puts "#{num_processes} processes for #{num_tests} #{name}s, ~ #{tests_per_process} #{name}s per process"
end

def report_results(test_results, options)
  results = @runner.find_results(test_results.map { |result| result[:stdout] }*"")
  puts ""
  puts @runner.summarize_results(results)
  report_failure_rerun_commmand(test_results, options)
end

def report_time_taken
  seconds = ParallelTests.delta { yield }.to_i
  puts "\nTook #{seconds} seconds#{detailed_duration(seconds)}"
end

def reprint_output(result, lockfile)
  lock(lockfile) do
    $stdout.puts result[:stdout]
    $stdout.flush
  end
end

def run(argv)
  options = parse_options!(argv)
  ENV['DISABLE_SPRING'] ||= '1'
  num_processes = ParallelTests.determine_number_of_processes(options[:count])
  num_processes = num_processes * (options[:multiply] || 1)
  options[:first_is_1] ||= first_is_1?
  if options[:execute]
    execute_shell_command_in_parallel(options[:execute], num_processes, options)
  else
    run_tests_in_parallel(num_processes, options)
  end
end

def run_tests(group, process_number, num_processes, options)
  if group.empty?
    {:stdout => '', :exit_status => 0, :command => '', :seed => nil}
  else
    @runner.run_tests(group, process_number, num_processes, options)
  end
end

def run_tests_in_parallel(num_processes, options)
  test_results = nil
  report_time_taken do
    groups = @runner.tests_in_groups(options[:files], num_processes, options)
    groups.reject! &:empty?
    test_results = if options[:only_group]
      groups_to_run = options[:only_group].collect{|i| groups[i - 1]}.compact
      report_number_of_tests(groups_to_run)
      execute_in_parallel(groups_to_run, groups_to_run.size, options) do |group|
        run_tests(group, groups_to_run.index(group), 1, options)
      end
    else
      report_number_of_tests(groups)
      execute_in_parallel(groups, groups.size, options) do |group|
        run_tests(group, groups.index(group), num_processes, options)
      end
    end
    report_results(test_results, options)
  end
  abort final_fail_message if any_test_failed?(test_results)
end

def simulate_output_for_ci
  Thread.new do
    interval = ENV.fetch('PARALLEL_TEST_HEARTBEAT_INTERVAL', 60).to_f
    loop do
      sleep interval
      print '.'
    end
  end
end

def use_colors?
  $stdout.tty?
end