integrity 0.1.8

data/lib/integrity/project_builder.rb

@@ -0,0 +1,47 @@
+module Integrity
+  class ProjectBuilder
+    attr_reader :build_script
+
+    def initialize(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 }
+      @build
+    ensure
+      @build.commit_identifier = @scm.commit_identifier(commit)
+      @build.commit_metadata = @scm.commit_metadata(commit)
+      @build.save
+    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
+
+      def scm_name
+        @scm.name
+      end
+
+      def run_build_script
+        Integrity.log "Running `#{build_script}` in #{@scm.working_directory}"
+
+        IO.popen "(cd #{@scm.working_directory} && #{build_script}) 2>&1", "r" do |pipe|
+          @build.output = pipe.read
+        end
+        @build.successful = $?.success?
+      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/scm/git.rb

@@ -0,0 +1,83 @@
+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)
+        @uri = uri.to_s
+        @branch = branch.to_s
+        @working_directory = working_directory
+      end
+
+      def with_revision(revision)
+        fetch_code
+        checkout(revision)
+        yield
+      end
+
+      def commit_identifier(sha1)
+        `cd #{working_directory} && git show -s --pretty=format:%H #{sha1}`.chomp
+      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}`)
+      end
+      
+      def name
+        self.class.name.split("::").last
+      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                                      "-b #{branch} origin/#{branch}"
+          end
+
+          log "Checking-out #{strategy}"
+          `cd #{working_directory} && git checkout #{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/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/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/helpers.rb

@@ -0,0 +1,47 @@
+require File.dirname(__FILE__) + "/../lib/integrity"
+
+begin
+  require "test/unit"
+  require "redgreen"
+  require "context"
+  require "storyteller"
+  require "pending"
+  require "matchy"
+  require "rr"
+  require "mocha"
+  require "ruby-debug"
+rescue LoadError
+  puts "You're missing some gems required to run the tests."
+  puts "Please run `rake test:install_dependencies`"
+  puts "You'll probably need to run that command as root or with sudo."
+  puts
+  puts "Thanks :)"
+  puts
+
+  exit 1
+end
+
+require File.dirname(__FILE__) / "helpers" / "expectations"
+require File.dirname(__FILE__) / "helpers" / "fixtures"
+
+module TestHelper
+  def setup_and_reset_database!
+    DataMapper.setup(:default, "sqlite3::memory:")
+    DataMapper.auto_migrate!
+  end
+
+  def ignore_logs!
+    stub(Integrity).log { nil }
+  end
+end
+
+class Test::Unit::TestCase
+  class << self
+    alias_method :specify, :test
+  end
+
+  include RR::Adapters::TestUnit
+  include Integrity
+  include TestHelper
+end
+

data/test/helpers/acceptance.rb

@@ -0,0 +1,127 @@
+require 'webrat/rack'
+require 'sinatra'
+require 'sinatra/test'
+
+set :environment, :test
+disable :run
+disable :reload
+
+Webrat.configuration.instance_variable_set("@mode", :sinatra)
+
+module Webrat
+  class SinatraSession < Session
+    DEFAULT_DOMAIN = "integrity.example.org"
+
+    def initialize(context = nil)
+      super(context)
+      @sinatra_test = Sinatra::TestHarness.new
+    end
+
+    %w(get head post put delete).each do |verb|
+      class_eval <<-METHOD
+        def #{verb}(path, data, headers = {})
+          params = data.inject({}) do |data, (key,value)|
+            data[key] = Rack::Utils.unescape(value)
+            data
+          end
+          headers['HTTP_HOST'] = DEFAULT_DOMAIN
+          @sinatra_test.#{verb}(path, params, headers)
+        end
+      METHOD
+    end
+
+    def response_body
+      @sinatra_test.body
+    end
+
+    def response_code
+      @sinatra_test.status
+    end
+
+    private
+
+    def response
+      @sinatra_test.response
+    end
+
+    def current_host
+      URI.parse(current_url).host || DEFAULT_DOMAIN
+    end
+
+    def response_location_host
+      URI.parse(response_location).host || DEFAULT_DOMAIN
+    end
+  end
+end
+
+require Integrity.root / "app"
+require File.dirname(__FILE__) / "acceptance/git_helper"
+
+module AcceptanceHelper
+  include FileUtils
+
+  def export_directory
+    Integrity.root / "exports"
+  end
+
+  def enable_auth!
+    Integrity.config[:use_basic_auth]      = true
+    Integrity.config[:admin_username]      = "admin"
+    Integrity.config[:admin_password]      = "test"
+    Integrity.config[:hash_admin_password] = false
+  end
+
+  def login_as(user, password)
+    def AcceptanceHelper.logged_in; true; end
+    basic_auth user, password
+    visit "/login"
+    Sinatra::Application.before { login_required if AcceptanceHelper.logged_in }
+  end
+
+  def log_out
+    def AcceptanceHelper.logged_in; false; end
+    @_webrat_session = Webrat::SinatraSession.new(self)
+  end
+
+  def disable_auth!
+    Integrity.config[:use_basic_auth] = false
+  end
+
+  def set_and_create_export_directory!
+    FileUtils.rm_r(export_directory) if File.directory?(export_directory)
+    FileUtils.mkdir(export_directory)
+    Integrity.config[:export_directory] = export_directory
+  end
+
+  def setup_log!
+    pathname = Integrity.root / "integrity.log"
+    FileUtils.rm pathname if File.exists?(pathname)
+    Integrity.config[:log] = pathname
+  end
+end
+
+class Test::Unit::AcceptanceTestCase < Test::Unit::TestCase
+  include AcceptanceHelper
+  include Test::Storyteller
+  include GitHelper
+  include Webrat::Methods
+  Webrat::Methods.delegate_to_session :response_code
+
+  before(:all) do
+    Integrity.config[:base_uri] = "http://#{Webrat::SinatraSession::DEFAULT_DOMAIN}"
+  end
+
+  before(:each) do
+    # ensure each scenario is run in a clean sandbox
+    setup_and_reset_database!
+    enable_auth!
+    setup_log!
+    set_and_create_export_directory!
+    log_out
+  end
+
+  after(:each) do
+    destroy_all_git_repos
+    rm_r export_directory if File.directory?(export_directory)
+  end
+end