imbriaco-integrity 0.1.9.2

data/lib/integrity/project_builder.rb

@@ -0,0 +1,56 @@
+require "forwardable"
+
+module Integrity
+  class ProjectBuilder
+    extend Forwardable
+
+    attr_accessor  :project, :scm
+    def_delegators :project, :name, :uri, :command, :branch
+
+    def self.build(commit)
+      new(commit.project).build(commit)
+    end
+
+    def self.delete_working_directory(project)
+      new(project).delete_code
+    end
+
+    def initialize(project)
+      @project = project
+      @scm = SCM.new(uri, branch, export_directory)
+    end
+
+    def build(commit)
+      build = commit.build
+      build.start!
+
+      Integrity.log "Building #{commit.identifier} (#{branch}) of #{name} in" +
+        "#{export_directory} using #{scm.name}"
+
+      scm.with_revision(commit.identifier) do
+        Integrity.log "Running `#{command}` in #{scm.working_directory}"
+
+        IO.popen("(cd #{scm.working_directory} && #{command}) 2>&1", "r") {
+          |output| build.output = output.read }
+        build.successful = $?.success?
+      end
+
+      build
+    ensure
+      build.complete!
+      commit.update_attributes(scm.info(commit.identifier) || {})
+      project.notifiers.each { |notifier| notifier.notify_of_build(build) }
+    end
+
+    def delete_code
+      FileUtils.rm_r export_directory
+    rescue Errno::ENOENT
+      nil
+    end
+
+    private
+      def export_directory
+        Integrity.config[:export_directory] / "#{SCM.working_tree_path(uri)}-#{branch}"
+      end
+  end
+end

data/lib/integrity/scm/git/uri.rb

@@ -0,0 +1,57 @@
+module Integrity
+  module SCM
+    class Git
+      # From the git-pull man page:
+      #
+      # GIT URLS
+      #   One of the following notations can be used to name the remote repository:
+      #
+      #     rsync://host.xz/path/to/repo.git/
+      #     http://host.xz/path/to/repo.git/
+      #     git://host.xz/~user/path/to/repo.git/
+      #     ssh://[user@]host.xz[:port]/path/to/repo.git/
+      #     ssh://[user@]host.xz/path/to/repo.git/
+      #     ssh://[user@]host.xz/~user/path/to/repo.git/
+      #     ssh://[user@]host.xz/~/path/to/repo.git
+      #
+      #   SSH is the default transport protocol over the network. You can optionally
+      #   specify which user to log-in as, and an alternate, scp-like syntax is also
+      #   supported
+      #
+      #   Both syntaxes support username expansion, as does the native git protocol,
+      #   but only the former supports port specification. The following three are
+      #   identical to the last three above, respectively:
+      #
+      #     [user@]host.xz:/path/to/repo.git/
+      #     [user@]host.xz:~user/path/to/repo.git/
+      #     [user@]host.xz:path/to/repo.git
+      #
+      class URI
+        def initialize(uri_string)
+          @uri = Addressable::URI.parse(uri_string)
+        end
+
+        def working_tree_path
+          strip_extension(path).gsub("/", "-")
+        end
+
+      private
+
+        def strip_extension(string)
+          uri = Pathname.new(string)
+          if uri.extname.any?
+            uri = Pathname.new(string)
+            string.gsub(Regexp.new("#{uri.extname}\/?"), "")
+          else
+            string
+          end
+        end
+
+        def path
+          path = @uri.path
+          path.gsub(/\~[a-zA-Z0-9]*\//, "").gsub(/^\//, "")
+        end
+      end
+    end
+  end
+end

data/lib/integrity/scm/git.rb

@@ -0,0 +1,84 @@
+module Integrity
+  module SCM
+    class Git
+      require File.dirname(__FILE__) / "git/uri"
+
+      attr_reader :uri, :branch, :working_directory
+
+      def self.working_tree_path(uri)
+        Git::URI.new(uri).working_tree_path
+      end
+
+      def initialize(uri, branch, working_directory=nil)
+        @uri    = uri.to_s
+        @branch = branch.to_s
+        @working_directory = working_directory
+      end
+
+      def with_revision(revision)
+        fetch_code
+        checkout(revision)
+        yield
+      end
+
+      def name
+        self.class.name.split("::").last
+      end
+
+      def head
+        log "Getting the HEAD of '#{uri}' at '#{branch}'"
+        `git ls-remote --heads #{uri} #{branch} | awk '{print $1}'`.chomp
+      end
+
+      def info(revision)
+        format  = %Q(---%n:author: %an <%ae>%n:message: >-%n  %s%n:committed_at: %ci%n)
+        YAML.load(`cd #{working_directory} && git show -s --pretty=format:"#{format}" #{revision}`)
+      end
+
+      private
+
+        def fetch_code
+          clone    unless cloned?
+          checkout unless on_branch?
+          pull
+        end
+
+        def clone
+          log "Cloning #{uri} to #{working_directory}"
+          `git clone #{uri} #{working_directory} &>/dev/null`
+        end
+
+        def checkout(treeish=nil)
+          strategy = case
+            when treeish                         then treeish
+            when local_branches.include?(branch) then branch
+            else                                      "origin/#{branch}"
+          end
+
+          log "Checking-out #{strategy}"
+          `cd #{working_directory} && git reset --hard #{strategy} &>/dev/null`
+        end
+
+        def pull
+          log "Pull-ing in #{working_directory}"
+          `cd #{working_directory} && git pull &>/dev/null`
+        end
+
+        def local_branches
+          `cd #{working_directory} && git branch`.split("\n").map {|b| b.delete("*").strip }
+        end
+
+        def cloned?
+          File.directory?(working_directory / ".git")
+        end
+
+        def on_branch?
+          File.basename(`cd #{working_directory} && git symbolic-ref HEAD &>/dev/null`).chomp == branch
+        end
+
+        def log(message)
+          Integrity.log("Git") { message }
+        end
+    end
+  end
+end

data/lib/integrity/scm.rb

@@ -0,0 +1,19 @@
+module Integrity
+  module SCM
+    class SCMUnknownError < StandardError; end
+
+    def self.new(uri, *args)
+      scm_class_for(uri).new(uri, *args)
+    end
+
+    def self.working_tree_path(uri)
+      scm_class_for(uri).working_tree_path(uri)
+    end
+
+    private
+      def self.scm_class_for(uri)
+        return Git if uri.scheme == "git" || uri.path =~ /\.git\/?/
+        raise SCMUnknownError, "could not find any SCM based on URI '#{uri.to_s}'"
+      end
+  end
+end

data/lib/integrity.rb

@@ -0,0 +1,101 @@
+$:.unshift File.expand_path(File.dirname(__FILE__))
+
+require "json"
+require "haml"
+require "dm-core"
+require "dm-validations"
+require "dm-types"
+require "dm-timestamps"
+require "dm-aggregates"
+require "sinatra/base"
+
+require "yaml"
+require "logger"
+require "digest/sha1"
+require "timeout"
+require "ostruct"
+require "pathname"
+
+require "integrity/core_ext/object"
+
+require "integrity/project"
+require "integrity/author"
+require "integrity/commit"
+require "integrity/build"
+require "integrity/project_builder"
+require "integrity/scm"
+require "integrity/scm/git"
+require "integrity/notifier"
+require "integrity/helpers"
+require "integrity/app"
+
+# http://github.com/datamapper/dm-more/commit/13bbcc8592fc391d03d12383d1da6c280c33132a
+# http://integrity.lighthouseapp.com/projects/14308/tickets/92
+# http://datamapper.lighthouseapp.com/projects/20609/tickets/802
+class DataMapper::Types::URI
+  size 255
+end
+
+module Integrity
+  def self.new(config=nil)
+    if config.is_a?(String) && File.file?(config)
+      self.config = YAML.load_file(config)
+    elsif config.is_a?(Hash)
+      self.config = config
+    end
+
+    DataMapper.setup(:default, self.config[:database_uri])
+  end
+
+  def self.register_notifier(klass)
+    raise ArgumentError unless valid_notifier?(klass)
+
+    self.notifiers[klass.to_s.split(":").last] = klass
+  end
+
+  def self.notifiers
+    @notifiers ||= {}
+    @notifiers
+  end
+
+  def self.default_configuration
+    @defaults ||= { :database_uri      => "sqlite3::memory:",
+                    :export_directory  => "/tmp/exports",
+                    :log               => STDOUT,
+                    :base_uri          => "http://localhost:8910",
+                    :use_basic_auth    => false,
+                    :build_all_commits => true,
+                    :log_debug_info    => false }
+  end
+
+  def self.config
+    @config ||= default_configuration.dup
+  end
+
+  def self.config=(options)
+    @config = default_configuration.merge(options)
+  end
+
+  def self.log(message, &block)
+    logger.info(message, &block)
+  end
+
+  def self.logger
+    @logger ||= Logger.new(config[:log], "daily").tap do |logger|
+      logger.formatter = LogFormatter.new
+    end
+  end
+  private_class_method :logger
+
+  def self.valid_notifier?(notifier)
+    notifier.respond_to?(:to_haml) && notifier.respond_to?(:notify_of_build) &&
+      notifier != Notifier::Base
+  end
+  private_class_method :valid_notifier?
+
+    class LogFormatter < Logger::Formatter
+      def call(severity, time, progname, msg)
+        time.strftime("[%H:%M:%S] ") + msg2str(msg) + "\n"
+      end
+    end
+end

data/public/buttons.css

@@ -0,0 +1,82 @@
+/* --------------------------------------------------------------
+
+   buttons.css
+   * Gives you some great CSS-only buttons.
+
+   Created by Kevin Hale [particletree.com]
+   * particletree.com/features/rediscovering-the-button-element
+
+   See Readme.txt in this folder for instructions.
+
+-------------------------------------------------------------- */
+
+button {
+  display:block;
+  float:left;
+  margin:0 0.583em 0.667em 0;
+  padding:5px 10px 5px 7px;   /* Links */
+
+  border:1px solid #dedede;
+  border-top:1px solid #eee;
+  border-left:1px solid #eee;
+
+  background-color:#f5f5f5;
+  font-family:"Lucida Grande", Tahoma, Arial, Verdana, sans-serif;
+  font-size:100%;
+  line-height:130%;
+  text-decoration:none;
+  font-weight:bold;
+  color:#565656;
+  cursor:pointer;
+}
+button {
+  width:auto;
+  overflow:visible;
+  padding:4px 10px 3px 7px;   /* IE6 */
+}
+button[type] {
+  padding:4px 10px 4px 7px;   /* Firefox */
+  line-height:17px;           /* Safari */
+}
+*:first-child+html button[type] {
+  padding:4px 10px 3px 7px;   /* IE7 */
+}
+button img {
+  margin:0 3px -3px 0 !important;
+  padding:0;
+  border:none;
+  width:16px;
+  height:16px;
+  float:none;
+}
+
+
+/* Button colors
+-------------------------------------------------------------- */
+
+/* Standard */
+button:hover {
+  background-color:#dff4ff;
+  border:1px solid #c2e1ef;
+  color:#336699;
+}
+
+/* Positive */
+body .positive {
+  color:#529214;
+}
+button.positive:hover {
+  background-color:#E6EFC2;
+  border:1px solid #C6D880;
+  color:#529214;
+}
+
+/* Negative */
+body .negative {
+  color:#d12f19;
+}
+button.negative:hover {
+  background:#fbe3e4;
+  border:1px solid #fbc2c4;
+  color:#d12f19;
+}

data/public/reset.css

@@ -0,0 +1,7 @@
+/*
+Copyright (c) 2008, Yahoo! Inc. All rights reserved.
+Code licensed under the BSD License:
+http://developer.yahoo.net/yui/license.txt
+version: 2.5.2
+*/
+html{color:#000;background:#FFF;}body,div,dl,dt,dd,ul,ol,li,h1,h2,h3,h4,h5,h6,pre,code,form,fieldset,legend,input,textarea,p,blockquote,th,td{margin:0;padding:0;}table{border-collapse:collapse;border-spacing:0;}fieldset,img{border:0;}address,caption,cite,code,dfn,em,strong,th,var{font-style:normal;font-weight:normal;}li{list-style:none;}caption,th{text-align:left;}h1,h2,h3,h4,h5,h6{font-size:100%;font-weight:normal;}q:before,q:after{content:'';}abbr,acronym {border:0;font-variant:normal;}sup {vertical-align:text-top;}sub {vertical-align:text-bottom;}input,textarea,select{font-family:inherit;font-size:inherit;font-weight:inherit;}input,textarea,select{*font-size:100%;}legend{color:#000;}

data/test/acceptance/api_test.rb

@@ -0,0 +1,97 @@
+require File.dirname(__FILE__) + "/../helpers/acceptance"
+
+class ApiTest < Test::Unit::AcceptanceTestCase
+  story <<-EOF
+    As a project owner,
+    I want to be able to use GitHub as a build triggerer
+    So that my project is built everytime I push to the Holy Hub
+  EOF
+
+  def payload(after, branch="master", commits=[])
+    payload = { "after" => "#{after}", "ref" => "refs/heads/#{branch}" }
+    payload["commits"] = commits if commits.any?
+    payload.to_json
+  end
+
+  def post(path, data)
+    request_page(path, "post", data)
+  end
+
+  scenario "it only build commits for the branch being monitored" do
+    repo = git_repo(:my_test_project) # initial commit && successful commit
+    Project.gen(:my_test_project, :uri => repo.path, :branch => "my-branch")
+
+    basic_auth "admin", "test"
+
+    lambda do
+      post "/my-test-project/push", :payload => payload(repo.head, "master", repo.commits)
+      response_code.should == 422
+    end.should_not change(Build, :count)
+
+    visit "/my-test-project"
+
+    assert_contain("No builds for this project")
+  end
+
+  it "receiving a build request with build_all_commits *enabled* builds all commits, most recent first" do
+    Integrity.config[:build_all_commits] = true
+
+    repo = git_repo(:my_test_project) # initial commit && successful commit
+    3.times do |i|
+      repo.add_commit("commit #{i}") do
+        system "echo commit_#{i} >> test-file"
+        system "git add test-file &>/dev/null"
+      end
+    end
+
+    Project.gen(:my_test_project, :uri => repo.path, :command => "echo successful", :branch => "master")
+
+    basic_auth "admin", "test"
+    post "/my-test-project/push", :payload => payload(repo.head, "master", repo.commits)
+
+    visit "/my-test-project"
+
+    assert_have_tag("h1", :content => "Built #{git_repo(:my_test_project).short_head} successfully")
+    assert_have_tag(".attribution", :content => "by John Doe")
+
+    assert_have_tag("#previous_builds li", :count => 4)
+  end
+
+  scenario "receiving a build request with build_all_commits *disabled* only builds the last commit passed" do
+    Integrity.config[:build_all_commits] = false
+
+    Project.gen(:my_test_project, :uri => git_repo(:my_test_project).path)
+
+    git_repo(:my_test_project).add_failing_commit
+    git_repo(:my_test_project).add_successful_commit
+    head = git_repo(:my_test_project).head
+
+    basic_auth "admin", "test"
+    post "/my-test-project/push", :payload => payload(head, "master", git_repo(:my_test_project).commits)
+
+    response_code.should == 201
+
+    visit "/my-test-project"
+
+    assert_have_tag("h1", :content => "Built #{git_repo(:my_test_project).short_head} successfully")
+
+    assert_have_no_tag("#previous_builds li")
+  end
+
+  scenario "an unauthenticated request returns a 401" do
+    Project.gen(:my_test_project, :uri => git_repo(:my_test_project).path)
+    head = git_repo(:my_test_project).head
+    post "/my-test-project/push", :payload => payload(head, "master")
+
+    response_code.should == 401
+  end
+
+  scenario "receiving a build request with an invalid payload returns an Invalid Request error" do
+    Project.gen(:my_test_project, :uri => git_repo(:my_test_project).path)
+
+    basic_auth "admin", "test"
+
+    post "/my-test-project/push", :payload => "foo"
+    response_code.should == 422
+  end
+end

data/test/acceptance/browse_project_builds_test.rb

@@ -0,0 +1,65 @@
+require File.dirname(__FILE__) + "/../helpers/acceptance"
+
+class BrowseProjectBuildsTest < Test::Unit::AcceptanceTestCase
+  story <<-EOS
+    As a user,
+    I want to browse the builds of a project in Integrity
+    So I can see the history of a project
+  EOS
+
+  scenario "a project with no builds should say so in a friendly manner" do
+    Project.gen(:integrity, :public => true, :commits => [])
+
+    visit "/integrity"
+
+    assert_have_no_tag("#last_build")
+    assert_have_no_tag("#previous_builds")
+    assert_contain("No builds for this project, buddy")
+  end
+
+  scenario "a user can see the last build and the list of previous builds on a project page" do
+    Project.gen(:integrity, :public => true, :commits => \
+                3.of { Commit.gen(:successful) } +
+                2.of { Commit.gen(:failed) }     +
+                2.of { Commit.gen(:pending) })
+
+    visit "/integrity"
+
+    assert_have_tag("#last_build")
+
+    within("ul#previous_builds") do
+      assert_have_tag("li.pending", :count => 2)
+      assert_have_tag("li.failed",  :count => 2)
+      assert_have_tag("li.success", :count => 2)
+    end
+  end
+
+  scenario "a user can see details about the last build on the project page" do
+    commit = Commit.gen(:successful, :identifier   => "7fee3f0014b529e2b76d591a8085d76eab0ff923",
+                                     :author       => "Nicolas Sanguinetti <contacto@nicolassanguinetti.info>",
+                                     :message      => "No more pending tests :)",
+                                     :committed_at => Time.mktime(2008, 12, 15, 18))
+    commit.build.update_attributes(:output => "This is the build output")
+    Project.gen(:integrity, :public => true, :commits => [commit])
+
+    visit "/integrity"
+
+    assert_have_tag("h1", :content => "Built 7fee3f0 successfully")
+    assert_have_tag("blockquote p", :content => "No more pending tests")
+    assert_have_tag("span.who",     :content => "by: Nicolas Sanguinetti")
+    assert_have_tag("span.when",    :content => "Dec 15th")
+    assert_have_tag("pre.output",   :content => "This is the build output")
+  end
+
+  scenario "a user can browse to individual build pages" do
+    Project.gen(:integrity, :public => true, :commits => [
+      Commit.gen(:successful, :identifier => "7fee3f0014b529e2b76d591a8085d76eab0ff923"),
+      Commit.gen(:successful, :identifier => "87e673a83d273ecde121624a3fcfae57a04f2b76")
+    ])
+
+    visit "/integrity"
+    click_link(/Build 87e673a/)
+
+    assert_have_tag("h1", :content => "Built 87e673a successfully")
+  end
+end

data/test/acceptance/browse_project_test.rb

@@ -0,0 +1,99 @@
+require File.dirname(__FILE__) + "/../helpers/acceptance"
+
+class BrowsePublicProjectsTest < Test::Unit::AcceptanceTestCase
+  story <<-EOS
+    As a user,
+    I want to browse public projects on Integrity,
+    So I can follow the status of my favorite OSS projects
+  EOS
+
+  scenario "a user can see a public project listed on the home page" do
+    Project.gen(:integrity, :public => true)
+    Project.gen(:my_test_project, :public => true)
+
+    visit "/"
+
+    assert_have_tag("a", :content => "Integrity")
+    assert_have_tag("a", :content => "My Test Project")
+  end
+
+  scenario "a user can't see a private project listed on the home page" do
+    Project.gen(:my_test_project, :public => false)
+    Project.gen(:integrity, :public => true)
+
+    visit "/"
+
+    assert_have_no_tag("a", :content => "My Test Project")
+    assert_have_tag("a", :content => "Integrity")
+  end
+
+  scenario "a user can see the projects status on the home page" do
+    integrity = Project.gen(:integrity, :commits => 3.of { Commit.gen(:successful) })
+    test      = Project.gen(:my_test_project, :commits => 2.of { Commit.gen(:failed) })
+    no_build  = Project.gen(:public => true, :building => false)
+    building  = Project.gen(:public => true, :building => true)
+
+    visit "/"
+
+    assert_contain("Built #{integrity.last_commit.short_identifier} successfully")
+    assert_contain("Built #{test.last_commit.short_identifier} and failed")
+    assert_contain("Never built yet")
+    assert_contain("Building!")
+  end
+
+  scenario "a user clicking through a link on the home page for a public project arrives at the project page" do
+    Project.gen(:my_test_project, :public => true)
+
+    visit "/"
+    click_link "My Test Project"
+
+    assert_have_tag("h1", :content => "My Test Project")
+
+    # He can then go back to the project listing
+    click_link "projects"
+    assert_have_tag("a", :content => "My Test Project")
+  end
+
+  scenario "a user gets a 404 when browsing to an unexisting project" do
+    visit "/who-are-you"
+
+    response_code.should == 404
+    assert_have_tag("h1", :content => "you seem a bit lost, sir")
+  end
+
+  scenario "a user browsing to the url of a private project gets a 401" do
+    Project.gen(:my_test_project, :public => false)
+
+    visit "/my-test-project"
+
+    response_code.should == 401
+    assert_have_tag("h1", :content => "know the password?")
+  end
+
+  scenario "an admin can browse to a private project just fine" do
+    Project.gen(:my_test_project, :public => false)
+
+    login_as "admin", "test"
+
+    visit "/"
+    click_link "My Test Project"
+
+    assert_have_tag("h1", :content => "My Test Project")
+  end
+
+  scenario "a user browsing to a public project with no build see a friendly message" do
+    project = Project.gen(:my_test_project, :public => true)
+
+    visit "/my-test-project"
+    assert_contain("No builds for this project, buddy")
+  end
+
+  scenario "an admin browsing to a private project with no build see a friendly message" do
+    Project.gen(:my_test_project, :public => false)
+
+    login_as "admin", "test"
+    visit "/my-test-project"
+
+    assert_contain("No builds for this project, buddy")
+  end
+end