ttk 0.1.576

data/lib/ttk/testers/tester/config.rb

@@ -0,0 +1,65 @@
+# Author::    Nicolas Despres  <nicolas.despres@gmail.com>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: config.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+require 'rbconfig'
+
+
+module TTK
+
+  module Testers
+
+    class Tester
+
+      class Config
+        include DRb::DRbUndumped
+
+        def initialize(extra_config)
+          @config = {}
+          extra_config.each do |k, v|
+            unless ::Config::CONFIG.has_key?(k)
+              @config[k] = v.dup.freeze
+            else
+              @config[k] = ::Config::CONFIG[key.to_s].dup.freeze
+            end
+          end
+        end
+
+        def [](key)
+          if ::Config::CONFIG.has_key?(key.to_s)
+            @config[key] = ::Config::CONFIG[key.to_s].dup.freeze
+          else
+            @config[key]
+          end
+        end
+
+        def has_key?(key)
+          (@config.has_key?(key) or ::Config::CONFIG.has_key?(key.to_s))
+        end
+
+        def keys
+          @config.keys
+        end
+
+        def values
+          @config.values
+        end
+
+        def dup
+          @config.dup
+        end
+
+        def clone
+          @config.clone
+        end
+
+      end # class Config
+
+    end # class Tester
+
+  end # module Testers
+
+end # module TTK
+

data/lib/ttk/testers/tester/notifier.rb

@@ -0,0 +1,24 @@
+# Author::    Nicolas Despres  <nicolas.despres@gmail.com>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: notifier.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+module TTK
+
+  module Testers
+
+    class Tester
+
+      class Notifier
+        include Observable
+
+      end # class Notifier
+
+    end # class Tester
+
+  end # module Testers
+
+end # module TTK
+
+

data/lib/ttk/testers/tester/query_node.rb

@@ -0,0 +1,91 @@
+# Author::    Nicolas Despres  <nicolas.despres@gmail.com>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: query_node.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+require 'node'
+
+
+module TTK
+
+  module Testers
+
+    class Tester
+
+      class QueryNode < Node
+
+        def initialize(uri, name, type, *sub_nodes)
+          super(nil, *sub_nodes)
+          @uri = uri
+          @tester_name = name
+          @tester_type = type
+          @query = nil
+          @args = []
+          @block = nil
+          @result = nil
+          @run = false
+          @failed = false
+        end
+
+        attr_reader :uri, :result, :query, :args, :block
+
+        def run(tester)
+          begin
+            if tester.requests.include?(@query)
+              @run = true
+              @result = tester.send(@query, *@args, &@block)
+            end
+          rescue Exception => exc
+            @result = exc
+            @failed = true
+          end
+        end
+
+        def run?
+          @run
+        end
+
+        def failed?
+          @failed
+        end
+
+        def set_query(query, *args, &block)
+          @query = query
+          @args = args
+          @block = block
+        end
+
+        def to_ttk_log(result, summary, min=0, max=0)
+          desc = "#@tester_name [#@tester_type] {#{@uri.host}:#{@uri.port}}"
+          result.new_node(desc) do
+            if @run
+              unless @failed or @result.nil?
+                summary += @result[:summary]
+                max += [@result[:test].weight, 0].max
+                min += [@result[:test].weight, 0].min
+                @result[:result].repeat(result)
+              end
+            end
+            unless @sub_nodes.empty?
+              result.new_node(:sub_results) do
+                @sub_nodes.each do |sub_node|
+                  r = sub_node.to_ttk_log(result, summary, min, max)
+                  summary += r[0]
+                  min += r[1]
+                  max += r[2]
+                end
+              end
+            end
+          end
+          [summary, min, max]
+        end
+
+      end # class QueryNode
+
+    end # class Tester
+
+  end # module Testers
+
+end # module TTK
+

data/lib/ttk/testers/tester/remote_status.rb

@@ -0,0 +1,29 @@
+# Author::    Nicolas Despres  <nicolas.despres@gmail.com>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: remote_status.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+module TTK
+
+  module Testers
+
+    class Tester
+
+      class RemoteStatus
+
+        def initialize(status, saved_log)
+          @status = status
+          @saved_log = saved_log
+        end
+
+        attr_reader :status, :saved_log
+
+      end # RemoteStatus
+
+    end # class Tester
+
+  end # module Testers
+
+end # module TTK
+

data/lib/ttk/testers/tester/running_task.rb

@@ -0,0 +1,47 @@
+# Author::    Nicolas Despres  <nicolas.despres@gmail.com>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: running_task.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+module TTK
+
+  module Testers
+
+    class Tester
+
+      class RunningTask
+
+        def initialize
+          @mutex = Mutex.new
+          @hash = {}
+        end
+
+        def []=(key, val)
+          @mutex.synchronize { @hash[key] = val }
+        end
+
+        def delete(key)
+          @mutex.synchronize { @hash.delete(key) }
+        end
+
+        def size
+          @mutex.synchronize { @hash.size }
+        end
+
+        alias length size
+
+        def abort(key)
+          @mutex.synchronize do
+            @hash[key].abort if @hash.has_key?(key)
+          end
+        end
+
+      end # class RunningTask
+
+    end # class Tester
+
+  end # module Testers
+
+end # module TTK
+

data/lib/ttk/testers/tester/score.rb

@@ -0,0 +1,34 @@
+# Author::    Nicolas Despres  <nicolas.despres@gmail.com>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: score.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+module TTK
+
+  module Testers
+
+    class Tester
+
+      class Score
+        include Comparable
+
+        def initialize(score, tester)
+          @score = score
+          @tester = tester
+        end
+
+        attr_reader :score, :tester
+
+        def <=>(rhs)
+          @score <=> rhs.score
+        end
+
+      end # class Score
+
+    end # class Tester
+
+  end # module Testers
+
+end # module TTK
+

data/lib/ttk/weights/WExpr.rb

@@ -0,0 +1,68 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: WExpr.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+module TTK
+
+  module Weights
+
+    class WExpr < Weight
+
+      attr_accessor :expr
+
+      def initialize ( aFloat, min=0, max=1, expr=nil )
+        super(aFloat, min, max)
+        @expr = expr || "#{to_f}[#@min, #@max]"
+      end
+
+      def + ( rhs )
+        x = super
+        x.expr = "(#{@expr} + #{rhs.to_s})[#{x.min}, #{x.max}]"
+        x
+      end
+
+      def * ( rhs )
+        x = super
+        x.expr = "(#{to_s} * #{rhs.to_s})[#{x.min}, #{x.max}]"
+        x
+      end
+
+
+      def normalize ( weight )
+        diff = @max - @min
+        if diff.zero?
+          if @max.zero? and weight.zero?
+            self.class.new(:PASS)
+          else
+            self.class.new(:FAIL)
+          end
+        else
+          self.class.new((self - @min) / diff, 0, 1,
+                      "((#{to_s} - #{min.to_s}) / (#{max.to_s} - #{min.to_s}))")
+        end
+      end
+
+
+      def get
+        @expr + " == #{to_f.to_s} == #{(to_f * 100).floor}%"
+      end
+
+      def to_s
+        @expr
+      end
+
+      def to_yaml ( opts={} )
+        if opts[:ttk]
+          to_f.to_yaml(opts)
+        else
+          super
+        end
+      end
+
+    end # class WExpr
+
+  end # module Weights
+
+end # module TTK

data/lib/ttk/weights/WFloat.rb

@@ -0,0 +1,23 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: WFloat.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+module TTK
+
+  module Weights
+
+    class WFloat < Weight
+
+      def get
+        return to_f if nan?
+        (to_f * 100).floor.to_s + '%'
+      end
+
+    end # class WFloat
+
+  end # module Weights
+
+end # module TTK
+

data/lib/ttk/weights/WMin.rb

@@ -0,0 +1,22 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: WMin.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+module TTK
+
+  module Weights
+
+    class WMin < WFloat
+
+      def normalize ( weight )
+        (to_f == @max) ? self.class.new(:PASS) : self.class.new(:FAIL)
+      end
+
+    end # class WMin
+
+  end # module Weights
+
+end # module TTK
+

data/lib/ttk/weights/Weight.rb

@@ -0,0 +1,85 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: Weight.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+require 'delegate'
+
+module TTK
+
+  # FIXME: explain here how to write a new weight computation
+  module Weights
+
+    # FIXME: document me
+    class Weight < DelegateClass(Float)
+
+      attr_reader :min, :max
+
+      def initialize ( aFloat, min=0, max=1 )
+        if BASE.has_key? aFloat
+          aFloat, min, max = BASE[aFloat]
+        end
+        aFloat = aFloat.to_f
+        super(aFloat)
+        @min, @max = min, max
+        unless @min <= aFloat or aFloat <= @max
+          raise ArgumentError, "#@min <= #{aFloat} <= #@max"
+        end
+      end
+
+      BASE =
+      {
+        :START => [0, 0, 0],
+        :PASS  => [1, 0, 1],
+        :FAIL  => [0, 0, 1]
+      }.freeze.each_value { |x| x.freeze }
+
+      def start?
+        [self, @max, @min].all? { |x| x.zero? }
+      end
+
+      def pass?
+        ! zero? and to_f == @max
+      end
+
+      def fail?
+        to_f != @max
+      end
+
+      def + ( rhs )
+        rhs = self.class.new(rhs) unless rhs.is_a? Weight
+        self.class.new(to_f + rhs.to_f, @min + rhs.min, @max + rhs.max)
+      end
+
+      def * ( rhs )
+        f = rhs.to_f
+        a, b, c = to_f * f, @min * f, @max * f
+        b, c = c, b if f < 0
+        self.class.new(a, b, c)
+      end
+
+      def normalize ( weight )
+        diff = @max - @min
+        if diff.zero?
+          if @max.zero? and weight.zero?
+            self.class.new(:PASS)
+          else
+            self.class.new(:FAIL)
+          end
+        else
+          self.class.new((self - @min) / diff, 0, 1)
+        end
+      end
+
+      alias :get :to_f
+
+      def long_get
+        "#{get}[#@min, #@max]"
+      end
+
+    end # class Weight
+
+  end # module Weights
+
+end # module TTK