corundum 0.0.1

data/lib/corundum/rubyforge.rb

@@ -0,0 +1,95 @@
+require 'corundum/tasklib'
+
+
+#Big XXX: this totally isn't done.  It's some notes against ever wanting to
+#publish announcements to rubyforge ever again
+
+module Corundum
+  class Publishing < TaskLib
+    def default_namespace
+      :email
+    end
+
+    def receive_tasklibs(toolkit)
+      @toolkit = toolkit
+    end
+
+    def default_configuration(namespace, toolkit_config)
+    end
+
+    def initialize(ns = :publish)
+      @ns = ns
+      @rubyforge = OpenStruct.new(:package_id => nil, :group_id => nil, :release_name => nil)
+      @package_dir = nil
+      @gemspec = nil
+      yield self if block_given?
+      define
+    end
+
+    attr_accessor :ns, :rubyforge, :package_dir, :gemspec
+
+    def define
+      desc "Publish the gem and its documentation to Rubyforge and Gemcutter"
+      task @ns => ["#{@ns.to_s}:docs", "#{@ns.to_s}:rubyforge"]
+
+      namespace @ns do
+        desc 'Publish RDoc to RubyForge'
+        task :docs do
+          config = YAML.load(File.read(File.expand_path("~/.rubyforge/user-config.yml")))
+          host = "#{config["username"]}@rubyforge.org"
+          remote_dir = "/var/www/gforge-projects/#{@rubyforge[:group_id]}"
+          local_dir = 'rubydoc'
+          sh %{rsync -av --delete #{local_dir}/ #{host}:#{remote_dir}}
+        end
+
+        task :scrape_rubyforge do
+          require 'rubyforge'
+          forge = RubyForge.new
+          forge.configure
+          forge.scrape_project(@rubyforge[:package_id])
+        end
+
+        desc "Publishes to RubyForge"
+        task :rubyforge => [:docs, :scrape_rubyforge] do |t|
+          require 'rubyforge'
+          forge = RubyForge.new
+          forge.configure
+          files = [".gem", ".tar.gz", ".tar.bz2"].map do |extension|
+            File::join(@package_dir, @gemspec.full_name) + extension
+          end
+          release = forge.lookup("release", @rubyforge[:package_id])[@rubyforge[:release_name]] rescue nil
+          if release.nil?
+            forge.add_release(@rubyforge[:group_id], @rubyforge[:package_id], @rubyforge[:release_name], *files)
+          else
+            files.each do |file|
+              forge.add_file(@rubyforge[:group_id], @rubyforge[:package_id], @rubyforge[:release_name], file)
+            end
+          end
+        end
+      end
+    end
+  end
+end
+
+
+
+module Corundum
+  class Email < TaskLib
+    def define
+      desc 'Announce release on RubyForge and email'
+      task @configuration.namespace => ["#{@configuration.namespace.to_s}:rubyforge", "#{@configuration.namespace.to_s}:email"]
+      namespace @configuration.namespace do
+        desc 'Post announcement to rubyforge.'
+        task :rubyforge do
+          require 'rubyforge'
+          subject, title, body = announcement
+
+          forge = RubyForge.new
+          forge.configure
+          forge.post_news(@configuration.rubyforge[:group_id], subject, "#{title}\n\n#{body}")
+          puts "Posted to rubyforge"
+        end
+      end
+    end
+  end
+end

data/lib/corundum/simplecov.rb

@@ -0,0 +1,123 @@
+require 'corundum/tasklib'
+
+module Corundum
+  class SimpleCov < TaskLib
+    def default_namespace
+      :coverage
+    end
+
+    def default_configuration(namespace, toolkit_config, testlib_config)
+      @configuration.namespace = namespace
+      @configuration.test_lib = nil
+      @configuration.browser = toolkit_config.browser
+      @configuration.report_dir = "doc/coverage"
+      @configuration.report_path = nil
+      @configuration.config_file = ".simplecov"
+      @configuration.config_path = nil
+      @configuration.filters = ["./spec"]
+
+      @configuration.threshold = 80
+      @configuration.files = OpenStruct.new(
+        :code => toolkit_config.files.code
+      )
+      @configuration.groups = {}
+
+      @configuration.all_files = toolkit_config.file_lists.code + toolkit_config.file_lists.test
+    end
+
+    def resolve_configuration
+      @configuration.config_path ||= File::expand_path(@configuration.config_file, Rake::original_dir)
+      @configuration.report_path ||= File::join(@configuration.report_dir, "index.html")
+    end
+
+    def receive_tasklibs(toolkit, test_lib)
+      @toolkit,@test_lib = toolkit, test_lib
+    end
+
+    def filters
+      @configuration.filters.map do |pattern|
+        "add_filter \"#{pattern}\""
+      end
+    end
+
+    def groups
+      @configuration.groups.each_pair do |group, pattern|
+        "add_group \"#{group}\", \"#{pattern}\""
+      end
+    end
+
+    def config_file_contents
+      contents = ["SimpleCov.start do"]
+      contents << "  coverage_dir \"#{@configuration.report_dir}\""
+      contents += filters.map{|line| "  " + line}
+      contents += groups.map{|line| "  " + line}
+      contents << "end"
+      return contents.join("\n")
+    end
+
+    def define
+      in_namespace do
+        file "Rakefile"
+
+        task :example_config do
+          $stderr.puts "Try this in #{@configuration.config_path}"
+          $stderr.puts
+          puts config_file_contents
+        end
+
+        task :config_exists do
+          File::exists?(File::join(Rake::original_dir, ".simplecov")) or fail "No .simplecov"
+        end
+
+        directory File::dirname(@configuration.report_path)
+        file @configuration.report_path => @configuration.all_files do
+          options = @test_lib.custom_options do |options|
+            options.rspec_opts += %w{-r simplecov}
+          end
+          sh @test_lib.full_command(options)
+        end
+
+        task :generate_report => [:preflight, @configuration.report_path]
+
+        desc "View coverage in browser"
+        task :view => :generate_report do
+          sh "#{@configuration.browser} #{@configuration.report_path}"
+        end
+
+        task :verify_coverage => :generate_report do
+          require 'nokogiri'
+
+          doc = Nokogiri::parse(File::read(@configuration.report_path))
+
+          coverage_total_xpath = "//span[@class='covered_percent']/span"
+          percentage = doc.xpath(coverage_total_xpath).first.content.to_f
+
+          raise "Coverage must be at least #{@configuration.threshold} but was #{percentage}" if percentage < @configuration.threshold
+          puts "Coverage is #{percentage}% (required: #{@configuration.threshold}%)"
+        end
+
+        task :find_stragglers => :generate_report do
+          require 'nokogiri'
+
+          doc = Nokogiri::parse(File::read(@configuration.report_path))
+
+          covered_files = doc.xpath(
+            "//table[@class='file_list']//td//a[@class='src_link']").map do |link|
+            link.content
+            end
+
+          not_listed = covered_files - @configuration.files.code
+          not_covered = @configuration.files.code - covered_files
+          unless not_listed.empty? and not_covered.empty?
+            raise ["Covered files and gemspec manifest don't match:",
+              "Not in gemspec: #{not_listed.inspect}",
+            "Not covered: #{not_covered.inspect}"].join("\n")
+          end
+        end
+      end
+      task :preflight => in_namespace(:config_exists)
+
+      task :qa => in_namespace(:verify_coverage, :find_stragglers)
+    end
+  end
+end

data/lib/corundum/tasklib.rb

@@ -0,0 +1,57 @@
+require 'ostruct'
+require 'rake/tasklib'
+
+module Corundum
+  class TaskLib < Rake::TaskLib
+    attr_accessor :configuration
+
+    def receive_tasklibs(*tasklibs)
+    end
+
+    def default_configuration(namespace, *tasklib_configs)
+    end
+
+    def resolve_configuration
+    end
+
+    def in_namespace(*tasknames)
+      if tasknames.empty?
+        if block_given?
+          if @configuration.namespace.nil?
+            yield
+          else
+            namespace @configuration.namespace do
+              yield
+            end
+          end
+        end
+      else
+        tasknames.map do |taskname|
+          [@configuration.namespace, taskname].compact.join(":")
+        end
+      end
+    end
+
+    def default_namespace
+      nil
+    end
+
+    def initialize(*tasklibs)
+      @configuration = OpenStruct.new(:namespace => default_namespace)
+
+      receive_tasklibs(*tasklibs)
+
+      configs = tasklibs.map do |tl|
+        tl.configuration
+      end
+      default_configuration(default_namespace, *configs)
+
+
+      yield @configuration if block_given?
+
+      resolve_configuration
+
+      define
+    end
+  end
+end

data/lib/corundum/tasklibs.rb

@@ -0,0 +1,8 @@
+require 'corundum/rspec'
+require 'corundum/simplecov'
+require 'corundum/gemspec_sanity'
+require 'corundum/gem_building'
+require 'corundum/gemcutter'
+require 'corundum/email'
+require 'corundum/version_control/monotone'
+require 'corundum/yardoc'

data/lib/corundum/version_control.rb

@@ -0,0 +1,36 @@
+require 'corundum/tasklib'
+
+module Corundum
+  class VersionControl < TaskLib
+    def default_namespace
+      :version_control
+    end
+
+    def receive_tasklibs(toolkit)
+      @toolkit = toolkit
+    end
+
+    def default_configuration(namespace, toolkit_config)
+      @configuration.namespace = namespace
+      @configuration.gemspec = toolkit_config.gemspec
+      @configuration.build_finished_file = toolkit_config.finished_files.build
+      @configuration.tag = toolkit_config.gemspec.version
+    end
+
+    def define
+      in_namespace do
+        task :not_tagged
+        task :is_checked_in
+        task :tag
+        task :check_in => :tag
+      end
+
+      task :preflight => in_namespace(:not_tagged)
+      task :build => in_namespace(:is_checked_in)
+      in_namespace(:tag, :check_in).each do |taskname|
+        task taskname => @configuration.build_finished_file
+      end
+      task :release => in_namespace(:tag, :check_in)
+    end
+  end
+end

data/lib/corundum/version_control/monotone.rb

@@ -0,0 +1,126 @@
+require 'corundum/version_control'
+require 'strscan'
+
+module Corundum
+  class Monotone < VersionControl
+    def default_namespace
+      :monotone
+    end
+
+    def default_configuration(*args)
+      super
+      @configuration.branch = nil
+    end
+
+    def resolve_configuration
+      @configuration.branch ||= guess_branch
+    end
+
+    def mtn_automate(cmd, *args)
+      result = ""
+      IO.popen("mtn automate #{cmd} #{args.join(" ")}") do |pipe|
+        result = pipe.read
+      end
+      result
+    end
+
+    def parse_basic_io(string)
+      items = []
+      scanner = StringScanner.new(string)
+      scanner.scan(/\s*/m)
+      until scanner.eos? do
+        symbol = scanner.scan(/[a-z_]*/)
+        scanner.scan(/\s*/)
+        value = ""
+        case scanner.scan(/["\[]/)
+        when '"'
+          while (value += scanner.scan(/[^"]*/)) =~ /\\$/
+          end
+          scanner.scan(/"/)
+        when '['
+          value = scanner.scan(/[^\]]*/)
+          scanner.scan(/]/)
+        else
+          raise "Improperly formatted basic_io: \
+            \n  Got: #{items.inspect} + #{symbol}\
+            \n  Rest:\
+            \n    #{scanner.rest}"
+        end
+        items << [symbol, value]
+        scanner.scan(/\s*/m)
+      end
+      return items
+    end
+
+    def parse_certs(string)
+      items = parse_basic_io(string)
+      pair = []
+      hash = Hash.new do |h,k|
+        h[k] = []
+      end
+      items.each do |name, value|
+        case name
+        when "name"
+          pair[0] = value
+        when "value"
+          pair[1] = value
+        when "trust"
+          if value == "trusted"
+            hash[pair[0]] << pair[1]
+          end
+          pair = []
+        end
+      end
+      hash
+    end
+
+    def base_revision
+      mtn_automate("get_base_revision_id")
+    end
+
+    def guess_branch
+      puts "Guessing branch - configure Monotone > branch"
+      certs = parse_certs(mtn_automate("certs", base_revision))
+      puts "  Guessed: #{certs["branch"].first}"
+      certs["branch"].first
+    end
+
+    def define
+      super
+
+      in_namespace do
+        task :not_tagged do
+          items = parse_basic_io(mtn_automate("tags", @configuration.branch))
+          tags = items.find{|pair| pair[0] == "tag" && pair[1] == @configuration.tag}
+          unless tags.nil?
+            fail "Tag #{@configuration.tag} already exists in branch #{@configuration.branch}"
+          end
+        end
+
+        task :is_committed do
+          items = parse_basic_io(mtn_automate("inventory"))
+          changed = items.find{|pair| pair[0] == "changes"}
+          unless changed.nil?
+            fail "Uncommitted changes exist in workspace"
+          end
+        end
+
+        task :tag do
+          mtn_automate("cert", base_revision, "tag", @configuration.tag)
+        end
+
+        task :commit do
+          run "mtn commit --branch #{@configuration.branch} --message \"Automatic commit: gem built at version #{@configuration.gemspec.version}\""
+        end
+
+        task :sync do
+          mtn_automate("sync")
+        end
+
+        task :check_in => %w{commit sync}
+
+        task :is_checked_in => [:is_committed]
+      end
+    end
+  end
+end