ttk 0.1.576

data/lib/ttk/services/DRbService.rb

@@ -0,0 +1,45 @@
+# Author::    Nicolas Despres  <nicolas.despres@gmail.com>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: DRbService.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+module TTK
+
+  module Services
+
+    class DRbService < DRb::DRbService
+      include Observable
+
+      require 'ttk/services/DRbService/sub_testable'
+
+      module Notification
+
+        START = :service_start
+        STOP  = :service_stop
+
+      end # module Notification
+
+      def start_service(uri)
+        super
+        changed
+        notify_observers(Notification::START, @uri.to_s)
+      end
+
+      def stop_service
+        super
+        changed
+        notify_observers(Notification::STOP, @uri.to_s)
+      end
+
+      def update(*args, &block)
+        changed
+        notify_observers(*args, &block)
+      end
+
+    end # class DRbService
+
+  end # module Services
+
+end # module TTK
+

data/lib/ttk/services/DRbService/sub_testable.rb

@@ -0,0 +1,41 @@
+# Author::    Nicolas Despres  <nicolas.despres@gmail.com>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: sub_testable.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+module TTK
+
+  module Services
+
+    class DRbService < DRb::DRbService
+
+      module SubTestable
+
+        def sub_testable_initialize
+          @sub_testers = {}
+          @sub_testers.extend(Mutex_m)
+        end
+
+        def sub_testable_set(sub_tester_uris)
+          @sub_testers.clear
+          sub_tester_uris.each do |sub_tester_uri|
+          @sub_testers[sub_tester_uri] = DRbObject.new(nil,
+                                                       sub_tester_uri.to_s)
+          end
+        end
+
+        def self.included?(mod)
+          mod.module_eval do
+            attr_reader :sub_testers
+          end
+        end
+
+      end # module SubTestable
+
+    end # class DRbService
+
+  end # module Services
+
+end # module TTK
+

data/lib/ttk/services/FetcherClient.rb

@@ -0,0 +1,31 @@
+# Author::    Nicolas Despres  <nicolas.despres@gmail.com>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: FetcherClient.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+module TTK
+
+  module Services
+
+    class FetcherClient < DRbService
+
+      def initialize(config={})
+        @client = nil
+        super(config)
+      end
+
+      attr_reader :client
+
+      def start_service(uri, fetcher_uri)
+        super(uri)
+        fetcher = DRbObject.new_with_uri(fetcher_uri.to_s)
+        @client = Fetchers::Client.new(self, fetcher)
+      end
+
+    end # class FetcherClient
+
+  end # module Services
+
+end # module TTK
+

data/lib/ttk/services/FetcherServer.rb

@@ -0,0 +1,23 @@
+# Author::    Nicolas Despres  <nicolas.despres@gmail.com>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: FetcherServer.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+module TTK
+
+  module Services
+
+    class FetcherServer < DRbService
+
+      def start_service(uri, repository)
+        @front = Fetchers::Server.new(self, repository)
+        super(uri)
+      end
+
+    end # class FetcherServer
+
+  end # module Services
+
+end # module TTK
+

data/lib/ttk/services/MonitorClient.rb

@@ -0,0 +1,31 @@
+# Author::    Nicolas Despres  <nicolas.despres@gmail.com>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: MonitorClient.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+module TTK
+
+  module Services
+
+    class MonitorClient < DRbService
+
+      def initialize(config={})
+        @client = nil
+        super(config)
+      end
+
+      attr_reader :client
+
+      def start_service(uri, monitor_uri)
+        super(uri)
+        monitor = DRbObject.new_with_uri(monitor_uri.to_s)
+        @client = Monitors::Client.new(self, monitor)
+      end
+
+    end # class MonitorClient
+
+  end # module Services
+
+end # module TTK
+

data/lib/ttk/services/MonitorServer.rb

@@ -0,0 +1,23 @@
+# Author::    Nicolas Despres  <nicolas.despres@gmail.com>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: MonitorServer.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+module TTK
+
+  module Services
+
+    class MonitorServer < DRbService
+
+      def start_service(uri, monitor, max_observer)
+        @front = Monitors::Server.new(self, monitor, max_observer)
+        super(uri)
+      end
+
+    end # class MonitorServer
+
+  end # module Services
+
+end # module TTK
+

data/lib/ttk/services/TesterClient.rb

@@ -0,0 +1,38 @@
+# Author::    Nicolas Despres  <nicolas.despres@gmail.com>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: TesterClient.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+module TTK
+
+  module Services
+
+    class TesterClient < DRbService
+      include SubTestable
+
+      def initialize
+        sub_testable_initialize
+        @master = nil
+        @slave = nil
+      end
+
+      attr_reader :master
+      attr_reader :slave
+
+      def start_service(uri=nil, sub_tester_uris=[], local_slave=false)
+        super(uri)
+        sub_testable_set(sub_tester_uris)
+        if local_slave
+          @slave = Testers::Slave.new(self, 'local slave')
+          @sub_testers[self.uri] = @slave
+        end
+        @master = Testers::Master.new(self, 'local master', @sub_testers)
+      end
+
+    end # class TesterClient
+
+  end # module Services
+
+end # module TTK
+

data/lib/ttk/services/TesterMaster.rb

@@ -0,0 +1,40 @@
+# Author::    Nicolas Despres  <nicolas.despres@gmail.com>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: TesterMaster.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+module TTK
+
+  module Services
+
+    class TesterMaster < DRbService
+      include SubTestable
+
+      module Notification
+
+        NAME        = :tester_master_name
+        SUB_TESTERS = :tester_master_sub_testers
+
+      end # module Notification
+
+      def initialize(config={})
+        sub_testable_initialize
+      end
+
+      def start_service(uri, name, sub_tester_uris)
+        sub_testable_set(sub_tester_uris)
+        @front = Testers::Master.new(self, name, @sub_testers)
+        super(uri)
+        changed
+        notify_observers(Notification::NAME, name)
+        changed
+        notify_observers(Notification::SUB_TESTERS, sub_tester_uris)
+      end
+
+    end # class TesterMaster
+
+  end # module Services
+
+end # module TTK
+

data/lib/ttk/services/TesterSlave.rb

@@ -0,0 +1,31 @@
+# Author::    Nicolas Despres  <nicolas.despres@gmail.com>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: TesterSlave.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+module TTK
+
+  module Services
+
+    class TesterSlave < DRbService
+
+      module Notification
+
+        NAME        = :tester_slave_name
+
+      end # module Notification
+
+      def start_service(uri, name)
+        @front = Testers::Slave.new(self, name)
+        super(uri)
+        changed
+        notify_observers(Notification::NAME, name)
+      end
+
+    end # class TesterSlave
+
+  end # module Services
+
+end # module TTK
+

data/lib/ttk/status.rb

@@ -0,0 +1,190 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: status.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+module TTK
+
+  class StatusException < TTKException
+
+    attr_reader :status
+
+    def initialize ( aStatus )
+      @status = aStatus
+    end
+
+  end # class StatusException
+
+
+
+  class Status
+    include Abstract
+
+    attr_accessor :weight
+
+    def self.default_weight_value
+      val = nil
+      if const_defined? :DEFAULT_WEIGHT
+        if const_defined? :DEFAULT_WEIGHT_VALUE
+          val = const_get(:DEFAULT_WEIGHT_VALUE)
+        else
+          val = Weights::Default.new(const_get(:DEFAULT_WEIGHT))
+          const_set(:DEFAULT_WEIGHT_VALUE, val)
+        end
+      end
+      val
+    end
+
+    def initialize
+      @weight = self.class.default_weight_value
+    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
+
+    def hook_name
+      self.class.hook_name
+    end
+
+    def to_s
+      res = self.class.status_name.to_s
+      if @weight != self.class.default_weight_value
+        res += "(#{@weight.get})"
+      end
+      res
+    end
+
+    def to_ttk_log ( log )
+      log.status = self.to_s
+    end
+
+    def pass?
+      false
+    end
+
+    def exception
+      StatusException.new(self)
+    end
+
+  end # class Status
+
+
+
+  class StatusWithMessage < Status
+    include Abstract
+
+    attr_reader :message
+
+    def initialize ( anObject=nil )
+      super()
+      self.message = anObject unless anObject.nil?
+    end
+
+    def message= ( anObject )
+      @message = anObject
+    end
+
+    def to_ttk_log ( log )
+      super
+      log.reason = @message if defined? @message
+    end
+
+  end # class StatusWithMessage
+
+
+
+  class PassStatus < Status
+    include Concrete
+    DEFAULT_WEIGHT = :PASS
+    def pass?
+      true
+    end
+  end
+
+
+
+  class SkipStatus < StatusWithMessage
+    include Concrete
+    DEFAULT_WEIGHT = :FAIL
+    def initialize ( aWeight=nil, anObject=nil )
+      super(anObject)
+      @weight = aWeight unless aWeight.nil?
+    end
+  end
+
+
+
+  class ErrorStatus < StatusWithMessage
+    include Concrete
+    DEFAULT_WEIGHT = :FAIL
+  end
+
+
+
+  class AbortStatus < StatusWithMessage
+    include Concrete
+
+    DEFAULT_WEIGHT = :FAIL
+    attr_reader :flow
+
+    def initialize ( aFlow, anObject=nil )
+      @flow = aFlow
+      super(anObject)
+    end
+
+    def exception
+      f = @flow
+      @flow = nil
+      f << :abort
+      super
+    end
+
+  end # class AbortStatus
+
+
+
+  class TimeoutAbortStatus < AbortStatus
+    DEFAULT_WEIGHT = :FAIL
+    def self.status_name
+      :ABORT
+    end
+  end
+
+
+
+  class StartStatus < Status
+    include Concrete
+    DEFAULT_WEIGHT = :START
+  end
+
+
+
+  class RunningStatus < Status
+    include Concrete
+    DEFAULT_WEIGHT = :FAIL
+  end
+
+
+
+  class FailStatus < StatusWithMessage
+    include Concrete
+
+    DEFAULT_WEIGHT = :FAIL
+
+    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 TTK