class Tryouts::Tryout

def add_drill(d)
  unless @dream_catcher.empty?
    d.add_dreams *@dream_catcher.clone   # We need to clone here b/c
    @dream_catcher.clear                 # Ruby passes by reference.
  end
  drills << d
  d
end

def clean(&block)
  return @clean unless block
  @clean = block
end

def dream(*args, &definition) 
  if definition.nil?
    args = args.size == 1 ? [args.first] : args.reverse
    dobj = Tryouts::Drill::Dream.new(*args)
  else
    msg = "Dreams with blocks take only 1 argument (Tryout: '#{@name}')"
    raise TooManyArgs, msg if args.size > 1
    dobj = Tryouts::Drill::Dream.new
    dobj.format = args.first if args.size == 1
    dobj.output_block = definition
  end
  @dream_catcher.push dobj
  dobj
end

def drill(dname, *args, &definition)
  raise "Empty drill name (#{@name})" if dname.nil? || dname.empty?
  # The command name to run should be the first argument
  args.unshift @command if @dtype == :cli
  drill = Tryouts::Drill.new(dname, @dtype, *args, &definition)
  self.add_drill drill
end

def from_block(b=nil, &inline)
  runtime = b.nil? ? inline : b
  begin
    instance_eval &runtime
  rescue => ex
    raise ex
  end
end

def initialize(name, dtype, command=nil, *args)
  raise "Must supply command for dtype :cli" if dtype == :cli && command.nil?
  raise "#{dtype} is not a valid drill type" if !Drill.valid_dtype?(dtype)
  @name, @dtype, @command = name, dtype, command
  @drills, @dream_catcher, @locals = [], [], {}
  @passed, @failed, @skipped = 0, 0, 0
  @drill_context = DrillContext.new
end

def report
  return if Tryouts.verbose < 0
  failed = @drills.select { |d| !d.skip? && !d.success? }
  failed.each_with_index do |drill,index|
    title = ' %-69s %2d/%-2d  ' % ["\"#{drill.name}\"", index+1, failed.size]
    puts $/, ' ' << title.color(:red).att(:reverse)
    puts drill.report
  end
  if Tryouts.verbose > 0
    # Print errors for successful runs too
    success = @drills.select { |d| !d.skip? && d.success? }
    success.each do |drill,index|
      next unless drill.has_error?
      title = ' Non-fatal error in: %-69s ' % ["\"#{drill.name}\""]
      puts $/, ' ' << title.color(:red)
      puts drill.report
    end
  end
end

def run
  @drill_context.instance_eval &setup if setup.is_a?(Proc)
  puts "\n  %s ".bright % @name unless Tryouts.verbose < 0
  @drills.each do |drill|
    print '   %-69s ' % "\"#{drill.name}\"" unless Tryouts.verbose < 0
    drill.run @drill_context
    if drill.skip?
      @skipped += 1
    elsif drill.success?
      @passed += 1
    else
      @failed += 1
    end
    puts drill.flag                           # PASS, FAIL, SKIP
    puts drill.info if Tryouts.verbose > 0 && !drill.skip?  
  end
  @drill_context.instance_eval &clean if clean.is_a?(Proc)
end

def set(key, value)
  self.meta_def( key )           { value }
  @drill_context.meta_def( key ) { value }
  value
end

def setup(&block)
  return @setup unless block
  @setup = block
end

def success?
  return @success unless @success.nil?
  # Returns true only when every Tryout result returns true
  @success = !(@drills.collect { |r| r.success? }.member?(false))
end

def xdream(*args, &b); end

def xdrill(dname, *args, &b)
  @dream_catcher.clear     # Otherwise the next drill will get them...
  self.add_drill Tryouts::Drill.new(dname, :skip)
end