autotest-screen 0.1.0.1

data/.gitignore

@@ -0,0 +1 @@
+/pkg

data/.gvimrc

@@ -0,0 +1,24 @@
+""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
+" Setup tabs and vimproject
+
+Project .vimproject
+
+tabnew
+tabnew
+tabnew
+tabnew
+tabnew
+tabnew
+tabnew
+tabnew
+tabnew
+
+tabdo Project
+tabdo wincmd l
+tabdo wincmd n
+
+1tabn
+""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
+
+
+winpos 444 25

data/.rspec

@@ -0,0 +1 @@
+--color

data/.rvmrc

@@ -0,0 +1 @@
+rvm 1.9.2-rc1

data/.vimproject

@@ -0,0 +1,10 @@
+project=$PWD cd=. {
+}
+
+
+
+
+
+
+
+ vim:wfw fdl=1:

data/Gemfile

@@ -0,0 +1,12 @@
+
+source :gemcutter
+
+group :runtime do
+end
+
+group :development do
+  gem 'rspec',  '>= 2.0.0.beta.17'
+end
+
+
+# vim:ft=ruby:

data/Gemfile.lock

@@ -0,0 +1,18 @@
+GEM
+  remote: http://rubygems.org/
+  specs:
+    diff-lcs (1.1.2)
+    rspec (2.0.0.beta.17)
+      rspec-core (= 2.0.0.beta.17)
+      rspec-expectations (= 2.0.0.beta.17)
+      rspec-mocks (= 2.0.0.beta.17)
+    rspec-core (2.0.0.beta.17)
+    rspec-expectations (2.0.0.beta.17)
+      diff-lcs (>= 1.1.2)
+    rspec-mocks (2.0.0.beta.17)
+
+PLATFORMS
+  ruby
+
+DEPENDENCIES
+  rspec (>= 2.0.0.beta.17)

data/LICENSE

@@ -0,0 +1,20 @@
+Copyright (c) 2009 David J. Hamilton
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/README.rdoc

@@ -0,0 +1,52 @@
+= Autotest [Gnu] Screen
+
+* Author:     David J. Hamilton
+* Homepage:   http://github.com/hjdivad/autotest-screen
+* Issues:     http://github.com/hjdivad/autotest-screen/issues
+
+Conceptually very similar to
+autotest-growl<http://github.com/svoop/autotest-growl>, but notify the user via
+the caption of the parent screen process.
+
+
+= Requirements
+
+* autotest >= 4.2.4
+
+
+= Installation
+
+Install the gem
+  
+  gem install autotest-screen
+
+and add the following to ~/.autotest
+
+  require 'autotest/screen'
+
+
+= Usage
+
+Autotest-screen only works when autotest is invoked from a descendent process of
+gnu screen.  The right pid is searched for via /proc.
+
+
+= Note on Patches/Pull Requests
+ 
+* Fork the project.
+* Make your feature addition or bug fix.
+* Add tests for it. This is important so I don't break it in a
+  future version unintentionally.
+* Commit, do not mess with rakefile, version, or history.
+  (if you want to have your own version, that is fine but bump version in a commit by itself I can ignore when I pull)
+* Send me a pull request. Bonus points for topic branches.
+
+
+= Notes of Thanks
+
+This project is baesd on Sven Schwyn's excellent autotest-growl.
+
+
+== Copyright
+
+Copyright (c) 2010 David J. Hamilton. See LICENSE for details.

data/Rakefile

@@ -0,0 +1,85 @@
+require 'rubygems'
+require 'rake'
+
+Dir[ 'lib/tasks/**/*' ].each{ |l| require l }
+
+
+begin
+  require 'jeweler'
+  Jeweler::Tasks.new do |gem|
+    gem.name = "autotest-screen"
+    gem.summary = %Q{Update Gnu Screen caption with autotest results.}
+    gem.description = %Q{
+      Update Gnu Screen caption with autotest results.
+
+      Specifically, when autotest is running with an ancestor [Gnu] screen
+      process, have that screen's caption set when autotest runs tests.
+
+      Conceptually similar to autotest-growl but with a different notification system.
+    }
+    gem.email = "autotest-screen@hjdivad.com"
+    gem.homepage = "http://github.com/hjdivad/autotest-screen"
+    gem.authors = ["David J. Hamilton"]
+
+    if File.exists? 'Gemfile'
+      require 'bundler'
+      bundler = Bundler.load
+      bundler.dependencies_for( :runtime ).each do |dep|
+        gem.add_dependency              dep.name, dep.requirement.to_s
+      end
+      bundler.dependencies_for( :development ).each do |dep|
+        gem.add_development_dependency  dep.name, dep.requirement.to_s
+      end
+    end
+
+    # gem is a Gem::Specification... see http://www.rubygems.org/read/chapter/20 for additional settings
+  end
+  Jeweler::GemcutterTasks.new
+rescue LoadError
+  puts "Jeweler (or a dependency) not available. Install it with: gem install jeweler"
+end
+
+
+desc "Write out build version.  You must supply BUILD."
+task 'version:write:build' do
+  unless ENV.has_key? 'BUILD'
+    abort "Must supply BUILD=<build> to write out build version number." 
+  end
+  y = YAML::load_file( "VERSION.yml" )
+  v = {
+    :major => 0, :minor => 0, :patch => 0, :build => 0
+  }
+  v.merge!( y ) if y.is_a? Hash
+  v[ :build ] = ENV['BUILD']
+  File.open( "VERSION.yml", "w" ){|f| f.puts YAML::dump( v )}
+end
+
+task 'version:bump:build' do
+  y = YAML::load_file( "VERSION.yml" )
+  v = {
+    :major => 0, :minor => 0, :patch => 0, :build => 0
+  }
+  v.merge!( y ) if y.is_a? Hash
+
+  raise "Can't bump build: not a number" unless v[:build].is_a? Numeric
+  v[ :build ] += 1
+
+  v.each{|k,v| ENV[ k.to_s.upcase ] = v.to_s}
+  Rake::Task["version:write"].invoke
+end
+
+
+desc "Run all specs."
+task :spec do
+  sh "rspec spec"
+end
+
+
+begin
+  require 'yard'
+  YARD::Rake::YardocTask.new
+rescue LoadError
+  task :yardoc do
+    abort "YARD is not available. In order to run yardoc, you must: sudo gem install yard"
+  end
+end

data/VERSION.yml

@@ -0,0 +1,5 @@
+--- 
+:major: 0
+:minor: 1
+:patch: 0
+:build: "1"

data/autotest-screen.gemspec

@@ -0,0 +1,71 @@
+# Generated by jeweler
+# DO NOT EDIT THIS FILE DIRECTLY
+# Instead, edit Jeweler::Tasks in Rakefile, and run the gemspec command
+# -*- encoding: utf-8 -*-
+
+Gem::Specification.new do |s|
+  s.name = %q{autotest-screen}
+  s.version = "0.1.0.1"
+
+  s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
+  s.authors = ["David J. Hamilton"]
+  s.date = %q{2010-07-15}
+  s.description = %q{
+      Update Gnu Screen caption with autotest results.
+
+      Specifically, when autotest is running with an ancestor [Gnu] screen
+      process, have that screen's caption set when autotest runs tests.
+
+      Conceptually similar to autotest-growl but with a different notification system.
+    }
+  s.email = %q{autotest-screen@hjdivad.com}
+  s.extra_rdoc_files = [
+    "LICENSE",
+     "README.rdoc"
+  ]
+  s.files = [
+    ".gitignore",
+     ".gvimrc",
+     ".rspec",
+     ".rvmrc",
+     ".vim/ftplugin/.gitignore",
+     ".vim/plugin/.gitignore",
+     ".vimproject",
+     "Gemfile",
+     "Gemfile.lock",
+     "LICENSE",
+     "README.rdoc",
+     "Rakefile",
+     "VERSION.yml",
+     "autotest-screen.gemspec",
+     "autotest/discover.rb",
+     "lib/autotest-screen.rb",
+     "lib/autotest/result.rb",
+     "lib/autotest/screen.rb",
+     "spec/autotest-screen_spec.rb",
+     "spec/spec_helper.rb"
+  ]
+  s.homepage = %q{http://github.com/hjdivad/autotest-screen}
+  s.rdoc_options = ["--charset=UTF-8"]
+  s.require_paths = ["lib"]
+  s.rubygems_version = %q{1.3.7}
+  s.summary = %q{Update Gnu Screen caption with autotest results.}
+  s.test_files = [
+    "spec/spec_helper.rb",
+     "spec/autotest-screen_spec.rb"
+  ]
+
+  if s.respond_to? :specification_version then
+    current_version = Gem::Specification::CURRENT_SPECIFICATION_VERSION
+    s.specification_version = 3
+
+    if Gem::Version.new(Gem::VERSION) >= Gem::Version.new('1.2.0') then
+      s.add_development_dependency(%q<rspec>, [">= 2.0.0.beta.17"])
+    else
+      s.add_dependency(%q<rspec>, [">= 2.0.0.beta.17"])
+    end
+  else
+    s.add_dependency(%q<rspec>, [">= 2.0.0.beta.17"])
+  end
+end
+

data/autotest/discover.rb

@@ -0,0 +1 @@
+Autotest.add_discovery { "rspec2" }

data/lib/autotest-screen.rb

@@ -0,0 +1,4 @@
+require 'rubygems'
+require 'autotest'
+require 'autotest/result'
+require 'autotest/screen'

data/lib/autotest/result.rb

@@ -0,0 +1,64 @@
+class Autotest::Result
+
+  ##
+  # Analyze test result lines and return the numbers in a hash.
+  def initialize( autotest )
+    @numbers = {}
+    lines = autotest.results.map {|s| s.gsub(/(\e.*?m|\n)/, '') }   # remove escape sequences
+    lines.reject! {|line| !line.match(/\d+\s+(example|test|scenario|step)s?/) }   # isolate result numbers
+    lines.each do |line|
+      prefix = nil
+      line.scan(/([1-9]\d*)\s(\w+)/) do |number, kind|
+        kind.sub!(/s$/, '')   # singularize
+        kind.sub!(/failure/, 'failed')   # homogenize
+        if prefix
+          @numbers["#{prefix}-#{kind}"] = number.to_i
+        else
+          @numbers[kind] = number.to_i
+          prefix = kind
+        end
+      end
+    end
+  end
+
+  ##
+  # Determine the testing framework used.
+  def framework
+    case
+      when @numbers['test'] then 'test-unit'
+      when @numbers['example'] then 'rspec'
+      when @numbers['scenario'] then 'cucumber'
+    end
+  end
+
+  ##
+  # Determine whether a result exists at all.
+  def exists?
+    !@numbers.empty?
+  end
+
+  ##
+  # Check whether a specific result is present.
+  def has?(kind)
+    @numbers.has_key?(kind)
+  end
+
+  ##
+  # Get a plain result number.
+  def [](kind)
+    @numbers[kind]
+  end
+
+  ##
+  # Get a labelled result number. The prefix is removed and the label pluralized if necessary.
+  def get(kind)
+    "#{@numbers[kind]} #{kind.sub(/^.*-/, '')}#{'s' if @numbers[kind] != 1 && !kind.match(/(ed|ing)$/)}" if @numbers[kind]
+  end
+
+  ##
+  # Get the fatal error if any.
+  def fatal_error
+    
+  end
+
+end

data/lib/autotest/screen.rb

@@ -0,0 +1,100 @@
+require 'rubygems'
+require 'autotest'
+require 'rbconfig'
+
+require 'autotest/result'
+
+module Autotest::Screen
+
+  def self.green( text )
+    "%{dG}#{text}"
+  end
+
+  def self.red( text )
+    "%{dR}#{text}"
+  end
+
+  def self.yellow( text )
+    "%{dy}#{text}"
+  end
+
+  def self.screen_pid( pid=Process.ppid )
+    @screen_pid ||= lambda {
+      status = File.read( "/proc/#{pid}/stat" )
+      unless status =~ /(\d+) \((.*?)\) \w (\d+)/
+        raise "Trouble reading status of process #{pid}"
+      end
+
+      pid, exe, ppid = $1, $2, $3
+      if exe =~ /^screen/i
+        pid
+      else
+        screen_pid( ppid )
+      end
+    }.call
+  end
+
+  def self.screen_caption=( caption )
+    system %Q{ screen -S #{screen_pid} -X eval 'caption always "#{caption}"' }
+  rescue
+    STDERR.puts "Unable to find parent screen process."
+    STDERR.puts $!.message
+    STDERR.puts $!.backtrace.join( "\n" )
+  end
+
+  def self.clear_screen_caption
+    system %Q{ screen -S #{screen_pid} -X eval 'caption splitonly' }
+  rescue
+    STDERR.puts "Unable to find parent screen process."
+    STDERR.puts $!.message
+    STDERR.puts $!.backtrace.join( "\n" )
+  end
+
+
+  def self.update( kind, num=nil, total=num )
+    case kind
+    when :failure
+      self.screen_caption = red(
+        " #{num} failed from #{total}."
+      )
+    when :pending
+      self.screen_caption = yellow(
+        " #{num} pending from #{total}."
+      )
+    when :success
+      self.screen_caption = green(
+        " #{num} passed."
+      )
+    when :error
+      self.screen_caption = red( " Error running tests." )
+    else
+      raise "Unexpected kind of update #{kind}"
+    end
+  end
+
+
+  ##
+  # Parse the RSpec and Test::Unit results and send them to Growl.
+  Autotest.add_hook :ran_command do |autotest|
+    result = Autotest::Result.new( autotest )
+    if result.exists?
+      case result.framework
+      when 'rspec'
+        if result.has?( 'example-failed' )
+          update :failure, result[ 'example-failed' ], result[ 'example' ]
+        elsif result.has?( 'example-pending' )
+          update :pending, result[ 'example-pending' ], result[ 'example' ]
+        else
+          update :success, result.get( 'example' )
+        end
+      end
+    else
+      update :error
+    end
+
+    false
+  end
+
+  Autotest.add_hook( :died ){ clear_screen_caption }
+  Autotest.add_hook( :quit ){ clear_screen_caption }
+end

data/spec/autotest-screen_spec.rb

@@ -0,0 +1,57 @@
+require 'spec_helper'
+
+describe "autotest-screen" do
+  before do
+    @autotest = Autotest.new
+    @autotest.hook( :updated )
+  end
+
+  describe "handling results" do
+
+    describe "for RSpec" do
+      it "should show a 'passed' notification" do
+        Autotest::Screen.should_receive( :screen_caption= ).with(
+          "%{dG} 10 examples passed."
+        )
+        @autotest.results = [ "10 examples, 0 failures" ]
+        @autotest.hook( :ran_command )
+      end
+
+      it "should show a 'failed' notification" do
+        Autotest::Screen.should_receive( :screen_caption= ).with(
+          "%{dR} 1 failed from 10."
+        )
+        @autotest.results = [ "10 examples, 1 failures" ]
+        @autotest.hook( :ran_command )
+      end
+
+      it "should show a 'pending' notification" do
+        Autotest::Screen.should_receive( :screen_caption= ).with(
+          "%{dy} 1 pending from 10."
+        )
+        @autotest.results = [ "10 examples, 0 failures, 1 pending" ]
+        @autotest.hook( :ran_command )
+      end
+
+      it "should show an 'error' notification" do
+        Autotest::Screen.should_receive( :screen_caption= ).with(
+          "%{dR} Error running tests."
+        )
+        @autotest.results = []
+        @autotest.hook( :ran_command )
+      end
+    end
+  end
+
+  describe "handling autotest exit" do
+    it "should clear the screen caption on quitting" do
+      Autotest::Screen.should_receive( :clear_screen_caption )
+      @autotest.hook( :quit )
+    end
+
+    it "should clear the screen caption on error" do
+      Autotest::Screen.should_receive( :clear_screen_caption )
+      @autotest.hook( :died )
+    end
+  end
+end

data/spec/spec_helper.rb

@@ -0,0 +1,32 @@
+# encoding: utf-8
+
+require 'rubygems'
+require 'autotest'
+require 'autotest-screen'
+
+
+# Track original $stdout, $stderr write methods so we can “unmock” them for
+# debugging
+
+class << $stdout
+  alias_method :real_write, :write
+end
+class << $stderr
+  alias_method :real_write, :write
+end
+
+
+class Object
+  def debug
+    # For debugging, restore stubbed write
+    class << $stdout
+      alias_method :write, :real_write
+    end
+    class << $stderr
+      alias_method :write, :real_write
+    end
+
+    require 'ruby-debug'
+    debugger
+  end
+end

metadata

@@ -0,0 +1,102 @@
+--- !ruby/object:Gem::Specification 
+name: autotest-screen
+version: !ruby/object:Gem::Version 
+  prerelease: false
+  segments: 
+  - 0
+  - 1
+  - 0
+  - 1
+  version: 0.1.0.1
+platform: ruby
+authors: 
+- David J. Hamilton
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2010-07-15 00:00:00 -07:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: rspec
+  requirement: &id001 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        segments: 
+        - 2
+        - 0
+        - 0
+        - beta
+        - 17
+        version: 2.0.0.beta.17
+  type: :development
+  prerelease: false
+  version_requirements: *id001
+description: "\n      Update Gnu Screen caption with autotest results.\n\n      Specifically, when autotest is running with an ancestor [Gnu] screen\n      process, have that screen's caption set when autotest runs tests.\n\n      Conceptually similar to autotest-growl but with a different notification system.\n    "
+email: autotest-screen@hjdivad.com
+executables: []
+
+extensions: []
+
+extra_rdoc_files: 
+- LICENSE
+- README.rdoc
+files: 
+- .gitignore
+- .gvimrc
+- .rspec
+- .rvmrc
+- .vim/ftplugin/.gitignore
+- .vim/plugin/.gitignore
+- .vimproject
+- Gemfile
+- Gemfile.lock
+- LICENSE
+- README.rdoc
+- Rakefile
+- VERSION.yml
+- autotest-screen.gemspec
+- autotest/discover.rb
+- lib/autotest-screen.rb
+- lib/autotest/result.rb
+- lib/autotest/screen.rb
+- spec/autotest-screen_spec.rb
+- spec/spec_helper.rb
+has_rdoc: true
+homepage: http://github.com/hjdivad/autotest-screen
+licenses: []
+
+post_install_message: 
+rdoc_options: 
+- --charset=UTF-8
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      segments: 
+      - 0
+      version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      segments: 
+      - 0
+      version: "0"
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.3.7
+signing_key: 
+specification_version: 3
+summary: Update Gnu Screen caption with autotest results.
+test_files: 
+- spec/spec_helper.rb
+- spec/autotest-screen_spec.rb