uttk 0.3.1.2

data/lib/uttk/strategies/JUnit.rb

@@ -0,0 +1,205 @@
+# Author::    Nicolas Despres  <nicolas.despres@gmail.com>.
+# Copyright:: Copyright (c) 2004, 2005 Uttk team. All rights reserved.
+# License::   LGPL
+# $Id: /fey/uttk/trunk/lib/uttk/strategies/JUnit.rb 8778 2005-09-26T04:34:48.103938Z ertai  $
+
+
+#FIXME: adapt me
+#FIXME: remove $debug
+
+module Uttk
+
+  module Strategies
+
+    # I'm not currently usable, I will be fixed soon.
+    class JUnit < Strategy
+      include Concrete
+
+      def initialize ( *a, &b )
+        super
+        @failure = true
+        @output = ""
+        @result = { }
+      end
+
+      def parse_outcome(line)
+        case line
+        when /^OK \((\d+) test(s|)\)$/
+          @result['total tests'] = $1.to_i
+          @failure = false
+        when /^FAILURES!!!$/
+          line = next_line
+          if line =~ /^Tests run: (\d+),  Failures: (\d+),  Errors: (\d+)$/ then
+            @result['total tests'] = $1.to_i
+            @result['total failures'] = $2.to_i
+            @result['total errors' ] = $3.to_i
+          end
+        else
+         @result['outcome'] = "not found" if $debug >= 1
+        end
+        next_line
+      end
+      protected :parse_outcome
+
+      def parse_location(test_name, line)
+        location = []
+        i = 0
+        while line =~ /^\t(at.+\))$/
+          location[i] = $1
+          i += 1
+          line = next_line
+        end
+        if location.length != 0 then
+          @result[test_name].update({ 'location' => location })
+        else
+          @result[test_name].update({ 'location' => 'not found' }) if $debug >= 1
+        end
+        line
+      end
+      protected :parse_location
+
+      def parse_failures(line)
+        if line =~ /^There (was|were) \d+ failure(s|):$/ then
+          line = next_line
+          while line =~ /(\d)+\) (\w+)\(([\w.]+)\)junit.framework.(\w+): expected:<(.*)> but was:<(.*)>$/
+            @result["failure #$1"] = {'name' => $3 + "." + $2,
+                                     'reason' => $4,
+                                      'expected' => $5,
+                                      'was' => $6 }
+            line = parse_location("failure #$1", next_line)
+          end
+        else
+          @result['failures'] = "not found" if $debug >= 1
+        end
+        line
+      end
+      protected :parse_failures
+
+      def parse_errors(line)
+        if line =~ /^There (was|were) \d+ error(s|):$/ then
+          line = next_line
+          while line =~ /(\d)+\) (\w+)\(([\w.]+)\)([.\w]+)$/
+            @result["error #$1"] = {'name' => $3 + "." + $2,
+                                        'reason' => $4 }
+            line = parse_location("error #$1", next_line)
+          end
+        else
+          @result['errors'] = "not found" if $debug >= 1
+        end
+        line
+      end
+      protected :parse_errors
+
+      def parse_time(line)
+        if line =~ /^Time: ([\d.]+)$/ then
+          @result['time'] = $1.to_f
+        else
+          @result['time'] = "not found" if $debug >= 1
+        end
+        next_line
+      end
+      protected :parse_time
+
+      def assert_line(line, re)
+        if not line =~ re
+          raise(Failure, "cannot recognized JUnit output '#{line}'.")
+        end
+        next_line
+      end
+      protected :assert_line
+
+      def parse_output(line)
+        line = assert_line(line, /^[.FE]*$/)
+        line = parse_time(line)
+        line = parse_errors(line)
+        line = parse_failures(line)
+        line = assert_line(line, /^$/)
+        line = parse_outcome(line)
+        line = assert_line(line, /^$/)
+      end
+      protected :parse_output
+
+      def next_line
+        line = @output.gets
+        line.chomp unless line.nil?
+      end
+      protected :next_line
+
+      def check_workdir
+        if not File.exist?(@workdir) then
+          raise Failure, "the work dir '#{workdir}' doesn't exist."
+        elsif not File.directory?(@workdir) then
+          raise Failure, "the work dir '#{workdir}' is not a directory."
+        elsif not File.readable?(@workdir) then
+          raise Failure, "the work dir '#{workdir}' isn unreadable."
+        end
+      end
+      protected :check_workdir
+
+      def check_testclasses_validity
+        @testclasses.gsub!(/\.class(\s+|$)/, ' ')
+        @testclasses.chomp!(' ')
+        testclasses_tbl = @testclasses.split(/\s+/)
+        if testclasses_tbl.length == 0 then
+          raise Failure, "no testclass are specified."
+        end
+        testclasses_tbl.each do |x|
+          filename = @workdir + "/" + x.gsub(/\./, '/') + ".class"
+          if not File.exist?(filename) then
+            raise Failure, "the testclass '#{filename}' doesn't exist."
+          elsif not File.file?(filename) then
+            raise Failure, "the testclass '#{filename}' is not a regular file."
+          elsif not File.readable?(filename) then
+            raise Failure, "the testclass '#{filename}' is unreadable."
+          end
+        end
+      end
+      protected :check_testclasses_validity
+
+      def prologue
+        super
+        check_workdir
+        check_testclasses_validity
+        @old_classpath = ENV['CLASSPATH'];
+        ENV['CLASSPATH'] = "" if ENV['CLASSPATH'].nil?
+        ENV['CLASSPATH'] += ':/usr/share/java/junit.jar:.'
+        @old_workdir = Dir.pwd
+        Dir.chdir(@workdir)
+        @log['real working dir is'] = Dir.pwd if $debug >= 1
+      end
+      protected :prologue
+
+      def run_impl
+        @output = IO.popen("java junit.textui.TestRunner #@testclasses")
+        parse_output(next_line)
+        @output.close
+      end
+      protected :run_impl
+
+      def assertion
+        @failure ? fail : pass
+      end
+      protected :assertion
+
+      def epilogue
+        ENV['CLASSPATH'] = @old_classpath
+        Dir.chdir(@old_workdir)
+        print_result
+        super
+      end
+      protected :epilogue
+
+      def print_result
+        @result.sort.each { |k,v| @log[k] = v }
+      end
+      protected :print_result
+
+      attribute :testclasses, 'the name of the JUnit classes to test', "", :mandatory
+      attribute :workdir, 'the working directory where java is runned', '.'
+      attribute :options, 'extra options to pass to java', ''
+
+    end # class JUnit
+
+  end # module Strategies
+
+end # module Uttk

data/lib/uttk/strategies/KillAll.rb

@@ -0,0 +1,62 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2004, 2005 Uttk team. All rights reserved.
+# License::   LGPL
+# $Id: /w/fey/uttk/trunk/lib/uttk/strategies/KillAll.rb 22102 2006-02-21T23:03:39.538964Z pouillar  $
+
+
+module Uttk
+
+  module Strategies
+
+    # I kill all the process that match my _regexp_ attribute by sending my
+    # _signal_ attribute. I'm unfortunately not compatible with all OS since I
+    # depend on the _ps_ program.
+    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 Uttk

data/lib/uttk/strategies/Make.rb

@@ -0,0 +1,94 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2004, 2005 Uttk team. All rights reserved.
+# License::   LGPL
+# $Id: /fey/uttk/trunk/lib/uttk/strategies/Make.rb 8789 2005-09-27T14:49:49.088376Z ertai  $
+
+
+module Uttk
+
+  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 Uttk

data/lib/uttk/strategies/Package.rb

@@ -0,0 +1,129 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2004, 2005 Uttk team. All rights reserved.
+# License::   LGPL
+# $Id: /fey/uttk/trunk/lib/uttk/strategies/Package.rb 8789 2005-09-27T14:49:49.088376Z ertai  $
+
+
+module Uttk
+
+  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
+
+        # FIXME does this step make sense
+        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, :ordered => true do
+                  balls.each do |ball|
+                    ball.copy(dir)
+                    @log << ball
+                  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 Uttk