integrity 0.1.9 → 0.1.9.1

data/lib/integrity/notifier/test/fixtures.rb

@@ -0,0 +1,108 @@
+require "dm-sweatshop"
+
+include DataMapper::Sweatshop::Unique
+
+class Array
+  def pick
+    self[rand(self.length)]
+  end
+end
+
+def create_notifier!(name)
+  klass = Class.new(Integrity::Notifier::Base) do
+    def self.to_haml; "";   end
+    def deliver!;     nil;  end
+  end
+
+  unless Integrity::Notifier.const_defined?(name)
+    Integrity::Notifier.const_set(name, klass)
+  end
+end
+
+Integrity::Project.fixture do
+  { :name       => (name = unique { /\w+/.gen }),
+    :uri        => "git://github.com/#{/\w+/.gen}/#{name}.git",
+    :branch     => ["master", "test-refactoring", "lh-34"].pick,
+    :command    => ["rake", "make", "ant -buildfile test.xml"].pick,
+    :public     => [true, false].pick,
+    :building   => [true, false].pick }
+end
+
+Integrity::Project.fixture(:integrity) do
+  { :name       => "Integrity",
+    :uri        => "git://github.com/foca/integrity.git",
+    :branch     => "master",
+    :command    => "rake",
+    :public     => true,
+    :building   => false }
+end
+
+Integrity::Project.fixture(:my_test_project) do
+  { :name       => "My Test Project",
+    :uri        => File.dirname(__FILE__) + "/../../",
+    :branch     => "master",
+    :command    => "./test",
+    :public     => true,
+    :building   => false }
+end
+
+Integrity::Commit.fixture do
+  project = Integrity::Project.first || Integrity::Project.gen
+
+  { :identifier =>   Digest::SHA1.hexdigest(/[:paragraph:]/.gen),
+    :message =>      /[:sentence:]/.gen,
+    :author =>       /\w+ \w+ <\w+@example.org>/.gen,
+    :committed_at => unique {|i| Time.mktime(2008, 12, 15, 18, (59 - i) % 60) },
+    :project_id =>   project.id }
+end
+
+Integrity::Commit.fixture(:successful) do
+  Integrity::Commit.generate_attributes.update(:build => Integrity::Build.gen(:successful))
+end
+
+Integrity::Commit.fixture(:failed) do
+  Integrity::Commit.generate_attributes.update(:build => Integrity::Build.gen(:failed))
+end
+
+Integrity::Commit.fixture(:pending) do
+  Integrity::Commit.generate_attributes.update(:build => Integrity::Build.gen(:pending))
+end
+
+Integrity::Build.fixture do
+  commit = Integrity::Commit.first || Integrity::Commit.gen
+
+  { :output       => /[:paragraph:]/.gen,
+    :successful   => true,
+    :started_at   => unique {|i| Time.mktime(2008, 12, 15, 18, i % 60) },
+    :created_at   => unique {|i| Time.mktime(2008, 12, 15, 18, i % 60) },
+    :completed_at => unique {|i| Time.mktime(2008, 12, 15, 18, i % 60) },
+    :commit_id    => commit.id }
+end
+
+Integrity::Build.fixture(:successful) do
+  Integrity::Build.generate_attributes.update(:successful => true)
+end
+
+Integrity::Build.fixture(:failed) do
+  Integrity::Build.generate_attributes.update(:successful => false)
+end
+
+Integrity::Build.fixture(:pending) do
+  Integrity::Build.generate_attributes.update(:successful => nil, :started_at => nil, :completed_at => nil)
+end
+
+Integrity::Notifier.fixture(:irc) do
+  create_notifier! "IRC"
+
+  { :project => Integrity::Project.generate,
+    :name => "IRC",
+    :config => { :uri => "irc://irc.freenode.net/integrity" }}
+end
+
+Integrity::Notifier.fixture(:twitter) do
+  create_notifier! "Twitter"
+
+  { :project => Integrity::Project.generate,
+    :name => "Twitter",
+    :config => { :email => "foo@example.org", :pass => "secret" }}
+end

data/lib/integrity/notifier/test/hpricot_matcher.rb

@@ -0,0 +1,38 @@
+require "hpricot"
+
+module Integrity
+  class Notifier
+    module Test
+      # Thanks Harry! http://gist.github.com/39960
+      class HpricotMatcher
+        def initialize(html)
+          @doc = Hpricot(html)
+        end
+
+        # elements('h1') returns a Hpricot::Elements object with all h1-tags.
+        def elements(selector)
+          @doc.search(selector)
+        end
+
+        # element('h1') returns Hpricot::Elem with first h1-tag, or nil if
+        # none exist.
+        def element(selector)
+          @doc.at(selector)
+        end
+
+        # tags('h1') returns the inner HTML of all matched elements mathed.
+        def tags(selector)
+          e = elements(selector)
+          e.map {|x| x.inner_html}
+        end
+
+        # tag('h1') returns the inner HTML of the first mached element, or
+        # nil if none matched.
+        def tag(selector)
+          e = element(selector)
+          e && e.inner_html
+        end
+      end
+    end
+  end
+end

data/test/acceptance/build_notifications_test.rb

@@ -1,5 +1,5 @@
 require File.dirname(__FILE__) + "/helpers"
-require File.dirname(__FILE__) + "/../helpers/acceptance/textfile_notifier"
+require "helpers/acceptance/textfile_notifier"
 
 class BuildNotificationsTest < Test::Unit::AcceptanceTestCase
   story <<-EOS
@@ -11,7 +11,7 @@ class BuildNotificationsTest < Test::Unit::AcceptanceTestCase
   before(:each) do
     # This is needed before any available notifier is unset
     # in the global #before
-    load File.dirname(__FILE__) + "/../helpers/acceptance/textfile_notifier.rb"
+    load "helpers/acceptance/textfile_notifier.rb"
   end
 
   scenario "an admin sets up a notifier for a project that didn't have any" do

data/test/acceptance/installer_test.rb

@@ -18,11 +18,9 @@ class InstallerTest < Test::Unit::AcceptanceTestCase
     Pathname("/tmp/i-haz-integrity")
   end
 
-  def install(options={})
-    installer = Installer.new
-    installer.options = { :passenger => false, :thin => false }.merge!(options)
-    stdout, _ = util_capture { installer.install(root.to_s) }
-    stdout
+  def install(option="")
+    installer = File.dirname(__FILE__) + "/../../bin/integrity"
+    IO.popen("#{installer} install #{root} #{option}".strip).read
   end
 
   scenario "Installing integrity into a given directory" do
@@ -33,6 +31,10 @@ class InstallerTest < Test::Unit::AcceptanceTestCase
     assert ! root.join("public").directory?
     assert ! root.join("tmp").directory?
 
+    assert ! root.join("Rakefile").file?
+    assert ! root.join("integrity.rb").file?
+    assert ! root.join(".gems").file?
+
     assert ! root.join("thin.yml").file?
     assert root.join("config.ru").file?
 
@@ -44,14 +46,14 @@ class InstallerTest < Test::Unit::AcceptanceTestCase
   end
 
   scenario "Installing integrity for Passenger" do
-    install(:passenger => true)
+    install("--passenger")
 
     assert root.join("public").directory?
     assert root.join("tmp").directory?
   end
 
   scenario "Installing Integrity for Thin" do
-    install(:thin => true)
+    install("--thin")
 
     config = YAML.load_file(root.join("thin.yml"))
     config["chdir"].should  == root.to_s
@@ -59,4 +61,20 @@ class InstallerTest < Test::Unit::AcceptanceTestCase
     config["rackup"].should == root.join("config.ru").to_s
     config["log"].should    == root.join("log/thin.log").to_s
   end
+
+  scenario "Installing Integrity for Heroku" do
+    message = install("--heroku")
+
+    gemifest = root.join(".gems").read
+    assert gemifest.include?("mailfactory")
+    assert gemifest.include?("tlsmail")
+    assert gemifest.include?("foca-sinatra-ditties")
+    assert gemifest.include?("integrity")
+
+    assert root.join("Rakefile").file?
+    assert root.join("integrity-config.rb").file?
+    assert root.join("config.ru").file?
+
+    assert message.include?("ready to be deployed onto Heroku")
+  end
 end

data/test/helpers.rb

@@ -33,7 +33,7 @@ end
 
 require "integrity"
 require "helpers/expectations"
-require "helpers/fixtures"
+require "integrity/notifier/test/fixtures"
 
 module TestHelper
   def ignore_logs!

data/test/helpers/acceptance.rb

@@ -61,12 +61,9 @@ class Test::Unit::AcceptanceTestCase < Test::Unit::TestCase
     }
   end
 
-  before(:all) do
-    Integrity.config[:base_uri] = "http://www.example.com"
-  end
-
   before(:each) do
     # ensure each scenario is run in a clean sandbox
+    Integrity.config[:base_uri] = "http://www.example.com"
     enable_auth!
     setup_log!
     set_and_create_export_directory!

data/test/helpers/fixtures.rb

@@ -1,25 +1,3 @@
-require "dm-sweatshop"
-
-include DataMapper::Sweatshop::Unique
-
-class Array
-  def pick
-    self[rand(self.length)]
-  end
-end
-
-def create_notifier!(name)
-  klass = Class.new(Integrity::Notifier::Base) do
-    def self.to_haml; "";   end
-    def deliver!;     nil;  end
-  end
-
-  unless Integrity::Notifier.const_defined?(name)
-    Integrity::Notifier.const_set(name, klass)
-  end
-end
-
-
 Integrity::Project.fixture do
   { :name       => (name = unique { /\w+/.gen }),
     :uri        => "git://github.com/#{/\w+/.gen}/#{name}.git",

data/test/unit/notifier/test_test.rb

@@ -0,0 +1,29 @@
+require File.dirname(__FILE__) + "/../../helpers"
+require "helpers/acceptance/textfile_notifier"
+
+require "integrity/notifier/test"
+
+class NotifierTestTest < Test::Unit::TestCase
+  include Integrity::Notifier::Test
+
+  before(:each) do
+    # Because we unset every notifier in global setup
+    load "helpers/acceptance/textfile_notifier.rb"
+  end
+
+  def notifier
+    "Textfile"
+  end
+
+  test "it provides a formulary to configure options" do
+    assert_form_have_option("file")
+  end
+
+  test "it sends notification" do
+    commit = Integrity::Commit.gen(:build => Build.gen(:successful))
+
+    assert notification(commit).include?(commit.identifier)
+    assert notification_failed.include?("failed")
+    assert notification_successful.include?("was successful")
+  end
+end

data/test/unit/project_builder_test.rb

@@ -2,7 +2,10 @@ require File.dirname(__FILE__) + "/../helpers"
 
 class ProjectBuilderTest < Test::Unit::TestCase
   before(:all) do
-    Integrity.config[:export_directory] = File.dirname(__FILE__)
+    unless File.directory?(Integrity.config[:export_directory])
+      FileUtils.mkdir(Integrity.config[:export_directory])
+    end
+
     @directory = Integrity.config[:export_directory] + "/foca-integrity-master"
     FileUtils.mkdir(@directory)
   end

data/vendor/sinatra-ditties/README.rdoc

@@ -0,0 +1,3 @@
+= Sinatra Ditties
+
+All those handy tunes in one elegant package.

data/vendor/sinatra-ditties/lib/sinatra/ditties.rb

@@ -0,0 +1,12 @@
+require "sinatra/base"
+
+module Sinatra
+  module Ditties
+    def self.version
+      "0.0.2".freeze
+    end
+  end
+
+  autoload :Authorization, File.dirname(__FILE__) + "/ditties/authorization"
+  autoload :Mailer,        File.dirname(__FILE__) + "/ditties/mailer"
+end

data/vendor/sinatra-ditties/lib/sinatra/ditties/authorization.rb

@@ -0,0 +1,61 @@
+module Sinatra
+  # HTTP Authorization helpers for Sinatra.
+  #
+  # In your helpers module, include Sinatra::Authorization and then define
+  # a +authorize(user, password)+ method to handle user provided
+  # credentials.
+  #
+  # Inside your events, call +login_required+ to trigger the HTTP
+  # Authorization window to pop up in the browser.
+  #
+  # Code adapted from Ryan Tomayko <http://tomayko.com> and Christopher
+  # Schneid <http://gittr.com>, shared under an MIT License
+  module Authorization
+    # Redefine this method on your helpers block to actually contain
+    # your authorization logic.
+    def authorize(username, password)
+      false
+    end
+
+    # From you app, call set :authorization_realm, "my app" to set this
+    # or define a `authorization_realm` method in your helpers block.
+    def authorization_realm
+      Sinatra::Default.authorization_realm
+    end
+
+    # Call in any event that requires authentication
+    def login_required
+      return if authorized?
+      unauthorized! unless auth.provided?
+      bad_request!  unless auth.basic?
+      unauthorized! unless authorize(*auth.credentials)
+      request.env['REMOTE_USER'] = auth.username
+    end
+
+    # Convenience method to determine if a user is logged in
+    def authorized?
+      !!request.env['REMOTE_USER']
+    end
+    alias :logged_in? :authorized?
+
+    # Name provided by the current user to log in
+    def current_user
+      request.env['REMOTE_USER']
+    end
+
+    private
+
+      def auth
+        @auth ||= Rack::Auth::Basic::Request.new(request.env)
+      end
+
+      def unauthorized!(realm=authorization_realm)
+        response["WWW-Authenticate"] = %(Basic realm="#{realm}")
+        throw :halt, [ 401, 'Authorization Required' ]
+      end
+
+      def bad_request!
+        throw :halt, [ 400, 'Bad Request' ]
+      end
+  end
+end

data/vendor/sinatra-ditties/lib/sinatra/ditties/mailer.rb

@@ -0,0 +1,146 @@
+# Shamelssly stolen from Merb::Mailer
+# http://merbivore.com
+
+require 'net/smtp'
+require 'rubygems'
+require 'mailfactory'
+require 'tlsmail'
+
+Net::SMTP.enable_tls(OpenSSL::SSL::VERIFY_NONE)
+
+class MailFactory
+  attr_reader :html, :text
+end
+
+module Sinatra
+  # = Sinatra::Mailer
+  #
+  # Adds an #email method to your email handlers, that receives a hash of
+  # values to create your email.
+  #
+  # For example:
+  #
+  #   post "/signup" do
+  #     # sign up the user, and then:
+  #     email :to      => @user.email,
+  #           :from    => "awesomeness@example.com",
+  #           :subject => "Welcome to Awesomeness!",
+  #           :body    => haml(:some_template)
+  #   end
+  #
+  # == Configuration
+  #
+  # This plugin is very dirty yet :) Since it's just a port to Sinatra of
+  # Merb::Mailer[merbivore.com/documentation/1.0/doc/rdoc/merb-mailer-1.0].
+  # So the configuration is not Sinatra-y, yet. But we'll get to that.
+  #
+  # == Using SMTP
+  #
+  #  Sinatra::Mailer.config = {
+  #    :host   => 'smtp.yourserver.com',
+  #    :port   => '25',
+  #    :user   => 'user',
+  #    :pass   => 'pass',
+  #    :auth   => :plain # :plain, :login, :cram_md5, the default is no auth
+  #    :domain => "localhost.localdomain" # HELO domain provided by the client
+  #  }
+  #
+  # == Using Gmail SMTP
+  #
+  # You need smtp-tls[http://github.com/ambethia/smtp-tls], a gem that improves
+  # Net::HTTP to add support for secure servers such as Gmail.
+  #
+  #  require "smtp-tls"
+  #
+  #  Sinatra::Mailer.config = {
+  #    :host => 'smtp.gmail.com',
+  #    :port => '587',
+  #    :user => 'user@gmail.com',
+  #    :pass => 'pass',
+  #    :auth => :plain
+  #  }
+  #
+  # Make sure that when you call your #email method you pass the
+  # +:text+ option and not +:body+.
+  #
+  # == Using sendmail
+  #
+  #  Sinatra::Mailer.config = {:sendmail_path => '/somewhere/odd'}
+  #  Sinatra::Mailer.delivery_method = :sendmail
+  #
+  # == Credits
+  #
+  # This has been blatantly adapted from
+  # Merb::Mailer[merbivore.com/documentation/1.0/doc/rdoc/merb-mailer-1.0]
+  # so all credit is theirs, I just ported it to Sinatra.
+  module Mailer
+    class << self
+      attr_accessor :config, :delivery_method
+    end
+
+    def email(mail_options={})
+      Email.new(mail_options).deliver!
+    end
+
+    class Email
+      attr_accessor :mail, :config
+
+      # Sends the mail using sendmail.
+      def sendmail
+        sendmail = IO.popen("#{config[:sendmail_path]} #{@mail.to}", 'w+')
+        sendmail.puts @mail.to_s
+        sendmail.close
+      end
+
+      # Sends the mail using SMTP.
+      def net_smtp
+        Net::SMTP.start(config[:host], config[:port].to_i, config[:domain],
+                        config[:user], config[:pass], config[:auth]) { |smtp|
+          smtp.send_message(@mail.to_s, @mail.from.first, @mail.to.to_s.split(/[,;]/))
+        }
+      end
+
+      # Delivers the mail with the specified delivery method, defaulting to
+      # net_smtp.
+      def deliver!
+        send(Mailer.delivery_method || :net_smtp)
+      end
+
+      # ==== Parameters
+      # file_or_files<File, Array[File]>:: File(s) to attach.
+      # filename<String>::
+      # type<~to_s>::
+      #   The attachment MIME type. If left out, it will be determined from
+      #   file_or_files.
+      # headers<String, Array>:: Additional attachment headers.
+      #
+      # ==== Raises
+      # ArgumentError::
+      #   file_or_files was not a File or an Array of File instances.
+      def attach(file_or_files, filename = file_or_files.is_a?(File) ? File.basename(file_or_files.path) : nil,
+        type = nil, headers = nil)
+        if file_or_files.is_a?(Array)
+          file_or_files.each {|k,v| @mail.add_attachment_as k, *v}
+        else
+          raise ArgumentError, "You did not pass in a file. Instead, you sent a #{file_or_files.class}" if !file_or_files.is_a?(File)
+          @mail.add_attachment_as(file_or_files, filename, type, headers)
+        end
+      end
+
+      # ==== Parameters
+      # o<Hash{~to_s => Object}>:: Configuration commands to send to MailFactory.
+      def initialize(o={})
+        self.config = Mailer.config || {:sendmail_path => '/usr/sbin/sendmail'}
+        o[:rawhtml] = o.delete(:html)
+        m = MailFactory.new()
+        o.each { |k,v| m.send "#{k}=", v }
+        @mail = m
+      end
+
+    end
+  end
+
+  class EventContext
+    include Mailer
+  end
+end