foca-integrity 0.1.8 → 0.1.9.0

data/lib/integrity/project_builder.rb

@@ -1,23 +1,24 @@
 module Integrity
   class ProjectBuilder
-    attr_reader :build_script
-
     def initialize(project)
+      @project = project
       @uri = project.uri
       @build_script = project.command
       @branch = project.branch
       @scm = SCM.new(@uri, @branch, export_directory)
-      @build = Build.new(:project => project)
     end
 
     def build(commit)
-      Integrity.log "Building #{commit} (#{@branch}) of #{@build.project.name} in #{export_directory} using #{scm_name}"
-      @scm.with_revision(commit) { run_build_script }
+      @commit = commit
+      @build = commit.build
+      @build.start!
+      Integrity.log "Building #{commit.identifier} (#{@branch}) of #{@project.name} in #{export_directory} using #{@scm.name}"
+      @scm.with_revision(commit.identifier) { run_build_script }
       @build
     ensure
-      @build.commit_identifier = @scm.commit_identifier(commit)
-      @build.commit_metadata = @scm.commit_metadata(commit)
-      @build.save
+      @build.complete!
+      @commit.update_attributes(@scm.info(commit.identifier))
+      send_notifications
     end
 
     def delete_code
@@ -27,18 +28,26 @@ module Integrity
     end
 
     private
-      def export_directory
-        Integrity.config[:export_directory] / "#{SCM.working_tree_path(@uri)}-#{@branch}"
+      def send_notifications
+        @project.notifiers.each do |notifier|
+          begin
+            Integrity.log "Notifying of build #{@commit.short_identifier} using the #{notifier.name} notifier"
+            notifier.notify_of_build @commit
+          rescue Timeout::Error
+            Integrity.log "#{notifier.name} notifier timed out"
+            next
+          end
+        end
       end
 
-      def scm_name
-        @scm.name
+      def export_directory
+        Integrity.config[:export_directory] / "#{SCM.working_tree_path(@uri)}-#{@branch}"
       end
 
       def run_build_script
-        Integrity.log "Running `#{build_script}` in #{@scm.working_directory}"
+        Integrity.log "Running `#{@build_script}` in #{@scm.working_directory}"
 
-        IO.popen "(cd #{@scm.working_directory} && #{build_script}) 2>&1", "r" do |pipe|
+        IO.popen "(cd #{@scm.working_directory} && #{@build_script}) 2>&1", "r" do |pipe|
           @build.output = pipe.read
         end
         @build.successful = $?.success?

data/lib/integrity/scm/git.rb

@@ -9,8 +9,8 @@ module Integrity
         Git::URI.new(uri).working_tree_path
       end
 
-      def initialize(uri, branch, working_directory)
-        @uri = uri.to_s
+      def initialize(uri, branch, working_directory=nil)
+        @uri    = uri.to_s
         @branch = branch.to_s
         @working_directory = working_directory
       end
@@ -21,27 +21,28 @@ module Integrity
         yield
       end
 
-      def commit_identifier(sha1)
-        `cd #{working_directory} && git show -s --pretty=format:%H #{sha1}`.chomp
+      def name
+        self.class.name.split("::").last
       end
 
-      def commit_metadata(sha1)
-        format  = %Q(---%n:author: %an <%ae>%n:message: >-%n  %s%n:date: %ci%n)
-        YAML.load(`cd #{working_directory} && git show -s --pretty=format:"#{format}" #{sha1}`)
+      def head
+        log "Getting the HEAD of '#{uri}' at '#{branch}'"
+        `git ls-remote --heads #{uri} #{branch} | awk '{print $1}'`.chomp
       end
-      
-      def name
-        self.class.name.split("::").last
+
+      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?
+          clone    unless cloned?
           checkout unless on_branch?
           pull
         end
-    
+
         def clone
           log "Cloning #{uri} to #{working_directory}"
           `git clone #{uri} #{working_directory} &>/dev/null`
@@ -51,11 +52,11 @@ module Integrity
           strategy = case
             when treeish                         then treeish
             when local_branches.include?(branch) then branch
-            else                                      "-b #{branch} origin/#{branch}"
+            else                                      "origin/#{branch}"
           end
 
           log "Checking-out #{strategy}"
-          `cd #{working_directory} && git checkout #{strategy} &>/dev/null`
+          `cd #{working_directory} && git reset --hard #{strategy} &>/dev/null`
         end
 
         def pull

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

@@ -13,13 +13,13 @@ module Integrity
       #     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 
+      #
+      #   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 
+      #   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/
@@ -30,13 +30,13 @@ module Integrity
         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?
@@ -46,7 +46,7 @@ module Integrity
             string
           end
         end
-    
+
         def path
           path = @uri.path
           path.gsub(/\~[a-zA-Z0-9]*\//, "").gsub(/^\//, "")

data/test/acceptance/api_test.rb

@@ -0,0 +1,97 @@
+require File.dirname(__FILE__) + "/helpers"
+
+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"
+
+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,95 @@
+require File.dirname(__FILE__) + "/helpers"
+
+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")
+  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

data/test/acceptance/build_notifications_test.rb

@@ -0,0 +1,42 @@
+require File.dirname(__FILE__) + "/helpers"
+require File.dirname(__FILE__) + "/../helpers/acceptance/textfile_notifier"
+
+class BuildNotificationsTest < Test::Unit::AcceptanceTestCase
+  story <<-EOS
+    As an administrator,
+    I want to setup notifiers on my projects
+    So that I get alerts with every build
+  EOS
+
+  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"
+  end
+
+  scenario "an admin sets up a notifier for a project that didn't have any" do
+    git_repo(:my_test_project).add_successful_commit
+    Project.gen(:my_test_project, :notifiers => [], :uri => git_repo(:my_test_project).path)
+    rm_f "/tmp/textfile_notifications.txt"
+
+    login_as "admin", "test"
+
+    visit "/my-test-project"
+
+    click_link "Edit Project"
+    check "enabled_notifiers_textfile"
+    fill_in "File", :with => "/tmp/textfile_notifications.txt"
+    click_button "Update Project"
+
+    click_button "manual build"
+
+    notification = File.read("/tmp/textfile_notifications.txt")
+    notification.should =~ /=== Built #{git_repo(:my_test_project).short_head} successfully ===/
+    notification.should =~ /Build #{git_repo(:my_test_project).head} was successful/
+    notification.should =~ %r(http://www.example.com/my-test-project/commits/#{git_repo(:my_test_project).head})
+    notification.should =~ /Commit Author: John Doe/
+    notification.should =~ /Commit Date: (.+)/
+    notification.should =~ /Commit Message: This commit will work/
+    notification.should =~ /Build Output:\n\nRunning tests...\n/
+  end
+end