sr-integrity 0.1.8.1

data/README.markdown

@@ -0,0 +1,73 @@
+Integrity
+=========
+
+[Integrity][website] is your friendly automated Continuous Integration server.
+
+* See our [website][] for documentation and a [live demo][demo]
+* Report bugs and submit features request on our [Lighthouse account][lighthouse]
+* Join us on [#integrity][irc-channel] for ideas, help, patches or something
+* Get the code on [GitHub][repo]
+
+Try it!
+-------
+
+    $ git clone git://github.com/foca/integrity.git
+    $ rake launch
+    # Navigate to <http://0.0.0.0:4567>
+
+Thanks
+------
+
+Thanks to the fellowing people for their feedbacks, ideas and patches :
+
+* [James Adam][james]
+* [Elliott Cable][ec]
+* [Corey Donohoe][atmos]
+* [Kyle Hargraves][kyle]
+* [Pier-Hugues Pellerin][ph]
+* [Simon Rozet][sr]
+* [Scott Taylor][scott]
+
+License
+-------
+
+(The MIT License)
+
+Copyright (c) 2008 [Nicolás Sanguinetti][foca], [entp][]
+
+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.
+
+[website]: http://integrityapp.com
+[demo]: http://builder.integrityapp.com
+[repo]: http://github.com/foca/integrity
+[lighthouse]: http://integrity.lighthouseapp.com/projects/14308-integrity
+[irc-channel]: irc://irc.freenode.net/integrity
+
+[foca]: http://nicolassanguinetti.info/
+[entp]: http://entp.com
+
+[james]: http://github.com/lazyatom
+[ec]: http://github.com/elliotcabble
+[atmos]: http://github.com/atmos
+[kyle]: http://github.com/pd
+[ph]: http://github.com/ph
+[sr]: http://purl.org/net/sr/
+[scott]: http://github.com/smtlaissezfaire
+

data/Rakefile

@@ -0,0 +1,91 @@
+require File.dirname(__FILE__) + "/lib/integrity"
+require "rake/testtask"
+require "rcov/rcovtask"
+
+desc "Run all tests and check test coverage"
+task :default => "test:coverage:verify"
+
+desc "Run tests"
+task :test => %w(test:units test:acceptance)
+
+namespace :test do
+  Rake::TestTask.new(:units) do |t|
+    t.test_files = FileList["test/unit/*_test.rb"]
+  end
+
+  Rake::TestTask.new(:acceptance) do |t|
+    t.test_files = FileList["test/acceptance/*_test.rb"]
+  end
+
+  desc "Measure test coverage"
+  task :coverage => %w(test:coverage:units test:coverage:acceptance)
+
+  namespace :coverage do
+    desc "Measure test coverage of unit tests"
+    Rcov::RcovTask.new(:units) do |rcov|
+      rcov.pattern   = "test/unit/*_test.rb"
+      rcov.rcov_opts = %w(--html --aggregate .aggregated_coverage_report)
+      rcov.rcov_opts << ENV["RCOV_OPTS"] if ENV["RCOV_OPTS"]
+    end
+
+    desc "Measure test coverage of acceptance tests"
+    Rcov::RcovTask.new(:acceptance) do |rcov|
+      rcov.pattern   = "test/acceptance/*_test.rb"
+      rcov.rcov_opts = %w(--html --aggregate .aggregated_coverage_report)
+      rcov.rcov_opts << ENV["RCOV_OPTS"] if ENV["RCOV_OPTS"]
+    end
+
+    desc "Verify test coverage"
+    task :verify => "test:coverage" do
+      File.read("coverage/index.html") =~ /<tt class='coverage_total'>\s*(\d+\.\d+)%\s*<\/tt>/
+      coverage = $1.to_f
+
+      puts
+      if coverage == 100
+        puts "\e[32m100% coverage! Awesome!\e[0m"
+      else
+        puts "\e[31mOnly #{coverage}% code coverage. You can do better ;)\e[0m"
+      end
+    end
+  end
+
+  desc "Install all gems on which the tests depend on"
+  task :install_dependencies do
+    system 'gem install redgreen rr mocha ruby-debug dm-sweatshop webrat ZenTest'
+    system 'gem install -s http://gems.github.com jeremymcanally-context jeremymcanally-matchy jeremymcanally-pending foca-storyteller'
+  end
+end
+
+desc "Launch Integrity real quick"
+task :launch do
+  ruby "bin/integrity launch"
+end
+
+begin
+  require "jeweler"
+
+  Jeweler::Tasks.new do |s|
+    files  = `git ls-files`.split("\n").reject {|f| f =~ %r(^test/acceptance) || f =~ %r(^test/unit) || f =~ /^\.git/ }
+
+    s.name                 = 'integrity'
+    s.summary              = 'The easy and fun Continuous Integration server'
+    s.description          = 'Your Friendly Continuous Integration server. Easy, fun and painless!'
+    s.homepage             = 'http://integrityapp.com'
+    s.rubyforge_project    = 'integrity'
+    s.email                = 'contacto@nicolassanguinetti.info'
+    s.authors              = ['Nicolás Sanguinetti', 'Simon Rozet']
+    s.files                = files
+    s.executables          = ['integrity']
+    s.post_install_message = 'Run `integrity help` for information on how to setup Integrity.'
+
+    s.add_dependency 'sinatra', ['~> 0.9.0.4']
+    s.add_dependency 'haml',    ['~> 2.0.0']
+    s.add_dependency 'data_mapper', ['~> 0.9.10']
+    s.add_dependency 'uuidtools' # required by dm-types
+    s.add_dependency 'bcrypt-ruby' # required by dm-types
+    s.add_dependency 'json'
+    s.add_dependency 'sinatra-ditties', ['~> 0.0.2']
+    s.add_dependency 'thor'
+  end
+rescue LoadError
+end

data/VERSION.yml

@@ -0,0 +1,4 @@
+---
+major: 0
+patch: 8
+minor: 1

data/bin/integrity

@@ -0,0 +1,4 @@
+#!/usr/bin/env ruby
+require File.dirname(__FILE__) + "/../lib/integrity/installer"
+
+Integrity::Installer.start

data/config/config.sample.ru

@@ -0,0 +1,21 @@
+#!/usr/bin/env ruby
+require "rubygems"
+require "integrity"
+
+# If you want to add any notifiers, install the gems and then require them here
+# For example, to enable the Email notifier: install the gem (from github:
+#
+#   sudo gem install -s http://gems.github.com foca-integrity-email
+#
+# And then uncomment the following line:
+#
+# require "notifier/email"
+
+# Load configuration and initialize Integrity
+Integrity.new(File.dirname(__FILE__) + "/config.yml")
+
+# You probably don't want to edit anything below
+Integrity::App.set :environment, ENV["RACK_ENV"] || :production
+Integrity::App.set :port,        8910
+
+run Integrity::App

data/config/config.sample.yml

@@ -0,0 +1,41 @@
+# Domain where integrity will be running from. This is used to have
+# nice URLs in your notifications.
+# For example:
+#   http://builder.integrityapp.com
+:base_uri: http://integrity.domain.tld
+
+# This should be a complete connection string to your database.
+#
+# Examples:
+# * `mysql://user:password@localhost/integrity`
+# * `postgres://user:password@localhost/integrity`
+# * `sqlite3:///home/integrity/db/integrity.sqlite`
+#
+# Note:
+# * The appropriate data_objects adapter must be installed (`do_mysql`, etc)
+# * You must create the `integrity` database on localhost, of course.
+:database_uri: sqlite3:///var/integrity.db
+
+# This is where your project's code will be checked out to. Make sure it's
+# writable by the user that runs Integrity.
+:export_directory: /path/to/scm/exports
+
+# Path to the integrity log file
+:log: /var/log/integrity.log
+
+# Enable or disable HTTP authentication for the app. BE AWARE that if you
+# disable this anyone can delete and alter projects, so do it only if your
+# app is running in a controlled environment (ie, behind your company's
+# firewall.)
+:use_basic_auth: false
+
+# When `use_basic_auth` is true, the admin's username for HTTP authentication.
+:admin_username: username
+
+# When `use_basic_auth` is true, the admin's password. Usually saved as a
+# SHA1 hash. See the next option.
+:admin_password: a94a8fe5ccb19ba61c4c0873d391e987982fbbd3
+
+# If this is true, then whenever we authenticate the admin user, will hash
+# it using SHA1. If not, we'll assume the provided password is in plain text.
+:hash_admin_password: true

data/config/thin.sample.yml

@@ -0,0 +1,13 @@
+---
+environment: production
+chdir: /apps/integrity
+address: 127.0.0.1
+port: 8910
+pid: /apps/integrity/thin.pid
+rackup: /apps/integrity/config.ru
+log: /apps/integrity/log/thin.log
+max_conns: 1024
+timeout: 30
+max_persistent_conns: 512
+daemonize: true
+servers: 2

data/integrity.gemspec

@@ -0,0 +1,55 @@
+# -*- encoding: utf-8 -*-
+
+Gem::Specification.new do |s|
+  s.name = %q{integrity}
+  s.version = "0.1.8.1"
+
+  s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
+  s.authors = ["Nicol\303\241s Sanguinetti", "Simon Rozet"]
+  s.date = %q{2009-02-23}
+  s.default_executable = %q{integrity}
+  s.description = %q{Your Friendly Continuous Integration server. Easy, fun and painless!}
+  s.email = %q{contacto@nicolassanguinetti.info}
+  s.executables = ["integrity"]
+  s.files = ["README.markdown", "Rakefile", "VERSION.yml", "bin/integrity", "config/config.sample.ru", "config/config.sample.yml", "config/thin.sample.yml", "integrity.gemspec", "lib/integrity.rb", "lib/integrity/app.rb", "lib/integrity/author.rb", "lib/integrity/build.rb", "lib/integrity/commit.rb", "lib/integrity/core_ext/object.rb", "lib/integrity/helpers.rb", "lib/integrity/helpers/authorization.rb", "lib/integrity/helpers/breadcrumbs.rb", "lib/integrity/helpers/forms.rb", "lib/integrity/helpers/pretty_output.rb", "lib/integrity/helpers/rendering.rb", "lib/integrity/helpers/resources.rb", "lib/integrity/helpers/urls.rb", "lib/integrity/installer.rb", "lib/integrity/migrations.rb", "lib/integrity/notifier.rb", "lib/integrity/notifier/base.rb", "lib/integrity/project.rb", "lib/integrity/project_builder.rb", "lib/integrity/scm.rb", "lib/integrity/scm/git.rb", "lib/integrity/scm/git/uri.rb", "public/buttons.css", "public/reset.css", "public/spinner.gif", "test/helpers.rb", "test/helpers/acceptance.rb", "test/helpers/acceptance/git_helper.rb", "test/helpers/acceptance/textfile_notifier.rb", "test/helpers/expectations.rb", "test/helpers/expectations/be_a.rb", "test/helpers/expectations/change.rb", "test/helpers/expectations/have.rb", "test/helpers/expectations/have_tag.rb", "test/helpers/expectations/predicates.rb", "test/helpers/fixtures.rb", "test/helpers/initial_migration_fixture.sql", "views/_commit_info.haml", "views/build.haml", "views/error.haml", "views/home.haml", "views/integrity.sass", "views/layout.haml", "views/new.haml", "views/not_found.haml", "views/notifier.haml", "views/project.builder", "views/project.haml", "views/unauthorized.haml"]
+  s.homepage = %q{http://integrityapp.com}
+  s.post_install_message = %q{Run `integrity help` for information on how to setup Integrity.}
+  s.require_paths = ["lib"]
+  s.rubyforge_project = %q{integrity}
+  s.rubygems_version = %q{1.3.1}
+  s.summary = %q{The easy and fun Continuous Integration server}
+
+  if s.respond_to? :specification_version then
+    current_version = Gem::Specification::CURRENT_SPECIFICATION_VERSION
+    s.specification_version = 2
+
+    if Gem::Version.new(Gem::RubyGemsVersion) >= Gem::Version.new('1.2.0') then
+      s.add_runtime_dependency(%q<sinatra>, ["~> 0.9.0.4"])
+      s.add_runtime_dependency(%q<haml>, ["~> 2.0.0"])
+      s.add_runtime_dependency(%q<data_mapper>, ["~> 0.9.10"])
+      s.add_runtime_dependency(%q<uuidtools>, [">= 0"])
+      s.add_runtime_dependency(%q<bcrypt-ruby>, [">= 0"])
+      s.add_runtime_dependency(%q<json>, [">= 0"])
+      s.add_runtime_dependency(%q<sinatra-ditties>, ["~> 0.0.2"])
+      s.add_runtime_dependency(%q<thor>, [">= 0"])
+    else
+      s.add_dependency(%q<sinatra>, ["~> 0.9.0.4"])
+      s.add_dependency(%q<haml>, ["~> 2.0.0"])
+      s.add_dependency(%q<data_mapper>, ["~> 0.9.10"])
+      s.add_dependency(%q<uuidtools>, [">= 0"])
+      s.add_dependency(%q<bcrypt-ruby>, [">= 0"])
+      s.add_dependency(%q<json>, [">= 0"])
+      s.add_dependency(%q<sinatra-ditties>, ["~> 0.0.2"])
+      s.add_dependency(%q<thor>, [">= 0"])
+    end
+  else
+    s.add_dependency(%q<sinatra>, ["~> 0.9.0.4"])
+    s.add_dependency(%q<haml>, ["~> 2.0.0"])
+    s.add_dependency(%q<data_mapper>, ["~> 0.9.10"])
+    s.add_dependency(%q<uuidtools>, [">= 0"])
+    s.add_dependency(%q<bcrypt-ruby>, [">= 0"])
+    s.add_dependency(%q<json>, [">= 0"])
+    s.add_dependency(%q<sinatra-ditties>, ["~> 0.0.2"])
+    s.add_dependency(%q<thor>, [">= 0"])
+  end
+end

data/lib/integrity/app.rb

@@ -0,0 +1,137 @@
+module Integrity
+  class App < Sinatra::Default
+    set :root,     File.dirname(__FILE__) + "/../.."
+    set :app_file, __FILE__
+    enable :sessions
+
+    include Integrity
+    include Integrity::Helpers
+
+    not_found do
+      status 404
+      show :not_found, :title => "lost, are we?"
+    end
+
+    error do
+      @error = request.env['sinatra.error']
+      status 500
+      show :error, :title => "something has gone terribly wrong"
+    end
+
+    before do
+      # The browser only sends http auth data for requests that are explicitly
+      # required to do so. This way we get the real values of +#logged_in?+ and
+      # +#current_user+
+      login_required if session[:user]
+    end
+
+    get "/" do
+      @projects = Project.only_public_unless(authorized?)
+      show :home, :title => "projects"
+    end
+
+    get "/login" do
+      login_required
+
+      session[:user] = current_user
+      redirect root_url
+    end
+
+    get "/new" do
+      login_required
+
+      @project = Project.new
+      show :new, :title => ["projects", "new project"]
+    end
+
+    post "/" do
+      login_required
+
+      @project = Project.new(params[:project_data])
+
+      if @project.save
+        @project.enable_notifiers(params["enabled_notifiers[]"], params["notifiers"])
+        redirect project_url(@project)
+      else
+        show :new, :title => ["projects", "new project"]
+      end
+    end
+
+    get "/:project" do
+      login_required unless current_project.public?
+      show :project, :title => ["projects", current_project.name]
+    end
+
+    get "/:project.atom" do
+      login_required unless current_project.public?
+      response["Content-Type"] = "application/rss+xml; charset=utf-8"
+      builder :project
+    end
+
+    put "/:project" do
+      login_required
+
+      if current_project.update_attributes(params[:project_data])
+        current_project.enable_notifiers(params["enabled_notifiers"], params["notifiers"])
+        redirect project_url(current_project)
+      else
+        show :new, :title => ["projects", current_project.permalink, "edit"]
+      end
+    end
+
+    delete "/:project" do
+      login_required
+
+      current_project.destroy
+      redirect root_url
+    end
+
+    get "/:project/edit" do
+      login_required
+
+      show :new, :title => ["projects", current_project.permalink, "edit"]
+    end
+
+    post "/:project/push" do
+      login_required
+
+      content_type "text/plain"
+
+      begin
+        current_project.push(params[:payload])
+        "Thanks, build started."
+      rescue JSON::ParserError => exception
+        throw :halt, [422, exception.to_s]
+      end
+    end
+
+    post "/:project/builds" do
+      login_required
+
+      current_project.build
+      redirect project_url(current_project)
+    end
+
+    get "/:project/commits/:commit" do
+      login_required unless current_project.public?
+
+      show :build, :title => ["projects", current_project.permalink, current_commit.short_commit_identifier]
+    end
+
+    get "/:project/builds/:commit" do
+      redirect "/#{params[:project]}/commits/#{params[:commit]}", 301
+    end
+
+    post "/:project/commits/:commit/builds" do
+      login_required
+
+      current_project.build(params[:commit])
+      redirect commit_url(current_commit)
+    end
+
+    get "/integrity.css" do
+      response["Content-Type"] = "text/css; charset=utf-8"
+      sass :integrity
+    end
+  end
+end

data/lib/integrity/author.rb

@@ -0,0 +1,39 @@
+module Integrity
+  class Author < DataMapper::Type
+    primitive String
+    size      65535
+    lazy      true
+
+    class AuthorStruct < Struct.new(:name, :email)
+      def self.parse(string)
+        raise ArgumentError.new("invalid author string") unless string =~ /^(.*) <(.*)>$/
+
+        new($1.strip, $2.strip)
+      end
+
+      def to_s
+        @full ||= "#{name} <#{email}>"
+      end
+
+      alias_method :full, :to_s
+    end
+
+    def self.load(value, property)
+      AuthorStruct.parse(value) unless value.nil?
+    end
+
+    def self.dump(value, property)
+      return nil if value.nil?
+
+      value.to_s
+    end
+
+    def self.typecast(value, property)
+      case value
+      when AuthorStruct then value
+      when NilClass     then load(nil, property)
+      else load(value.to_s, property)
+      end
+    end
+  end
+end

data/lib/integrity/build.rb

@@ -0,0 +1,84 @@
+module Integrity
+  class Build
+    include DataMapper::Resource
+
+    property :id,           Integer,  :serial => true
+    property :output,       Text,     :default => "", :lazy => false
+    property :successful,   Boolean,  :default => false
+    property :commit_id,    Integer,  :nullable => false
+    property :created_at,   DateTime
+    property :updated_at,   DateTime
+    property :started_at,   DateTime
+    property :completed_at, DateTime
+
+    belongs_to :commit, :class_name => "Integrity::Commit"
+
+    def self.pending
+      all(:started_at => nil)
+    end
+
+    def pending?
+      started_at.nil?
+    end
+
+    def failed?
+      !successful?
+    end
+
+    def status
+      case
+      when pending?    then :pending
+      when successful? then :success
+      when failed?     then :failed
+      end
+    end
+
+    def start!(time=Time.now)
+      self.started_at = time
+    end
+
+    def complete!(time=Time.now)
+      self.completed_at = time
+    end
+
+    #
+    # Deprecated methods
+    #
+    def short_commit_identifier
+      warn "Build#short_commit_identifier is deprecated, use Commit#short_identifier"
+      commit.short_identifier
+    end
+
+    def commit_identifier
+      warn "Build#commit_identifier is deprecated, use Commit#identifier"
+      commit.identifier
+    end
+
+    def commit_author
+      warn "Build#commit_author is deprecated, use Commit#author"
+      commit.author
+    end
+
+    def commit_message
+      warn "Build#commit_message is deprecated, use Commit#message"
+      commit.message
+    end
+
+    def commited_at
+      warn "Build#commited_at is deprecated, use Commit#committed_at"
+      commit.committed_at
+    end
+
+    def project_id
+      warn "Build#project_id is deprecated, use Commit#project_id"
+      commit.project_id
+    end
+
+    def commit_metadata
+      warn "Build#commit_metadata is deprecated, use the different methods in Commit instead"
+      { :message => commit.message,
+        :author  => commit.author,
+        :date    => commit.committed_at }
+    end
+  end
+end

data/lib/integrity/commit.rb

@@ -0,0 +1,71 @@
+module Integrity
+  class Commit
+    include DataMapper::Resource
+
+    property :id,           Integer,  :serial => true
+    property :identifier,   String,   :nullable => false
+    property :message,      String,   :length => 255
+    property :author,       Author,   :length => 255
+    property :committed_at, DateTime
+    property :created_at,   DateTime
+    property :updated_at,   DateTime
+
+    has 1,     :build,   :class_name => "Integrity::Build", :order => [:created_at.desc]
+    belongs_to :project, :class_name => "Integrity::Project"
+
+    def message
+      attribute_get(:message) || "<Commit message not loaded>"
+    end
+
+    def author
+      attribute_get(:author) || Author.load('<Commit author not loaded> <<Commit author not loaded>>', :author)
+    end
+
+    def short_identifier
+      identifier.to_s[0..6]
+    end
+
+    def status
+      build.nil? ? :pending : build.status
+    end
+
+    def successful?
+      status == :success
+    end
+
+    def failed?
+      status == :failed
+    end
+
+    def pending?
+      status == :pending
+    end
+
+    def human_readable_status
+      case status
+      when :success; "Built #{short_identifier} successfully"
+      when :failed;  "Built #{short_identifier} and failed"
+      when :pending; "#{short_identifier} hasn't been built yet"
+      end
+    end
+
+    def output
+      build && build.output
+    end
+
+    def queue_build
+      self.build = Build.create(:commit_id => id)
+      self.save
+
+      # Build on foreground (this will move away, I promise)
+      ProjectBuilder.new(project).build(self)
+    end
+
+    # Deprecation layer
+    alias :short_commit_identifier :short_identifier
+    alias :commit_identifier       :identifier
+    alias :commit_author           :author
+    alias :commit_message          :message
+    alias :commited_at             :committed_at
+  end
+end

data/lib/integrity/core_ext/object.rb

@@ -0,0 +1,6 @@
+class Object
+  def tap
+    yield self
+    self
+  end
+end

data/lib/integrity/helpers/authorization.rb

@@ -0,0 +1,33 @@
+require "sinatra/ditties"
+
+module Integrity
+  module Helpers
+    module Authorization
+      include Sinatra::Authorization
+
+      def authorization_realm
+        "Integrity"
+      end
+
+      def authorized?
+        return true unless Integrity.config[:use_basic_auth]
+        !!request.env["REMOTE_USER"]
+      end
+
+      def authorize(user, password)
+        if Integrity.config[:hash_admin_password]
+          password = Digest::SHA1.hexdigest(password)
+        end
+
+        !Integrity.config[:use_basic_auth] ||
+        (Integrity.config[:admin_username] == user &&
+          Integrity.config[:admin_password] == password)
+      end
+
+      def unauthorized!(realm=authorization_realm)
+        response["WWW-Authenticate"] = %(Basic realm="#{realm}")
+        throw :halt, [401, show(:unauthorized, :title => "incorrect credentials")]
+      end
+    end
+  end
+end