uttk 0.3.1.2

data/lib/uttk/strategies/Stub.rb

@@ -0,0 +1,37 @@
+# Author::    Nicolas Despres  <nicolas.despres@gmail.com>.
+# Copyright:: Copyright (c) 2004, 2005 Uttk team. All rights reserved.
+# License::   LGPL
+# $Id: /w/fey/uttk/trunk/lib/uttk/strategies/Stub.rb 22102 2006-02-21T23:03:39.538964Z pouillar  $
+
+
+module Uttk
+
+  module Strategies
+
+    # I repeat to the log the hash of value given to my attribute
+    # _"returned_value"_
+    class Stub < Strategy
+      include Concrete
+
+      protected
+      def run_impl
+        @returned_value.each { |k, v| @log[k] = v }
+      end
+
+      protected
+      def assertion
+        pass
+      end
+
+      attribute :returned_value, 'attribute which are going to be copied',
+                                 :mandatory,
+                                 :invisible do {} end
+
+    end # class Stub
+
+  end # module Strategies
+
+end # module Uttk
+
+
+

data/lib/uttk/strategies/SubCmd.rb

@@ -0,0 +1,77 @@
+# 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/SubCmd.rb 22112 2006-02-22T08:30:11.236459Z pouillar  $
+
+
+module Uttk
+
+  module Strategies
+
+    # I run a sub Uttk or an another program that can behave like it.
+    class SubCmd < CmdBase
+      include Concrete
+
+      def prologue
+        @command = @symtbl[:uttk]
+        @dir = @symtbl[:pwd]
+        @quiet_print = true
+        super
+      end
+      protected :prologue
+
+
+      def run_impl
+        super
+        raise_error 'no uttk output' unless @output.my.exist?
+        status = nil
+        root_path = @log.path
+        @output.my.open do |out|
+          YAML::each_node(out) do |node|
+            notification = node.symbol_safe_transform
+            case notification
+            when Array
+              path, leaf = notification
+              @log.update(:new_leaf, root_path + path, leaf)
+            when Status
+              status = notification
+            else
+              raise_error 'bad sub commad output' if stream.nil?
+            end
+          end
+        end
+        raise_error 'bad status output' unless status.is_a? Status
+        raise_error 'uttk stderr not empty' unless @error.my.zero?
+        @status = status
+        raise_status @status
+      end
+      protected :run_impl
+
+
+      def assertion
+        raise_error "bad exit status #@my_exit" unless [0, 2].include? @my_exit
+        super
+      end
+      protected :assertion
+
+
+      def error_hook
+        @log.my_stdout = @output.my.read if @output and @output.my.exist?
+        @log.my_stderr = @error.my.read if @error and @error.my.exist?
+        super
+      end
+      protected :error_hook
+
+
+      def mk_command
+        @args = "#@args -F Path --dump-status"
+        super
+      end
+      protected :mk_command
+
+
+    end # class SubCmd
+
+  end # module Strategies
+
+end # module Uttk

data/lib/uttk/strategies/Suite.rb

@@ -0,0 +1,71 @@
+# 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/Suite.rb 8778 2005-09-26T04:34:48.103938Z ertai  $
+
+
+module Uttk
+
+  module Strategies
+
+    # An ordered collection of tests which can be #run.
+    #
+    # A the Suite class has two goals:
+    #   - group a set of Strategy in a single object which is a Strategy.
+    #   - factor some attributes which are identical in each tests of the
+    #     the suite.
+    #
+    # == Example
+    #  require 'uttk'
+    #  include Uttk
+    #
+    #  symtbl = SymTbl.new
+    #  symtbl[:loader] = Loaders::Yaml.new
+    #  aSuite = Strategies::Suite.new({
+    #            :name   => 'A set of tests',
+    #            :symtbl => symtbl,
+    #            :wclass => Weights::WFloat,
+    #            :attributes => {
+    #                :strategy => Strategies::Cmd,
+    #                :exit  => 0
+    #              },
+    #              :contents => OHash[
+    #                "I'm suppose to pass 1", { :command => "true" },
+    #                "I'm suppose to fail 2", { :command => "false", :weight => -1 },
+    #                "I'm suppose to pass 3", { :command => "false",
+    #                                           :exit    => 1 }
+    #              ]
+    #          })
+    #  aSuite.run(Logger.new(Dumpers::Yaml.new(STDOUT)))
+    #
+    #  aSuite = Strategies::Suite.new
+    #  aSuite.name = 'A set of tests'
+    #  aSuite.symtbl = symtbl
+    #  aSuite.wclass = Weights::WFloat
+    #  aSuite.strategyclass = Strategies::Cmd
+    #  aSuite.exit = 0    # a sugar when its unambiguous.
+    #  t1 = aSuite.create
+    #  t1.name = "I'm suppose to pass 4"
+    #  t1.command = "true"
+    #  aSuite.create({ :name    => "I'm suppose to fail 5",
+    #                  :command => "false",
+    #                  :weight  => -1 })
+    #  io = Tempfile.new('uttk-example')
+    #  io << << EOF
+    #  ---
+    #  name: I'm suppose to pass 6
+    #  command: false
+    #  exit: 1
+    #  EOF
+    #  io.rewind
+    #  aSuite.create(io)
+    #  aSuite.run(Logger.new(Dumpers::Yaml.new(STDOUT)))
+    class Suite < Collection
+      include Concrete
+      include Ordered
+    end # class Suite
+
+  end # module Strategies
+
+end # module Uttk
+

data/lib/uttk/strategies/Test.rb

@@ -0,0 +1,89 @@
+# 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/Test.rb 8778 2005-09-26T04:34:48.103938Z ertai  $
+
+
+require 'yaml'
+require 'diff'
+
+
+module Uttk
+
+  module Strategies
+
+    # A strategy to test them all.
+    class Test < Proxy
+      include Concrete
+
+      #FIXME: add support to test filter
+
+      def initialize(*a, &b)
+        super
+        @outfile = nil
+      end
+
+      protected
+      def prologue
+        super
+        @outfile = TempPath.new
+        create(@test)
+      end
+
+      protected
+      def run_impl_test(test, log)
+        test.reject :name, :status, :strategy # FIXME : Try to remove this if possible
+        my_log = nil
+        @outfile.open('w') do |io|
+          my_log = Logger.new(Dumpers::Yaml.new(io))
+          @returned_status = super(test, my_log)
+          my_log.close if my_log
+        end
+        @returned_status
+      end
+
+      protected
+      def assertion
+        returned_log = nil
+        @outfile.open { |io| returned_log = YAML.load(io) }
+        unless returned_log.is_a?(Hash) or returned_log.is_a?(Array)
+          raise('the result must be either a hash or an array')
+        end
+        del_ignored_value(returned_log)
+        del_ignored_value(@expected_log)
+        diff = @expected_log.gen_diff(returned_log) {|a, b| a.to_s == b.to_s}
+        if diff.no_diff?
+          pass
+        else
+          @log[:differences] = diff
+          fail('there is differences')
+        end
+        super
+      end
+
+      protected
+      def epilogue
+        @outfile.clean if @outfile
+        super
+      end
+
+      protected
+      def del_ignored_value(hash)
+        hash.delete_if {|k, _| @ignored_value.include?(k.to_s)}
+      end
+
+      attribute :test,            'the test to test',
+                                  :mandatory, :dont_expand
+      attribute :expected_status, 'the expected status',
+                                  :mandatory
+      attribute :expected_log,    'the expected log result',
+                                  :mandatory, :invisible
+      attribute :ignored_value,   'the list of attributes for which the ' +
+                                  'value is not compared',
+                                  [], :invisible do [] end
+
+    end # class Test
+
+  end # module Strategies
+
+end # module Uttk

data/lib/uttk/streams.rb

@@ -0,0 +1,69 @@
+# 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/streams.rb 8778 2005-09-26T04:34:48.103938Z ertai  $
+
+module Uttk
+
+  module Streams
+
+    #
+    # Internal classes
+    #
+
+    autoloaded_module(__FILE__)
+
+  end # module Streams
+
+end # module Uttk
+
+class Object
+  def compare_stream ( stream )
+    to_s.compare_stream(stream)
+  end
+  def to_s_for_uttk_log
+    self
+  end
+end
+
+class NilClass
+  def compare_stream ( stream )
+    true
+  end
+  def to_s_for_uttk_log
+    false
+  end
+end
+
+class Regexp
+  def compare_stream ( stream )
+    stream.read =~ self
+  end
+end
+
+class String
+  def compare_stream ( stream )
+    self == stream.read
+  end
+end
+
+class Pathname
+  def compare_stream ( stream )
+    read.compare_stream(stream)
+  end
+  def to_s_for_uttk_log
+    read
+  end
+end
+
+class IO
+  def compare_stream ( stream )
+    rewind
+    read.compare_stream(stream)
+  end
+  def to_s_for_uttk_log
+    rewind
+    read
+  end
+end
+

data/lib/uttk/streams/Diff.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: /fey/uttk/trunk/lib/uttk/streams/Diff.rb 8778 2005-09-26T04:34:48.103938Z ertai  $
+
+
+module Uttk
+
+  module Streams
+
+    class Diff < Stream
+
+      def to_uttk_log ( log )
+        log["diff_#@name"] = @ref.to_diff_for_uttk_log(@my) if @ref.can_diff?
+      end
+
+    end # Diff
+
+  end # module Streams
+
+end # module Uttk
+
+class Object
+  def to_diff_for_uttk_log ( my )
+    IO.popen("diff -u --label my #{my} --label ref -", 'r+') do |diff|
+      diff << to_s
+      diff.close_write
+      diff.readlines.join
+    end
+  end
+  def can_diff?
+    true
+  end
+end
+
+class NilClass
+  def can_diff?
+    false
+  end
+end
+
+class Regexp
+  def can_diff?
+    false
+  end
+end
+
+class Pathname
+  def to_diff_for_uttk_log ( my )
+    open.to_diff_for_uttk_log(my)
+  end
+end
+
+class IO
+  def to_diff_for_uttk_log ( my )
+    rewind
+    readlines.join.to_diff_for_uttk_log(my)
+  end
+end
+

data/lib/uttk/streams/HexaDiff.rb

@@ -0,0 +1,35 @@
+# Author::    Nicolas Despr�s  <nicolas.despres@gmail.com>.
+# Copyright:: Copyright (c) 2004, 2005 Uttk team. All rights reserved.
+# License::   LGPL
+# $Id: Diff.rb 720 2005-09-26 04:34:48Z ertai $
+
+
+module Uttk
+
+  module Streams
+
+    class HexaDiff < Diff
+
+      #FIXME: manage only !path :-(
+      def to_uttk_log ( log )
+        if @name == "output"
+          if @ref.can_diff?
+            TempPath.new('hexa-diff-output') do |hexa_my|
+              system "hexdump -C #@my > #{hexa_my}"
+              TempPath.new('hexa-diff-output') do |hexa_ref|
+                system "hexdump -C #@ref > #{hexa_ref}"
+                log["hexa_diff_#@name"] = hexa_ref.to_diff_for_uttk_log(hexa_my)
+              end
+            end
+          end
+        else
+          super
+        end
+      end
+
+    end # HexaDiff
+
+  end # module Streams
+
+end # module Uttk
+