facets 2.2.1 → 2.3.0

data/task/test/each

@@ -1,42 +0,0 @@
-#!/usr/bin/env ratch
-
-# cross-run unit tests
-#
-# This tool runs all tests against each other in pairs
-# to ensure across the board compatibility.
-
-require "./lib/more/facets/progressbar"
-
-main :test do
-  output = 'doc/log/isotest.txt'
-
-  live = ARGV.delete('--live')
-
-  find = 'test/**/test_*.rb'
-
-  tests = Dir.glob(find).reject{ |f| dir?(f) }
-  tests = tests.sort{ |a,b| File.basename(a) <=> File.basename(b) }
-
-  File.open(output, 'w'){ |f|
-    f << "= ISO TESTING\n\n==#{Time.now}\n\n"
-  }
-
-  total = tests.size
-
-  pbar = Console::ProgressBar.new("IsoTest", total+1)
-  pbar.inc
-
-  tests.each do |file|
-    pbar.title = File.basename(file)
-    pbar.inc
-    pbar.flush
-
-    if live
-      sh %{ruby #{file} >> #{output}}
-    else
-      sh %{ruby -Ilib/more -Ilib/core -Ilib/methods #{file} >> #{output}}
-    end
-  end
-
-  pbar.finish
-end

data/task/test/load

@@ -1,30 +0,0 @@
-#!/usr/bin/env ratch
-
-# simple load test
-
-main :syntax do
-  scripts = "lib/**/*.rb"
-  libpath = [ 'lib/methods', 'lib/core', 'lib/more' ].join(':')
-
-  checklist = []
-  cnt = 0
-  scripts = multiglob(*scripts) #- multiglob_r(ignore)
-  scripts.each do |s|
-    next unless File.file?(s)
-    #if not system "ruby -c -Ibin:lib:test #{s} &> /dev/null" then
-    if system("ruby -I#{libpath} #{s} > /dev/null")
-      puts "#{s} [PASS]" #if verbose?
-    else
-      puts "Load Issue: #{s}"
-      checklist << :load
-      cnt += 1
-    end
-  end
-
-  if cnt == 0
-    puts "Load dependencies check out."
-  else
-    puts "#{cnt} Load Failures:\n  "
-    puts checklist.join("\n  ")
-  end
-end

data/task/test/pairs

@@ -1,50 +0,0 @@
-#!/usr/bin/env ratch
-
-# cross-run unit tests
-#
-# This tool runs all tests against each other in pairs
-# to ensure across the board compatibility.
-
-abort "Not working correctly. Fix me."
-
-require "./lib/more/facets/progressbar"
-
-main :test do
-  output = "doc/log/crosstest.txt"
-
-  live = ARGV.delete('--live')
-
-  find = 'test/**/test_*.rb'
-
-  tests = Dir.glob(find).reject{ |f| dir?(f) }.sort
-  tests = tests.sort{ |a,b| File.basename(a) <=> File.basename(b) }
-
-  File.open(output, 'w'){ |f|
-    f << "= CROSS TESTING\n#{Time.now}"
-  }
-
-  total = tests.size * tests.size
-
-  pbar = Console::ProgressBar.new("CrossTest", total+1)
-  pbar.inc
-
-  tests.each do |file1|
-    tests.each do |file2|
-      next if file1 == file2
-
-      sh %{echo "\n\n#{file1} & #{file2}" >> #{output}}
-
-      pbar.title = File.basename(file1)
-      pbar.inc
-      pbar.flush
-
-      if live
-        sh %{ruby -r#{file2} #{file1} >> #{output}}
-      else
-        sh %{ruby -Ilib/more -Ilib/core -Ilib/methods -r#{file2} #{file1} >> #{output}}
-      end
-    end
-  end
-
-  pbar.finish
-end

data/task/test/solo

@@ -1,294 +0,0 @@
-#!/usr/bin/env ratch
-
-# run tests in separate processes
-
-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 :isotestsolid do
-  run_isotests
-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_isotests
-  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
-
-  #files = [ @files ].flatten
-  #extract_tests if extract
-
-  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 + 5
-    dots = '.' * size
-  else
-    pbar = Console::ProgressBar.new( 'Testing', test_files.size )
-    pbar.inc
-  end
-
-  test_files.each do |test_file|
-    pbar.inc if pbar
-    if ! File.file?(test_file)
-      next #r = nil
-    else
-      unless pbar
-        print test_file + dots[test_file.size..-1]
-        $stdout.flush
-      end
-      r = fork_test( test_file, :libs=>libs, :reqs=>reqs, :live=>live )
-      unless pbar
-        puts r.passed? ? "[PASS]" : "[FAIL]"
-      end
-    end
-    results << r
-  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, 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}')
-    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 << "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

data/task/test/syntax

@@ -1,31 +0,0 @@
-#!/usr/bin/env ratch
-
-# check syntax
-
-main :syntax do
-  scripts = "lib/**/*.rb"
-  libpath = [ 'lib/methods', 'lib/core', 'lib/more' ].join(':')
-
-  checklist = []
-  cnt = 0
-  scripts = multiglob(*scripts) #- multiglob_r(ignore)
-  scripts.each do |s|
-    next unless File.file?(s)
-    #if not system "ruby -c -Ibin:lib:test #{s} &> /dev/null" then
-    r = system "ruby -c -I#{libpath} #{s} > /dev/null"
-    if r
-      puts "#{s} [PASS]" #if verbose?
-    else
-      puts "Syntax Error: #{s}"
-      checklist << :syntax
-      cnt += 1
-    end
-  end
-
-  if cnt == 0
-    puts "Syntax checks out."
-  else
-    puts "#{cnt} Syntax Failures:\n  "
-    puts checklist.join("\n  ")
-  end
-end