ttk 0.1.576

data/lib/ttk/strategies/KillAll.rb

@@ -0,0 +1,59 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: KillAll.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+module TTK
+
+  module Strategies
+
+    class KillAll < Strategy
+      include Concrete
+
+      def prologue 
+        super
+        @pids = []
+      end
+
+      def run_impl 
+        IO.popen('ps a') do |ps|
+          ps.readline
+          ps.each do |line|
+            if line =~ /^\s*(\d+)(?:\s+\S+){3}\s+(.*)$/
+              pid, name = $1.to_i, $2
+              if name =~ @regexp
+                @pids << pid
+                begin
+                  Process.kill(@signal, pid)
+                rescue
+                  raise RuntimeError, "Cannot kill #{name}:#{pid}"
+                end
+              end
+            else
+              raise RuntimeError, 'bad ps output'
+            end
+          end
+        end
+      end
+      
+      def assertion
+        pass if @pids.empty?
+        fail "I killed some process #{@pids.inspect}"
+      end
+
+      def epilogue 
+        unless @pids.empty?
+          @log.process = @pids
+          sleep 0.2
+        end
+      end
+
+      attribute :signal, 'Signal to send to selected processes', 'KILL'
+      attribute :regexp, 'A regexp to match process names', :mandatory
+
+    end # class KillAll
+
+  end # module Strategies
+
+end # module TTK

data/lib/ttk/strategies/Make.rb

@@ -0,0 +1,94 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: Make.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+module TTK
+
+  module Strategies
+
+    class Make < Proxy
+      include Concrete
+
+      def mk_make_cmd
+        @symtbl[:make] || ENV['MAKE'] || 'make'
+      end
+
+      def mk_cmd ( target, continue_mode, jobs=nil, options='' )
+        make = mk_make_cmd()
+        unless options.empty?
+          case options
+          when Array
+            options = ' ' + options.join(' ')
+          when String
+            options = " #{options}"
+          end
+        end
+        opts = ''
+        opts += ' -k' if continue_mode
+        opts += " -j#{jobs}" if jobs
+        "#{make} #{target}#{opts}#{options}"
+      end
+
+      def prologue 
+        super
+        cmd = mk_cmd(@target.target, @continue_mode, @jobs, @options)
+        create(Cmd) do |test|
+          test.name = 'internal command'
+          test.exit = 0
+          test.dir = @dir
+          test.command = cmd
+          test.reject :strategy, :exit, :fatal, :dir
+          # test.reject :status
+        end
+      end
+
+      class Target
+        include Abstract
+        def target
+          self.class.target
+        end
+        def self.target
+          name.downcase.sub(/^.*:/, '')
+        end
+      end
+
+      class Default < Target
+        include Concrete
+        def self.target
+          ''
+        end
+      end
+
+      class All < Target
+        include Concrete
+      end
+
+      class Check < Target
+        include Concrete
+      end
+
+      class DistCheck < Target
+        include Concrete
+      end
+
+      class Install < Target
+        include Concrete
+      end
+
+      attribute :dir,           'building directory', :mandatory
+
+      attribute :target,        'select a target', Class, Default, :invisible
+
+      attribute :continue_mode, 'use the -k option of make', false
+
+      attribute :jobs,          'number of jobs (-j option)'
+
+      attribute :options,       'other options' do [] end
+
+    end # class Make
+
+  end # module Strategies
+
+end # module TTK

data/lib/ttk/strategies/Package.rb

@@ -0,0 +1,128 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: Package.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+module TTK
+
+  module Strategies
+
+    class Package < Collection
+      include Concrete
+      include Ordered
+
+      def prologue 
+        extract_dir = '<<extract_dir>>'
+        self.attributes = {
+          :dir => extract_dir,
+        }
+
+	super
+
+        create(Checkout) do |checkout|
+          checkout.name = 'Checkout'
+          checkout.url = @url
+          checkout.fatal = true
+          checkout.weight = 0
+        end
+
+        unless skip_step? 'configure'
+          create(Bootstrap) do |bootstrap|
+            bootstrap.name = 'Bootstrapping'
+            bootstrap.weight = 0
+          end
+        end
+
+        unless skip_step? 'bootstrap'
+          create(Configure) do |configure|
+            configure.name = 'Configuring'
+            configure.prefix = @prefix
+            configure.flags = @configure_flags
+            configure.weight = 0
+          end
+        end
+
+        unless skip_step? 'build'
+          create(Make) do |build|
+            build.name = 'Building'
+            build.continue_mode = true
+            # build.jobs = 2
+            build.fatal = true
+          end
+        end
+
+        make = {}
+
+        [ Make::Check, Make::DistCheck, Make::Install ].each do |step|
+          step_name = step.target
+          next if skip_step? step_name
+          create(Make) do |build|
+            build.name = "Building #{step_name}"
+            build.target = step
+            build.fatal = true
+            make[step_name.to_sym] = build
+          end
+        end
+
+        if @install_prefix and make.has_key? :install
+          make[:install].options << "prefix=#@install_prefix"
+        end
+
+        if make.has_key? :distcheck
+          make[:distcheck].options <<
+            "DISTCHECK_CONFIGURE_FLAGS='<<configure_flags>>'"
+        end
+
+        unless skip_step? 'tarball'
+          create(Block) do |test|
+            test.name = 'Exporting the tarball'
+            test.test = proc do
+              balls = Pathname.glob("#{extract_dir}/*.tar.*")
+              unless balls.empty?
+                @log.new_node :contents, :seq do
+                  balls.each do |ball|
+                    ball.copy(dir)
+                    ball.to_ttk_log(@log)
+                  end
+                end
+              end
+              true
+            end
+          end
+        end
+
+        unless @test.nil? or skip_step? 'test'
+          create(@test)
+        end
+
+        unless skip_step? 'clean'
+          create(Clean) do |clean|
+            clean.name = 'Cleaning'
+            clean.fatal = true
+            clean.weight = 0
+          end
+        end
+
+      end
+
+      def skip_step? ( step )
+        step = /#{step}/i unless step.is_a? Regexp
+        @skip_steps.any? { |x| step =~ x }
+      end
+
+
+      attribute :url,    'url of the package to install', :mandatory
+      attribute :test,   'the test to execute', :invisible
+      attribute :prefix, 'the prefix directory for `configure\''
+      attribute :configure_flags, 'set flags for the configure step'
+      attribute :install_prefix,  'the prefix directory for `make install\''
+      attribute :skip_steps, 'steps to skip (a list of strings or regexps)' do
+        []
+      end
+
+    end # class Package
+
+  end # module Strategies
+
+end # module TTK

data/lib/ttk/strategies/PackageCollection.rb

@@ -0,0 +1,72 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: PackageCollection.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+module TTK
+
+  module Strategies
+
+    class PackageCollection < Composite
+      include Concrete
+
+      def prologue 
+        super
+        @dependencies = Pathname.new(@dependencies)
+        @deps = YAML::load(@dependencies.read)
+        @order = @deps.tsort_from(@target)
+        @order.each do |dep|
+          @symtbl["#{dep}_install_dir".to_sym] = "<<pwd>>/#{dep}"
+          create(Import) do |t|
+            t.name = dep
+            t.import = "#{dep}.yml"
+            t.symtbl[:configure_flags] =
+              @deps[dep].map { |d| "--with-#{d}=<<pwd>>/#{d}" }.join(' ')
+            t.fatal = true
+          end
+        end
+      end
+      protected :prologue
+
+      attribute :dependencies, 'the dependency file', :mandatory
+      attribute :target,       'the target package name'
+
+    end # class PackageCollection
+
+  end # module Strategies
+
+end # module TTK
+
+
+
+require 'tsort'
+
+class Hash
+  include TSort
+  
+  alias tsort_each_node each_key
+
+  def tsort_each_child(node, &block)
+    fetch(node).each(&block)
+  end
+
+  def tsort_each_from ( node=nil, &block )
+    return tsort_each(&block) if node.nil?
+    each_strongly_connected_component_from(node) do |component|
+      if component.size == 1
+        block[component.first]
+      else
+        raise Cyclic, "topological sort failed: #{component.inspect}"
+      end
+    end
+  end
+
+  def tsort_from ( node=nil )
+    return tsort if node.nil?
+    result = []
+    tsort_each_from(node) { |n| result << n }
+    result
+  end
+
+end

data/lib/ttk/strategies/Pass.rb

@@ -0,0 +1,24 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: Pass.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+module TTK
+
+  module Strategies
+
+    # A test strategy class which always pass.
+    class Pass < Strategy
+      include Concrete
+
+      protected
+      def assertion
+        pass
+      end
+
+    end # class Pass
+
+  end # module Strategies
+
+end # module TTK

data/lib/ttk/strategies/Pool.rb

@@ -0,0 +1,99 @@
+# Author::    Nicolas Despres  <nicolas.despres@gmail.com>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: Pool.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+module TTK
+
+  module Strategies
+
+    class Pool < Collection
+      include Concrete
+
+      class PoolComponent
+        attr_accessor :test, :thread, :flow, :log
+      end
+
+
+      def initialize ( *a, &b )
+        @pool_contents = []
+        super
+      end
+
+
+      def abort_hook 
+        return if defined? @already_aborted
+        @already_aborted = true
+        @pool_contents.each do |comp|
+          test = comp.test
+          next if test.status.is_a? StartStatus
+          test.abort('pool aborted') if test.running?
+        end
+        super
+      end
+      protected :abort_hook
+
+
+      def prologue 
+        super
+	@pool_contents = @contents.map do |test|
+          comp = PoolComponent.new
+          comp.test = test
+          comp.log = Filters::Saver.new
+          comp.flow = @symtbl[:flow_factory].new_flow
+          test.symtbl[:flow] = comp.flow
+          comp.thread = Thread.new do
+            begin
+              sleep
+              run_test(test, Logger.new(comp.log))
+            rescue Exception => ex
+              display_unexpected_exc ex
+            end
+          end
+          comp
+	end
+
+        # This thread is here to catch properly exceptions.
+        @real_parent_thread = @thread
+        @thread = Thread.new do
+          begin
+            sleep
+          rescue Exception => ex
+            abort_hook()
+            @real_parent_thread.raise ex
+          end
+        end
+      end
+      protected :prologue
+
+
+      def run_composite 
+        @pool_contents.each { |comp| comp.thread.wakeup }
+        @pool_contents.each { |comp| comp.thread.join }
+      end
+      protected :run_composite
+
+
+      def epilogue 
+        @log.new_node :contents, :seq do
+          @pool_contents.each do |comp|
+            comp.flow << :not_running?
+            comp.log.repeat(@log)
+          end
+        end
+        @pool_contents.each do |comp|
+          comp.thread.kill if comp.thread.alive?
+          comp.flow.destroy
+        end
+        @pool_contents.clear
+        super
+      end
+      protected :epilogue
+
+    end # class Pool
+
+  end # module Strategies
+
+end # module TTK
+