grosser-autotest 4.0.3

data/lib/autotest/autoupdate.rb

@@ -0,0 +1,26 @@
+module Autotest::AutoUpdate
+  @@sleep_time, @@update_cmd, @@updater = 60, "svn up", nil
+
+  def self.sleep_time= o
+    @@sleep_time = o
+  end
+
+  def self.update_cmd= o
+    @@update_cmd = o
+  end
+
+  Autotest.add_hook :run_command do  |at|
+    @@updater.kill if @@updater
+  end
+
+  Autotest.add_hook :ran_command do  |at|
+    @@updater = Thread.start do
+      loop do
+        puts "# Waiting for #{@@sleep_time} seconds before updating"
+        sleep @@sleep_time
+        puts "# Running #{@@update_cmd}"
+        system @@update_cmd
+      end
+    end
+  end
+end

data/lib/autotest/camping.rb

@@ -0,0 +1,37 @@
+require 'autotest'
+
+##
+# CampingAutotest is an Autotest subclass designed for use with Camping projects.
+#
+# To use CampingAutotest pass the -camping flag to autotest.
+#
+# Contributed by Geoffrey Grosenbach http://nubyonrails.com
+
+class Autotest::Camping < Autotest
+
+  def initialize # :nodoc:
+    super
+    @exceptions = %r%\.(log|db)$%
+
+    @test_mappings = {
+      %r%^test/fixtures/([^_]+)_.*s\.yml% => proc { |_, m|
+        "test/#{m[1]}_test.rb"
+      },
+      %r%^test/.*rb$% => proc { |filename, m|
+        filename
+      },
+      %r%^public/([^\/]+)/(models|controllers|views)\.rb$% => proc { |_, m|
+        "test/#{m[1]}_test.rb"
+      },
+      %r%^public/(.*)\.rb$% => proc { |_, m|
+        "test/#{m[1]}_test.rb"
+      },
+    }
+
+    return functional_tests
+  end
+
+  def tests_for_file(filename)
+    super.select { |f| @files.has_key? f }
+  end
+end

data/lib/autotest/cctray.rb

@@ -0,0 +1,57 @@
+# -*- ruby -*-
+
+require 'fileutils'
+
+module Autotest::CCTray
+  MAX = 30
+  STATUS = {
+    :all_good => "Success",
+    :green    => "Success",
+    :red      => "Failure",
+  }
+  DIR = File.expand_path("~/Sites/dashboard")
+
+  def self.project_name= name
+    @@project_name = name
+  end
+
+  def self.update_status status
+    dir = File.join(DIR, @@project_name)
+    serial = Time.now.to_i
+    file = "status.#{serial}.xml"
+    FileUtils.mkdir_p dir
+    Dir.chdir dir do
+      File.open(file, 'w') do |f|
+        f.puts %(<Project name="#{@@project_name}" activity="Sleeping" lastBuildStatus="#{STATUS[status]}" lastBuildLabel="build.#{serial}" lastBuildTime="#{Time.now.xmlschema}" webUrl="http://localhost/~ryan/dashboard/#{@@project_name}/"/>)
+      end
+      files = Dir["*.xml"].sort_by { |f| File.mtime f }.reverse
+      (files - files.first(MAX)).each do |f|
+        File.unlink f
+      end
+    end
+
+    Dir.chdir DIR do
+      new_file = "cctray.xml.#{$$}"
+      old_file = "cctray.xml"
+      File.open(from_file, "w") do |out|
+        out.puts "<Projects>"
+        Dir["*"].each do |d|
+          next unless File.directory? d
+          Dir.chdir d do
+            latest = Dir["*.xml"].sort_by { |f| File.mtime f }.last
+            out.puts File.read(latest)
+          end
+        end
+        out.puts "</Projects>"
+      end
+      File.rename new_file, old_file
+    end
+  end
+
+  [:run, :red, :green, :all_good].each do |status|
+    Autotest.add_hook status do |at|
+      STATUS[Time.now] = at.files_to_test.size
+      update_status status
+    end
+  end
+end

data/lib/autotest/discover.rb

@@ -0,0 +1,6 @@
+Autotest.add_discovery do
+  style = []
+  style << "rails" if File.exist? 'config/environment.rb'
+  style << "camping" if File.exist? 'test/camping_test_case.rb'
+  style
+end

data/lib/autotest/emacs.rb

@@ -0,0 +1,36 @@
+#
+# Get autotest.el from http://www.emacswiki.org/cgi-bin/wiki/RyanDavis
+#
+
+module Autotest::Emacs
+  @@client_cmd = 'emacsclient -e'
+
+  def self.command= o
+    @@client_cmd = o
+  end
+
+  def self.emacs_autotest status
+    `#{@@client_cmd} \"(autotest-update '#{status})\"`
+    nil
+  end
+
+  Autotest.add_hook :run_command do  |at|
+    emacs_autotest :running
+  end
+
+  Autotest.add_hook :green do  |at|
+    emacs_autotest :passed
+  end
+
+  Autotest.add_hook :all_good do  |at|
+    emacs_autotest :passed
+  end
+
+  Autotest.add_hook :red do  |at|
+    emacs_autotest :failed
+  end
+
+  Autotest.add_hook :quit do  |at|
+    emacs_autotest :quit
+  end
+end

data/lib/autotest/email_notify.rb

@@ -0,0 +1,66 @@
+require 'net/smtp'
+
+module Autotest::EmailNotify
+  @@smtp_settings = ['localhost']
+  @@from = nil
+  @@recipients = []
+  @@use_svn = true
+  @@report_every_run = false
+
+  @@last_rev = nil
+
+  def self.smtp_settings= o
+    @@smtp_settings = o
+  end
+
+  def self.from= o
+    @@from = o
+  end
+
+  def self.recipients= o
+    @@recipients = o
+  end
+
+  def self.use_svn= o
+    @@use_svn = o
+  end
+
+  def self.report_every_run= o
+    @@report_every_run = o
+  end
+
+  def self.notify title, msg
+    @@recipients.each do |to|
+      body = ["From: autotest <#{@@from}>"]
+      body << "To: <#{to}>"
+      body << "Subject: #{title}"
+      body << "\n"
+      body << msg
+      Net::SMTP.start(*@@smtp_settings) do |smtp|
+        smtp.send_message body.join("\n"), @@from, to
+      end
+    end
+  end
+
+  def self.svn_release
+    if @@use_svn
+      rev = `svn info`.match(/Revision: (\d+)/)[1]
+      return "r#{rev} "
+    end
+  end
+
+  Autotest.add_hook :ran_command do |at|
+    rev = self.svn_release
+    if @@report_every_run or rev != @@last_rev
+      @@last_rev = rev
+      output = at.results.join
+      failed = output.scan(/^\s+\d+\) (?:Failure|Error):\n(.*?)\((.*?)\)/)
+      if failed.size == 0 then
+        notify "#{rev}Tests Passed", output
+      else
+        f,e = failed.partition { |s| s =~ /Failure/ }
+        notify "#{rev}#{failed.size} Tests Failed", output
+      end
+    end
+  end
+end

data/lib/autotest/fixtures.rb

@@ -0,0 +1,12 @@
+# -*- ruby -*-
+
+# This is an example of how to change the mappings of file that
+# changed to tests to run for a project.
+
+module Autotest::Fixtures
+  Autotest.add_hook :initialize do  |at|
+    at.test_mappings['^test/fixtures/(.*)s.yml'] = proc { |filename, matches|
+      at.files_matching(/test\/\w+\/#{matches[1]}(_\w+)?.*_test.rb$/)
+    }
+  end
+end

data/lib/autotest/growl.rb

@@ -0,0 +1,29 @@
+# -*- ruby -*-
+
+module Autotest::Growl
+  def self.growl title, msg, pri = 0, img = nil
+    title += " in #{Dir.pwd.split(/\//).last(3).join("/")}"
+    msg += " at #{Time.now.strftime('%Y-%m-%d %H:%M:%S')}"
+    # TODO: parameterize default image
+    img ||= "/Applications/Mail.app/Contents/Resources/Caution.tiff"
+    cmd = "growlnotify -w -n autotest --image #{img} -p #{pri} -m #{msg.inspect} #{title}"
+    system cmd
+    nil
+  end
+
+  Autotest.add_hook :initialize do  |at|
+    growl "autotest running", "Started"
+  end
+
+  Autotest.add_hook :red do |at|
+    growl "Tests Failed", "#{at.files_to_test.size} tests failed", 2
+  end
+
+  Autotest.add_hook :green do |at|
+    growl "Tests Passed", "Tests passed", -2 if at.tainted
+  end
+
+  Autotest.add_hook :all_good do |at|
+    growl "Tests Passed", "All tests passed", -2 if at.tainted
+  end
+end

data/lib/autotest/heckle.rb

@@ -0,0 +1,14 @@
+# -*- ruby -*-
+
+module Autotest::Heckle
+  @@flags  = []
+  @@klasses = []
+  def self.flags; @@flags; end
+  def self.klasses; @@klasses; end
+
+  Autotest.add_hook :all_good do |at|
+    heckle = "heckle" + (@@flags.empty? ? '' : " #{flags.join(' ')}")
+    cmd = @@klasses.map { |klass| "#{heckle} #{klass}" }.join(" && ")
+    system cmd
+  end
+end

data/lib/autotest/html_report.rb

@@ -0,0 +1,31 @@
+# -*- mode -*-
+
+module Autotest::HtmlConsole
+  MAX = 30
+  STATUS = {}
+  PATH = File.expand_path("~/Sites/autotest.html")
+
+  def self.update
+    STATUS.delete STATUS.keys.sort.last if STATUS.size > MAX
+    File.open(PATH, "w") do |f|
+      f.puts "<title>Autotest Status</title>"
+      STATUS.sort.reverse.each do |t,s|
+        if s > 0 then
+          f.puts "<p style=\"color:red\">#{t}: #{s}"
+        else
+          f.puts "<p style=\"color:green\">#{t}: #{s}"
+        end
+      end
+    end
+  end
+
+  Autotest.add_hook :red do |at|
+    STATUS[Time.now] = at.files_to_test.size
+    update
+  end
+
+  Autotest.add_hook :green do |at|
+    STATUS[Time.now] = 0
+    update
+  end
+end

data/lib/autotest/jabber_notify.rb

@@ -0,0 +1,111 @@
+begin; require 'rubygems'; rescue LoadError; end
+require 'xmpp4r-simple'
+
+module Autotest::JabberNotify
+  @@recipients = []
+  @@account = nil
+  @@password = nil
+  @@use_svn = true
+  @@report_every_run = true
+
+  @@im = nil
+  @@last_rev = nil
+  @@green = false
+
+  def self.recipients= o
+    @@recipients = o
+  end
+
+  def self.account= o
+    @@account = o
+  end
+
+  def self.password= o
+    @@password = o
+  end
+
+  def self.use_svn= o
+    @@use_svn = o
+  end
+
+  def self.report_every_run= o
+    @@report_every_run = o
+  end
+
+  def self.im
+    unless @@im
+      puts "# creating im client"
+      @@im = Jabber::Simple.new(@@account,@@password)
+      sleep(2)  # need this or else the first announcement may cause an error
+    end
+    if !@@im.connected?
+      puts "# reconnecting to #{@@account}"
+      @@im.reconnect
+    end
+    @@im
+  end
+
+  def self.notify(msg)
+    @@recipients.each do |contact|
+      self.im.deliver(contact, msg)
+    end
+  end
+
+  def self.status(status)
+    rev = self.svn_release
+    status = "#{rev}#{status}"
+    self.im.status(:chat, status)
+  end
+
+  def self.svn_release
+    if @@use_svn
+      rev = `svn info`.match(/Revision: (\d+)/)[1]
+      return "r#{rev} "
+    end
+  end
+
+  # hooks
+
+  Autotest.add_hook :run do |at|
+    notify "autotest started"
+  end
+
+  Autotest.add_hook :run_command do |at|
+    status "testing"
+  end
+
+  Autotest.add_hook :ran_command do |at|
+    rev = self.svn_release
+    if @@report_every_run or rev != @@last_rev
+      @@last_rev = rev
+      output = at.results.join
+      failed = output.scan(/^\s+\d+\) ((?:Failure|Error):\n.*?\.*?\))/).flatten
+      failed.map! {|f| f.gsub!(/\n/,' '); f.gsub(/^/,'- ') }
+      time = output.scan(/Finished in (.*?)\n/)
+      if failed.size > 0 then
+        notify "Tests Passed\n#{time}\n" if !@@green
+        @@green = true # prevent repeat success notifications
+      else
+        @@green = false
+        notify "#{failed.size} Tests Failed\n" + failed.join("\n")
+      end
+    end
+  end
+
+  Autotest.add_hook :green do |at|
+    status "Tests Pass"
+  end
+
+  Autotest.add_hook :red do |at|
+    status "Tests Failed"
+  end
+
+  Autotest.add_hook :quit do |at|
+    notify "autotest is exiting"
+    self.im.disconnect
+  end
+
+  Autotest.add_hook :all do |at|_hook
+    notify "Tests have fully passed" unless $TESTING
+  end
+end

data/lib/autotest/kdenotify.rb

@@ -0,0 +1,14 @@
+# -*- ruby -*-
+
+# stolen (with permission) from http://www.snailbyte.com/2006/08/24/rails-autotest-growl-notification-using-dcop-and-knotify
+
+module Autotest::KDENotify
+  def self.knotify title, msg
+    system "dcop knotify default notify " +
+           "eventname \'#{title}\' \'#{msg}\' '' '' 16 2"
+  end
+
+  Autotest.add_hook :red do |at|
+    knotify "Tests failed", "#{at.files_to_test.size} tests failed"
+  end
+end