facets 2.0.2 → 2.0.3

data/lib/more/facets/snapshot.rb

@@ -124,7 +124,6 @@ class Snapshot::ValueHolder
   end
 end
 
-
 #--
 # Extend some base classes of Ruby (Object, Array, String, Hash,
 # Struct) for the two methods #take_snapshot and
@@ -139,12 +138,20 @@ class Object
     end
     snap
   end
+  
+  def to_data
+    task_snapshot
+  end
 
   def restore_snapshot(snap)
     instance_variables.each do |iv|
       instance_variable_set(iv, snap[iv])
     end
   end
+
+  def from_data(snap)
+    restore_snapshot(snap)
+  end
 end
 
 class Array

data/lib/more/facets/stylize.rb

@@ -87,9 +87,11 @@ class String
     #   "this is a test".capitalize_all  #=> "This Is A Test"
 
     def title( pattern=$;, *limit )
+      #gsub(/\b\w/){$&.upcase}
       split(pattern, *limit).select{ |w| w.capitalize! || w }.join(" ")
     end
     alias_method :titleize, :title
+    alias_method :titlecase, :title
     alias_method :capitalize_all, :title
 
     # Converts a string into a valid ruby method name

data/meta/{project.yaml → facets-2.0.3.roll}

@@ -1,15 +1,10 @@
 ---
-
-name     : facets
-author   : Thomas Sawyer <transfire@gmail.com>
-email    : facets-universal@rubyforge.org
-homepage : 'http://facets.rubyforge.org'
-download : 'http://rubyforge.org/projects/facets'
-created  : '2004-12-16'
-
 title    : Facets
 subtitle : Premium Core Extensions and Standard Additions
 slogan   : ALL YOUR BASE ARE BELONG TO RUBY!
+created  : '2004-12-16'
+status   : stable
+
 description :
   Facets is a large collection of core extension methods
   and standard additions for the Ruby programming language.
@@ -20,15 +15,28 @@ description :
   and microframeworks, from the Functor to a complete
   Annotations system.
 
-formats     : [ gem, tgz ]
-document    : false
-#distribute  : [ -dev, -doc ]
+author   : Thomas Sawyer <transfire@gmail.com>
+email    : facets-universal@rubyforge.org
+homepage : 'http://facets.rubyforge.org'
+download : 'http://rubyforge.org/projects/facets'
+
+index_file: facets.rb
 
-libpaths:
+load_paths:
+  - lib/core/facets
+  - lib/more/facets
+  - lib/methods/facets
+
+gem_paths:
   - lib/core
   - lib/more
   - lib/methods
 
-#manifest    : meta/Manifest
-#stamp       : meta/Version
+# Packaging information
+
+formats     : [ gem, tgz ]
+document    : false
+
+#manifest    : meta/manifest.txt
+#distribute  : [ -dev, -doc, -pkg ]
 

data/meta/manifest.txt

@@ -24,6 +24,7 @@ lib/core/facets/array/conjoin.rb
 lib/core/facets/array/delete.rb
 lib/core/facets/array/indexable.rb
 lib/core/facets/array/merge.rb
+lib/core/facets/array/only.rb
 lib/core/facets/array/pad.rb
 lib/core/facets/array/rotate.rb
 lib/core/facets/array/select.rb
@@ -59,10 +60,10 @@ lib/core/facets/enumerable/collate.rb
 lib/core/facets/enumerable/collect.rb
 lib/core/facets/enumerable/combination.rb
 lib/core/facets/enumerable/count.rb
-lib/core/facets/enumerable/instance_map.rb
 lib/core/facets/enumerable/permutation.rb
 lib/core/facets/enumerable/probability.rb
 lib/core/facets/enumerable.rb
+lib/core/facets/facets.rb
 lib/core/facets/file
 lib/core/facets/file/read.rb
 lib/core/facets/file/topath.rb
@@ -87,6 +88,7 @@ lib/core/facets/hash/merge.rb
 lib/core/facets/hash/new.rb
 lib/core/facets/hash/op.rb
 lib/core/facets/hash/rekey.rb
+lib/core/facets/hash/select.rb
 lib/core/facets/hash/traverse.rb
 lib/core/facets/hash/update.rb
 lib/core/facets/hash/weave.rb
@@ -181,6 +183,7 @@ lib/core/facets/symbol/generate.rb
 lib/core/facets/symbol/not.rb
 lib/core/facets/symbol/shadow.rb
 lib/core/facets/symbol/succ.rb
+lib/core/facets/symbol/to_proc.rb
 lib/core/facets/symbol.rb
 lib/core/facets/time
 lib/core/facets/time/change.rb
@@ -194,6 +197,7 @@ lib/core/facets.rb
 lib/methods
 lib/methods/facets
 lib/methods/facets/array
+lib/methods/facets/array/contains.rb
 lib/methods/facets/array/delete_unless.rb
 lib/methods/facets/array/delete_values.rb
 lib/methods/facets/array/delete_values_at.rb
@@ -291,6 +295,8 @@ lib/methods/facets/enumerable/sum.rb
 lib/methods/facets/enumerable/to_h.rb
 lib/methods/facets/enumerable/to_hash.rb
 lib/methods/facets/enumerable/uniq_by.rb
+lib/methods/facets/facets
+lib/methods/facets/facets/require_core.rb
 lib/methods/facets/falseclass
 lib/methods/facets/falseclass/to_bool.rb
 lib/methods/facets/file
@@ -303,6 +309,7 @@ lib/methods/facets/file/rewrite.rb
 lib/methods/facets/file/rootname.rb
 lib/methods/facets/file/sanitize.rb
 lib/methods/facets/file/split_all.rb
+lib/methods/facets/file/writelines.rb
 lib/methods/facets/filetest
 lib/methods/facets/filetest/root.rb
 lib/methods/facets/float
@@ -368,6 +375,8 @@ lib/methods/facets/integer/test_bit.rb
 lib/methods/facets/integer/test_bitmask.rb
 lib/methods/facets/integer/times_collect.rb
 lib/methods/facets/integer/times_map.rb
+lib/methods/facets/io
+lib/methods/facets/io/writelines.rb
 lib/methods/facets/kernel
 lib/methods/facets/kernel/__DIR__.rb
 lib/methods/facets/kernel/__assign__.rb
@@ -414,6 +423,7 @@ lib/methods/facets/kernel/meta_def.rb
 lib/methods/facets/kernel/meta_eval.rb
 lib/methods/facets/kernel/metaclass.rb
 lib/methods/facets/kernel/method.rb
+lib/methods/facets/kernel/not_nil.rb
 lib/methods/facets/kernel/object_class.rb
 lib/methods/facets/kernel/object_clone.rb
 lib/methods/facets/kernel/object_dup.rb
@@ -465,16 +475,19 @@ lib/methods/facets/module/class.rb
 lib/methods/facets/module/clone_removing.rb
 lib/methods/facets/module/clone_renaming.rb
 lib/methods/facets/module/clone_using.rb
+lib/methods/facets/module/conflict.rb
 lib/methods/facets/module/dirname.rb
 lib/methods/facets/module/include_and_extend.rb
 lib/methods/facets/module/include_as.rb
 lib/methods/facets/module/include_function_module.rb
 lib/methods/facets/module/instance_method.rb
+lib/methods/facets/module/instance_method_defined.rb
 lib/methods/facets/module/integrate.rb
 lib/methods/facets/module/is.rb
 lib/methods/facets/module/modspace.rb
 lib/methods/facets/module/module_load.rb
 lib/methods/facets/module/module_method.rb
+lib/methods/facets/module/module_method_defined.rb
 lib/methods/facets/module/module_require.rb
 lib/methods/facets/module/nesting.rb
 lib/methods/facets/module/nodef.rb
@@ -482,6 +495,9 @@ lib/methods/facets/module/on_included.rb
 lib/methods/facets/module/op_minus.rb
 lib/methods/facets/module/op_mul.rb
 lib/methods/facets/module/op_plus.rb
+lib/methods/facets/module/private_conflict.rb
+lib/methods/facets/module/protected_conflict.rb
+lib/methods/facets/module/public_conflict.rb
 lib/methods/facets/module/redef.rb
 lib/methods/facets/module/redefine_method.rb
 lib/methods/facets/module/redirect.rb
@@ -541,6 +557,7 @@ lib/methods/facets/string/each_char.rb
 lib/methods/facets/string/each_character.rb
 lib/methods/facets/string/each_word.rb
 lib/methods/facets/string/ends_with.rb
+lib/methods/facets/string/expand_tabs.rb
 lib/methods/facets/string/first.rb
 lib/methods/facets/string/fold.rb
 lib/methods/facets/string/format.rb
@@ -553,6 +570,7 @@ lib/methods/facets/string/lines.rb
 lib/methods/facets/string/lowercase.rb
 lib/methods/facets/string/margin.rb
 lib/methods/facets/string/mscan.rb
+lib/methods/facets/string/outdent.rb
 lib/methods/facets/string/peek.rb
 lib/methods/facets/string/poke.rb
 lib/methods/facets/string/pop.rb
@@ -569,6 +587,7 @@ lib/methods/facets/string/starts_with.rb
 lib/methods/facets/string/store.rb
 lib/methods/facets/string/succ.rb
 lib/methods/facets/string/tab.rb
+lib/methods/facets/string/taballto.rb
 lib/methods/facets/string/tabto.rb
 lib/methods/facets/string/to_b.rb
 lib/methods/facets/string/to_const.rb
@@ -622,7 +641,6 @@ lib/more/facets/class_extension.rb
 lib/more/facets/classmethods.rb
 lib/more/facets/cloneable.rb
 lib/more/facets/command.rb
-lib/more/facets/command_options.rb
 lib/more/facets/compare_on.rb
 lib/more/facets/console.rb
 lib/more/facets/coroutine.rb
@@ -676,6 +694,7 @@ lib/more/facets/paramix.rb
 lib/more/facets/pathlist.rb
 lib/more/facets/pathname.rb
 lib/more/facets/pool.rb
+lib/more/facets/pp_s.rb
 lib/more/facets/pqueue.rb
 lib/more/facets/prepend.rb
 lib/more/facets/progressbar.rb
@@ -707,29 +726,37 @@ lib/more/facets/version.rb
 lib/more/facets/yaml.rb
 lib/more/facets/ziputils.rb
 meta
+meta/facets-2.0.3.roll
 meta/manifest.txt
-meta/project.yaml
-meta/version.txt
 task
 task/clean
 task/config
-task/config.yaml
+task/config/general.yaml
+task/config/rdoc.yaml
+task/crosstest
 task/extest
 task/groups
 task/install
-task/load
+task/isotest
+task/loadtest
 task/methods
+task/prepare
 task/publish
 task/rdoc
-task/rdoc.yaml
 task/stats
+task/syntax
 task/test
+task/testeach
+task/testpairs
 test
+test/lib
+test/lib/rq.rb
 test/unit
 test/unit/array
 test/unit/array/test_delete.rb
 test/unit/array/test_indexable.rb
 test/unit/array/test_merge.rb
+test/unit/array/test_only.rb
 test/unit/array/test_pad.rb
 test/unit/array/test_rotate.rb
 test/unit/array/test_select.rb
@@ -756,6 +783,7 @@ test/unit/enumerable/test_permutation.rb
 test/unit/enumerable/test_probability.rb
 test/unit/file
 test/unit/file/test_topath.rb
+test/unit/file/test_write.rb
 test/unit/hash
 test/unit/hash/test_at.rb
 test/unit/hash/test_delete.rb
@@ -768,6 +796,7 @@ test/unit/hash/test_merge.rb
 test/unit/hash/test_new.rb
 test/unit/hash/test_op.rb
 test/unit/hash/test_rekey.rb
+test/unit/hash/test_select.rb
 test/unit/hash/test_traverse.rb
 test/unit/hash/test_update.rb
 test/unit/hash/test_weave.rb
@@ -836,6 +865,7 @@ test/unit/symbol/test_generate.rb
 test/unit/symbol/test_not.rb
 test/unit/symbol/test_shadow.rb
 test/unit/symbol/test_succ.rb
+test/unit/symbol/test_to_proc.rb
 test/unit/test_1stclassmethod.rb
 test/unit/test_advice.rb
 test/unit/test_annotations.rb
@@ -855,7 +885,6 @@ test/unit/test_bytes.rb
 test/unit/test_class_extension.rb
 test/unit/test_classmethods.rb
 test/unit/test_command.rb
-test/unit/test_command_options.rb
 test/unit/test_compare_on.rb
 test/unit/test_conversion.rb
 test/unit/test_coroutine.rb
@@ -888,6 +917,7 @@ test/unit/test_openobject.rb
 test/unit/test_ostruct.rb
 test/unit/test_overload.rb
 test/unit/test_paramix.rb
+test/unit/test_pp_s.rb
 test/unit/test_prototype.rb
 test/unit/test_random.rb
 test/unit/test_recorder.rb

data/task/{config.yaml → config/general.yaml}

@@ -5,14 +5,19 @@ rdoc:
 
 methods:
   source  : lib/core/facets
-  folder  : lib/methods/facets
+  output  : lib/methods/facets
   ignore  : [As, Functor, Indexable, Stackable]
 
 publish:
   project  : facets
-  source   : doc/site
+  source   : doc
   username : transami
 
+test:
+  libpath:
+    - lib/methods
+    - lib/core
+    - lib/more
 
 # announce:
 #   template   : README

data/task/{rdoc.yaml → config/rdoc.yaml}

@@ -407,7 +407,7 @@ Shellwords:
   files:
     facets/shellwords.rb
 
-SMTP_TLS:
+SMTP-TLS:
   chdir: lib/more
   files:
     facets/smtp_tls.rb

data/task/crosstest

@@ -0,0 +1,309 @@
+#!/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. The tests are run in pairs in a separate interpretor
+# to prevent script clash. This makes for a more robust test
+# facility and discover 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.
+#
+# To isolate tests this tool marshals test results across a
+# stdout->stdin shell pipe. This prevents interfence of one
+# pair of 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']
+
+  if commandline.arguments.empty?
+    tests = info['files'] || 'test/unit/**/test_*.rb'
+  else
+    tests = commandline.arguments
+  end
+
+  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