uttk 0.3.1.2

data/lib/uttk/generators/templates/loader.rb

@@ -0,0 +1,26 @@
+# Author::    <%= fullname %>  <<%= email %>>.
+# Copyright:: Copyright (c) <%= year %> Uttk Team. All rights reserved.
+# License::   LGPL
+# Revision::  $Id: /fey/uttk/trunk/lib/uttk/generators/templates/loader.rb 8778 2005-09-26T04:34:48.103938Z ertai  $
+
+module Uttk
+
+  module Loaders
+
+    class <%= class_name %> < Loader
+      include Concrete
+
+      def initialize ( *a, &b )
+        super
+        # ...
+      end
+
+      def load ( aString, aSymtbl=nil )
+        # ...
+      end
+
+    end # class <%= class_name %>
+
+  end # module Loaders
+
+end # module Uttk

data/lib/uttk/generators/templates/path_filter.rb

@@ -0,0 +1,28 @@
+# Author::    <%= fullname %>  <<%= email %>>.
+# Copyright:: Copyright (c) <%= year %> Uttk Team. All rights reserved.
+# License::   LGPL
+# Revision::  $Id: /w/fey/uttk/trunk/lib/uttk/generators/templates/path_filter.rb 21844 2006-02-17T17:26:59.771162Z pouillar  $
+
+module Uttk
+
+  module PathFilters
+
+    class <%= class_name %> < PathFilter
+      include Concrete
+
+      def initialize ( *a, &b )
+        super
+        # ...
+      end
+
+
+      def filter ( path, leaf )
+        # ...
+        [filtered_path, filtered_leaf]
+      end
+
+    end # class <%= class_name %>
+
+  end # module PathFilters
+
+end # module Uttk

data/lib/uttk/generators/templates/strategy.rb

@@ -0,0 +1,59 @@
+# Author::    <%= fullname %>  <<%= email %>>.
+# Copyright:: Copyright (c) <%= year %> Uttk Team. All rights reserved.
+# License::   LGPL
+# Revision::  $Id: /fey/uttk/trunk/lib/uttk/generators/templates/strategy.rb 8778 2005-09-26T04:34:48.103938Z ertai  $
+
+
+module Uttk
+
+  module Strategies
+
+    class <%= class_name %> < Strategy
+      include Concrete
+
+      #
+      # Methods
+      #
+
+      def prologue
+        super
+        # ...
+      end
+      protected :prologue
+
+
+      def run_impl
+        # ...
+        super
+        # ...
+      end
+      protected :run_impl
+
+
+      def assertion
+        # ...
+        super
+      end
+      protected :assertion
+
+
+      def epilogue
+        # ...
+        super
+      end
+      protected :epilogue
+
+
+
+      #
+      # Attributes
+      #
+
+      attribute :an_attribute, 'a description', THE_CLASS, DEFAULT_VALUE,
+                                                :mandatory, :invisible
+
+    end # class <%= class_name %>
+
+  end # module Strategies
+
+end # module Uttk

data/lib/uttk/generators/templates/strategy.yml

@@ -0,0 +1,28 @@
+---
+Test the <%= class_name %> strategy: !S::Suite
+  contents:
+    - good test 1: !S::RMatch
+        test: !S::<%= class_name %>
+          # ...
+        match:
+          - // # ...
+          - //
+          - //
+        dont_match:
+          - // # ...
+          - //
+          - //
+
+    - bad test 1: !S::RMatch
+        test: !S::<%= class_name %>
+          # ...
+        match:
+          - // # ...
+          - //
+          - //
+        dont_match:
+          - // # ...
+          - //
+          - //
+
+    - # ...

data/lib/uttk/generators/templates/unit_test.rb

@@ -0,0 +1,46 @@
+# Author::    <%= fullname %>  <<%= email %>>.
+# Copyright:: Copyright (c) <%= year %> Uttk Team. All rights reserved.
+# License::   LGPL
+# Revision::  $Id: /fey/uttk/trunk/lib/uttk/generators/templates/unit_test.rb 8778 2005-09-26T04:34:48.103938Z ertai  $
+
+test_section __FILE__ do
+
+  module Uttk
+
+    module <%= module_name %>
+
+      class <%= class_name %>Test < ::Test::Unit::TestCase
+
+        #
+        # Methods
+        #
+
+        def setup
+          super
+          # ...
+        end
+
+        def teardown
+          super
+          # ...
+        end
+
+        #
+        # Tests
+        #
+
+        def test_xxx
+          # ...
+        end
+
+        def test_yyy
+          # ...
+        end
+
+      end # class <%= class_name %>Test
+
+    end # module <%= module_name %>
+
+  end # module Uttk
+
+end

data/lib/uttk/loaders/Loader.rb

@@ -0,0 +1,180 @@
+# 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/loaders/Loader.rb 8788 2005-09-27T14:23:19.686215Z ertai  $
+
+
+module Uttk
+
+  # Uttk::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 Uttk::Loaders to add new loader easily.
+  #
+  # To implement a loader you just need to subclass the abstract
+  # loader (Uttk::Loaders::Loader), and implement the `load'
+  # method.
+  #
+  # The `load' 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 = "Uttk::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 this method in subclasses. It must returns an object which
+      # respond to testify. The argument _aString_ contains the contents of the
+      # loaded file. The _symtbl_ argument is the current table of symbols.
+      def load ( aString, symtbl=nil )
+        raise NotImplementedError
+      end
+
+    end # class Loader
+
+  end # module Loaders
+
+end # module Uttk
+
+
+class Object
+
+  def uttk_testify ( symtbl=nil, &block )
+    symtbl = Uttk.default_symtbl if symtbl.nil?
+    testify(symtbl.new_child, &block)
+  end
+
+end # class Object
+
+
+class Pathname
+
+  def testify ( symtbl, &block )
+    symtbl[:pwd] = self.expand_path.dirname
+    symtbl[:basename] = self.basename
+    symtbl[:realname] = self
+    open { |f| f.testify(symtbl, &block) }
+  end
+
+end # class Pathname
+
+
+
+class String
+
+  def testify ( symtbl, &block )
+    unless symtbl.has_key? :loader
+      raise ArgumentError, "No loader found in options (:loader)"
+    end
+    symtbl[:loader].load(self, symtbl).testify(symtbl, &block)
+  end
+
+end # class String
+
+
+
+class IO
+
+  def testify ( symtbl, &block )
+    read.testify(symtbl, &block)
+  end
+
+end # class IO
+
+
+
+class StringIO
+
+  def testify ( symtbl, &block )
+    read.testify(symtbl, &block)
+  end
+
+end # class StringIO
+
+
+
+class Class
+
+  def testify ( symtbl, &block )
+    raise ArgumentError, "nil symtbl" if symtbl.nil?
+    unless self < Uttk::Strategies::Strategy
+      raise ArgumentError, "Need a subclass of Strategy not #{name}"
+    end
+    new do |t|
+      t.symtbl ||= symtbl
+      block[t] if block
+    end
+  end
+
+end # class Class
+
+
+
+class Hash
+
+  def testify ( symtbl, &block )
+
+    if size == 1 and (tab = to_a[0])[1].is_a? Hash
+      name, doc = tab
+      doc[:name] = name
+      return doc.testify(symtbl, &block)
+    end
+
+    raise ArgumentError, "nil symtbl" if symtbl.nil?
+
+    strategy = self[:strategy] || symtbl[:strategy]
+
+    if strategy.nil?
+      raise ArgumentError, "no strategy for this test (#{inspect})"
+    end
+
+    Uttk::Loaders.get_class(strategy).new do |t|
+      t.symtbl ||= symtbl
+      block[t] if block
+      t.assign(self)
+    end
+
+  end
+
+end # class Hash
+
+
+class Array
+
+  def testify ( symtbl, &block )
+    raise ArgumentError, "nil symtbl" if symtbl.nil?
+    Uttk::Strategies::Suite.new do |t|
+      t.symtbl = symtbl
+      t.name = symtbl[:suite_name]
+      t.wclass = symtbl[:wclass]
+      t.attributes = symtbl[:attributes]
+      t.symbols = symtbl[:symbols]
+      t.contents = self
+      block[t] if block
+    end
+  end
+
+end # class Array

data/lib/uttk/loaders/Ruby.rb

@@ -0,0 +1,28 @@
+# Author::    Nicolas Despr�s  <nicolas.despres@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2005 Uttk Team. All rights reserved.
+# License::   LGPL
+# $Id: /fey/uttk/trunk/lib/uttk/loaders/Ruby.rb 8778 2005-09-26T04:34:48.103938Z ertai  $
+
+
+module Uttk
+
+  module Loaders
+
+    class Ruby < Loader
+      include Concrete
+
+      def load ( aString, symtbl )
+        test = Uttk.uttk_eval(aString, symtbl, symtbl[:realname].to_s)
+        test.symtbl = symtbl if test.symtbl.nil?
+        test
+      end
+
+    end # class Ruby
+
+  end # module Loaders
+
+end # module Uttk
+
+
+
+

data/lib/uttk/loaders/Yaml.rb

@@ -0,0 +1,98 @@
+# 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/loaders/Yaml.rb 21931 2006-02-19T14:37:25.597406Z pouillar  $
+
+
+require 'yaml'
+
+module Uttk
+
+  module Loaders
+
+    class Yaml < Loader
+      include Concrete
+
+      def load ( aString, symtbl=nil )
+        tree = YAML::parse(aString)
+        return nil unless tree
+        tree.uttk_loader_yaml_transform
+      end
+
+    end # class Yaml
+
+  end # module Loaders
+
+end # module Uttk
+
+
+
+module YAML
+
+  module Syck
+    class Scalar
+    end
+  end
+
+  module BaseNode
+
+    CLASS_KEY_LIST = [:strategy, :wclass, :symtbl_class]
+
+    def key_transform ( t, k, v )
+      k = k.uttk_loader_yaml_transform if k.is_a? BaseNode
+      case k
+        when Symbol
+        when Integer
+        when /^:"(.*)"/, /^:(.*)/ then k = $1.to_sym
+        else k = k.to_s.to_sym
+      end
+      if CLASS_KEY_LIST.include?(k) and (val = v.value) =~ /^[A-Z]/
+        t[k] = Uttk::Loaders.get_class(val)
+      elsif v.is_a? BaseNode
+        t[k] = v.uttk_loader_yaml_transform
+      else
+        t[k] = v
+      end
+    end
+    private :key_transform
+
+    def uttk_loader_yaml_transform
+      @type_id = nil unless defined? @type_id
+      t = nil
+      case @value
+      when Hash
+        t = Hash.new
+        if HAVE_YAML_TAGURI
+          @value.each do |k, v|
+            key_transform(t, k, v)
+          end
+        else
+          children_with_index.each do |v, k|
+            key_transform(t, k, v)
+          end
+        end
+      when 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.uttk_loader_yaml_transform
+          end
+        end
+      when /^:"(.*)"/, /^:(.*)/
+        @type_id = nil
+        t = $1.to_sym
+      else
+        return transform
+      end
+      YAML.transfer(@type_id, t)
+    end
+
+  end # module BaseNode
+
+end # module YAML