ttk 0.1.576

data/bin/getopts/ttkd.rb

@@ -0,0 +1,150 @@
+# Author::    Nicolas Despres  <nicolas.despres@epita.fr>.
+# Copyright:: Copyright (c) 2004 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: ttkd.rb 567 2005-04-13 08:00:06Z polrop $
+
+require 'optparse'
+require 'logger'
+require 'pathname'
+require 'uri/druby'
+require 'socket'
+
+
+module TTK
+
+  module Getopts
+
+    class TTKd
+
+      DEFAULT_OPTIONS = {
+        :logfilename => '-',
+        :loglevel => ::Logger::INFO,
+        :workdir => Pathname.new(''),
+        :clean_workdir => false,
+        :detach => false,
+        :tester_uri => URI::DRuby.build([Socket.gethostname, 42000]),
+        :master_tester_uri => nil,
+        :tester_name => 'noname',
+        :monitor_uri => URI::DRuby.build([Socket.gethostname, 42004]),
+        :max_observers => 32,
+        :rb_safe => 1,
+      }
+
+      def self.parse(argv)
+        opts = DEFAULT_OPTIONS.dup
+        optparser = OptionParser.new do |optparser|
+
+          optparser.banner = "usage: #{ME} [options...] daemon [arguments...]"
+          optparser.summary_indent = '  '
+          optparser.summary_width = 25
+
+          #
+          # Tester options
+          #
+          optparser.separator('')
+          optparser.separator('Tester options:')
+
+          optparser.on('-t', '--tester-uri URI', 'Tester service uri') do |uri|
+            opts[:tester_uri] = URI.parse(uri)
+          end
+
+          optparser.on('-n', '--name NAME', 'Tester name') do |name|
+            opts[:tester_name] = name
+          end
+
+          #
+          # Monitor options
+          #
+          optparser.separator('')
+          optparser.separator('Monitor options:')
+
+          optparser.on('-m',
+                       '--monitor-uri URI',
+                       'Monitor service uri') do |uri|
+            opts[:monitor_uri] = URI.parse(uri)
+          end
+
+          optparser.on('--max-observer NUM',
+                       'Maximum monitor observer allowed') do |num|
+            num = num.to_i
+            if num <= 0
+              raise(OptionParser::InvalidArgument, num)
+            end
+            opts[:max_observers] = num
+          end
+
+          #
+          # Daemon options
+          #
+          optparser.separator('')
+          optparser.separator('Daemon options:')
+
+          optparser.on('-l', '--log FILENAME', 'Set the log filename') do |f|
+            opts[:logfilename] = f
+          end
+
+          levels = [:fatal, :error, :warn, :info, :debug]
+          optparser.on('-v', '--verbose LEVEL', levels,
+                       "set the log level {#{levels.join(',')}}") do |level|
+            begin
+              raise NameError if level.nil?
+              opts[:loglevel] = Logger.const_get(level.to_s.upcase.to_sym)
+            rescue NameError
+              opts[:loglevel] = DEFAULT_OPTIONS[:loglevel]
+            end
+          end
+
+          optparser.on('-w',
+                       '--workdir WORKDIR',
+                       'Set the working directory') do |dir|
+            opts[:workdir] = Pathname.new(dir)
+          end
+
+          optparser.on('-c',
+                       '--clean',
+                       'Clear the working directory cleaning') do
+            opts[:clean_workdir] = true
+          end
+
+          optparser.on('-d', '--detach', 'Detach from terminal') do
+            opts[:detach] = true
+          end
+
+          optparser.on('--rb-safe LEVEL',
+                       'Set the ruby safe level [0-4]') do |level|
+            level = level.to_i
+            if 1 <= level and level <= 4
+              opts[:rb_safe] = level
+            else
+              raise(OptionParser::InvalidArgument, level)
+            end
+          end
+
+          #
+          # Miscellaneous options
+          #
+          optparser.separator('')
+          optparser.separator('Miscellaneous options:')
+
+          optparser.on_tail('-h', '--help', 'Show this message') do
+            puts(optparser)
+            exit
+          end
+
+          optparser.on_tail('--version', 'Show version') do
+            puts("#{ME} version #{TTKD_VERSION} [#{SVN_REPOSITORY_DATE}]")
+            exit
+          end
+
+        end
+
+        optparser.parse!(argv)
+        opts
+      end
+
+    end # class TTKd
+
+  end # module Getopts
+
+end # module TTK
+

data/bin/getopts/ttkm.rb

@@ -0,0 +1,71 @@
+# Author::    Nicolas Despres  <nicolas.despres@epita.fr>.
+# Copyright:: Copyright (c) 2004 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: ttkm.rb 567 2005-04-13 08:00:06Z polrop $
+
+require 'optparse'
+require 'logger'
+require 'uri/druby'
+require 'socket'
+
+
+module TTK
+
+  module Getopts
+
+    class TTKm
+
+      DEFAULT_OPTIONS = {
+        :uri => URI::DRuby.build([Socket.gethostname, 42004]),
+      }
+
+      def self.parse(argv)
+        opts = DEFAULT_OPTIONS.dup
+        optparser = OptionParser.new do |optparser|
+
+          optparser.banner = "usage: #{ME} [options...]"
+          optparser.summary_indent = '  '
+          optparser.summary_width = 25
+
+          #
+          # Monitor options
+          #
+          optparser.separator('')
+          optparser.separator('Monitor options:')
+
+          optparser.on('-u', '--uri URI', 'Monitor server uri') do |uri|
+            opts[:uri] = URI.parse(uri)
+          end
+
+          optparser.on('-v', '--verbose', 'Turn on verbose mode') do |uri|
+            $VERBOSE = true
+          end
+
+          #
+          # Miscellaneous options
+          #
+          optparser.separator('')
+          optparser.separator('Miscellaneous options:')
+
+          optparser.on_tail('-h', '--help', 'Show this message') do
+            puts(optparser)
+            exit
+          end
+
+          optparser.on_tail('--version', 'Show version') do
+            puts("#{ME} version #{TTKM_VERSION} [#{SVN_REPOSITORY_DATE}]")
+            exit
+          end
+
+        end
+
+        optparser.parse!(argv)
+        opts
+      end
+
+    end # class TTKm
+
+  end # module Getopts
+
+end # module TTK
+

data/bin/ttk

@@ -0,0 +1,170 @@
+#!/usr/bin/env ruby
+# Author::    The TTK Team.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: ttk 575 2005-04-14 10:22:30Z polrop $
+
+
+require 'pathname'
+
+ME = Pathname.new($0).basename
+ME_DIR = Pathname.new(__FILE__).dirname
+
+$PROGRAME_NAME = ME
+$PROGRAME_NAME.freeze
+$VERBOSE = true           # you can use 'export RUBYOPT="-w"' too
+
+dir = Pathname.new(__FILE__).dirname
+$: << dir + '..' + 'lib'
+$: << dir + '..' + 'ruby_ex'
+$: << dir
+
+require 'ttk'
+require "#{ME_DIR}/getopts/ttk"
+
+begin
+  argv = ARGV.dup
+  opts = TTK::Getopts::TTK.parse(argv)
+
+  require 'profile' if opts[:profile_on]
+
+  unless opts[:no_default_observer]
+    opts[:observers] << opts[:current_dumper].new(opts[:current_output])
+  end
+
+  log_factory = TTK::LoggerFactory.new
+  log_factory.severity_level = opts[:log_severity]
+  log_factory.severity_level = ENV['TTK_DEBUG'] if ENV.has_key?('TTK_DEBUG')
+  log_factory.verbosity_level = opts[:log_verbosity]
+  log_factory.active_section = opts[:log_section]
+
+  if opts[:log_severity] <= Logger::Severity::DEBUG
+    opts[:observers] << TTK::Filters::BasicLogger.new
+  end
+
+  log = log_factory.create(*opts[:observers])
+
+  symtbl = TTK::SymTbl.new
+  symtbl[:symtbl_class] = symtbl.class
+  symtbl[:pwd] = Pathname.pwd.expand_path
+  symtbl[:loader] = opts[:current_loader].new
+  symtbl[:tester_uris] = opts[:tester_uris]
+  symtbl.freeze_key(:tester_uris)
+  symtbl[:force_fetch] = opts[:force_fetch]
+  symtbl.freeze_key(:force_fetch)
+  symtbl[:log_factory] = log_factory
+  symtbl[:log] = log
+
+  opts[:cache] ||= (opts[:cache_dir] == TempPath.tmpdir)
+  symtbl[:cache] = {} if opts[:cache]
+  symtbl[:cache_proc] = opts[:cache_proc]
+  symtbl.freeze_key(:cache_proc)
+
+  if opts[:current_input].nil?
+
+    t = TTK::Strategies::Suite.new
+    t.name = 'root'
+    t.symtbl = symtbl
+    t.wclass = opts[:wclass]
+    t.attributes = opts[:attributes]
+    t.symbols = opts[:symbols]
+    t.contents = argv
+
+    # Load the cache file if cache_dir is set.
+    if cache_dir = opts[:cache_dir]
+      cache = cache_dir + 'cache.yml'
+      t.symtbl[:use_cache] = TTK::Loaders::Yaml.new.load_doc(cache.read)
+    end
+
+    # Disable the automatic cleaning of TempPath for the cache mode.
+    if opts[:cache]
+      TempPath.auto_clean = false
+    end
+
+    # Run the root test.
+    status = t.run
+
+    # Generate the cache file.
+    if opts[:cache]
+      cache_file = TempPath.tmpdir + 'cache.yml'
+      cache = t.symtbl[:cache]
+      t.symtbl.local.delete :cache
+      cache.each do |name, test|
+        todel = [:use_cache]
+        test[:symtbl].each do |k, v|
+          if [SynFlow, SynFlowFactory].any? { |klass| v.is_a? klass }
+            todel << k
+          end
+        end
+        todel.each { |k| test[:symtbl].delete(k) }
+      end
+      cache_file.open('w') { |f| f.puts cache.to_yaml }
+    end
+
+    relaunch = TempPath.tmpdir + 'relaunch'
+
+    if opts[:cache]
+
+      # Update the argument for the cache mode
+      ARGV.delete '-C'
+      ARGV << '--cache-dir' << TempPath.tmpdir.to_s
+
+      # Generate a little helper script to use the cache mode.
+      unless relaunch.exist?
+        relaunch.open('w') do |f|
+          f.puts '#!/usr/bin/env ruby'
+          f.puts <<-rb
+            exec(#{$0.inspect}, *#{ARGV.inspect})
+          rb
+        end
+        relaunch.chmod(0500)
+      end
+
+    end
+
+    if opts[:cache]
+      log.close unless log.nil?
+    end
+
+    if opts[:cache] or opts[:cache_dir]
+      # Ask the user what to do.
+      if ask('Would you relaunch the test suite now (use the cache)', :y) == :y
+        exec relaunch.to_s
+      else
+        if ask('Would you remove the temporary dir', :y) == :y
+          TempPath.auto_clean = true
+        else
+          STDERR.puts <<-msg
+
+---
+
+            /------------------------------------------------------------------.
+            | TTK was running in cache mode to re-run the same test just type: |
+            |   #{relaunch.to_s.ljust(63)}|
+            `------------------------------------------------------------------/
+          msg
+        end
+      end
+    end
+
+    # Handle the --dump-status option.
+    STDOUT.puts status.to_yaml if opts[:dump_status]
+  else
+    symtbl[:loader].load_doc(opts[:current_input]).to_ttk_log(log)
+  end
+
+rescue => exc
+
+  TempPath.auto_clean = true
+  Thread.critical = true
+  unless exc.is_a?(OptionParser::ParseError)
+    raise if log.nil? or log.severity_level < TTK::Logger::Severity::WARN
+  end
+  STDERR << "#{ME}: #{exc}\n"
+  exit(1)
+
+ensure
+
+  log.close unless log.nil?
+
+end

data/bin/ttkd

@@ -0,0 +1,73 @@
+#!/usr/bin/env ruby
+# Author::    Nicolas Despres  <nicolas.despres@gmail.com>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: ttkd 567 2005-04-13 08:00:06Z polrop $
+
+
+require 'pathname'
+
+ME = Pathname.new($0).basename
+ME_DIR = Pathname.new(__FILE__).dirname
+
+$PROGRAME_NAME = ME
+$PROGRAME_NAME.freeze
+
+dir = Pathname.new(__FILE__).dirname
+$: << dir + '..' + 'lib'
+$: << dir + '..' + 'ruby_ex'
+$: << dir
+
+require 'ttkd'
+require "#{ME_DIR}/getopts/ttkd"
+
+
+SVN_REPOSITORY_REVISION = '$Rev: 567 $'.gsub!(/\D/, '').to_i
+SVN_REPOSITORY_DATE = '$Date: 2005-04-13 10:00:06 +0200 (Wed, 13 Apr 2005) $'.sub!(/^.*?\((.*?)\).*?$/) { $1 }
+TTKD_VERSION = Version.new(0, 1, SVN_REPOSITORY_REVISION)
+
+
+begin
+  opts = TTK::Getopts::TTKd.parse(ARGV)
+
+  $VERBOSE = true if opts[:loglevel] < Logger::INFO
+
+  unless daemon_class = ARGV.shift
+    puts('Daemon list:')
+    TTK::Daemons.constants.sort!.each { |d| puts("  - #{d}") }
+    exit
+  end
+
+  if TTK::Daemons.constants.include?(daemon_class)
+    daemon_class = TTK::Daemons.const_get(daemon_class)
+  else
+    raise(ArgumentError, "`#{daemon_class}' - not a valid daemon class")
+  end
+
+  if opts[:logfilename] == '-'
+    LOG = TTK::Daemons::Daemon::Logger.new(STDERR)
+  else
+    LOG = TTK::Daemons::Daemon::Logger.new(opts[:logfilename])
+  end
+  LOG.level = opts[:loglevel]
+  LOG.debug("SRC_DIR: #{TTK::SRC_DIR}")
+  LOG.debug("options: #{opts.inspect}")
+  LOG.debug("argv: #{ARGV.inspect}")
+
+  daemon = daemon_class.instance
+  daemon.logger = LOG
+  daemon.config = nil
+  daemon.workdir = opts[:workdir]
+  daemon.clean_workdir if opts[:clean_workdir]
+  daemon.detach if opts[:detach]
+  daemon.start_daemon(opts, ARGV)
+  $SAFE = opts[:rb_safe]
+  daemon.join_services
+
+rescue => exc
+  TempPath.auto_clean = true
+  STDERR.puts($VERBOSE ? exc.long_pp : exc.short_pp)
+  exit(1)
+ensure
+  daemon.stop_daemon if daemon
+end