watchr.rb

def run_all_tests
  cmd = "cake midje"
  puts
  puts
  puts
  puts(cmd)
  result = IO.popen(cmd)
  notify(result)
end

watch( '^src.*/.*\.clj') { |m| run_all_tests }
watch( '^test.*/.*\.clj') { |m| run_all_tests }

def notify(result)
  messages = []
  messages[0] = result.readline
  if (messages[0] =~ /All claimed facts [(]\d+[)] have been confirmed./)
    system("notify-send -t 3000 -i gtk-add Uau! \"Test is passing \o/\"")
  else
    found_result = false
    crashed = false
    while !found_result && !crashed do
      begin
        messages << result.readline
        found_result = messages.last =~ /FAILURE: (\d+) (fact|facts) (was|were) not confirmed. [(]But (\d+) were.[)]/
      rescue EOFError
        crashed = true
      end
    end
    if crashed
      cause = nil
      messages.each do |m|
        cause = m if cause.nil? && m =~ /Caused by/
      end
      system("notify-send -t 6000 -i gtk-remove \"OMG!!!!!!!!\" \"Something is fucked up!\n<o>\n#{cause}\"")
    elsif found_result
      unconfirmed = $1.to_i 
      confirmed = $4.to_i 
      total = unconfirmed + confirmed
      system("notify-send -t 4000 -i gtk-remove \"Oh nooo\" \"#{unconfirmed} fact#{unconfirmed > 1 ? "s" : ""} of #{total} #{unconfirmed > 1 ? "have" : "has"} not been confirmed\"")
    end
  end
  puts
  puts
  messages.each { |m| puts m }
end

Signal.trap('QUIT') do
  puts "Veryfying all facts ..."
  run_all_tests
end

Signal.trap 'INT' do
  if @interrupted then
    @wants_to_quit = true
    abort("\n")
  else
    puts "Do it again to stop it!"
    @interrupted = true
    Kernel.sleep 1.5
    run_all_tests
  end
end