ttk 0.1.576

data/lib/ttk/strategies/Abort.rb

@@ -0,0 +1,24 @@
+# Author::    Nicolas Despres  <nicolas.despres@gmail.com>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: Abort.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+module TTK
+
+  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 TTK

data/lib/ttk/strategies/Authors.rb

@@ -0,0 +1,43 @@
+# Author::    Marco Tessari  <marco.tessari@epita.fr>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: Authors.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+module TTK
+
+  module Strategies
+
+    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-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 TTK

data/lib/ttk/strategies/Ball.rb

@@ -0,0 +1,68 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: Ball.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+module TTK
+
+  module Strategies
+
+    # I'm deprecated, use Package instead.
+    class Ball < Composite
+      include Concrete
+
+      def prologue
+	super
+	suite = Suite.new(self)
+        suite.name = 'contents'
+	suite.attributes = {
+	  :strategy => Cmd,
+	  :fatal => true,
+	  :weight => 0
+	}
+	cmd_attributes = {
+          :exit => 0,
+	  :dir => '<<extract_dir>>',
+	  :verbose_print => true
+	}
+
+	extract = suite.create(Extract)
+	extract.name = 'Extracting'
+	extract.tarball = @tarball
+	extract.dest = @dest
+
+	distclean = suite.create(cmd_attributes)
+	distclean.name = 'Distclean'
+	distclean.command = 'make distclean'
+
+	configure = suite.create(Configure)
+	configure.name = 'Configuring'
+	configure.dir = cmd_attributes[:dir]
+
+	build = suite.create(cmd_attributes)
+	build.name = 'Building'
+	build.command = 'make all'
+
+	test = suite.create(@test)
+	test.fatal = false
+	test.weight = 1
+
+	clean = suite.create(Clean)
+	clean.name = 'Cleaning'
+	clean.dir = cmd_attributes[:dir]
+
+        @contents = [suite]
+      end
+
+      attribute :tarball, 'path to the tarball', :mandatory
+      attribute :dest,    'extraction directory', '/tmp'
+      attribute :author,  'the author of the tarball'
+      attribute :test,    'the test to execute',
+                          :mandatory, :invisible, :dont_expand
+
+    end # class Ball
+
+  end # module Strategies
+
+end # module TTK

data/lib/ttk/strategies/Block.rb

@@ -0,0 +1,95 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: Block.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+module TTK
+
+  module Strategies
+
+    class Block < Strategy
+      include Concrete
+
+      def self.create ( *a, &block )
+        raise ArgumentError, 'need a block' unless block_given?
+        strategy = new(*a)
+        strategy.test = block
+        strategy
+      end
+
+      def test=(block1=nil, &block2)
+	if block_given?
+	  @test = block2
+	elsif !block1.nil?
+	  @test = block1
+	else
+	  raise ArgumentError, 'no block given'
+	end
+
+	if @test.is_a?(String)
+	  str = @test.dup
+	  @test = proc do eval str end
+	end
+      end
+
+      def run_impl
+        res = nil
+        begin
+          res = @test[*@args]
+        rescue StatusException => ex
+          raise ex
+        rescue Exception => ex
+          fail(ex)
+        end
+        pass if res
+        fail(res)
+      end
+
+      attribute :test, 'a Proc to call with args', :mandatory, :invisible
+      attribute :args, 'arguments for the `test\' proc', []
+
+      protected :run_impl, :epilogue
+
+    end # closs Block
+
+  end # module Strategies
+
+end # module TTK
+
+#FIXME: adapt me to a real unit test suite
+# if defined? TEST_MODE or __FILE__ == $0
+
+#   include TTK
+#   include Strategies
+
+#   $x = 0
+#   suite = Suite.new
+#   suite.strategyclass = Block
+#   suite.name = 'Test the Block strategy'
+#   suite.symtbl = TTK::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/ttk/strategies/Bootstrap.rb

@@ -0,0 +1,52 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: Bootstrap.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+module TTK
+
+  module Strategies
+
+    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 TTK

data/lib/ttk/strategies/Checkout.rb

@@ -0,0 +1,53 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: Checkout.rb 575 2005-04-14 10:22:30Z polrop $
+
+
+require 'checkout'
+require 'filetype'
+
+module TTK
+
+  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, out, err = @url.checkout
+          @log.my_stdout = out.read unless out.nil? or out.size.zero?
+          @log.my_stderr = err.read unless err.nil? or err.size.zero?
+          file = FileType.guess(file)
+          if file.is_a? FileType::Directory
+            @symtbl[:extract_dir] = file.path
+            pass
+          end
+          unless file.is_a? FileType::Extractable
+            fail("Bad file type #{file}:#{file.class}, not extractable")
+          end
+          path = file.extract
+          fail("cannot extract #{file} returned path is nil") if path.nil?
+          @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 TTK

data/lib/ttk/strategies/Clean.rb

@@ -0,0 +1,29 @@
+# Author::    Marco Tessari  <marco.tessari@epita.fr>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: Clean.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+module TTK
+
+  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 TTK

data/lib/ttk/strategies/Cmd.rb

@@ -0,0 +1,55 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: Cmd.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+module TTK
+
+  module Strategies
+
+    # FIXME: explain here how to use it to test a command line based program
+    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'
+      attribute :env,     'environment variables' do {} end
+
+    end # class Cmd
+
+  end # module Strategies
+
+end # module TTK

data/lib/ttk/strategies/CmdBase.rb

@@ -0,0 +1,103 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: CmdBase.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+module TTK
+
+  module Strategies
+
+    class CmdBase < IOBased
+      include Abstract
+
+      #
+      # Constructor
+      #
+
+      def initialize ( *a, &b )
+	super
+	@my_exit = nil
+      end
+
+
+      #
+      # Methods
+      #
+
+      def run_impl
+	begin
+          cmd = mk_command
+          cmd.gsub!(/\n/, ' ')
+
+          if @log.severity_level <= Logger::Severity::DEBUG
+            @log[:running] = cmd
+          end
+
+	  @pid = Kernel.fork do
+            STDIN.reopen(@input.ref.to_io) unless @input.ref.nil?
+            STDOUT.reopen(@output.my.open('w')) unless @output.nil?
+            STDERR.reopen(@error.my.open('w')) unless @error.nil?
+            begin
+              son_hook
+              exec(cmd)
+            rescue Exception => ex
+              @log.exception_raised_during_exec = ex
+              exit! 127
+            end
+          end
+	  Process.waitpid(@pid)
+	  @my_status = $?
+	  @my_exit = @my_status.exitstatus
+          fail('exception raised during exec') if @my_exit == 127
+	end
+      end
+      protected :run_impl
+
+
+      def son_hook
+      end
+      protected :son_hook
+
+
+      def abort_hook
+        if defined? @pid
+          begin
+            Process.kill('-KILL', -@pid)
+            Process.waitpid(@pid)
+          rescue Errno::ESRCH
+            @log.already_killed = @pid
+          end
+        end
+        @my_exit = 1 #FIXME: choose a specific exit status for timeout
+        super
+      end
+      protected :abort_hook
+
+
+      def mk_command
+        cmd = @command.to_s.dup
+        cmd += ' %a' if cmd !~ /%a/ and @args
+        cmd.gsub!(/%a/, @args.to_s) if @args
+        cmd = "cd #@dir && #{cmd}" if @dir
+        cmd
+      end
+      protected :mk_command
+
+
+
+      #
+      # Attributes
+      #
+
+      attr_reader :my_exit
+
+      attribute :command, 'the command to execute', :mandatory
+      attribute :dir,     'the directory where to launch the command'
+      attribute :args,    'the arguments for the command'
+
+    end # class CmdBase
+
+  end # module Strategies
+
+end # module TTK