foca-integrity 0.1.0

data/lib/integrity/project.rb

@@ -0,0 +1,83 @@
+module Integrity
+  class Project
+    include DataMapper::Resource
+
+    property :id,         Integer,  :serial => true
+    property :name,       String,   :nullable => false
+    property :permalink,  String
+    property :uri,        URI,      :nullable => false, :length => 255
+    property :branch,     String,   :nullable => false, :default => "master"
+    property :command,    String,   :nullable => false, :length => 255, :default => "rake"
+    property :public,     Boolean,  :default => true
+    property :building,   Boolean,  :default => false
+    property :created_at, DateTime
+    property :updated_at, DateTime
+
+    has n, :builds, :class_name => "Integrity::Build"
+    has n, :notifiers, :class_name => "Integrity::Notifier"
+
+    before :save, :set_permalink
+    before :destroy, :delete_code
+
+    validates_is_unique :name
+
+    def build(commit_identifier="HEAD")
+      return if building?
+      update_attributes(:building => true)
+      Builder.new(self).build(commit_identifier)
+    ensure
+      update_attributes(:building => false)
+      send_notifications
+    end
+
+    def last_build
+      builds.last
+    end
+
+    def previous_builds
+      return [] if builds.count <= 1
+      builds.all(:order => [:created_at.desc], :offset => 1, :limit => builds.count - 1)
+    end
+
+    def status
+      last_build && last_build.status
+    end
+
+    def public=(flag)
+      attribute_set(:public, !!flag)
+    end
+    
+    def config_for(notifier)
+      notifier = notifiers.first(:name => notifier.to_s.split(/::/).last)
+      notifier.blank? ? {} : notifier.config
+    end
+    
+    def notifies?(notifier)
+      !notifiers.first(:name => notifier.to_s.split(/::/).last).blank?
+    end
+    
+    def enable_notifiers(*args)
+      Notifier.enable_notifiers(id, *args)
+    end
+    
+    private
+      def set_permalink
+        self.permalink = (name || "").downcase.
+          gsub(/'s/, "s").
+          gsub(/&/, "and").
+          gsub(/[^a-z0-9]+/, "-").
+          gsub(/-*$/, "")
+      end
+
+      def delete_code
+        builds.destroy!
+        Builder.new(self).delete_code
+      end
+      
+      def send_notifications
+        notifiers.each do |notifier|
+          notifier.notify_of_build last_build
+        end
+      end
+  end
+end

data/lib/integrity/scm.rb

@@ -0,0 +1,22 @@
+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(string)
+        case string.to_s
+          when /\.git\/?/ then Git
+          else raise SCMUnknownError, "could not find any SCM based on string '#{string}'"
+        end
+      end
+  end
+end

data/lib/integrity/scm/git.rb

@@ -0,0 +1,72 @@
+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
+      
+      private
+
+        def fetch_code
+          clone unless cloned?
+          checkout unless on_branch?
+          pull
+        end
+    
+        def clone
+          `git clone #{uri} #{working_directory}`
+        end
+
+        def checkout(treeish=nil)
+          strategy = case
+            when treeish                         then treeish
+            when local_branches.include?(branch) then branch
+            else                                      "-b #{branch} origin/#{branch}"
+          end
+          
+          `cd #{working_directory} && git checkout #{strategy}`
+        end
+
+        def pull
+          `cd #{working_directory} && git pull`
+        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`).chomp == branch
+        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/lib/integrity/version.rb

@@ -0,0 +1,3 @@
+module Integrity
+  VERSION = "0.1.0"
+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/spec/form_field_matchers.rb

@@ -0,0 +1,91 @@
+module FormFieldHpricotMatchers
+  # TODO: Add support for selects
+  class HaveField
+    include RspecHpricotMatchers
+    
+    def initialize(id, type, tagname)
+      @tagname = tagname
+      @type = type
+      @id = id
+      @tag_matcher = have_tag("#{@tagname}##{@id}", @tagname == "textarea" ? @value : nil)
+      @label_set = true # always check for a label, unless explicitly told not to
+    end
+    
+    def named(name)
+      @name_set = true
+      @name = name
+      self
+    end
+    
+    def with_label(label)
+      @label = label
+      self
+    end
+    
+    def without_label
+      @label_set = false
+      self
+    end
+    
+    def with_value(value)
+      @value_set = true
+      @value = value
+      self
+    end
+    
+    def checked
+      @checked = "checked"
+      self
+    end
+    
+    def unchecked
+      @checked = ""
+      self
+    end
+    
+    def matches?(actual)
+      (@label_set ? have_tag("label[@for=#{@id}]", @label).matches?(actual) : true) &&
+      @tag_matcher.matches?(actual) do |field|
+        field["type"].should == @type if @type
+        field["name"].should == @name if @name_set
+        field["value"].should == @value if @value_set && @tagname == "input"
+        field["checked"].should == @checked if @checked
+      end
+    end
+    
+    def failure_message
+      attrs = [
+        "id ##{@id}",
+        @name  && "name '#{@name}'",
+        @type  && "type '#{@type}'",
+        @label && "labelled '#{@label}'",
+        @value && "value '#{@value}'"
+      ].compact.join(", ")
+      "You expected a #{@tagname}#{@type ? " (#{@type})" : ""} with #{attrs} but found none.\n\n#{@tag_matcher.failure_message}"
+    end
+  end
+  
+  def have_field(id, type="text", tagname="input")
+    HaveField.new(id, type, tagname)
+  end
+  
+  def have_textfield(id)
+    have_field(id)
+  end
+  
+  def have_password(id)
+    have_field(id, "password")
+  end
+  
+  def have_checkbox(id)
+    have_field(id, "checkbox")
+  end
+
+  def have_radio(id)
+    have_field(id, "radio")
+  end
+
+  def have_textarea(id)
+    have_field(id, nil, "textarea")
+  end
+end

data/spec/spec_helper.rb

@@ -0,0 +1,131 @@
+require File.dirname(__FILE__) + '/../lib/integrity'
+require 'spec'
+
+module NotifierSpecHelper
+  def self.included(mod)
+    mod.before(:each) { Integrity.stub!(:config).and_return(:base_uri => "http://localhost:4567") }
+  end
+  
+  class Integrity::Notifier::Stub < Integrity::Notifier::Base
+    def self.to_haml
+      ""
+    end
+    
+    def deliver!
+      nil
+    end
+  end
+
+  def mock_build(messages={})
+    messages = {
+      :project => stub("project", :name => "Integrity", :permalink => "integrity"),
+      :commit_identifier => "e7e02bc669d07064cdbc7e7508a21a41e040e70d",
+      :short_commit_identifier => "e7e02b",
+      :status => :success,
+      :successful? => true,
+      :commit_message => "the commit message",
+      :commit_author => stub("author", :name => "Nicolás Sanguinetti"),
+      :commited_at => Time.mktime(2008, 07, 25, 18, 44),
+      :output => "the output \e[31mwith color coding\e[0m"
+    }.merge(messages)
+    @build ||= stub("build", messages)
+  end
+  
+  def notifier_config(overrides={})
+    @config ||= overrides
+  end
+  
+  def notifier
+    @notifier ||= stub("notifier", :method_missing => nil)
+  end
+  
+  def the_form(locals = {})
+    locals = { :config => {} }.merge(locals)
+    require 'haml'
+    @form ||= Haml::Engine.new(klass.to_haml).render(self, locals)
+  end
+end
+
+describe "A notifier", :shared => true do  
+  it "should have a `notify_of_build' class method" do
+    klass.should respond_to(:notify_of_build)
+  end
+  
+  it "should have a `to_haml' class method" do
+    klass.should respond_to(:to_haml)
+  end
+end
+
+module DatabaseSpecHelper
+  def self.included(mod)
+    mod.before(:each) { setup_database! }
+  end
+
+  def setup_database!
+    DataMapper.setup(:default, 'sqlite3::memory:')
+    Integrity::Project.auto_migrate!
+    Integrity::Build.auto_migrate!
+    Integrity::Notifier.auto_migrate!
+  end
+end
+
+module AppSpecHelper
+  def self.included(mod)
+    require 'rspec_hpricot_matchers'
+    require Integrity.root / 'spec/form_field_matchers'
+
+    mod.send(:include, DatabaseSpecHelper)
+    mod.send(:include, RspecHpricotMatchers)
+    mod.send(:include, FormFieldHpricotMatchers)
+  end
+
+  def mock_project(messages={})
+    messages = {
+      :name => "Integrity",
+      :permalink => "integrity",
+      :new_record? => false,
+      :uri => "git://github.com/foca/integrity.git",
+      :branch => "master",
+      :command => "rake",
+      :public? => true,
+      :builds => [],
+      :config_for => {},
+      :build => nil,
+      :update_attributes => true,
+      :save => true,
+      :destroy => nil,
+      :errors => stub("errors", :on => nil),
+      :notifies? => false,
+      :enable_notifiers => nil
+    }.merge(messages)
+
+    @project ||= stub("project", messages)
+  end
+
+  def mock_build(messages={})
+    messages = {
+      :status => :success,
+      :successful? => true,
+      :output => 'output',
+      :project => @project,
+      :commit_identifier => '9f6302002d2259c05a64767e0dedb15d280a4848',
+      :commit_author => mock("author",
+        :name  => 'Nicolás Sanguinetti',
+        :email => 'contacto@nicolassanguinetti.info',
+        :full  =>'Nicolás Sanguinetti <contacto@nicolassanguinetti.info>'
+      ),
+      :commited_at => Time.mktime(2008, 7, 24, 17, 15),
+      :commit_message => "Add Object#tap for versions of ruby that don't have it"
+    }.merge(messages)
+    messages[:short_commit_identifier] = messages[:commit_identifier][0..5]
+    mock('build', messages)
+  end
+
+  def disable_basic_auth!
+    Integrity.stub!(:config).and_return(:use_basic_auth => false)
+  end
+
+  def enable_basic_auth!
+    Integrity.stub!(:config).and_return(:use_basic_auth => true, :admin_username => 'user', :admin_password => 'pass')
+  end
+end