ttk 0.1.576

data/lib/ttk/strategies/DistDuplicate.rb

@@ -0,0 +1,64 @@
+# Author::    Nicolas Despres  <nicolas.despres@gmail.com>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: DistDuplicate.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+#FIXME: make me a Composite
+
+module TTK
+
+  module Strategies
+
+    class DistDuplicate < Strategy
+      include Concrete
+
+      protected
+      def prologue
+        super
+        @min, @max = 0, 0
+        raise(ArgumentError, 'must be run within a tester') if @tester.nil?
+      end
+
+      protected
+      def run_impl
+        doc = Doc.new
+        doc.update(@test)
+        query_node = @tester.select_tester do |uri, config|
+          eval(@select.to_s, binding, "(#@name:select)")
+        end
+        raise 'no tester selected' if query_node.nil?
+        query_node.pre_depth_first do |node|
+          node.set_query('run_strategy', doc, @symtbl) if node.leaf?
+        end
+        @tester.query_tester(query_node)
+        @summary, @min, @max = query_node.to_ttk_log(@log,
+                                                     @summary,
+                                                     @min,
+                                                     @max)
+      end
+
+      protected
+      def pass # :nodoc:
+      end
+
+      protected
+      def compute_summary
+        unless @status == :ABORT
+          @summary = @summary.normalize(@min, @max, @weight)
+        end
+        super
+      end
+
+      attribute :select,      'Block which return a boolean',
+                              'true',
+                              :invisible
+      attribute :test,        'Test dispatched to all sub testers',
+                              :mandatory, :invisible, :dont_expand
+
+    end # class DistDuplicate
+
+  end # module Strategies
+
+end # module TTK
+

data/lib/ttk/strategies/DistStrategy.rb

@@ -0,0 +1,42 @@
+# Author::    Nicolas Despres  <nicolas.despres@gmail.com>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: DistStrategy.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+module TTK
+
+  module Strategies
+
+    class DistStrategy < Composite
+
+      protected
+      def prologue
+        super
+        @test_id = nil
+      end
+
+      protected
+      def prologue_test(test, log)
+        @test_id = test.hash
+      end
+
+      protected
+      def run_impl_test(test, log)
+        test.symtbl = nil
+        remote_status = @tester.run_strategy(test, @symtbl)
+        remote_status.saved_log.repeat(log)
+        remote_status.status
+      end
+
+      protected
+      def abort_hook
+        @tester.abort(@test_id)
+      end
+
+    end # class DistStrategy
+
+  end # module Strategies
+
+end # module TTK
+

data/lib/ttk/strategies/Distribute.rb

@@ -0,0 +1,39 @@
+# Author::    Nicolas Despres  <nicolas.despres@gmail.com>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: Distribute.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+module TTK
+
+  module Strategies
+
+    class Distribute < DistStrategy
+      include Concrete
+
+      protected
+      def prologue
+        super
+        tester = @symtbl[:tester]
+        raise(ArgumentError, 'not run within a tester') if tester.nil?
+        score = tester.dynamic_select do |uri, dyn_config|
+          eval(@select.to_s, binding, "(#@name:dynamic_select)")
+        end
+        @tester = score.tester
+        raise(RuntimeError, 'no tester elected') if @tester.nil?
+        create(@test)
+      end
+
+      attribute :select,      'Block which return a score: <= 0 ' +
+                              'imply no selection',
+                              1,
+                              :invisible
+      attribute :test,        'Test delegated to direct sub testers',
+                              :mandatory, :invisible, :dont_expand
+
+    end # class Distribute
+
+  end # module Strategies
+
+end # module TTK
+

data/lib/ttk/strategies/Error.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: Error.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+module TTK
+
+  module Strategies
+
+    # A test class which always raise an error.
+    class Error < Strategy
+      include Concrete
+
+      def assertion
+        raise_error('Error always raises an error')
+      end
+
+    end # class Error
+
+  end # module Strategies
+
+end # module TTK

data/lib/ttk/strategies/Extract.rb

@@ -0,0 +1,45 @@
+# Author::    Marco Tessari  <marco.tessari@epita.fr>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: Extract.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+require 'filetype'
+
+module TTK
+
+  module Strategies
+
+    # I'm deprecated, use Checkout instead.
+    class Extract < Strategy
+      include Concrete
+
+      def run_impl
+        if @file.is_a? String
+          @file = FileType.guess(@file)
+          if @file.is_a? FileType::Directory
+            @symtbl[:extract_dir] = @file.path
+            skip
+          end
+          unless @file.is_a? FileType::Extractable
+            fail("Bad file type #@file:#{@file.class}, not extractable")
+          end
+        end
+        path = nil
+        begin
+          path = @file.extract
+        rescue FileType::ExtractError => ex
+          fail(ex)
+        end
+        fail("cannot extract #@file returned path is nil") if path.nil?
+        @symtbl[:extract_dir] = path
+        pass
+      end
+
+      attribute :file, 'path to the tarball', :mandatory
+
+    end # class Extract
+
+  end # module Strategies
+
+end # module TTK

data/lib/ttk/strategies/Fail.rb

@@ -0,0 +1,26 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: Fail.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+module TTK
+
+  module Strategies
+
+    # A test class which always fails.
+    class Fail < Strategy
+      include Concrete
+
+      protected
+      def assertion
+        fail 'Fail always fails', Weights::Default.new(@value)
+      end
+
+      attribute :value, 'the returned weight', [Weights::Weight, Numeric], 0
+
+    end # class Fail
+
+  end # module Strategies
+
+end # module TTK

data/lib/ttk/strategies/Fetch.rb

@@ -0,0 +1,124 @@
+# Author::    Nicolas Despres  <nicolas.despres@gmail.com>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: Fetch.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+require 'fileutils'
+require 'ttkd'
+
+
+module TTK
+
+  module Strategies
+
+    class Fetch < Composite
+      include Concrete
+      include ServiceManager
+
+      def initialize ( *a, &b )
+        @fetch = nil
+        @dir = nil
+        super
+      end
+
+      def resources=(other)
+        @resources = []
+        other.each do |fn|
+          p = Pathname.new(fn)
+          next if p.absolute?
+          @resources << p
+        end
+      end
+
+      def dir=(other)
+        if other.nil?
+          @dir = nil
+        else
+          @dir = Pathname.new(other)
+          unless @dir.exist?
+            raise(Errno::ENOENT, "`#@dir' - no such file or directory")
+          end
+        end
+      end
+
+      protected
+      def prologue
+        super
+        fetcher_uri = @symtbl[:fetcher_uri]
+        fail 'no fetcher available' if fetcher_uri.nil?
+        fetch_service = Services::FetcherClient.new
+        start_service(fetch_service, nil, fetcher_uri)
+        @fetch = fetch_service.client
+        @fetcher = @fetch.fetcher
+        @dir = TempPath.new('fetch') if @dir.nil?
+        @dir.ensure_mkpath
+        @symtbl[:fetch_dir] = @dir
+        create(@test)
+      end
+
+      protected
+      def run_impl
+        if (@fetcher.uri.host == @fetch.uri.host and
+              (not @symtbl[:force_fetch]))
+          fetch_local(@fetcher.repository)
+        else
+          fetch()
+        end
+        super
+      end
+
+      protected
+      def assertion
+        pass
+      end
+
+      protected
+      def epilogue
+        @dir.rmtree if @dir
+        @symtbl.delete(:fetch_dir)
+        stop_services
+        super
+      end
+
+      protected
+      def fetch_local(repository)
+        @log.new_node('fetched from localhost') do
+          @resources.each do |r|
+            t0 = Time.now
+            (@dir + r.dirname).ensure_mkpath
+            FileUtils.ln_s(repository + r, @dir + r)
+            @log[@dir + r] = "#{Time.now - t0} seconds"
+          end
+        end
+      end
+
+      protected
+      def fetch
+        desc = "fetched from #{@fetcher.uri.host}:#{@fetcher.uri.port}"
+        @log.new_node(desc) do
+          @resources.each do |r|
+            (@dir + r.dirname).ensure_mkpath
+            stat = @fetch.fetch(r, @dir)
+            raise "`#{r}' - fetch failed" unless stat[:success]
+            @log[@dir + r] = stat[:enlapsed_time]
+          end
+        end
+      end
+
+
+      attribute :resources,  'Resources to fetch',
+                             [],
+                             :invisible
+      attribute :dir,        'Fetch destination direction',
+                             nil,
+                             :invisible
+      attribute :test,       'Test to execute that uses fetched resources',
+                             :mandatory, :invisible, :dont_expand
+
+    end # class Fetch
+
+  end # module Strategies
+
+end # module TTK
+

data/lib/ttk/strategies/Fetcher.rb

@@ -0,0 +1,74 @@
+# Author::    Nicolas Despres  <nicolas.despres@gmail.com>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: Fetcher.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+require 'ttkd'
+
+
+module TTK
+
+  module Strategies
+
+    class Fetcher < Composite
+      include Concrete
+      include ServiceManager
+
+      def initialize ( *a, &b )
+        @fetcher = nil
+        @service = nil
+        super
+      end
+
+      def uri=(other)
+        if other.nil?
+          @uri = other
+        else
+          @uri = URI.parse(other)
+        end
+      end
+
+      def dir=(other)
+        if other.nil?
+          @dir = nil
+        else
+          @dir = Pathname.new(other)
+          unless @dir.exist?
+            raise(Errno::ENOENT, "`#@dir' - No such file or directory")
+          end
+        end
+      end
+
+      protected
+      def prologue
+        super
+        @dir = @symtbl[:pwd] if @dir.nil?
+        fetcher = Services::FetcherServer.new
+        start_service(fetcher, @uri, @dir)
+        create(@test) do |t|
+          t.symtbl[:fetcher_uri] = fetcher.uri
+        end
+      end
+
+      protected
+      def epilogue
+        stop_services
+        super
+      end
+
+      attribute :uri,          'Fetcher server uri',
+                               nil,
+                               :invisible
+      attribute :dir,          'Fetcher server repository directory',
+                               nil,
+                               :invisible
+      attribute :test,         'The test which may use this fetcher',
+                               :mandatory, :invisible, :dont_expand
+
+    end # class Fetcher
+
+  end # module Strategies
+
+end # module TTK
+