ttk 0.1.576

data/lib/ttk/fetchers/client/receiver.rb

@@ -0,0 +1,62 @@
+# Author::    Nicolas Despres  <nicolas.despres@gmail.com>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: receiver.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+require 'dtime'
+require 'md5'
+
+
+module TTK
+
+  module Fetchers
+
+    class Client
+
+      class Receiver
+        include DRb::DRbUndumped
+
+        def initialize(resource)
+          @resource = resource
+          @file = @resource.open('w')
+          @md5sum = Digest::MD5.new
+          @t0 = Time.now
+          @success = nil
+        end
+
+        attr_reader :resource
+
+        def recv(str)
+          @md5sum << str
+          @file.write(str)
+        end
+
+        def stop(md5sum)
+          @file.close
+          @enlapsed_time = DTime.new(Time.now - @t0)
+          @success = (@md5sum.to_s == md5sum)
+        end
+
+        def stat
+          unless @success.nil?
+            {
+              :resource => @resource,
+              :enlapsed_time => @enlapsed_time,
+              :md5sum => @md5sum.to_s,
+              :success => @success
+            }
+          end
+        end
+
+      end # class Receiver
+
+    end # class Client
+
+  end # module Fetchers
+
+end # module TTK
+
+
+
+

data/lib/ttk/fetchers/server/sender.rb

@@ -0,0 +1,69 @@
+# Author::    Nicolas Despres  <nicolas.despres@gmail.com>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: sender.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+require 'md5'
+require 'dtime'
+
+
+module TTK
+
+  module Fetchers
+
+    class Server
+
+      class Sender
+        include DRb::DRbUndumped
+
+        BLOCK_SIZE = 1024
+
+        def initialize(resource, receiver)
+          @resource = resource
+          unless @resource.exist?
+            raise(Errno::ENOENT, "`#@resource' - no such resource")
+          end
+          @receiver = receiver
+          @md5sum = Digest::MD5.new
+          @success = nil
+        end
+
+        def send
+          if @success.nil?
+            @t0 = Time.now
+            @resource.open do |f|
+              until f.eof?
+                str = f.read(BLOCK_SIZE)
+                @md5sum << str
+                @receiver.recv(str)
+              end
+              @success = @receiver.stop(@md5sum.to_s)
+            end
+            @enlapsed_time = DTime.new(Time.now - @t0)
+            @success
+          end
+        end
+
+        def stat
+          unless @success.nil?
+            {
+              :resource => @resource,
+              :enlapsed_time => @enlapsed_time,
+              :md5sum => @md5sum.to_s,
+              :success => @success
+            }
+          end
+        end
+
+      end # class Sender
+
+    end # class Server
+
+  end # module Fetchers
+
+end # module TTK
+
+
+
+

data/lib/ttk/filters/BasicLogger.rb

@@ -0,0 +1,30 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: BasicLogger.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+require 'logger'
+
+module TTK
+
+  module Filters
+
+    class BasicLogger < Filter
+      include Concrete
+
+      #FIXME: create a new logger and dump it to an extra files given in
+      #       argument
+      def initialize ( log=nil )
+#        @log = log.is_a?(Logger) ? log : LOG
+      end
+
+      def update ( msg, *args )
+#	@log.info "#{msg.to_s.ljust 14}, args: #{args.inspect}"
+      end
+
+    end # class BasicLogger
+
+  end # module Filters
+
+end # TTK

data/lib/ttk/filters/Filter.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: Filter.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+module TTK
+
+  # FIXME: explain here how to write a new filter
+  module Filters
+
+    # FIXME: document me
+    class Filter
+      include Abstract
+
+      def initialize ( out=Logger.new )
+	@out = out
+      end
+
+    end # class Filter
+
+  end # module Filters
+
+end # module TTK

data/lib/ttk/filters/Saver.rb

@@ -0,0 +1,60 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: Saver.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+module TTK
+
+  module Filters
+
+    #
+    # This very basic filter, observe a logger, and
+    # save all received messages, without any formatting.
+    #
+    # With this observer you save a sort of execution trace.
+    # After that you can apply to another logger the same
+    # message sequence.
+    #
+    # You can also simply check that two results are equal,
+    # for that, just compare the sequence message.
+    #
+    class Saver < Filter
+      include Concrete
+
+      def initialize
+        @out = []
+      end
+
+      def update ( *args )
+        msg, path, node, type = args
+        a = [msg]
+        a << path.last.first if msg == :new_node
+        a << node unless node.nil?
+        a << type unless type.nil?
+        @out << a
+      end
+
+      def get
+        @out.dup
+      end
+
+      def repeat ( log )
+        if !@out.empty? and @out[0][1] == 'root'
+          @out[0][1] = 'sub root'
+        end
+        @out.each do |a|
+          a[2] = a[2].to_sym if a[2].is_a? String
+          log.send(*a)
+        end
+      end
+
+      def each ( &block )
+        @out.each(&block)
+      end
+
+    end # class Saver
+
+  end # module Filters
+
+end # TTK

data/lib/ttk/loaders/Loader.rb

@@ -0,0 +1,123 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: Loader.rb 575 2005-04-14 10:22:30Z polrop $
+
+
+module TTK
+
+  # TTK::Loaders are design to help you to make tests.
+  #
+  # The `testify' method is here to provide a usefull way
+  # to convert anything to a test.
+  #
+  # For example Hash#testify instanciate a test from a hash:
+  #
+  #   doc = {
+  #     :strategy => Cmd,
+  #     :command  => 'echo -n foo',
+  #     :output   => 'foo',
+  #     :symtbl   => SYMTBL
+  #   }
+  #
+  #   test = doc.testify
+  #   test.run
+  #
+  # You can also load a test from a string, an io or a file.
+  # In this case the format can change (YAML, XML...).
+  # To manage this you can use TTK::Loaders to add new loader easily.
+  #
+  # To implement a loader you just need to subclass the abstract
+  # loader (TTK::Loaders::Loader), and implement the `load_doc'
+  # method.
+  #
+  # The `load_doc' method take an IO as argument and return
+  # something which can be testified.
+  module Loaders
+
+    def self.get_class ( aClassName )
+      return aClassName if aClassName.is_a? Class
+      aClassName = "TTK::Strategies::#{aClassName}" unless aClassName =~ /::/
+      return eval(aClassName) if aClassName =~ /[\w:]+/
+      raise NameError, "not a valid class name #{aClassName}"
+    end
+
+    # FIXME: document me
+    class Loader
+      include Abstract
+
+      # override me in subclasses
+      def load_doc(io)
+	io
+      end
+
+      def load ( anObject, &block )
+        anObject.testify(self, &block)
+      end
+
+    end # class Loader
+
+  end # module Loaders
+
+end # module TTK
+
+
+
+class Pathname
+
+  def testify ( aLoader, &block )
+    strategy = open { |f| f.testify(aLoader, &block) }
+    strategy.symtbl[:pwd] = self.expand_path.dirname
+    strategy
+  end
+
+end
+
+
+
+class IO
+
+  def testify ( aLoader, &block )
+    aLoader.load_doc(self).testify(aLoader, &block)
+  end
+
+end
+
+
+
+class Class
+
+  def testify ( aLoader, &block )
+    unless self < TTK::Strategies::Strategy
+      raise ArgumentError, "Need a subclass of Strategy not #{name}"
+    end
+    new(&block)
+  end
+
+end
+
+
+
+class Hash
+
+  def testify ( aLoader=nil, &block )
+
+    if size == 1 and (tab = to_a[0])[1].is_a? Hash
+      name, doc = tab
+      doc[:name] = name
+      return doc.testify(aLoader, &block)
+    end
+
+    unless has_key? :strategy
+      raise ArgumentError, "no strategy for this test (#{inspect})"
+    end
+
+    TTK::Loaders.get_class(self[:strategy]).new do |t|
+      block[t] if block_given?
+      t.assign(self)
+    end
+
+  end
+
+end
+

data/lib/ttk/loaders/OYaml.rb

@@ -0,0 +1,60 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: OYaml.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+require 'yaml/basenode_ext'
+
+module TTK
+
+  module Loaders
+
+    # OYaml: Ordered Yaml
+    class OYaml < Loader
+      include Concrete
+
+      def load_doc(io)
+	YAML::parse(io).ttk_loader_oyaml_transform
+      end
+
+    end # class OYaml
+
+
+    module ::YAML
+
+      module BaseNode
+
+        def ttk_loader_oyaml_transform
+          @type_id = nil unless defined? @type_id
+          t = nil
+          if @value.is_a? Hash
+            t = OHash.new
+            ordered_children_with_index.each do |v, k|
+              k = k.to_s.to_sym unless k.is_a? Symbol or k.is_a? Integer
+              if k == :strategy
+                t[k] = TTK::Loaders.get_class(v.value)
+              else
+                t[k] = v.ttk_loader_oyaml_transform
+              end
+            end
+          elsif @value.is_a? Array
+            t = []
+            @value.each do |v|
+              t.push v.ttk_loader_oyaml_transform
+            end
+          else
+            t = @value
+          end
+          YAML.transfer(@type_id, t)
+        end
+
+      end # module BaseNode
+
+    end # module ::YAML
+
+  end # module Loaders
+
+end # module TTK
+
+

data/lib/ttk/loaders/Yaml.rb

@@ -0,0 +1,74 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: Yaml.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+require 'yaml'
+
+module TTK
+
+  module Loaders
+
+    class Yaml < Loader
+      include Concrete
+
+      def load_doc(io)
+	tree = YAML::parse(io)
+        return nil unless tree
+        tree.ttk_loader_yaml_transform
+      end
+
+    end # class Yaml
+
+
+    module ::YAML
+
+      module BaseNode
+
+        CLASS_KEY_LIST = [:strategy, :wclass, :symtbl_class]
+
+        def key_transform ( t, k, v )
+          k = k.to_s.to_sym unless k.is_a? Symbol or k.is_a? Integer
+          if CLASS_KEY_LIST.include?(k) and (val = v.value) =~ /^[A-Z]/
+            t[k] = TTK::Loaders.get_class(val)
+          else
+            t[k] = v.ttk_loader_yaml_transform
+          end
+        end
+        private :key_transform
+
+        def ttk_loader_yaml_transform
+          @type_id = nil unless defined? @type_id
+          t = nil
+          if @value.is_a? Hash
+            t = Hash.new
+            children_with_index.each do |v, k|
+              key_transform(t, k, v)
+            end
+          elsif @value.is_a? Array
+            if not @value.empty? and @value.all? { |x| x.is_a? Hash and x.size == 1 }
+              t = OHash.new
+              @value.each do |x|
+                k, v = x.to_a
+                key_transform(t, k, v)
+              end
+            else
+              t = Array.new
+              @value.each do |v|
+                t.push v.ttk_loader_yaml_transform
+              end
+            end
+          else
+            t = @value
+          end
+          YAML.transfer(@type_id, t)
+        end
+
+      end # module BaseNode
+
+    end # module ::YAML
+
+  end # module Loaders
+
+end # module TTK