ratch 0.4.1 → 1.0.0

data/lib/ratch/toolset/ruby/stamp

@@ -1,33 +0,0 @@
-#!/usr/bin/env ratch
-
-# update version stamps
-
-# You can change these via the command line.
-version = commandline['version'] || rollrc.version
-status  = commandline['status']  || rollrc.status
-
-# Update ROLLRC file.
-
-main :stamp do
-  if version != rollrc.version or status != rollrc.status
-    build rollrc.file
-  end
-end
-
-#
-
-file rollrc.file do
-  w = ''
-  w << "#{rollrc.name} #{version} #{status} #{Time.now.strftime('%Y-%m-%d')}"
-  w << " #{rollrc.default}" if rollrc.default
-  w << "\n"
-  w << rollrc.libpath.join("\n")
-
-  if dryrun?
-    puts rollrc.file + ":"
-    puts w
-  else
-    File.open(rollrc.file, 'w'){|f| f << w}
-    puts "#{rollrc.file} updated."
-  end
-end

data/lib/ratch/toolset/ruby/stats

@@ -1,138 +0,0 @@
-#!/usr/bin/env ratch
-
-# Simple code count analysis.
-#
-# This ratchet scan source code counting files,
-# lines of code and comments and  presents a
-# report of it's findings.
-
-main :stats do
-  statistics
-end
-
-DEFAULT_STATS_FILES = [ 'lib/**/*', 'ext/**/*', 'bin/**/*' ]
-
-# Basic statics on line count.
-#
-# This task counts the file and lines of code in your
-# project and provided some statistical figures.
-#
-#   files      Files to include and/or exclude in
-#              analysis. '+' and '-' files patterns
-#              are accepted. The default includes all
-#              files in the lib/ and ext/ directories.
-#
-# TODO Support - and + augmentations for configuration.
-
-def statistics
-  config  = configuration['stats'] || {}
-  scripts = config['files'] || DEFAULT_STATS_FILES
-  files   = scripts.inject([]){ |memo, find| memo.concat(glob(find)); memo }
-  #Dir.multiglob_with_default(DEFAULT_STATS_FILES)
-
-  fc, l, c, r, t, s = *line_count(*files)
-
-  fct, lt, ct, rt, tt, st = *([0]*6)
-  if File.directory?('test')
-    fct, lt, ct, rt, tt, st = *line_count('test/**/*')
-    t = lt if lt > 0
-  end
-
-  rat = lambda do |d,n|
-    if d > n and n != 0
-      "%.1f" % [ d.to_f / n ]
-    elsif n > d and d != 0
-      "-" #"%.1f:1" % [ n.to_f / d ]
-    elsif d == 0 or n == 0
-      "-"
-    else
-      "1.0"
-    end
-  end
-
-  per = lambda do |n,d|
-    if d != 0
-      (((n.to_f / d)*100).to_i).to_s + "%"
-    else
-      "-"
-    end
-  end
-
-  max = l.to_s.size + 4
-
-  puts
-  #puts "FILES:"
-  #puts "  source: #{fc}"
-  #puts "  test  : #{fct}"
-  #puts "  total : #{fc+fct}"
-  #puts
-  #puts "LINES:"
-  #puts "  code  : %#{max}s   %4s" % [ c.to_s, per[c,l] ]
-  #puts "  docs  : %#{max}s   %4s" % [ r.to_s, per[r,l] ]
-  #puts "  space : %#{max}s   %4s" % [ s.to_s, per[s,l] ]
-  #puts "  test  : %#{max}s   %4s" % [ t.to_s, per[t,l] ]
-  #puts "  total : %#{max}s   %4s" % [ l.to_s, per[l,l] ]
-  #puts
-  #puts "Ratio to 1 :"
-  #puts "  code to test : #{rat[c,t]} #{per[c,t]}"
-
-  head = ["Total", "Code", "-%-", "Docs", "-%-", "Blank", "-%-", "Files"]
-  prod = [l.to_s, c.to_s, per[c,l], r.to_s, per[r,l], s.to_s, per[s,l], fc]
-  test = [lt.to_s, ct.to_s, per[ct,l], rt.to_s, per[rt,l], st.to_s, per[st,l], fct]
-  totl = [(l+lt), (c+ct), per[c+ct,l+lt], (r+rt), per[r+rt,l+lt], (s+st), per[s+st,l+lt], (fc+fct)]
-
-  puts "TYPE    %#{max}s %#{max}s %4s %#{max}s %4s %#{max}s %4s %#{max}s" % head
-  puts "Source  %#{max}s %#{max}s %4s %#{max}s %4s %#{max}s %4s %#{max}s" % prod
-  puts "Test    %#{max}s %#{max}s %4s %#{max}s %4s %#{max}s %4s %#{max}s" % test
-  puts "Total   %#{max}s %#{max}s %4s %#{max}s %4s %#{max}s %4s %#{max}s" % totl
-  puts
-  puts "RATIO     Code    Docs    Blank   Test   Total"
-  puts "Code   %7s %7s %7s %7s %7s" % [ rat[c,c], rat[c,r], rat[c,s], rat[c,t], rat[c,l] ]
-  puts "Docs   %7s %7s %7s %7s %7s" % [ rat[r,c], rat[r,r], rat[r,s], rat[r,t], rat[r,l] ]
-  puts "Blank  %7s %7s %7s %7s %7s" % [ rat[s,c], rat[s,r], rat[s,s], rat[s,t], rat[s,l] ]
-  puts "Test   %7s %7s %7s %7s %7s" % [ rat[t,c], rat[t,r], rat[t,s], rat[t,t], rat[t,l] ]
-  puts "Total  %7s %7s %7s %7s %7s" % [ rat[l,c], rat[l,r], rat[l,s], rat[l,t], rat[l,l] ]
-  puts
-end
-
-private
-
-# Return line counts for files.
-
-def line_count( *files )
-  files = files.inject([]) do |memo, find|
-    memo.concat(Dir.glob(find)); memo
-  end
-
-  fc, l, c, t, r = 0, 0, 0, 0, 0
-  bt, rb = false, false
-
-  files.each do |fname|
-    next unless fname =~ /.*rb/      # TODO should this be done?
-    fc += 1
-    File.open( fname ) do |f|
-      while line = f.gets
-        l += 1
-        next if line =~ /^\s*$/
-        case line
-        when /^=begin\s+test/
-          tb = true; t+=1
-        when /^=begin/
-          rb = true; r+=1
-        when /^=end/
-          t+=1 if tb
-          r+=1 if rb
-          rb, tb = false, false
-        when /^\s*#/
-          r += 1
-        else
-          c+=1 if !(rb or tb)
-          r+=1 if rb
-          t+=1 if tb
-        end
-      end
-    end
-  end
-  s = l - c - r - t
-  return fc, l, c, r, t, s
-end

data/lib/ratch/toolset/ruby/test/crosstest

@@ -1,305 +0,0 @@
-#!/usr/bin/env ratch
-
-# run cross comparison tests
-#
-# This tool runs unit tests in pairs to make
-# sure there is cross library compatibility.
-
-require 'facets/hash/rekey'
-require 'facets/string/tabs'
-require 'facets/progressbar'
-
-require 'test/unit/ui/testrunnermediator' #require 'test/unit'
-::Test::Unit.run = true # Don't autorun tests!
-
-
-main :crosstest do
-  run_crosstests
-end
-
-# Run unit-tests. Each test is run in a separate interpretor
-# to prevent script clash. This makes for a more robust test
-# facility and prevents potential conflicts between test scripts.
-#
-#   tests     Test files (eg. test/tc_**/*.rb) [test/**/*]
-#   libs      Directories to include in load path.
-#             ('./lib' is always included)
-#   live      Deactive use of local libs and test against install.
-#   reqs      List of files to require prior to running tests.
-#   extract   Extract embedded tests first? [false]
-#
-# To isolate tests this tool marshals test results across a
-# stdout->stdin shell pipe. This prevents interfence of one
-# script's tests on another. But consequently it is not always
-# possible to send debug info to stdout in the tests themselves
-# (eg. #p and #puts).
-
-def run_crosstests
-  info = configuration['test']
-
-  tests   = info['files'] || 'test/unit/**/test_*.rb'
-  libs    = info['libpath']
-  reqs    = info['require']
-  live    = info['live']
-  #extract = info['extract']
-
-  tests = [ tests ].flatten
-  libs  = [ libs ].flatten
-
-  results  = TestResults.new #(style)
-
-  # get test files
-  test_libs  = libs.join(':')
-  test_files = Dir.multiglob( *tests )
-  if test_files.empty?
-    puts "Tests        [NONE]"
-    return
-  end
-
-  # run tests
-
-  if trace?
-    pbar = nil
-    size = test_files.collect{|f| f.size}.max * 2 + 5
-    dots = '.' * size
-  else
-    pbar = Console::ProgressBar.new('Testing', test_files.size ** 2)
-    pbar.inc
-  end
-
-  test_files.each do |test_file|
-    next unless File.file?(test_file)
-
-    test_files.each do |test_file_x|
-      next unless File.file?(test_file_x)
-      next if test_file == test_file_x
-
-      pbar.inc if pbar
-      unless pbar
-        out = test_file +' : ' + test_file_x
-        print out + dots[out.size..-1]
-        $stdout.flush
-      end
-
-      r = fork_test( test_file, test_file_x, :libs=>libs, :reqs=>reqs, :live=>live )
-
-      unless pbar
-        puts r.passed? ? "[PASS]" : "[FAIL]"
-      end
-
-      results << r
-    end
-  end
-
-  pbar.finish if pbar
-
-  # display results
-  puts results
-
-  fails, errrs = results.failure_count, results.error_count
-  #CHECKLIST << :test if fails > 0
-  #CHECKLIST << :test if errrs > 0
-  return (fails + errrs > 0)
-end
-
-# Run a test in a separate process.
-#
-# Currently send program output to null device.
-# Could send to a logger in future version.
-#
-# Key parameters are libs, reqs, live.
-
-def fork_test( file, xfile, keys )
-  keys = keys.rekey(:to_s)
-
-  libs = keys['lib'] || []
-  reqs = keys['req'] || []
-  live = keys['live']
-
-  src = ''
-
-  unless live
-    l = File.join( Dir.pwd, 'lib' )
-    if File.directory?( l )
-      src << %{$:.unshift('#{l}')\n}
-    end
-    libs.each { |r| src << %{$:.unshift('#{r}')\n} }
-  end
-
-  src << %{
-    #require 'test/unit'
-    require 'test/unit/collector'
-    require 'test/unit/collector/objectspace'
-    require 'test/unit/ui/testrunnermediator'
-  }
-
-  reqs.each do |fix|
-    src << %Q{
-      require '#{fix}'
-    }
-  end
-
-  src << %{
-    def warn(*null); end  # silence warnings
-
-    output = STDOUT.dup
-    STDOUT.reopen( PLATFORM =~ /mswin/ ? "NUL" : "/dev/null" )
-
-    load('#{file}')
-    load('#{xfile}')
-
-    tests = Test::Unit::Collector::ObjectSpace.new.collect
-    runner = Test::Unit::UI::TestRunnerMediator.new( tests )
-    result = runner.run_suite
-
-    begin
-      marshalled = Marshal.dump(result)
-    rescue TypeError => e
-      $stderr << "MARSHAL ERROR\n"
-      $stderr << "TEST: #{file}\n"
-      $stderr << "XTEST: #{xfile}\n"
-      $stderr << "DATA:" << result.inspect
-      exit -1
-    end
-    output << marshalled
-
-    STDOUT.reopen(output)
-    output.close
-  }
-
-  result = IO.popen("ruby","w+") do |ruby|
-    ruby.puts src
-    ruby.close_write
-    ruby.read
-  end
-
-  begin
-    marsh = Marshal.load(result)
-  rescue ArgumentError
-    $stderr << "\nCannot load marshalled test data.\n"
-    $stderr << result << "\n"
-    exit -1
-  end
-
-  return marsh
-end
-
-#
-# Support class for collecting test results.
-#
-
-class TestResults
-  attr_reader :assertion_count,
-              :run_count,
-              :failure_count,
-              :error_count
-
-  attr_accessor :style
-
-  def initialize( style=nil )
-    @style = style
-
-    @results = []
-
-    @assertion_count = 0
-    @run_count = 0
-    @failure_count = 0
-    @error_count = 0
-  end
-
-  # Add a result to the results collection.
-
-  def <<( result )
-    @results << result
-
-    @assertion_count += result.assertion_count
-    @run_count += result.run_count
-    @failure_count += result.failure_count
-    @error_count += result.error_count
-  end
-
-  #
-
-  def errors
-    errors = []
-    @results.each do |r|
-      unless r.passed?
-        errors << r.instance_variable_get('@errors')
-      end
-    end
-    errors.reject! { |e| e == [] }
-    errors
-  end
-
-  #
-
-  def failures
-    failures = []
-    @results.each do |r|
-      unless r.passed?
-        failures << r.instance_variable_get('@failures')
-      end
-    end
-    failures.reject! { |e| e == [] }
-    failures
-  end
-
-  # Output format for test results.
-
-  def to_s
-    return @results.to_s if style == 'pease'
-
-    s = []
-    # Display failures
-    unless failures.empty?
-      s << ''
-      s << "FAILURES:"
-      failures.reverse.each do |fails|
-        fails.reverse.each do |failure|
-          #puts
-          s << %{  - test      : #{failure.test_name}}
-          s << %{    location  : #{failure.location}}
-          if failure.message.index("\n")
-            s << %{    message   : >}
-            s << failure.message.tabto(6)
-          else
-            s << %{    message   : #{failure.message}}
-          end
-        end
-      end
-    end
-
-    # Display errors
-    unless errors.empty?
-      s << ''
-      s << "ERRORS:"
-      errors.reverse.each do |errs|
-        errs.reverse.each do |err|
-          s << ''
-          s << %{  - test      : #{err.test_name}}
-          s << %{    message   : #{err.exception.message}}
-          s << %{    backtrace :}
-          err.exception.backtrace[0...-1].each { |bt| s << %Q{      - #{bt}} }
-        end
-      end
-    end
-
-    # Display final results
-    s << ''
-    s << "Summary:"
-    s << "  Tests      : #{@run_count}"
-    s << "  Assertions : #{@assertion_count}"
-    s << "  Failures   : #{@failure_count}"
-    s << "  Errors     : #{@error_count}"
-    s << ''
-    s << ''
-
-    return s.join("\n")
-  end
-
-  # Delegate missing call to the results array.
-
-  def method_missing(*a,&b)
-    @results.send(*a,&b)
-  end
-end