ttk 0.1.576

data/lib/ttk/strategies/Test.rb

@@ -0,0 +1,88 @@
+# Author::    Nicolas Despres  <nicolas.despres@gmail.com>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: Test.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+require 'yaml'
+require 'diff'
+
+
+module TTK
+
+  module Strategies
+
+    # A strategy to test them all.
+    class Test < Proxy
+      include Concrete
+
+      #FIXME: add support to test filter
+
+      def initialize(*a, &b)
+        super
+        @outfile = nil
+      end
+
+      protected
+      def prologue
+        super
+        @outfile = TempPath.new
+        create(@test)
+      end
+
+      protected
+      def run_impl_test(test, log)
+        my_log = nil
+        @outfile.open('w') do |io|
+          my_log = Logger.new(Dumpers::Yaml.new(io))
+          @returned_status = super(test, my_log)
+          my_log.close if my_log
+        end
+        @returned_status
+      end
+
+      protected
+      def assertion
+        returned_log = nil
+        @outfile.open { |io| returned_log = YAML.load(io) }
+        unless returned_log.is_a?(Hash) or returned_log.is_a?(Array)
+          raise('the result must be either a hash or an array')
+        end
+        del_ignored_value(returned_log)
+        del_ignored_value(@expected_log)
+        diff = @expected_log.gen_diff(returned_log) {|a, b| a.to_s == b.to_s}
+        if diff.no_diff?
+          pass
+        else
+          @log[:differences] = diff
+          fail('there is differences')
+        end
+        super
+      end
+
+      protected
+      def epilogue
+        @outfile.clean if @outfile
+        super
+      end
+
+      protected
+      def del_ignored_value(hash)
+        hash.delete_if {|k, _| @ignored_value.include?(k.to_s)}
+      end
+
+      attribute :test,            'the test to test',
+                                  :mandatory, :dont_expand
+      attribute :expected_status, 'the expected status',
+                                  :mandatory
+      attribute :expected_log,    'the expected log result',
+                                  :mandatory, :invisible
+      attribute :ignored_value,   'the list of attributes for which the ' +
+                                  'value is not compared',
+                                  [], :invisible do [] end
+
+    end # class Test
+
+  end # module Strategies
+
+end # module TTK

data/lib/ttk/strategies/Tester.rb

@@ -0,0 +1,59 @@
+# Author::    Nicolas Despres  <nicolas.despres@gmail.com>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: Tester.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+require 'ttkd'
+
+
+module TTK
+
+  module Strategies
+
+    class Tester < DistStrategy
+      include Concrete
+      include ServiceManager
+
+      def tester_uris=(other)
+        if other.nil?
+          @tester_uris = nil
+        else
+          @tester_uris = []
+          other.each { |uri| @tester_uris << URI.parse(uri.to_s) }
+        end
+      end
+
+      protected
+      def prologue
+        super
+        @tester_uris ||= @symtbl[:tester_uris]
+        @tester_uris ||= []
+        service = Services::TesterClient.new
+        start_service(service, nil, @tester_uris, @local_tester)
+        @tester = service.master
+        create(@test)
+      end
+
+      protected
+      def epilogue
+        stop_services
+        super
+      end
+
+
+      attribute :tester_uris,          'Attach remote testers',
+                                       nil,
+                                       :invisible
+      attribute :local_tester,         'Attach a local slave tester',
+                                       false,
+                                       :invisible
+      attribute :test,                 'The test strategy to run',
+                                       :mandatory, :invisible, :dont_expand
+
+    end # class Tester
+
+  end # module Strategies
+
+end # module TTK
+

data/lib/ttk/symtbl.rb

@@ -0,0 +1,115 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: symtbl.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+require 'symtbl'
+
+
+module TTK
+
+  class SymTbl < SymTbl
+    include Mutex_m
+
+    def initialize ( father_env=nil, default=nil )
+      @frozen_keys = []
+      super
+    end
+
+    def [] ( aKey )
+      super
+    end
+
+    def []= ( k, v )
+      if frozen_key?(k)
+        raise(TypeError, 'can\'t modify frozen key')
+      else
+        super
+      end
+    end
+
+    def frozen_key? ( k )
+      @local.has_key?(k) and @frozen_keys.include?(k)
+    end
+
+    def freeze_key ( k )
+      unless frozen_key?(k)
+        @frozen_keys << k
+        self[k].freeze
+      end
+    end
+
+  end # class SymTbl
+
+end # module TTK
+
+class Object
+  def symtbl_gsub ( symtbl )
+    nil
+  end
+
+  def do_symtbl_gsub ( symtbl )
+    result = symtbl_gsub(symtbl)
+    return (result.nil?)? self : result
+  end
+end
+
+class Hash
+  def symtbl_gsub ( symtbl )
+    changed = false
+    res = self.class.new
+    each do |k,v|
+      new_k = k.symtbl_gsub(symtbl)
+      new_v = v.symtbl_gsub(symtbl)
+      changed = true if new_k or new_v
+      res[new_k || k] = (new_v || v)
+    end
+    changed ? res : nil
+  end
+end
+
+class Array
+  def symtbl_gsub ( symtbl )
+    changed = false
+    res = self.class.new
+    each do |e|
+      changed = true if new_e = e.symtbl_gsub(symtbl)
+      res << (new_e || e)
+    end
+    changed ? res : nil
+  end
+end
+
+class SymTbl
+  def symtbl_gsub ( symtbl )
+    nil
+  end
+end
+
+class Pathname
+  def symtbl_gsub ( symtbl )
+    res = to_s.symtbl_gsub(symtbl)
+    return self.class.new(res) unless res.nil?
+  end
+end
+
+class Regexp
+  def symtbl_gsub ( symtbl )
+    res = source.symtbl_gsub(symtbl)
+    return self.class.new(res) unless res.nil?
+  end
+end
+
+class Symbol
+  def symtbl_gsub ( symtbl )
+    res = to_s.symtbl_gsub(symtbl)
+    return res.to_sym unless res.nil?
+  end
+end
+
+class String
+  def symtbl_gsub ( symtbl )
+    return gsub(/<<(.*?)>>/) { symtbl[$1.to_sym] || $& } if self =~ /<<(.*)>>/
+  end
+end

data/lib/ttk/testers/Master.rb

@@ -0,0 +1,69 @@
+# Author::    Nicolas Despres  <nicolas.despres@gmail.com>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: Master.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+module TTK
+
+  module Testers
+
+    class Master < Tester
+      include Concrete
+
+      def initialize(service, name, sub_testers)
+        super(service, name)
+        @sub_testers = sub_testers
+      end
+
+      def select_tester(&block)
+        query_node = super(&block)
+        self.sub_testers.each do |uri, sub_tester|
+          sub_query_node = sub_tester.select_tester(&block)
+          unless sub_query_node.nil?
+            if query_node.nil?
+              query_node = QueryNode.new(@service.uri,
+                                         @config[:tester_name],
+                                         @config[:tester_type])
+            end
+            query_node << sub_query_node
+          end
+        end
+        query_node
+      end
+
+      def query_tester(query_node)
+        super
+        sub_testers = self.sub_testers
+        query_node.each do |sub_query_node|
+          sub_tester = sub_testers[sub_query_node.uri]
+          sub_tester.query_tester(sub_query_node) if sub_tester
+        end
+        nil
+      end
+
+      def dynamic_select(&block)
+        #FIXME: manage concurrency
+        scores = self.sub_testers.map do |uri, sub_tester|
+          sub_tester.dynamic_select(&block)
+        end
+        best = scores.max
+        wrap(best.tester)
+        best
+      end
+
+      def sub_testers
+        @sub_testers.synchronize { @sub_testers.dup }
+      end
+
+      protected
+      def wrap(obj)
+        DRb::DRbObject.new(obj)
+      end
+
+    end # class Master
+
+  end # module Testers
+
+end # module TTK
+

data/lib/ttk/testers/Slave.rb

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

data/lib/ttk/testers/Tester.rb

@@ -0,0 +1,134 @@
+# Author::    Nicolas Despres  <nicolas.despres@gmail.com>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: Tester.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+module TTK
+
+  module Testers
+
+    class Tester
+      include Abstract
+      include DRb::DRbUndumped
+
+      require 'ttk/testers/tester/query_node'
+      require 'ttk/testers/tester/config'
+      require 'ttk/testers/tester/notifier'
+      require 'ttk/testers/tester/remote_status'
+      require 'ttk/testers/tester/score'
+      require 'ttk/testers/tester/running_task'
+
+      TESTER_VERSION = Version.new(0, 1, '$Rev: 557 $'.gsub!(/\D/, '').to_i)
+
+      module Notification
+
+        START_STRATEGY = :start_strategy
+        STOP_STRATEGY = :stop_strategy
+
+      end # module Notification
+
+      def initialize(service, name)
+        @service = service
+        initialize_config(name)
+        @notifier = Notifier.new
+        @notifier.add_observer(@service)
+        @tasks = RunningTask.new
+      end
+
+      attr_reader :config
+
+      def uri
+        @service.uri
+      end
+
+      # Return a query node if the block return true.
+      def select_tester(&block)
+        if block[@service.uri, @config]
+          QueryNode.new(@service.uri,
+                        @config[:tester_name],
+                        @config[:tester_type])
+        end
+      end
+
+      # Run the query on this tester.
+      def query_tester(query_node)
+        query_node.run(self)
+        nil
+      end
+
+      # Load a strategy using the loader in the symtbl and run it.
+      def run_strategy(test, symtbl)
+        @notifier.changed
+        @notifier.notify_observers(Notification::START_STRATEGY, test)
+        saver = Filters::Saver.new
+        log = symtbl[:log_factory].create(saver)
+        test.symtbl = symtbl[:symtbl_class].new(symtbl)
+        prologue_test(test, log)
+        status = run_impl_test(test, log)
+        epilogue_test(test, log)
+        @notifier.changed
+        @notifier.notify_observers(Notification::STOP_STRATEGY, test, status)
+        RemoteStatus.new(status, saver)
+      end
+
+      # List all requests available on this tester.
+      def requests
+        o = Tester.superclass.new
+        public_methods.select do |meth|
+          not (o.respond_to?(meth) or meth.to_s =~ /^_/)
+        end
+      end
+
+      # Dynamically select a tester.
+      def dynamic_select(&block)
+        score = block[@service.uri, { :nb_jobs => @tasks.size } ]
+        Score.new(score, (score <= 0) ? nil : self)
+      end
+
+      # Abort a running test. The identifier of a running test is the hash key
+      # of the test: test.hash.
+      def abort(test_id)
+        Thread.new do
+          @tasks.abort(test_id)
+        end
+      end
+
+      # Initialize the tester configuration based on rbconfig.
+      protected
+      def initialize_config(name)
+        extra_config = {
+          :tester_name => name,
+          :tester_type => self.class.to_s.sub!(/^.*:/, ''),
+          :tester_hostname => Socket.gethostname,
+          :tester_version => TESTER_VERSION
+        }
+        @config = Config.new(extra_config)
+      end
+
+
+      # Do some tasks before a test of the composite is run.
+      protected
+      def prologue_test ( test, log )
+        test.symtbl[:tester] = self
+        @tasks[test.hash] = test
+      end
+
+      # Do some tasks at the moment where a test of the composite is run.
+      protected
+      def run_impl_test ( test, log )
+        test.run(log)
+      end
+
+      # Do some tasks after a test of the composite has been run.
+      protected
+      def epilogue_test ( test, log )
+        @tasks.delete(test.hash)
+      end
+
+    end # class Tester
+
+  end # module Testers
+
+end # module TTK
+