mason-server 0.0.1 → 0.0.2

data/Gemfile

@@ -0,0 +1,11 @@
+source "http://rubygems.org"
+
+gemspec
+
+group :test do
+  gem "contest"
+  gem "rake"
+  gem "rack-test"
+  gem "mason-client", :path => "../client"
+  gem "artifice", :git => "git://github.com/wycats/artifice"
+end

data/Gemfile.lock

@@ -0,0 +1,79 @@
+GIT
+  remote: git://github.com/wycats/artifice
+  revision: c493eb5c359fd018b4135c1de8876953a44b193c
+  specs:
+    artifice (0.5)
+      rack-test
+
+PATH
+  remote: /data/homedirs/ey/sr/buildozor/client
+  specs:
+    mason-client (0)
+      json
+      rack
+
+PATH
+  remote: .
+  specs:
+    mason-server (0.0.1)
+      dm-aggregates (~> 1.0.2)
+      dm-core (~> 1.0.2)
+      dm-migrations (~> 1.0.2)
+      dm-postgres-adapter (~> 1.0.2)
+      dm-timestamps (~> 1.0.2)
+      json (~> 1.4.6)
+      open4 (~> 1.0)
+      sinatra (~> 1.0)
+
+GEM
+  remote: http://rubygems.org/
+  specs:
+    addressable (2.2.1)
+    contest (0.1.2)
+    data_objects (0.10.2)
+      addressable (~> 2.1)
+    dm-aggregates (1.0.2)
+      dm-core (~> 1.0.2)
+    dm-core (1.0.2)
+      addressable (~> 2.2)
+      extlib (~> 0.9.15)
+    dm-do-adapter (1.0.2)
+      data_objects (~> 0.10.2)
+      dm-core (~> 1.0.2)
+    dm-migrations (1.0.2)
+      dm-core (~> 1.0.2)
+    dm-postgres-adapter (1.0.2)
+      dm-do-adapter (~> 1.0.2)
+      do_postgres (~> 0.10.2)
+    dm-timestamps (1.0.2)
+      dm-core (~> 1.0.2)
+    do_postgres (0.10.2)
+      data_objects (= 0.10.2)
+    extlib (0.9.15)
+    json (1.4.6)
+    open4 (1.0.1)
+    rack (1.2.1)
+    rack-test (0.5.4)
+      rack (>= 1.0)
+    rake (0.8.7)
+    sinatra (1.0)
+      rack (>= 1.0)
+
+PLATFORMS
+  ruby
+
+DEPENDENCIES
+  artifice!
+  contest
+  dm-aggregates (~> 1.0.2)
+  dm-core (~> 1.0.2)
+  dm-migrations (~> 1.0.2)
+  dm-postgres-adapter (~> 1.0.2)
+  dm-timestamps (~> 1.0.2)
+  json (~> 1.4.6)
+  mason-client!
+  mason-server!
+  open4 (~> 1.0)
+  rack-test
+  rake
+  sinatra (~> 1.0)

data/Rakefile

@@ -0,0 +1,8 @@
+require "rake/testtask"
+
+task :default => :test
+
+Rake::TestTask.new(:test) do |t|
+  t.ruby_opts << "-Ilib" << "-Itest"
+  t.test_files = FileList["test/*_test.rb"]
+end

data/config.ru

@@ -0,0 +1,7 @@
+require "mason_server"
+
+MasonServer.setup(ENV["RACK_ENV"], "config/database.yml", "/mnt")
+
+map "/" do
+  run MasonServer.app
+end

data/config/database.yml

@@ -0,0 +1,8 @@
+development:
+  usermame: ey
+  password: eB3JNowOI3
+  database: ensemble_development
+test:
+  usermame: ey
+  password: eB3JNowOI3
+  database: ensemble_test

data/config/database.yml.example

@@ -0,0 +1,4 @@
+test:
+  usermame: ey
+  password: foobar
+  database: buildorgium_test

data/lib/mason_server.rb

@@ -0,0 +1,55 @@
+require "pathname"
+
+require "dm-core"
+require "dm-aggregates"
+require "dm-timestamps"
+require "dm-migrations"
+require "json"
+require "sinatra"
+require "open4"
+
+require "mason_server/build"
+require "mason_server/app"
+require "mason_server/command_runner"
+require "mason_server/deployment"
+
+module MasonServer
+  class Error < StandardError; end
+
+  Request = Struct.new(:repo, :ref, :command, :callback)
+
+  def self.setup(environment, url, db_config, directory)
+    @deployment = Deployment.new(environment, url, db_config, directory)
+  end
+
+  def self.app
+    App
+  end
+
+  def self.enable_mock!
+  end
+
+  def self.url
+    @deployment.url
+  end
+
+  def self.setup_db
+    @deployment.setup_db
+  end
+
+  def self.reset_db
+    @deployment.reset_db
+  end
+
+  def self.directory
+    @deployment.directory
+  end
+
+  def self.deployment
+    unless @deployment
+      raise Error, "call setup first"
+    end
+
+    @deployment
+  end
+end

data/lib/mason_server/app.rb

@@ -0,0 +1,24 @@
+module MasonServer
+  class App < Sinatra::Base
+    # TODO
+    enable :raise_errors
+    disable :show_exceptions
+
+    def _request
+      Request.new(*payload.values_at("repo", "ref", "command", "callback"))
+    end
+
+    def payload
+      JSON.parse(params["payload"])
+    end
+
+    post "/" do
+      if url = Build.run(_request)
+        headers["Location"] = url
+        301
+      else
+        500
+      end
+    end
+  end
+end

data/lib/mason_server/build.rb

@@ -0,0 +1,87 @@
+module MasonServer
+  class Build
+    include DataMapper::Resource
+
+    property :id,           Serial
+    property :repo,         String,  :required => true
+    property :ref,          String,  :required => true
+    property :command,      String,  :required => true
+    property :callback,     String,  :required => true
+    property :status,       Integer
+    property :output,       Text
+    property :started_at,   DateTime
+    property :completed_at, DateTime
+
+    timestamps :at
+
+    def self.run(request)
+      build = new(
+        :repo     => request.repo,
+        :ref      => request.ref,
+        :command  => request.command,
+        :callback => request.callback
+      )
+
+      unless build.save
+        raise Error, "failed to create build for #{request.inspect}"
+      end
+
+      # TODO need aync
+      build.run
+      build.url
+    end
+
+    def url
+      "#{MasonServer.url}/#{id}"
+    end
+
+    def run
+      start
+      setup_checkout
+      run_command
+      complete
+      notify
+    end
+
+    def start
+      unless update(:started_at => Time.now)
+        raise Error, "failed to start build"
+      end
+    end
+
+    def setup_checkout
+    end
+
+    def run_command
+      status = CommandRunner.run(MasonServer.directory, command) do |chunk|
+        output_handler(chunk)
+      end
+
+      unless update(:status => status)
+        raise Error, "could not set status"
+      end
+    end
+
+    def output_handler(chunk)
+      # TODO StringIO
+      @_output ||= ""
+      @_output << chunk
+      update(:output => @_output)
+    rescue DataObjects::ConnectionError
+    end
+
+    def complete
+      unless update(:completed_at => Time.now)
+        raise Error, "failed to complete build"
+      end
+    end
+
+    def notify
+      Net::HTTP.post_form(URI(callback.to_s), "payload" => payload.to_json)
+    end
+
+    def payload
+      { "url" => url, "callback" => callback, "status" => status }
+    end
+  end
+end

data/lib/mason_server/command_runner.rb

@@ -0,0 +1,44 @@
+module MasonServer
+  class CommandRunner
+    def self.run(directory, command, &handler)
+      new(directory, command, handler).run
+    end
+
+    def initialize(directory, command, handler)
+      @directory = Pathname(directory)
+      @command   = command
+      @handler   = handler
+    end
+
+    def run
+      file_write
+
+      status = Open4.spawn(
+        file.to_s,
+        :dir   => @directory,
+        :out   => self,
+        :err   => self,
+        :quiet => true
+      )
+
+      status.exitstatus
+    end
+
+    def <<(chunk)
+      @handler.call(chunk)
+    end
+
+    def file_write
+      File.open(file, "w") { |f| f.puts file_content }
+      file.chmod(0700)
+    end
+
+    def file_content
+      "#!/bin/sh\n#{@command}"
+    end
+
+    def file
+      @tmp_file ||= @directory.join("mason#{$$}").expand_path
+    end
+  end
+end

data/lib/mason_server/deployment.rb

@@ -0,0 +1,26 @@
+module MasonServer
+  class Deployment
+    def initialize(environment, url, db_config_file, directory)
+      @environment    = environment
+      @url            = url
+      @db_config_file = db_config_file
+      @directory      = directory
+    end
+
+    attr_reader :url, :directory
+
+    def setup_db
+      DataMapper.setup(:default, ("postgres://%s:%s@%s/%s" % db_config))
+    end
+
+    def reset_db
+      DataMapper.auto_migrate!
+    end
+
+    def db_config
+      @db_config ||= YAML.load_file(@db_config_file).
+        fetch(@environment).
+        values_at("username", "password", "host", "database")
+    end
+  end
+end

data/mason-server.gemspec

@@ -0,0 +1,17 @@
+Gem::Specification.new do |s|
+  s.name  = "mason-server"
+  s.version = "0.0.2"
+  s.summary = "builds things"
+
+  s.add_dependency "dm-core",             "~>1.0.2"
+  s.add_dependency "dm-aggregates",       "~>1.0.2"
+  s.add_dependency "dm-migrations",       "~>1.0.2"
+  s.add_dependency "dm-timestamps",       "~>1.0.2"
+  s.add_dependency "dm-postgres-adapter", "~>1.0.2"
+
+  s.add_dependency "open4",   "~>1.0"
+  s.add_dependency "sinatra", "~>1.0"
+  s.add_dependency "json",    "~>1.4.6"
+
+  s.files        = `git ls-files`.split("\n")
+end

data/test/command_runner_test.rb

@@ -0,0 +1,23 @@
+require "helper"
+
+class CommandRunnerTest < Test::Unit::TestCase
+  test "output" do
+    output = ""
+
+    MasonServer::CommandRunner.run("tmp", "echo suck") do |chunk|
+      output << chunk
+    end
+
+    assert_equal "suck\n", output
+  end
+
+  test "success" do
+    result = MasonServer::CommandRunner.run("tmp", "true")
+    assert_equal 0, result
+  end
+
+  test "fail" do
+    result = MasonServer::CommandRunner.run("tmp", "false")
+    assert_equal 1, result
+  end
+end

data/test/helper.rb

@@ -0,0 +1,9 @@
+require "test/unit"
+require "contest"
+require "rack/test"
+require "artifice"
+
+require "helper/mock_receiver"
+
+require "mason_client"
+require "mason_server"

data/test/helper/mock_receiver.rb

@@ -0,0 +1,17 @@
+class MockReceiver
+  def initialize
+    @builds = {}
+  end
+
+  def [](url)
+    @builds[url]
+  end
+
+  def size
+    @builds.size
+  end
+
+  def handle(result)
+    @builds[result.url] = result
+  end
+end

data/test/mason_server_test.rb

@@ -0,0 +1,81 @@
+require "helper"
+
+class MasonServerTest < Test::Unit::TestCase
+  include Rack::Test::Methods
+
+  def app
+    @app ||= Rack::Builder.new {
+      map "/callback" do
+        run MasonClient.app
+      end
+
+      map "/" do
+        run MasonServer.app
+      end
+    }
+  end
+
+  setup do
+    @receiver = MockReceiver.new
+
+    MasonServer.setup("test", "http://mason.example.com", "config/database.yml", "tmp")
+    MasonServer.setup_db
+    MasonServer.reset_db
+    MasonServer.enable_mock!
+
+    MasonClient.setup("http://mason.example.com/") do |result|
+      @receiver.handle(result)
+    end
+
+    Artifice.activate_with(app)
+  end
+
+  teardown do
+    Artifice.deactivate
+  end
+
+=begin
+  test "fail request" do
+    response = MasonClient.build(
+      "git@github.com:sr/mason.git",
+      "HEAD",
+      nil,
+      "http://example.org/callback"
+    )
+
+    assert ! response.success?
+    assert_nil response.url
+  end
+=end
+
+  test "success build" do
+    response = MasonClient.build(
+      "git@github.com:sr/mason.git",
+      "HEAD",
+      "echo foo",
+      "http://example.org/callback"
+    )
+
+    # TODO move to client test?
+    assert response.success?
+    assert_not_nil response.url
+
+    assert_equal 1, MasonServer::Build.count
+
+    build = MasonServer::Build.first
+
+    assert_equal "git@github.com:sr/mason.git", build.repo
+    assert_equal "HEAD",                        build.ref
+    assert_equal "echo foo",                    build.command
+    assert_equal "http://example.org/callback", build.callback
+    assert_equal "foo\n",                       build.output
+
+    assert_equal 1, @receiver.size
+
+    result = @receiver[response.url]
+
+    assert result.success?
+    assert_equal "http://mason.example.com/1",  result.url
+    assert_equal "http://example.org/callback", result.callback
+  end
+end

metadata

@@ -5,8 +5,8 @@ version: !ruby/object:Gem::Version
   segments: 
   - 0
   - 0
-  - 1
-  version: 0.0.1
+  - 2
+  version: 0.0.2
 platform: ruby
 authors: []
 
@@ -135,8 +135,24 @@ extensions: []
 
 extra_rdoc_files: []
 
-files: []
-
+files: 
+- Gemfile
+- Gemfile.lock
+- Rakefile
+- config.ru
+- config/database.yml
+- config/database.yml.example
+- lib/mason_server.rb
+- lib/mason_server/app.rb
+- lib/mason_server/build.rb
+- lib/mason_server/command_runner.rb
+- lib/mason_server/deployment.rb
+- mason-server.gemspec
+- test/command_runner_test.rb
+- test/helper.rb
+- test/helper/mock_receiver.rb
+- test/mason_server_test.rb
+- tmp/.gitignore
 has_rdoc: true
 homepage: 
 licenses: []