rkh-monk 0.0.5

data/LICENSE

@@ -0,0 +1,19 @@
+Copyright (c) 2008 Michel Martens and Damian Janowski
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+THE SOFTWARE.

data/README.markdown

@@ -0,0 +1,70 @@
+Monk
+====
+
+The glue framework for web development.
+
+Description
+-----------
+
+Monk is a glue framework for web development. It means that instead of
+installing all the tools you need for your projects, you can rely on a
+git repository and a list of dependencies, and Monk takes care of the
+rest. By default, it ships with a Sinatra application that includes
+Contest, Stories, Webrat, Ohm and some other niceties, along with a
+structure and helpful documentation to get your hands wet in no time.
+
+But Monk also respects your tastes, and you are invited to create your
+own versions of the skeleton app and your own list of dependencies. You
+can add many different templates (different git repositories) and Monk
+will help you manage them all.
+
+Usage
+-----
+
+Install the monk gem and create your project:
+
+    $ sudo gem install monk
+    $ monk init myapp
+    $ cd myapp
+    $ rake
+
+If the tests pass, it means that you can start hacking right away. If
+they don't, just follow the instructions. As the default skeleton
+is very opinionated, you will probably need to install and run
+[Redis](http://code.google.com/p/redis/), a key-value database.
+
+Check the `dependencies` file in the root of your project to see what
+else is there. Monk works with git almost exclusively, but your project
+can also depend on gems. Check the dependencies file to see what options
+you have, and run the `dep` command line tool to verify it.
+
+Installation
+------------
+
+    $ sudo gem install monk
+
+License
+-------
+
+Copyright (c) 2009 Michel Martens and Damian Janowski
+
+Permission is hereby granted, free of charge, to any person
+obtaining a copy of this software and associated documentation
+files (the "Software"), to deal in the Software without
+restriction, including without limitation the rights to use,
+copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the
+Software is furnished to do so, subject to the following
+conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
+FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
+OTHER DEALINGS IN THE SOFTWARE.

data/Rakefile

@@ -0,0 +1,11 @@
+task :test do
+  system "cd test && mkdir -p tmp && ruby monk_test.rb"
+end
+
+task :default => :test
+
+namespace :test do
+  task :integration do
+    system "cd test && mkdir -p tmp && ruby integration_test.rb"
+  end
+end

data/bin/monk

@@ -0,0 +1,13 @@
+#! /usr/bin/env ruby -rubygems
+
+require File.join(File.dirname(__FILE__), "..", "lib", "monk")
+
+# A way to extend Monk is to write tasks in a Thorfile in the project's root directory.
+# Monk loads the Thorfile if there is one, and all the tasks that are declared in the
+# class Monk become available.
+if File.exists?("Thorfile")
+  load("Thorfile")
+end
+
+# Start the monk tasks.
+Monk.start

data/lib/monk.rb

@@ -0,0 +1,142 @@
+#! /usr/bin/env ruby
+
+require "thor"
+require "yaml"
+require "fileutils"
+
+class Monk < Thor
+  include Thor::Actions
+  
+  class << self    
+    private
+    
+    # options every git aware task takes
+    def git_options
+      method_option :branch, :type => :string, :alias => "-b"
+      method_option :keep_remote, :type => :boolean
+      method_option :remote_name, :type => :string
+    end
+    
+  end
+
+  desc "init", "Initialize a Monk application"
+  method_option :skeleton, :type => :string, :aliases => "-s"
+  git_options     
+  def init(target = ".")
+    clone(source(options[:skeleton] || "default"), target) ?
+      cleanup(target) :
+      say_status(:error, clone_error(target))
+  end
+
+  desc "show NAME", "Display the repository address for NAME"
+  def show(name)
+    if monk_config.include? name
+      say_status name, *source(name).values_at(:url, :branch)
+    else
+      say_status name, "repository not found"
+    end
+  end
+
+  desc "list", "Lists the configured repositories"
+  def list
+    monk_config.keys.sort.each do |key|
+      show(key)
+    end
+  end
+
+  desc "add NAME REPOSITORY_URL", "Add the repository to the configuration file"
+  git_options
+  def add(name, repository_url)
+    monk_config[name] = { :url => repository_url }
+    monk_config[name].merge! options
+    write_monk_config_file
+  end
+  
+  desc "change NAME", "Modifies options for a repository without having to repeat the url."
+  git_options
+  def change(name)
+    if monk_config.include? name
+      monk_config[name].merge! options
+      write_monk_config_file
+    else
+      say_status name, "repository not found"
+    end
+  end
+
+  desc "rm NAME", "Remove the repository from the configuration file"
+  def rm(name)
+    monk_config.delete(name)
+    write_monk_config_file
+  end
+  
+  desc "copy FROM TO", "Creates a copy of an existing skeleton."
+  git_options
+  def copy(from, to)
+    return unless monk_config.include? from
+    monk_config[to] = monk_config[from].merge options
+    write_monk_config_file 
+  end
+
+private
+
+  def clone(src, target)
+    if Dir["#{target}/*"].empty?
+      FileUtils.mkdir_p target
+      Dir.chdir(target) do
+        say_status :fetching, src[:url]
+        branch = src[:branch] || "master"
+        remote = src[:remote_name] || "skeleton"
+        system <<-EOS
+          git init &&
+          git remote add -t #{branch} -f #{remote} #{src[:url]} &&
+          git checkout -t #{remote}/#{branch}
+        EOS
+      end
+    end
+  end
+
+  def cleanup(target)
+    inside(target) { remove_file ".git" } unless options.keep_remote?
+    say_status :initialized, target
+  end
+
+  def source(name)
+    monk_config[name]
+  end
+  
+
+  def monk_config_file
+    @monk_config_file ||= File.join(monk_home, ".monk")
+  end
+
+  def monk_config
+    @monk_config ||= begin
+      write_monk_config_file unless File.exists? monk_config_file
+      YAML.load_file(monk_config_file).inject({}) do |config, (key, value)|
+        # fixing old monk config files
+        config.merge key => value.respond_to?(:keys) ? value : {:url => value}
+      end
+    end
+  end
+
+  def write_monk_config_file
+    remove_file monk_config_file
+    create_file monk_config_file do
+      config = @monk_config || { "default" => {:url => "git://github.com/monkrb/skeleton.git"} }
+      config.to_yaml
+    end
+  end
+
+  def self.source_root
+    "."
+  end
+
+  def clone_error(target)
+    "Couldn't clone repository into target directory '#{target}'. " +
+    "You must have git installed and the target directory must be empty."
+  end
+
+  def monk_home
+    ENV["MONK_HOME"] || File.join(Thor::Util.user_home)
+  end
+end

data/monk.gemspec

@@ -0,0 +1,19 @@
+Gem::Specification.new do |s|
+  s.name              = "monk"
+  s.version           = "0.0.5"
+  s.summary           = "Monk, the glue framework"
+  s.description       = "Monk is a glue framework for web development. It means that instead of installing all the tools you need for your projects, you can rely on a git repository and a list of dependencies, and Monk will care of the rest. By default, it ships with a Sinatra application that includes Contest, Stories, Webrat, Ohm and some other niceties, along with a structure and helpful documentation to get your hands wet in no time."
+  s.authors           = ["Damian Janowski", "Michel Martens"]
+  s.email             = ["djanowski@dimaion.com", "michel@soveran.com"]
+  s.homepage          = "http://monkrb.com"
+
+  s.rubyforge_project = "monk"
+
+  s.executables << "monk"
+
+  s.add_dependency("thor", "~> 0.11")
+  s.add_dependency("dependencies", ">= 0.0.6")
+  s.requirements << "git"
+
+  s.files = ["LICENSE", "README.markdown", "Rakefile", "bin/monk", "lib/monk.rb", "monk.gemspec", "test/commands.rb", "test/integration_test.rb", "test/monk_test.rb"]
+end

data/test/commands.rb

@@ -0,0 +1,72 @@
+require "open3"
+require "socket"
+
+module Test::Commands
+  def sh(cmd)
+    out, err = nil
+
+    Open3.popen3(cmd) do |_in, _out, _err|
+      out = _out.read
+      err = _err.read
+    end
+
+    [out, err]
+  end
+
+  # Runs a command in the background, silencing all output.
+  # For debugging purposes, set the environment variable VERBOSE.
+  def sh_bg(cmd)
+    if ENV["VERBOSE"]
+      streams_to_silence = []
+    else
+      streams_to_silence = [$stdout, $stderr]
+      cmd = "#{cmd} 2>&1>/dev/null"
+    end
+
+    silence_stream(*streams_to_silence) do
+      (pid = fork) ? Process.detach(pid) : exec(cmd)
+    end
+  end
+
+  def listening?(host, port)
+    begin
+      socket = TCPSocket.new(host, port)
+      socket.close unless socket.nil?
+      true
+    rescue Errno::ECONNREFUSED,
+      Errno::EBADF,           # Windows
+      Errno::EADDRNOTAVAIL    # Windows
+      false
+    end
+  end
+
+  def wait_for_service(host, port, timeout = 3)
+    start_time = Time.now
+
+    until listening?(host, port)
+      if timeout && (Time.now > (start_time + timeout))
+        raise SocketError.new("Socket #{host}:#{port} did not open within #{timeout} seconds")
+      end
+    end
+
+    true
+  end
+
+  def suspects(port)
+    list = sh("lsof -i :#{port}").first.split("\n")[1..-1] || []
+    list.map {|s| s[/^.+? (\d+)/, 1] }
+  end
+
+  def silence_stream(*streams) #:yeild:
+    on_hold = streams.collect{ |stream| stream.dup }
+    streams.each do |stream|
+      stream.reopen(RUBY_PLATFORM =~ /mswin/ ? 'NUL:' : '/dev/null')
+      stream.sync = true
+    end
+    yield
+  ensure
+    streams.each_with_index do |stream, i|
+      stream.reopen(on_hold[i])
+    end
+  end
+end

data/test/integration_test.rb

@@ -0,0 +1,112 @@
+require File.join(File.dirname(__FILE__), "test_helper")
+
+class TestMonk < Test::Unit::TestCase
+  context "monk init NAME" do
+    setup do
+      @ports_to_close = []
+    end
+
+    def assert_url(url)
+      assert_match /200 OK/, sh("curl -I 0.0.0.0:4567#{url}").first.split("\n").first
+    end
+
+    def try_server(cmd, port)
+      binary = cmd[/^(.+?)( |$)/, 1]
+
+      flunk "Can't find `#{binary}`." unless system("which #{binary} > /dev/null")
+
+      kill_suspects(port)
+      sh_bg(cmd)
+
+      # Mark the port for closing on teardown, just in case the build fails.
+      @ports_to_close << port if wait_for_service("0.0.0.0", port)
+
+      doc = Hpricot(sh("curl 0.0.0.0:#{port}").first)
+
+      assert_match /Hello, world/, doc.at("body").inner_text
+
+      # Make sure all referenced URLs in the layout respond correctly.
+      doc.search("//*[@href]").each do |node|
+        assert_url node.attributes["href"]
+      end
+
+      doc.search("//*[@src]").each do |node|
+        assert_url node.attributes["src"]
+      end
+    end
+
+    should "create a skeleton app with all tests passing" do
+      flunk "There is another server running on 0.0.0.0:4567. Suspect PIDs: #{suspects(4567).join(", ")}" if listening?("0.0.0.0", 4567)
+      flunk "There is another server running on 0.0.0.0:9292. Suspect PIDs: #{suspects(9292).join(", ")}" if listening?("0.0.0.0", 9292)
+
+      Dir.chdir(root("test", "tmp")) do
+        FileUtils.rm_rf("monk-test")
+
+        out, err = monk("init monk-test")
+        assert_match /initialized.* monk-test/, out
+
+        Dir.chdir("monk-test") do
+          assert !File.directory?(".git")
+
+          FileUtils.cp("config/settings.example.yml", "config/settings.yml")
+          FileUtils.cp("config/redis/development.example.conf", "config/redis/development.conf")
+          FileUtils.cp("config/redis/test.example.conf", "config/redis/test.conf")
+
+          # Load Redis.
+          sh "redis-server config/redis/test.conf"
+          wait_for_service("0.0.0.0", 6380)
+
+          sh "redis-server config/redis/development.conf"
+          wait_for_service("0.0.0.0", 6379)
+
+          assert system("rake >/dev/null"), "the build didn't pass"
+          assert system("rake1.9 >/dev/null"), "the build didn't pass (1.9)"
+
+          try_server "ruby init.rb", 4567
+          try_reloading
+          try_server "rackup", 9292
+
+          try_server "ruby1.9 init.rb", 4567
+          try_reloading
+          try_server "rackup1.9", 9292
+        end
+      end
+    end
+
+    def try_reloading
+      gsub_file("app/routes/home.rb", "haml :home", "'Goodbye'") do
+        sleep 0.2
+        assert_match /Goodbye/, sh("curl 0.0.0.0:4567").first
+      end
+
+      gsub_file("init.rb", "Main.run!", %Q(Main.get "/test" { 'test' }\n Main.run!)) do
+        sleep 0.2
+        assert_match /test/, sh("curl 0.0.0.0:4567/test").first
+      end
+    end
+
+    def gsub_file(file, *args)
+      old = File.read(file)
+
+      begin
+        new = old.gsub(*args)
+        File.open(file, "w") {|f| f.write(new) }
+        yield
+      ensure
+        File.open(file, "w") {|f| f.write(old) }
+      end
+    end
+
+    def kill_suspects(port)
+      list = suspects(port)
+
+      sh "kill -9 #{list.join(" ")}" unless list.empty?
+    end
+
+    teardown do
+      @ports_to_close.each do |port|
+        kill_suspects port
+      end
+    end
+  end
+end

data/test/monk_test.rb

@@ -0,0 +1,135 @@
+require File.join(File.dirname(__FILE__), "test_helper")
+
+class TestMonk < Test::Unit::TestCase
+  context "monk init NAME" do
+    should "fail if the target working directory is not empty" do
+      Dir.chdir(root("test", "tmp")) do
+        FileUtils.rm_rf("monk-test")
+        FileUtils.mkdir("monk-test")
+
+        Dir.chdir("monk-test") do
+          FileUtils.touch("foobar")
+        end
+
+        out, err = monk("init monk-test")
+        assert_match /error/, out
+      end
+    end
+
+    should "create a skeleton app in the target directory" do
+      Dir.chdir(root("test", "tmp")) do
+        FileUtils.rm_rf("monk-test")
+
+        out, err = monk("init monk-test")
+        assert_match /initialized.* monk-test/, out
+      end
+    end
+  end
+
+  context "monk init" do
+    should "fail if the current working directory is not empty" do
+      Dir.chdir(root("test", "tmp")) do
+        FileUtils.rm_rf("monk-test")
+        FileUtils.mkdir("monk-test")
+
+
+        Dir.chdir("monk-test") do
+          FileUtils.touch("foobar")
+          out, err = monk("init")
+          assert_match /error/, out
+        end
+      end
+    end
+
+    should "create a skeleton app in the working directory" do
+      Dir.chdir(root("test", "tmp")) do
+        FileUtils.rm_rf("monk-test")
+        FileUtils.mkdir("monk-test")
+
+        Dir.chdir("monk-test") do
+          out, err = monk("init")
+          assert_match /initialized/, out
+        end
+      end
+    end
+
+    should "use an alternative skeleton if the option is provided" do
+      Dir.chdir(root("test", "tmp")) do
+        FileUtils.rm_rf("monk-test")
+        FileUtils.mkdir("monk-test")
+
+        monk("add foobar git://github.com/monkrb/skeleton.git")
+
+        Dir.chdir("monk-test") do
+          out, err = monk("init -s foobar")
+          assert_match /initialized/, out
+        end
+      end
+    end
+  end
+
+  context "monk show NAME" do
+    should "display the repository for NAME" do
+      out, err = monk("show default")
+      assert out["git://github.com/monkrb/skeleton.git"]
+    end
+
+    should "display nothing if NAME is not set" do
+      out, err = monk("show foobar")
+      assert out["repository not found"]
+    end
+  end
+
+  context "monk list" do
+    should "display the configured repositories" do
+      out, err = monk("list")
+      assert out["default"]
+      assert out["git://github.com/monkrb/skeleton.git"]
+    end
+  end
+
+  context "monk add NAME REPOSITORY" do
+    should "add the named repository to the configuration" do
+      monk("add foobar git://github.com/monkrb/foo.git")
+      out, err = monk("show foobar")
+      assert out["foobar"]
+      assert out["git://github.com/monkrb/foo.git"]
+      monk("rm foobar")
+    end
+
+    should "allow to fetch from the added repository when using the skeleton parameter" do
+      monk("add glue git://github.com/monkrb/glue.git")
+
+      Dir.chdir(root("test", "tmp")) do
+        FileUtils.rm_rf("monk-test")
+        FileUtils.mkdir("monk-test")
+
+        out, err = monk("init monk-test --skeleton glue")
+        assert_match /initialized/, out
+        assert_match /glue.git/, out
+      end
+    end
+
+    should "allow to fetch from the added repository when using the s parameter" do
+      monk("add glue git://github.com/monkrb/glue.git")
+
+      Dir.chdir(root("test", "tmp")) do
+        FileUtils.rm_rf("monk-test")
+        FileUtils.mkdir("monk-test")
+
+        out, err = monk("init monk-test -s glue")
+        assert_match /initialized/, out
+        assert_match /glue.git/, out
+      end
+    end
+  end
+
+  context "monk rm NAME" do
+    should "remove the named repository from the configuration" do
+      monk("add foobar git://github.com/monkrb/foo.git")
+      monk("rm foobar")
+      out, err = monk("show foobar")
+      assert out["repository not found"]
+    end
+  end
+end

metadata

@@ -0,0 +1,84 @@
+--- !ruby/object:Gem::Specification 
+name: rkh-monk
+version: !ruby/object:Gem::Version 
+  version: 0.0.5
+platform: ruby
+authors: 
+- Damian Janowski
+- Michel Martens
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2009-05-16 00:00:00 -07:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: thor
+  type: :runtime
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ~>
+      - !ruby/object:Gem::Version 
+        version: "0.11"
+    version: 
+- !ruby/object:Gem::Dependency 
+  name: dependencies
+  type: :runtime
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 0.0.6
+    version: 
+description: Monk is a glue framework for web development. It means that instead of installing all the tools you need for your projects, you can rely on a git repository and a list of dependencies, and Monk will care of the rest. By default, it ships with a Sinatra application that includes Contest, Stories, Webrat, Ohm and some other niceties, along with a structure and helpful documentation to get your hands wet in no time.
+email: 
+- djanowski@dimaion.com
+- michel@soveran.com
+executables: 
+- monk
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- LICENSE
+- README.markdown
+- Rakefile
+- bin/monk
+- lib/monk.rb
+- monk.gemspec
+- test/commands.rb
+- test/integration_test.rb
+- test/monk_test.rb
+has_rdoc: false
+homepage: http://monkrb.com
+licenses: 
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: 
+- git
+rubyforge_project: monk
+rubygems_version: 1.3.5
+signing_key: 
+specification_version: 2
+summary: Monk, the glue framework
+test_files: []
+