uttk 0.3.1.2

data/lib/uttk/strategies/Abort.rb

@@ -0,0 +1,24 @@
+# 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/Abort.rb 8778 2005-09-26T04:34:48.103938Z ertai  $
+
+
+module Uttk
+
+  module Strategies
+
+    # A test strategy class which always abort.
+    class Abort < Strategy
+      include Concrete
+
+      def run_impl
+        abort('Abort strategy always aborts')
+      end
+      protected :run_impl
+
+    end # class Abort
+
+  end # module Strategies
+
+end # module Uttk

data/lib/uttk/strategies/Assert.rb

@@ -0,0 +1,44 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2005 Uttk Team. All rights reserved.
+# License::   LGPL
+# Revision::  $Id: /fey/uttk/trunk/lib/uttk/strategies/Assert.rb 8789 2005-09-27T14:49:49.088376Z ertai  $
+
+require 'test/unit'
+Test::Unit.run = true
+# require 'test/unit/testcase' # FIXME require just this 'test/unit/assertions'
+
+module Uttk
+
+  module Strategies
+
+    class Assert < Block
+      include Concrete
+      include ::Test::Unit::Assertions
+
+      #
+      # Methods
+      #
+
+      def prologue
+        super
+        @assertion_count = 0
+      end
+      protected :prologue
+
+
+      def assertion
+        fail @raised_exception if @raised_exception
+        pass
+      end
+      protected :assertion
+
+
+      def add_assertion
+        @assertion_count += 1
+      end
+
+    end # class Assert
+
+  end # module Strategies
+
+end # module Uttk

data/lib/uttk/strategies/Authors.rb

@@ -0,0 +1,45 @@
+# Author::    Marco Tessari  <marco.tessari@epita.fr>.
+# Copyright:: Copyright (c) 2004, 2005 Uttk team. All rights reserved.
+# License::   LGPL
+# $Id: /w/fey/uttk/trunk/lib/uttk/strategies/Authors.rb 22102 2006-02-21T23:03:39.538964Z pouillar  $
+
+
+module Uttk
+
+  module Strategies
+
+    # I check whether a student has well written his _AUTHORS_ file. I'm very
+    # specific to the test of Epita's student tarballs.
+    class Authors < Strategy
+      include Concrete
+
+      def run_impl
+        author = "#{@dir}/#{@file}"
+
+        unless File.exists?(author)
+          fail "No '#{author}' file found"
+        end
+
+        authors = []
+        IO.foreach(author) do |line|
+          authors << $1 if line =~ /^\* ([-a-z]{1,6}_[-_a-zA-Z\d]).*$/
+          end
+
+        unless authors.include?(@author)
+          fail "AUTHORS not well formatted"
+        end
+
+        pass
+      end
+
+      attribute :author, 'the author to match', :mandatory
+      attribute :dir, 'the directory where the AUTHORS file is located',
+                      :mandatory
+      attribute :file, 'the name of the AUTHORS file, appended to "dir" path',
+                       'AUTHORS'
+
+    end # class Authors
+
+  end # module Strategies
+
+end # module Uttk

data/lib/uttk/strategies/Block.rb

@@ -0,0 +1,113 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2004, 2005 Uttk team. All rights reserved.
+# License::   LGPL
+# Revision::  $Id: /w/fey/uttk/trunk/lib/uttk/strategies/Block.rb 22117 2006-02-22T08:56:22.146625Z pouillar  $
+
+
+module Uttk
+
+  module Strategies
+
+    # I can evaluate a Ruby block. The test fails if block raise an
+    # excption or return a false/nil value.
+    class Block < IOBased
+      include Concrete
+
+
+      def self.create ( *a, &block )
+        raise ArgumentError, 'need a block' if block.nil?
+        strategy = new(*a)
+        strategy.test = block
+        strategy
+      end
+
+
+      def test=(block1=nil, &block2)
+        if block2
+          @test = block2
+        elsif not block1.nil?
+          @test = block1
+        else
+          raise ArgumentError, 'no block given'
+        end
+      end
+
+
+      def prologue
+        super
+
+        if @test.is_a?(String)
+          str = @test.dup
+          @test = lambda { eval str.do_symtbl_gsub(@symtbl) }
+        end
+
+        @result, @raised_exception = nil, nil
+      end
+      protected :prologue
+
+
+      def run_impl
+        begin
+          @result = @test[*@args]
+        rescue Status => ex
+          raise ex
+        rescue Exception => ex
+          @raised_exception = ex
+        end
+      end
+      protected :run_impl
+
+
+      def assertion
+        fail @raised_exception if @raised_exception
+        pass if @result
+        fail @result
+      end
+      protected :assertion
+
+
+      attribute :test, 'a Proc to call with args', :mandatory, :invisible
+      attribute :args, 'arguments for the `test\' proc', []
+
+    end # closs Block
+
+  end # module Strategies
+
+end # module Uttk
+
+#FIXME: adapt me to a real unit test suite
+# if defined? TEST_MODE or __FILE__ == $0
+
+#   include Uttk
+#   include Strategies
+
+#   $x = 0
+#   suite = Suite.new
+#   suite.strategyclass = Block
+#   suite.name = 'Test the Block strategy'
+#   suite.symtbl = SymTbl.new
+#   suite.symtbl[:loader] = Loaders::Yaml.new
+
+#   t1 = Block.create { $x = $x.succ }
+#   t1.name = 'test 1'
+#   suite.create t1
+
+#   t2 = suite.create
+#   t2.name = 'test 2'
+#   t2.test = proc { $x = $x.succ }
+
+#   t3 = suite.create
+#   t3.name = 'test 3'
+#   t3.test = '$x = $x.succ'
+
+#   t4 = suite.create(Block.create { $x == 3 || fail("x != 3 (with x == #$x)") })
+#   t4.name = 'test 4 PASS'
+
+#   t5 = suite.create(Block.create { fail("x != 3 (with x == #$x)") })
+#   t5.name = 'test 5 FAIL'
+#   t5.weight = -1
+
+#   log = Logger.new(Dumpers::Yaml.new(STDOUT))
+#   suite.run(log)
+
+# end

data/lib/uttk/strategies/Bootstrap.rb

@@ -0,0 +1,55 @@
+# 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/Bootstrap.rb 22117 2006-02-22T08:56:22.146625Z pouillar  $
+
+
+module Uttk
+
+  module Strategies
+
+    # Run the bootstrap(.sh)? script or a classic autoreconf. This strategy is
+    # used by the _Package_ strategy in case of the tested package does use
+    # the _autotools_ or not.
+    class Bootstrap < Proxy
+      include Concrete
+
+      BOOTSTRAP = /bootstrap(\.sh)?/
+      AUTORECONF = 'autoreconf -fvi'
+
+      def prologue
+        super
+
+        cmd = self.class.have_bootstrap? @dir
+        if cmd.nil? and Configure.have_configure_input? @dir
+          cmd = AUTORECONF
+        end
+        unless cmd.nil? or Configure.have_configure?(@dir)
+          create(Cmd) do |test|
+            test.name = 'internal command'
+            test.exit = 0
+            test.dir = @dir
+            test.command = cmd
+            test.reject :strategy
+          end
+        end
+      end
+
+
+      def dir= ( dir )
+        @dir = Pathname.new(dir)
+      end
+
+
+      def self.have_bootstrap? ( dir=Pathname.new('.') )
+        res = dir.entries.find { |ent| ent.to_s =~ BOOTSTRAP }
+        (res.nil?) ? nil : dir + res
+      end
+
+      attribute :dir, 'bootstrap directory', :mandatory
+
+    end # class Bootstrap
+
+  end # module Strategies
+
+end # module Uttk

data/lib/uttk/strategies/Checkout.rb

@@ -0,0 +1,64 @@
+# 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/Checkout.rb 21881 2006-02-19T01:33:18.844638Z pouillar  $
+
+module Uttk
+
+  module Strategies
+
+    class Checkout < Strategy
+      include Concrete
+
+      def prologue
+        super
+        @url = URI.parse(@url) unless @url.is_a? URI
+      end
+
+      def run_impl
+        begin
+          file, data = @url.checkout
+          if data.is_a? Commands::Datas::Data
+            out, err = data.output, data.error
+            @log.my_stdout = out.read unless out.nil? or out.size.zero?
+            @log.my_stderr = err.read unless err.nil? or err.size.zero?
+          end
+          file = FileType.guess(file)
+          if file.is_a? FileType::Directory
+            @symtbl[:checkout_dir] = file.path
+            @symtbl[:extract_dir] = file.path
+            pass
+          end
+          unless file.extractable? or file.installable?
+            fail("Bad file type #{file}:#{file.class}, " +
+                 'neither extractable nor installable')
+          end
+          if file.extractable?
+            path = file.extract
+            fail("cannot extract #{file} returned path is nil") if path.nil?
+          elsif file.installable?
+            install_dir = TempPath.new
+            install_dir.mkpath
+            data = file.install(install_dir)
+            if data.status != 0
+              fail("cannot install #{file} returned path is nil")
+            end
+            path = install_dir + 'gems' + file.path.basename.extsplit.first
+          end
+          @symtbl[:checkout_dir] = path
+          @symtbl[:extract_dir] = path
+        rescue FileType::ExtractError => ex
+          fail(ex)
+        rescue URI::CheckoutError => ex
+          fail(ex)
+        end
+        pass
+      end
+
+      attribute :url, 'url to checkout', :mandatory
+
+    end # class Checkout
+
+  end # module Strategies
+
+end # module Uttk

data/lib/uttk/strategies/Clean.rb

@@ -0,0 +1,29 @@
+# Author::    Marco Tessari  <marco.tessari@epita.fr>.
+# Copyright:: Copyright (c) 2004, 2005 Uttk team. All rights reserved.
+# License::   LGPL
+# $Id: /fey/uttk/trunk/lib/uttk/strategies/Clean.rb 8778 2005-09-26T04:34:48.103938Z ertai  $
+
+
+module Uttk
+
+  module Strategies
+
+    class Clean < Strategy
+      include Concrete
+
+      def run_impl
+        if @dir.is_a? Array
+          @dir.each { |dir| FileUtils.rm_rf(dir) }
+        else
+          FileUtils.rm_rf(@dir)
+        end
+        pass
+      end
+
+      attribute :dir, 'clean directory', :mandatory
+
+    end # class Clean
+
+  end # module Strategies
+
+end # module Uttk

data/lib/uttk/strategies/Cmd.rb

@@ -0,0 +1,60 @@
+# 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/Cmd.rb 22184 2006-02-23T16:12:25.225774Z pouillar  $
+
+
+module Uttk
+
+  module Strategies
+
+    # I can check many interaction with a command line based program, such as:
+    # its standard output, exit status, standard error. I can specify to a
+    # given command its arguments, environment variables and standard input.
+    #
+    # A tutorial introduces how to use this strategy at
+    # http://uttk.org/shelf/documentation
+    class Cmd < CmdBase
+      include Concrete
+
+      #
+      # Methods
+      #
+
+
+      def assertion
+        fail('wrong exit value') if !@exit.nil? and @exit.to_i != @my_exit.to_i
+        super
+      end
+      protected :assertion
+
+
+      def failed_hook
+        super
+        @log.my_exit = @my_exit
+      end
+      protected :failed_hook
+
+
+      def son_hook
+        env_sub = proc do |k,v|
+          ENV[k.to_s] = v.do_symtbl_gsub(@symtbl).gsub(/\$(\w+)/) { ENV[$1] }
+        end
+        @env.each(&env_sub)
+        @symtbl[:env].each(&env_sub) if @symtbl[:env]
+      end
+      protected :son_hook
+
+
+      #
+      # Attributes
+      #
+
+      attribute :exit,    'the exit status reference', Integer
+      attribute :env,     'environment variables', Hash do {} end
+
+    end # class Cmd
+
+  end # module Strategies
+
+end # module Uttk

data/lib/uttk/strategies/CmdBase.rb

@@ -0,0 +1,130 @@
+# 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/CmdBase.rb 21844 2006-02-17T17:26:59.771162Z pouillar  $
+
+
+module Uttk
+
+  module Strategies
+
+    class CmdBase < IOBased
+      include Abstract
+
+      #
+      # Constructor
+      #
+
+      def initialize ( *a, &b )
+        super
+        @my_exit, @pid, @my_status = nil, nil, nil
+      end
+
+
+      #
+      # Methods
+      #
+
+      def run_impl
+        begin
+          cmd = mk_command
+          cmd.gsub!("\n", ' ')
+
+          @log[:running] = cmd
+
+          @pid = Kernel.fork do
+            unless @input.nil? or @input_in_args
+              STDIN.reopen(@input.my.open('r'))
+            end
+            STDOUT.reopen(@output.my.open('w')) unless @output.nil?
+            STDERR.reopen(@error.my.open('w')) unless @error.nil?
+            Dir.chdir(@dir.to_s) if @dir
+            begin
+              son_hook
+              exec(cmd)
+            rescue Exception => ex
+              @log.exception_raised_during_exec = ex
+              exit! 127
+            end
+          end
+          father_hook
+          waitpid
+          fail('exception raised during exec') if @my_exit == 127
+        end
+      end
+      protected :run_impl
+
+
+      def son_hook
+      end
+      protected :son_hook
+
+
+      def father_hook
+      end
+      protected :father_hook
+
+
+      def abort_hook
+        unless @pid.nil?
+          begin
+            Process.kill('-KILL', -@pid)
+            waitpid
+          rescue Errno::ESRCH
+            @log.already_killed = @pid
+          end
+        end
+        @my_exit = 134 # Common status returned by sh on a SIGABRT
+        super
+      end
+      protected :abort_hook
+
+
+      def waitpid
+        return if @pid.nil? or not @my_status.nil?
+        Process.waitpid(@pid)
+        @my_status = $?
+        @my_exit = @my_status.exitstatus
+      end
+      protected :waitpid
+
+
+      def mk_command
+        cmd = @command.to_s.dup
+        cmd += ' %a' if cmd !~ /%a/ and @args
+        cmd.gsub!(/%a/, @args.to_s) if @args
+        if cmd =~ /%i/ and @input and @input.my
+          cmd.gsub!(/%i/, @input.my.to_s)
+          @input_in_args = true
+        else
+          @input_in_args = false
+        end
+        cmd
+      end
+      protected :mk_command
+
+
+      def epilogue
+        waitpid
+        super
+      end
+
+
+      #
+      # Attributes
+      #
+
+      attr_reader :my_exit, :my_status, :pid
+
+      attribute :command, 'the command to execute', :mandatory,
+                          [String, Pathname, Array]
+      attribute :dir,     'the directory where to launch the command',
+                          [String, Pathname]
+      attribute :args,    'the arguments for the command',
+                          [Array, String, Numeric]
+
+    end # class CmdBase
+
+  end # module Strategies
+
+end # module Uttk