uttk 0.3.1.2

data/Rakefile

@@ -0,0 +1,8 @@
+# Author::    The Uttk Team.                                        -*- ruby -*-
+# Copyright:: Copyright (c) 2004, 2005 Uttk team. All rights reserved.
+# License::   LGPL
+# Revision::  $Id: /fey/uttk/trunk/Rakefile 8778 2005-09-26T04:34:48.103938Z ertai  $
+
+require 'rubygems'
+require_gem 'core_ex'
+load 'core_ex/rakefile_base.rf'

data/SPEC.gemspec

@@ -0,0 +1,15 @@
+Gem::Specification.new do |s|
+  s.name = %q{uttk}
+  s.version = "0.3.1.2"
+  s.date = %q{2006-02-25}
+  s.summary = %q{Uttk is an extensible framework for dynamic testing.}
+  s.email = ["cuissa_v@epita.fr", "nicolas.despres@gmail.com", "ertai@feydakins.org", "pouill_j@epita.fr", "marco.tessari@gmail.com"]
+  s.homepage = %q{http://rubyforge.org/projects/uttk}
+  s.rubyforge_project = %q{uttk}
+  s.description = %q{Uttk  is  designed  to  help  you while you are writing dynamic tests for your projects.  It keeps track of your test strategies by means of a solid dynamic hierarchy  of test strategy classes. The only way to be 100% generic is to be extensible,  after  all.  Network distribution strategies can also be written since  Uttk  provides  cluster features. Uttk understands YAML and Ruby as input languages and speaks YAML, XML and HTML as output languages.}
+  s.authors = ["Vincent Cuissard", "Nicolas Despr\350s", "Nicolas Pouillard", "Jerome Pouiller", "Marco Tessari"]
+  s.files = ["bin/uttk", "bin/getopts", "bin/uttk-unit", "bin/getopts/uttk.rb", "lib/uttk.rb", "lib/uttk/logger_factory.rb", "lib/uttk/logger.rb", "lib/uttk/filters.rb", "lib/uttk/streams.rb", "lib/uttk/status.rb", "lib/uttk/weights.rb", "lib/uttk/path_filters/RemoveTypes.rb", "lib/uttk/path_filters/ColorStatus.rb", "lib/uttk/path_filters/PathFilter.rb", "lib/uttk/dumpers/Dumper.rb", "lib/uttk/dumpers/Path.rb", "lib/uttk/dumpers/BasicColor.rb", "lib/uttk/dumpers/Html.rb", "lib/uttk/dumpers/Xml.rb", "lib/uttk/dumpers/Yaml.rb", "lib/uttk/dumpers/Basic.rb", "lib/uttk/strategies/Iterate.rb", "lib/uttk/strategies/Cmd.rb", "lib/uttk/strategies/KillAll.rb", "lib/uttk/strategies/Checkout.rb", "lib/uttk/strategies/Pass.rb", "lib/uttk/strategies/Abort.rb", "lib/uttk/strategies/Block.rb", "lib/uttk/strategies/Compile.rb", "lib/uttk/strategies/RMatch.rb", "lib/uttk/strategies/Sleep.rb", "lib/uttk/strategies/Strategy.rb", "lib/uttk/strategies/Pool.rb", "lib/uttk/strategies/IOBased.rb", "lib/uttk/strategies/Authors.rb", "lib/uttk/strategies/RUnit.rb", "lib/uttk/strategies/Import.rb", "lib/uttk/strategies/Composite.rb", "lib/uttk/strategies/Proxy.rb", "lib/uttk/strategies/SubCmd.rb", "lib/uttk/strategies/SqlQuery.rb", "lib/uttk/strategies/JUnit.rb", "lib/uttk/strategies/Clean.rb", "lib/uttk/strategies/Fail.rb", "lib/uttk/strategies/Make.rb", "lib/uttk/strategies/Suite.rb", "lib/uttk/strategies/SignalCmd.rb", "lib/uttk/strategies/Package.rb", "lib/uttk/strategies/Test.rb", "lib/uttk/strategies/ProbabilityThreshold.rb", "lib/uttk/strategies/Stub.rb", "lib/uttk/strategies/Configure.rb", "lib/uttk/strategies/PackageCollection.rb", "lib/uttk/strategies/Collection.rb", "lib/uttk/strategies/CmdBase.rb", "lib/uttk/strategies/Error.rb", "lib/uttk/strategies/Bootstrap.rb", "lib/uttk/strategies/Assert.rb", "lib/uttk/strategies/Composite/contents_eval.rb", "lib/uttk/loaders/Loader.rb", "lib/uttk/loaders/Yaml.rb", "lib/uttk/loaders/Ruby.rb", "lib/uttk/filters/Compact.rb", "lib/uttk/filters/JustStatus.rb", "lib/uttk/filters/Id.rb", "lib/uttk/filters/TextFilter.rb", "lib/uttk/filters/DefaultColor.rb", "lib/uttk/filters/NodeCut.rb", "lib/uttk/filters/Default.rb", "lib/uttk/filters/RPathFilter.rb", "lib/uttk/filters/Buffer.rb", "lib/uttk/filters/Filter.rb", "lib/uttk/filters/KeepSkipBased.rb", "lib/uttk/filters/Saver.rb", "lib/uttk/streams/Diff.rb", "lib/uttk/streams/Stream.rb", "lib/uttk/streams/HexaDiff.rb", "lib/uttk/logger/severity.rb", "lib/uttk/logger/section_node.rb", "lib/uttk/logger/backend.rb", "lib/uttk/logger/verbosity.rb", "lib/uttk/logger/path.rb", "lib/uttk/logger/to_uttk_log.rb", "lib/uttk/generators/path_filter_generator.rb", "lib/uttk/generators/loader_generator.rb", "lib/uttk/generators/generator.rb", "lib/uttk/generators/dumper_generator.rb", "lib/uttk/generators/generator_generator.rb", "lib/uttk/generators/filter_generator.rb", "lib/uttk/generators/strategy_generator.rb", "lib/uttk/generators/templates/filter.rb", "lib/uttk/generators/templates/generator.rb", "lib/uttk/generators/templates/loader.rb", "lib/uttk/generators/templates/dumper.rb", "lib/uttk/generators/templates/unit_test.rb", "lib/uttk/generators/templates/path_filter.rb", "lib/uttk/generators/templates/strategy.rb", "lib/uttk/weights/WExpr.rb", "lib/uttk/weights/WFloat.rb", "lib/uttk/weights/Weight.rb", "lib/uttk/weights/WMin.rb", "lib/uttk/generators/templates/strategy.yml", "lib/www/javascripts/uttk.js", "test/pkg", "test/pool", "test/ruby", "test/unit", "test/unit-suite.yml", "test/examples-suite.yml", "test/functional-suite.yml", "test/uttk-distcheck.yml", "test/functional", "test/ruby-suite.yml", "test/fixtures", "test/pool-suite.yml", "test/examples", "test/ruby-suite.rb", "test/uttk-check.yml", "test/pkg-suite.yml", "test/pkg/cmdline.yml", "test/pool/pool.yml", "test/pool/base.yml", "test/ruby/iterate.rb", "test/ruby/wc.rb", "test/ruby/base.rb", "test/unit/logger_test.rb", "test/unit/filters_test.rb", "test/unit/dumpers", "test/unit/strategies", "test/unit/loaders", "test/unit/filters", "test/unit/logger", "test/unit/dumpers/path_test.rb", "test/unit/dumpers/xml_test.rb", "test/unit/dumpers/yaml_test.rb", "test/unit/strategies/suite_test.rb", "test/unit/filters/node_cut_test.rb", "test/unit/filters/rpath_filter_test.rb", "test/unit/filters/buffer_test.rb", "test/unit/filters/keep_skip_based_test.rb", "test/unit/filters/text_filter_test.rb", "test/unit/logger/to_uttk_log_test.rb", "test/unit/logger/section_node_test.rb", "test/unit/logger/severity_test.rb", "test/unit/logger/verbosity_test.rb", "test/functional/diff.yml", "test/functional/rmatch.yml", "test/functional/probability_threshold.yml", "test/functional/test.yml", "test/functional/fatal.yml", "test/functional/hexa-diff.yml", "test/functional/killall.yml", "test/functional/glob.yml", "test/functional/env_cmd.yml", "test/functional/sub.yml", "test/functional/timeout.yml", "test/functional/author.yml", "test/functional/r_unit.yml", "test/functional/import.yml", "test/functional/iterate.yml", "test/functional/base_pool.yml", "test/functional/wc.yml", "test/functional/signal_cmd.yml", "test/functional/cat.yml", "test/functional/pkg.yml", "test/functional/base.yml", "test/functional/exit.yml", "test/functional/weight.yml", "test/functional/block.yml", "test/functional/cmd.yml", "test/fixtures/binaries", "test/fixtures/ball", "test/fixtures/demo", "test/fixtures/java", "test/fixtures/text", "test/fixtures/unit", "test/fixtures/mini-lib", "test/fixtures/package", "test/fixtures/binaries/segv", "test/fixtures/binaries/segv.rb", "test/fixtures/binaries/segv.c", "test/fixtures/ball/joe-exit.tar.bz2", "test/fixtures/ball/Makefile", "test/fixtures/ball/qux_j-mini-lib", "test/fixtures/ball/joe_i-mini-lib.tar.bz2", "test/fixtures/ball/hello", "test/fixtures/ball/bar_p-mini-lib", "test/fixtures/ball/hello.tar.bz2", "test/fixtures/ball/jack-exit", "test/fixtures/ball/jack-exit.tar.bz2", "test/fixtures/ball/john-exit", "test/fixtures/ball/joe-exit", "test/fixtures/ball/qux_j-mini-lib.tar.bz2", "test/fixtures/ball/foo_s-mini-lib.tar.bz2", "test/fixtures/ball/foo_s-mini-lib", "test/fixtures/ball/hello.tar.gz", "test/fixtures/ball/joe_i-mini-lib", "test/fixtures/ball/john-exit.tar.bz2", "test/fixtures/ball/20040804-exam_a1-zapngo-tessar_m.tar.gz", "test/fixtures/ball/bar_p-mini-lib.tar.bz2", "test/fixtures/ball/qux_j-mini-lib/Makefile", "test/fixtures/ball/qux_j-mini-lib/my_strlen.c", "test/fixtures/ball/hello/Makefile", "test/fixtures/ball/hello/hello.c", "test/fixtures/ball/bar_p-mini-lib/Makefile", "test/fixtures/ball/bar_p-mini-lib/my_strlen.c", "test/fixtures/ball/jack-exit/Makefile", "test/fixtures/ball/jack-exit/exit.c", "test/fixtures/ball/john-exit/Makefile", "test/fixtures/ball/john-exit/exit.c", "test/fixtures/ball/joe-exit/Makefile", "test/fixtures/ball/joe-exit/exit.c", "test/fixtures/ball/foo_s-mini-lib/Makefile", "test/fixtures/ball/foo_s-mini-lib/configure", "test/fixtures/ball/foo_s-mini-lib/my_strlen.c", "test/fixtures/ball/joe_i-mini-lib/Makefile", "test/fixtures/ball/joe_i-mini-lib/configure", "test/fixtures/ball/joe_i-mini-lib/my_strlen.c", "test/fixtures/demo/filter-tutorial", "test/fixtures/demo/command-tutorial", "test/fixtures/demo/filter-tutorial/pluralizer.rb", "test/fixtures/demo/filter-tutorial/filters", "test/fixtures/demo/filter-tutorial/check.yml", "test/fixtures/demo/filter-tutorial/filters/CutSkip100.rb", "test/fixtures/demo/command-tutorial/steps", "test/fixtures/demo/command-tutorial/steps/1", "test/fixtures/demo/command-tutorial/steps/2", "test/fixtures/demo/command-tutorial/steps/3", "test/fixtures/demo/command-tutorial/steps/4", "test/fixtures/demo/command-tutorial/steps/5", "test/fixtures/demo/command-tutorial/steps/6", "test/fixtures/demo/command-tutorial/steps/7", "test/fixtures/demo/command-tutorial/steps/3.1", "test/fixtures/demo/command-tutorial/steps/4.1", "test/fixtures/demo/command-tutorial/steps/5.1", "test/fixtures/demo/command-tutorial/steps/6.1", "test/fixtures/demo/command-tutorial/steps/1/pluralizer.rb", "test/fixtures/demo/command-tutorial/steps/1/check.yml", "test/fixtures/demo/command-tutorial/steps/2/bad_check.yml", "test/fixtures/demo/command-tutorial/steps/2/pluralizer.rb", "test/fixtures/demo/command-tutorial/steps/2/check.yml", "test/fixtures/demo/command-tutorial/steps/3/check.yml", "test/fixtures/demo/command-tutorial/steps/4/pluralizer.rb", "test/fixtures/demo/command-tutorial/steps/4/check.yml", "test/fixtures/demo/command-tutorial/steps/5/bird.txt", "test/fixtures/demo/command-tutorial/steps/5/pluralizer.rb", "test/fixtures/demo/command-tutorial/steps/5/check.yml", "test/fixtures/demo/command-tutorial/steps/6/bird.txt", "test/fixtures/demo/command-tutorial/steps/6/pluralizer.rb", "test/fixtures/demo/command-tutorial/steps/6/check.yml", "test/fixtures/demo/command-tutorial/steps/7/bird.txt", "test/fixtures/demo/command-tutorial/steps/7/pluralizer.rb", "test/fixtures/demo/command-tutorial/steps/7/check.yml", "test/fixtures/demo/command-tutorial/steps/3.1/check.yml", "test/fixtures/demo/command-tutorial/steps/4.1/bird.txt", "test/fixtures/demo/command-tutorial/steps/4.1/check.yml", "test/fixtures/demo/command-tutorial/steps/5.1/bird.txt", "test/fixtures/demo/command-tutorial/steps/5.1/pluralizer.rb", "test/fixtures/demo/command-tutorial/steps/5.1/check.yml", "test/fixtures/demo/command-tutorial/steps/6.1/bird.txt", "test/fixtures/demo/command-tutorial/steps/6.1/pluralizer.rb", "test/fixtures/demo/command-tutorial/steps/6.1/check.yml", "test/fixtures/java/unit", "test/fixtures/java/unit/multifoo.yml", "test/fixtures/java/unit/MultiRight", "test/fixtures/java/unit/simple_exception.yml", "test/fixtures/java/unit/multibar.yml", "test/fixtures/java/unit/SimpleException", "test/fixtures/java/unit/multiright.yml", "test/fixtures/java/unit/build.sh", "test/fixtures/java/unit/MultiRight/Foo", "test/fixtures/java/unit/MultiRight/bar", "test/fixtures/java/unit/MultiRight/MultiRightTest.java", "test/fixtures/java/unit/MultiRight/build.sh", "test/fixtures/java/unit/MultiRight/MultiRight.java", "test/fixtures/java/unit/MultiRight/Foo/FooTest.java", "test/fixtures/java/unit/MultiRight/Foo/Foo.java", "test/fixtures/java/unit/MultiRight/bar/BarTest.java", "test/fixtures/java/unit/MultiRight/bar/Bar.java", "test/fixtures/java/unit/SimpleException/SimpleExceptionTest.java", "test/fixtures/java/unit/SimpleException/build.sh", "test/fixtures/text/1.txt", "test/fixtures/unit/error.rb", "test/fixtures/unit/bad.rb", "test/fixtures/unit/good.rb", "test/fixtures/mini-lib/Makefile", "test/fixtures/mini-lib/strlen.c", "test/fixtures/package/pkg_foo.tar.gz", "test/fixtures/package/pkg_foo", "test/fixtures/package/pkg_foo/Makefile", "test/fixtures/package/pkg_foo/configure", "test/fixtures/package/pkg_foo/foo.sh", "test/fixtures/package/pkg_foo/bootstrap", "test/examples/sql", "test/examples/basic.yml", "test/examples/cache", "test/examples/README", "test/examples/students-suite.yml", "test/examples/basic.rb", "test/examples/students", "test/examples/sql/basic.yml", "test/examples/cache/cache_and_fatal.yml", "test/examples/cache/simple.yml", "test/examples/students/mini-lib.yml", "test/examples/students/pool_stud.yml", "test/examples/students/glob_stud.yml", "test/examples/students/ball.yml", "test/examples/students/stud.yml", "misc/renaming", "misc/header.rb", "misc/expandtab.rb", "misc/uttk-grep.sh", "misc/textile_compiler", "misc/uttk-line-count.rb", "LGPL", "NEWS", "NORM", "TODO", "SPEC.gemspec", "Rakefile", "TODO.old", "README", "VERSION", "GUIDELINES", "AUTHORS", "SPEC.yml", "ChangeLog", "COPYING"]
+  s.executables = ["uttk", "uttk-unit"]
+  s.add_dependency(%q<ruby_ex>, ["~> 0.4.1"])
+  s.add_dependency(%q<actionpack>, ["~> 1.11.2"])
+end

data/SPEC.yml

@@ -0,0 +1,60 @@
+---
+Author: The Uttk Team.
+License: LGPL
+Revision: '$Id: /w/fey/uttk/trunk/SPEC.yml 22245 2006-02-25T11:17:46.591926Z pouillar  $'
+
+version: !feydakins.org,2006/version dev-util/uttk-0.3_alpha2#kid
+
+title: Uttk -- An extensible framework for dynamic testing.
+summary: Uttk is an extensible framework for dynamic testing.
+description: >
+  Uttk  is  designed  to  help  you while you are writing dynamic tests for your
+  projects.  It keeps track of your test strategies by means of a solid dynamic
+  hierarchy  of test strategy classes. The only way to be 100% generic is to be
+  extensible,  after  all.  Network distribution strategies can also be written
+  since  Uttk  provides  cluster features. Uttk understands YAML and Ruby as
+  input languages and speaks YAML, XML and HTML as output languages.
+homepage: http://rubyforge.org/projects/uttk
+
+user: ertai
+rubyforge_project: ttk
+rubyforge_sub_package_name: uttk
+root_test_suite: test/uttk-distcheck.yml
+rdoc_dir: doc/html
+tags_url: svn://svn.feydakins.org/uttk/tags
+trunk_url: svn://svn.feydakins.org/uttk/trunk
+
+rdoc_tail_files: !filelist
+  - lib/uttk/dumpers/Dumper.rb
+  - lib/uttk/loaders/Loader.rb
+  - lib/uttk/strategies/Strategy.rb
+  - lib/uttk/filters/Filter.rb
+  - lib/uttk/weights/Weight.rb
+  - lib/uttk.rb
+
+#FIXME: rdoc + gem fails for the main
+rdoc_files: !filelist
+  - README
+  - AUTHORS
+  - NEWS
+  - test/examples/README
+  - lib/uttk/**/*.rb
+
+pkg_files: !filelist
+  - bin/**/*
+  - lib/**/*.{rb,yml,js}
+  - test/**/*
+  - template/**/*
+  - misc/**/*
+  - '[A-Z]*'
+
+dependencies:
+  ruby_ex:
+    gem    : ~> 0.4.1 # FIXME 0.4_alpha XY ...
+    tarball: 8837/ruby_ex-0.4_alpha3.tar.gz
+    vcs    : svn://svn.feydakins.org/ruby_ex/trunk
+  actionpack: [~> 1.11.2, 7645/actionpack-1.11.2.tgz]
+
+# The version needed to test this uttk.
+# Not the version of this uttk.
+uttk_version: ~> 0.3.1

data/TODO

@@ -0,0 +1,23 @@
+
+
+= Introduction
+
+Uttk's ToDo list is based on the Uttk's tracker available on www.feydakins.org.
+This tracker is used for both features request and bugs report. This document
+describe how to post a good feature request and/or a good bug report.
+
+
+= Uttk's tracker
+
+http://bugs.feydakins.org
+
+This is the main view of Uttk's tracker. It allow you to browse, to sort and
+to search for issues. The _Add issue_ link in the issue action frame on the
+left give you access to the post application form.
+
+When submitting a bug or a feature you have to choose the section of Uttk, it
+best fit with. If you don't know, choose the section with the bigger scope.
+
+
+--
+Uttk's maintainers

data/TODO.old

@@ -0,0 +1,31 @@
+* Documentation
+* On a un gros probl�me avec les fichiers ouverts sur NetBSD.
+* Le  filtre Weight  ne semble  pas  fonctionner, pourtant,  nous en  avons
+  absolument besoin (et il faut qu'il travaille en stream).
+* Je n'ai  pas r�ussis � faire  des filtres en stream.  C'est possible? (Il
+  faudrait, sinon, les filtres n'ont plus d'interets)
+_ configure et make n'affichent pas les sorties
+_ L'extraction de  tarball  est buggu�,  il  manque l'option  "f  -" �  la
+  commande tar
+_ Xml.rb a  un bug avec  la duplication des  attributs. Ca ressemble  a une
+   sombre histoire de noeuds copi�s par r�f�rence...
+_ Xml.rb  devrait nommer  son  premier  noaud "test"  en  "trace" pour  que
+   l'intra l'affiche plus joliment
+* Faire un  Html.rb qui  ne ferais que  applisuer une  xslt. Vu qu'on  a la
+   Xlst,  ca  devrait  pas  �tre  dur. Je  cherche  une  librairie  capable
+   d'appliquer une Xslt  en Ruby... Pa contre, ca a  tendance a changer les
+   l'optique des flux de log dans la moulinette. Il y aurait des flux Yaml,
+   des flux Xml,  etc... Maintenant, que j'y pense,  ca n'est peut-�tre pas
+   une mauvaise id�e... Il suffit de  typer un peu plus fortement la sortie
+   de nos filtres  (Je prefere parler de filtre au  sens g�n�ral plutot que
+   de Dumper) et c'est bon.
+* Il  faut qu'on  puise passer  des  parametre au  Loader par  la ligne  de
+   commande.  Je  pense  en   particulier  �  l'upload  qui  voudra  mettre
+   l'emplecement de la tarball sur la ligne de commande.
+* Il nous  faudrait une classe  TTAutoTest permettant de definir  des tests
+   avant que la moulinette ne se lance. Par exemple: "il faut la tarball de
+   ref passe tous les tests" ou bien "il faut que /bin/false ne passe aucun
+   test".
+* Il  nous faudrait  des warpper  pour different  trucs. c'ets  a  dire des
+   raccourcis  vers  certains  sc�narios  tres  utilis�  (tarball  piscine,
+   examsm, proj, etc...)

data/VERSION

@@ -0,0 +1,5 @@
+Uttk version <%= v = Uttk::VERSION; v.major_minor %> { <%= v.tag.pp %> } [<%= v.release_name %>]
+
+Copyright (c) 2004, 2005, 2006 Nicolas Despr�s, Nicolas Pouillard
+This is free software; see the source for copying conditions. There is NO
+warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

data/bin/getopts/uttk.rb

@@ -0,0 +1,390 @@
+# Author::    The Uttk Team.
+# Copyright:: Copyright (c) 2004 Uttk team. All rights reserved.
+# License::   LGPL
+# $Id: /w/fey/uttk/trunk/bin/getopts/uttk.rb 22244 2006-02-25T10:48:53.146614Z pouillar  $
+
+require 'optparse'
+Hierarchy.import!
+PpHierarchy.import!
+
+module Uttk
+
+  module Getopts
+
+    class Uttk
+
+      def self.head
+        puts "---
+             |Usage: #{ME} [options] [files...]
+             |
+             |options      : use --long-help to see all options
+             |
+             |files        : >
+             |               by default input files are in Yaml
+             |               but you can change the loader (see -L)
+             |".head_cut!
+      end
+
+      def self.tail
+        puts "strategies   :
+             |   input files use and compose strategies:
+             |     - complete strategy list: --strategy-list
+             |     - help on one strategy  : --long-help aStrategyName
+             |
+             |documentation:
+             |  - introduction, tutorial: http://uttk.org
+             |  - api, generated by RDoc: http://api.uttk.org/doc
+             |
+             |bug reports  : http://dev.uttk.org
+             |
+             |# Good tests !!
+             |# --
+             |# The Uttk Team
+             |".head_cut!
+      end
+
+      def self.usage
+        head
+        puts
+        tail
+      end
+
+      def self.parse(argv)
+        opts = ::Uttk.default_options.dup
+        optparser = OptionParser.new do |optparser|
+
+          optparser.banner = ''
+          optparser.summary_indent = '  '
+          optparser.summary_width = 25
+
+          ### Path options
+
+          optparser.separator 'Path options:'
+
+          optparser.on('-I',
+                       '--include PATH',
+                       'Add PATH to root path (PATH/strategies, ' +
+                       'PATH/filters...)') do |aPath|
+            ::Uttk.load_path += aPath.split(':').map { |x| x.to_path }
+            ::Uttk.setup_autoload_all
+          end
+
+          ### Strategy options
+
+          optparser.separator ''
+          optparser.separator 'Strategy options:'
+
+          optparser.on('--strategy-list', 'List all test strategy classes') do
+            pp_class_hierarchy('Strategies::Strategy')
+            exit
+          end
+
+          ### Loader options
+
+          optparser.separator ''
+          optparser.separator 'Loader options:'
+
+          all_loaders = sub_modules(Loaders)
+
+          optparser.on('-L',
+                       '--loader [TYPE]',
+                       all_loaders,
+                       'Select a loader (no argument for the list)') do |aLoader|
+            if aLoader.nil?
+              pp_class_hierarchy('Loaders::Loader')
+              exit
+            else
+              opts[:loader] = Loaders.const_get(aLoader)
+            end
+          end
+
+          ### Filter options
+
+          optparser.separator ''
+          optparser.separator 'Filter options:'
+
+          optparser.on('-F',
+                       '--filter [PIPELINE DESCRIPTION]',
+                       'Select a filter pipeline' +
+                       '(no argument for the list)') do |desc|
+            if desc.nil?
+              pp_class_hierarchy('Logger::Backend',
+                                 'Filters::Filter',
+                                 'PathFilters::PathFilter',
+                                 'Dumpers::Dumper')
+              exit
+            else
+              begin
+                opts[:observers] << desc
+              rescue ArgumentError => e
+                raise(OptionParser::InvalidArgument, "#{desc}: #{e}")
+              end
+            end
+          end
+
+          optparser.on('--filter-help', 'More information about filters') do
+            all_filters = sub_modules(Filters) + sub_modules(Dumpers)
+            puts %Q{
+            |filters:
+            |  The --filter (-F) option take a pipeline description which
+            |  is a little yaml document.
+            |
+            |  The syntax is basic:
+            |
+            |  Observer ::= <FilterClass>
+            |             | <FilterClass> ":" Observer
+            |             | "[" Observer* "]"
+            |             ;
+            |
+            |  Filters ::= #{all_filters.join(' | ')} ;
+            |
+            |  Examples:
+            |    Yaml                # Use the Yaml output format on the stdout
+            |    Yaml: foo           # Use Yaml on file foo
+            |    Xml: foo, Yaml: bar # Use Xml on file foo and Yaml on file bar
+            |    Xml: [ foo, bar]    # Use Xml on files foo and bar
+            |    Yaml, Xml: log.xml  # Use Yaml on stdout and Xml on log.xml
+            |    JustStatus: Yaml    # Use the filter JustStatus and display
+            |                        # its output with Yaml
+            |    JustStatus: {Yaml, Xml: log.xml}
+            |      # Use Yaml on stdout and Xml on log.xml but trough the
+            |      # filter JustStatus.
+            |
+            |    Yaml: log.yml, JustStatus: Yaml # This one is usefull
+            |
+            |    You can make your own compositions and save them, see the
+            |    documentation of the Filters module.
+            |
+            | Warning:
+            |   Xml: foo, Xml: bar    # Will create only one Xml dumper since
+            |                         # this is a hash with twice the same key.
+            |}.head_cut!
+            exit
+          end
+
+          ### Weight options
+
+          optparser.separator ''
+          optparser.separator 'Weight options:'
+
+          optparser.on('-W',
+                       '--wclass [TYPE]',
+                       'Select the weight class ' +
+                       '(no argument for the list)') do |aString|
+            if aString.nil?
+              pp_class_hierarchy('Weights::Weight')
+              exit
+            else
+              opts[:wclass] = Weights.const_get(aString)
+            end
+          end
+
+          ### Logger options
+
+          optparser.separator ''
+          optparser.separator 'Logger options:'
+
+          optparser.on('-l',
+                       '--log STRING',
+                       'Set the log base name for log files') do |log|
+            default_filter = STDOUT.tty? ? F::DefaultColor : F::Default
+            opts[:observers] << default_filter.template(log)
+          end
+
+          optparser.on('-d',
+                       '--severity [NAME]',
+                       'Log severity level ' +
+                       '(no argument for the list)') do |level|
+            if level.nil?
+              puts 'Log severity level list:'
+              Logger::Severity.labels.each { |l| puts " - #{l}" }
+              exit
+            else
+              begin
+                raise NameError if level.nil?
+                opts[:log_severity] = Logger::Severity.const_get(level.to_s.upcase)
+              rescue NameError
+                raise(OptionParser::InvalidArgument, level)
+              end
+            end
+          end
+
+          higher_level = Logger::Verbosity.higher_level
+          optparser.on('-v',
+                       '--verbosity NUM',
+                       "Log verbosity level [0-#{higher_level}]") do |level|
+            ilevel = level.to_i
+            if ilevel.to_s != level
+              raise(OptionParser::InvalidArgument, level)
+            end
+            if 0 <= ilevel and ilevel <= higher_level
+              opts[:log_verbosity] = ilevel
+            else
+              raise(OptionParser::InvalidArgument, level)
+            end
+          end
+
+          optparser.on('-s',
+                       '--log-section [NAME]',
+                       'Active a log section ' +
+                       '(no argument for the list)') do |name|
+            if name.nil?
+              #FIXME: print the section tree
+              exit
+            else
+              #FIXME: check the validity of the section
+              opts[:log_section] << name.to_s
+            end
+          end
+
+          ### Miscellaneous options
+
+          optparser.separator ''
+          optparser.separator 'Miscellaneous options:'
+
+          optparser.on('-S',
+                       '--symbols symbols',
+                       'Add a hash of symbols to the root test suite') do |str|
+            opts[:symbols] = YAML.load(str)
+          end
+
+          optparser.on('-A',
+                       '--attributes attributes',
+                       'Add a hash of attributes to ' +
+                       'the root test suite') do |aString|
+            opts[:attributes] = YAML.load(aString)
+          end
+
+          optparser.on('-C', '--[no-]cache', 'Keep the test in cache') do |c|
+            opts[:cache_mode] = c
+          end
+
+          optparser.on('--cache-dir DIR', 'Use the cache in DIR') do |dir|
+            dir = Pathname.new(dir)
+            unless dir.directory?
+              raise OptionParser::InvalidArgument, 'need a directory'
+            end
+            opts[:cache_dir] = dir
+          end
+
+          optparser.on('-r', '--cache-proc RUBY_CODE',
+                       'Use this block to skip tests in cache mode') do |code|
+
+            unless code =~ /^\s*\|[^,]+,[^,]+\|\s*\S+/
+              raise OptionParser::InvalidArgument,
+                    'need a ruby block with 2 args (e.g |x,y| ...)'
+            end
+            opts[:cache_proc] = DumpableProc.new(code)
+          end
+
+          optparser.on('--rpath REGEX_PATH',
+                       'Just keep tests with name that matches the REGEX_PATH')\
+          do |r|
+            opts[:rpath] = RegexPath.new "#{r}/()"
+          end
+
+          optparser.on('--rpath-exclude REGEX_PATH',
+                       'Skip tests with name that matches the REGEX_PATH')\
+          do |r|
+            opts[:rpath_exclude] = RegexPath.new "#{r}/()"
+          end
+
+          optparser.on('-b', '--benchmark',
+                       'Switch on benchmark informations') do
+            opts[:benchmark] = true
+          end
+
+          optparser.on('--profile', 'Switch on profile informations') do
+            opts[:profile] = true
+          end
+
+          optparser.on('--dump-status',
+                       'Dump the global status at the end (STDOUT)') do
+            opts[:dump_status] = true
+          end
+
+          optparser.on('--gen-strategies-hierarchy',
+                       'Generate the strategies hierarchy description') do
+            hsh = Strategies.sub_classes_tree(Strategies::Strategy, true, true)
+            puts "# Uttk's strategies hierarchy generated on #{Time.now}"
+            YAML.dump(hierarchy_to_s(hsh), STDOUT)
+            exit
+          end
+
+          optparser.on_tail('-h', '--help', 'Show the brief help message') do
+            usage
+            exit 0
+          end
+
+          optparser.on_tail('-H', '--long-help [strategy]',
+                            'Show this message') do |aStrategy|
+            if aStrategy.nil?
+              head
+              puts optparser
+              puts
+              tail
+            else
+              Strategies.const_get(aStrategy).help(STDOUT)
+            end
+            exit 0
+          end
+
+          optparser.on_tail('--authors', 'Display the AUTHORS file') do
+            puts ::Uttk::AUTHORS_PATH.read
+            exit 0
+          end
+
+          optparser.on_tail('--version', 'Show version') do
+            puts ::Uttk::VERSION_TEXT
+            exit 0
+          end
+
+        end
+
+        optparser.parse!(argv)
+        argv << '-' if argv.empty?
+        argv.map! { |x| x == '-' ? STDIN : Pathname.new(x) }
+        opts
+      end
+
+      protected
+      def self.sub_modules(mod)
+        mod.constants.sort!.map! { |c| c.to_sym }
+      end
+
+      protected
+      def self.pp_class_hierarchy(name, *others)
+        if name =~ /^(\w+)::(\w+)$/
+          mod = ::Uttk.const_get($1)
+          klass = mod.const_get($2)
+          puts "#{mod} classes hierarchy:"
+          hsh = mod.sub_classes_tree(klass, true, true)
+          mods = [mod]
+          others.each do |name|
+            if name =~ /^(\w+)::(\w+)$/
+              mod = ::Uttk.const_get($1)
+              mods << mod
+              klass = mod.const_get($2)
+              hsh[hsh.keys.first].merge! mod.sub_classes_tree(klass, true, true)
+            end
+          end
+          hsh.pp_hierarchy(Regexp.new("^(#{mods.join('|')})::"), true)
+        end
+      end
+
+      protected
+      def self.hierarchy_to_s(hsh)
+        r = {}
+        hsh.each { |k, v| r[k.to_s] = hierarchy_to_s(v) }
+        r
+      end
+
+    end # class Uttk
+
+  end # module Getopts
+
+end # module Uttk
+
+
+
+