uttk 0.3.1.2

data/lib/uttk/logger/to_uttk_log.rb

@@ -0,0 +1,127 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2004, 2005 Uttk team. All rights reserved.
+# License::   LGPL
+# $Id: /fey/uttk/trunk/lib/uttk/logger/to_uttk_log.rb 8779 2005-09-26T05:57:23.628040Z ertai  $
+
+
+module Uttk
+
+  class Logger
+
+    # These extensions add to any object, a proper way
+    # to inject an object in a result like Logger.
+    #
+    # Example:
+    #
+    # include Uttk
+    # anObject.to_uttk_log(Logger.new(Dumper::Yaml.new(STDERR)))
+    #
+    module ToUttkLog
+
+      class ::Object
+
+        def to_uttk_log ( log )
+          log.new_leaf(self)
+        end
+
+        def to_uttk_log_with_key ( key, log )
+          log.new_node key do
+            log << self
+          end
+        end
+
+      end # class ::Object
+
+
+      class ::Hash
+
+        def to_uttk_log ( log )
+          each do |k, v|
+            next if k == :strategy
+            log[k] = v
+          end
+        end
+
+        def to_uttk_log_with_key ( key, log, opts=nil )
+          if has_key? :strategy
+            opts = (opts || {}).merge(:type => self[:strategy])
+          end
+          log.new_node key, opts do
+            log << self
+          end
+        end
+
+      end # class ::Hash
+
+
+      class ::OHash < ::Hash
+
+        def to_uttk_log_with_key ( key, log )
+          super key, log, :ordered => true
+        end
+
+      end # class ::OHash
+
+
+      class ::Array
+
+        # WARNING: Do not implement Array#to_uttk_log it doesn't make sense.
+
+        def to_uttk_log_with_key ( key, log )
+          unless ! empty? and all? { |x| x.is_a? Hash and x.size == 1 }
+            return super
+          end
+
+          log.new_node key, :ordered => true do
+            each do |x|
+              k, v = x.to_a.first
+              log[k] = v
+            end
+          end
+        end
+
+      end # class ::Array
+
+
+      class ::Exception
+
+        def to_uttk_log ( log )
+          if log.severity_level <= Severity::DEBUG
+            long_pp.to_uttk_log(log)
+          elsif log.severity_level <= Severity::VERBOSE_INFO
+            short_pp.to_uttk_log(log)
+          else
+            tiny_pp.to_uttk_log(log)
+          end
+        end
+
+      end # class ::Exception
+
+
+      class ::Benchmark::Tms
+
+        def to_uttk_log ( log )
+          if @label.empty?
+            benchmark_tms_to_uttk_log(log)
+          else
+            log.new_node(@label) { benchmark_tms_to_uttk_log(log) }
+          end
+        end
+
+        def benchmark_tms_to_uttk_log(log)
+          log[:cutime] = @cutime
+          log[:cstime] = @cstime
+          log[:utime] = @utime
+          log[:stime] = @stime
+          log[:total] = @total
+          log[:real] = @real
+        end
+        private :benchmark_tms_to_uttk_log
+
+      end # class ::Benchmark::Tms
+
+    end # module ToUttkLog
+
+  end # class Logger
+
+end # module Uttk

data/lib/uttk/logger/verbosity.rb

@@ -0,0 +1,61 @@
+# Author::    Nicolas Despres  <nicolas.despres@gmail.com>.
+# Copyright:: Copyright (c) 2004, 2005 Uttk team. All rights reserved.
+# License::   LGPL
+# $Id: /fey/uttk/trunk/lib/uttk/logger/verbosity.rb 8778 2005-09-26T04:34:48.103938Z ertai  $
+
+
+#FIXME: manage "attr_once"
+
+module Uttk
+
+  class Logger
+
+    class Verbosity
+
+      @@level_fields = []
+      @@higher_level = 0
+
+      def self.higher_level
+        @@higher_level
+      end
+
+      def self.verbosity(meth, level)
+        unless method_defined?(meth)
+          raise(ArgumentError, "`#{meth}' - is not an instance method")
+        end
+        if level <= 0
+          raise(ArgumentError,
+                "`#{level}' - verbosity level must be strictly positive")
+        end
+        @@higher_level = level if level > @@higher_level
+        @@level_fields[level] ||= []
+        @@level_fields[level] << meth
+      end
+
+      def self.level_fields(level)
+        @@level_fields[level] ||= []
+        @@level_fields[level]
+      end
+
+      def severity_level(severity_level, section_names)
+        Severity.label(severity_level)
+      end
+      verbosity :severity_level, 1
+
+      def sections(severity_level, section_names)
+        section_names
+      end
+      verbosity :sections, 2
+
+      def date(severity_level, section_names)
+        Time.now
+      end
+      verbosity :date, 3
+
+    end # Verbosity
+
+  end # class Logger
+
+end # module Uttk
+
+

data/lib/uttk/logger_factory.rb

@@ -0,0 +1,55 @@
+# Author::    Nicolas Despres  <nicolas.despres@gmail.com>.
+# Copyright:: Copyright (c) 2004, 2005 Uttk team. All rights reserved.
+# License::   LGPL
+# $Id: /fey/uttk/trunk/lib/uttk/logger_factory.rb 8778 2005-09-26T04:34:48.103938Z ertai  $
+
+
+module Uttk
+
+  class LoggerFactory
+
+    def initialize
+      @section_tree = create_section_tree
+      @severity_level = Logger::Severity::DEBUG
+      @verbosity = Logger::Verbosity.new
+      @verbosity_level = 0
+      @active_section = []
+    end
+
+    attr_accessor :verbosity_level
+
+    attr_accessor :severity_level
+
+    attr_accessor :active_section
+
+    attr_accessor :section_tree
+
+    def create(*a, &b)
+      log = Logger.new(*a, &b)
+      log.severity_level = @severity_level
+      log.verbosity_level = @verbosity_level
+      log.section_tree = @section_tree
+      log.active_section(true, *@active_section)
+      log
+    end
+
+    #FIXME: move in another place, in order to separate the Logger from Uttk.
+    #FIXME: follow the strategy hierarchy without loading all the classes
+    private
+    def create_section_tree
+      tree = Logger::SectionNode.new('all')
+      [ 'strategies' ].each do |dir|
+        dir_node = Logger::SectionNode.new(dir)
+        tree << dir_node
+        (Uttk.dir + dir).each_entry do |p|
+          if p.to_s =~ /^(\w+)\.rb$/
+            dir_node << Logger::SectionNode.new($1)
+          end
+        end
+      end
+      tree
+    end
+
+  end # class LoggerFactory
+
+end # module Uttk

data/lib/uttk/path_filters/ColorStatus.rb

@@ -0,0 +1,57 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2005 Uttk Team. All rights reserved.
+# License::   LGPL
+# Revision::  $Id: /w/fey/uttk/trunk/lib/uttk/path_filters/ColorStatus.rb 21844 2006-02-17T17:26:59.771162Z pouillar  $
+
+class StyledString < String
+  def to_yaml ( opts={} )
+    to_s
+  end
+  def to_s
+    self
+  end
+end
+
+module Uttk
+
+  module PathFilters
+
+    class ColorStatus < PathFilter
+      include Concrete
+
+      def initialize ( *a, &b )
+        raise "HighLine is unavailable" unless defined? HighLine
+        @h = HighLine.new
+        super
+      end
+
+      STYLE =
+      {
+        :PASS  => [:green],
+        :FAIL  => [:red],
+        :ABORT => [:magenta],
+        :SKIP  => [:yellow],
+        :ERROR => [:bold, :red]
+      }
+      STYLE.default = []
+
+      def color ( str )
+        if str =~ /^([A-Z]+)(\(.*\))?$/
+          node = StyledString.new(@h.color(str, *STYLE[$1.to_sym]).to_s)
+        else
+          str
+        end
+      end
+
+      def filter ( path, leaf )
+        if (leaf.is_a? Symbol or leaf.is_a? String) and not leaf.to_s.empty?
+          leaf = color(leaf.to_s)
+        end
+        [path, leaf]
+      end
+
+    end # class ColorStatus
+
+  end # module PathFilters
+
+end # module Uttk

data/lib/uttk/path_filters/PathFilter.rb

@@ -0,0 +1,27 @@
+# Copyright:: Copyright (c) 2005  Uttk Team. All rights reserved.
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# License::   LGPL
+# Revision::  $Id: /w/fey/uttk/trunk/lib/uttk/path_filters/PathFilter.rb 21975 2006-02-19T22:24:11.182512Z pouillar  $
+
+module Uttk
+
+  module PathFilters
+
+    class PathFilter < Filters::Filter
+      include Abstract
+
+      def filter ( path, node )
+        raise NotImplementedError
+      end
+
+      def update ( msg, *args )
+        args = filter(*args) if msg == :new_leaf
+        notif msg, *args
+      end
+
+    end # class PathFilter
+
+  end # module PathFilters
+
+end # module Uttk
+

data/lib/uttk/path_filters/RemoveTypes.rb

@@ -0,0 +1,25 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2005 Uttk Team. All rights reserved.
+# License::   LGPL
+# Revision::  $Id: /w/fey/uttk/trunk/lib/uttk/path_filters/RemoveTypes.rb 21844 2006-02-17T17:26:59.771162Z pouillar  $
+
+
+module Uttk
+
+  module PathFilters
+
+    class RemoveTypes < PathFilter
+      include Concrete
+
+      def filter ( path, leaf )
+        path.each do |seg|
+          seg.options.delete :type
+        end
+        [path, leaf]
+      end
+
+    end # class RemoveTypes
+
+  end # module PathFilters
+
+end # module Uttk

data/lib/uttk/status.rb

@@ -0,0 +1,146 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2004, 2005 Uttk team. All rights reserved.
+# License::   LGPL
+# $Id: /fey/uttk/trunk/lib/uttk/status.rb 8800 2005-10-09T11:12:27.126567Z ertai  $
+
+
+module Uttk
+
+  class Status < UttkException
+    include Abstract
+
+    def self.default_weight ( aSymbol )
+      self.default_weight_value = Weights::Default.new(aSymbol)
+    end
+
+    def self.status_name
+      name.sub(/^.*?(\w+)Status$/, '\1').upcase.to_sym
+    end
+
+    def self.hook_name
+      (status_name.to_s.downcase + '_hook').to_sym
+    end
+
+
+    attr_accessor :weight, :reason
+    class_inheritable_accessor :default_weight_value
+    class_inheritable_accessor :default_reason
+    self.default_reason = nil
+    default_weight :FAIL
+
+
+    def initialize ( anObject=nil )
+      super()
+      @reason = anObject || default_reason
+      @weight = default_weight_value
+    end
+
+    def to_uttk_log ( log )
+      log.status = self.to_s
+      log.reason = @reason unless @reason.nil?
+    end
+
+    def hook_name
+      self.class.hook_name
+    end
+
+    def to_s
+      res = self.class.status_name.to_s
+      if @weight != default_weight_value
+        res += "(#{@weight.get})"
+      end
+      res
+    end
+
+    def pass?
+      false
+    end
+
+  end # class Status
+
+
+
+  class PassStatus < Status
+    include Concrete
+    default_weight :PASS
+    def pass?
+      true
+    end
+  end
+
+
+
+  class SkipStatus < Status
+    include Concrete
+    def initialize ( aWeight=nil, anObject=nil )
+      super(anObject)
+      @weight = aWeight unless aWeight.nil?
+    end
+  end
+
+
+
+  class ErrorStatus < Status
+    include Concrete
+  end
+
+
+
+  class AbortStatus < Status
+    include Concrete
+  end # class AbortStatus
+
+
+
+  class TimeoutAbortStatus < AbortStatus
+
+    attr_reader :timeout_id
+
+    @@timeout_id ||= -1
+
+    def initialize ( *a, &b )
+      @timeout_id = (@@timeout_id += 1)
+      super
+    end
+
+    def == ( rhs )
+      rhs.class <= self.class and @timeout_id == rhs.timeout_id
+    end
+
+    def self.status_name
+      :ABORT
+    end
+
+  end # class TimeoutAbortStatus
+
+
+
+  class StartStatus < Status
+    include Concrete
+    default_weight :START
+  end
+
+
+
+  class RunningStatus < Status
+    include Concrete
+    default_weight :FAIL
+  end
+
+
+
+  class FailStatus < Status
+    include Concrete
+
+    def initialize ( aWeight=nil, anObject=nil )
+      super(anObject)
+      @weight = aWeight unless aWeight.nil?
+    end
+
+    def hook_name
+      :failed_hook
+    end
+
+  end # class FailStatus
+
+end # module Uttk