lemon 0.9.0 → 0.9.1

data/work/deprecated/model/test_clause.rb

@@ -1,112 +0,0 @@
-module Lemon
-
-  #
-  class TestClause
-
-    # New unit test procedure.
-    #
-    def initialize(scenario, description, options={}) #, &procedure)
-      @context     = scenario
-      @description = description
-
-      @type        = options[:type]
-
-      #@subject   = options[:subject]
-      #@aspect    = options[:aspect]
-      #@omit      = options[:omit]
-
-      #@procedure = procedure
-
-      @tested    = false
-    end
-
-    attr :type
-
-  public
-
-    # The case to which this test belongs.
-    attr :context
-
-    # Setup and teardown procedures.
-    #attr :subject
-
-    # 
-    #def target
-    #  context.
-    #end
-
-    # Description of test.
-    attr :description
-
-    # Test procedure, in which test assertions should be made.
-    #attr :procedure
-
-    # The before and after advice from the context.
-    #def advice
-    #  context.advice
-    #end
-
-    #
-    #def name ; @target ; end
-
-    # Is this unit test for a class or module level method?
-    #def function?
-    #  context.function?
-    #end
-
-    #
-    attr_accessor :omit
-
-    #
-    def omit?
-      @omit
-    end
-
-    #
-    #attr_accessor :tested
-
-    #
-    #def to_s
-    #  if function?
-    #    "#{test_case}.#{target}"
-    #  else
-    #    "#{test_case}##{target}"
-    #  end
-    #end
-
-    #
-    def to_s
-      "#{type.to_s.capitalize} #{description}"
-    end
-
-    #
-    def subject
-    end
-
-    #
-    def scope
-      context.scope
-    end
-
-    #
-    def to_proc
-      lambda{ call }
-    end
-
-    #
-    #def match?(match)    
-    #  match == target || match === aspect
-    #end
-
-    #
-    def call
-      context.run(self) do
-        #subject.run_setup(scope)    if subject
-        scope.instance_exec(*arguments, &procedure)
-        #subject.run_teardown(scope) if subject
-      end
-    end
-
-  end
-
-end

data/work/deprecated/model/test_context.rb

@@ -1,90 +0,0 @@
-=begin
-module Lemon
-
-  #
-  class TestContext
-
-    # The test case to which this concern belongs.
-    attr :test_case
-
-    # The description of this concern. Make this
-    # as detailed as you wish.
-    attr :description
-
-    # New case instance.
-    def initialize(test_case, description, options={}, &block)
-      @test_case   = test_case
-      @description = description.to_s
-      @function    = options[:function] || options[:singleton]
-      @type        = options[:type] || :context
-      @block       = block
-    end
-
-    #
-    def teardown=(procedure)
-       @teardown = procedure
-    end
-
-    # Teardown instance.
-    def teardown(scope=nil)
-      if scope
-        scope.instance_eval(&@teardown) if @teardown
-      else
-        @teardown
-      end
-    end
-
-    # Create instance.
-    def setup(scope)
-      if @block
-        scope.instance_eval(&@block)
-      end
-    end
-
-    def function? ; false ; end
-    alias_method :meta?, :function?
-
-    # Returns the description with newlines removed.
-    def to_s
-      description.gsub(/\n/, ' ')
-    end
-  end
-
-end
-=end
-
-=begin
-  #
-  class TestInstance < TestContext
-  
-    # Create instance.
-    def setup(scope)
-      if @block
-        ins = scope.instance_eval(&@block)
-        raise "target type mismatch" unless test_case.target === ins
-      end
-      ins
-    end
-  
-  end
-
-  #
-  class TestSingleton < TestContext
-
-    # Create instance.
-    def setup(scope)
-      if @block
-        ins = scope.instance_eval(&@block)
-        raise "target type mismatch" unless test_case.target == ins
-      else
-        ins = @test_case.target
-      end
-      ins
-    end
-
-    def function? ; true ; end
-    alias_method :meta?, :function?
-
-  end
-=end
-

data/work/deprecated/model/test_feature.rb

@@ -1,128 +0,0 @@
-require 'lemon/model/pending'
-require 'lemon/model/test_context'
-require 'lemon/model/test_advice'
-require 'lemon/model/test_scenario'
-
-module Lemon
-
-  # The TestFeature ...
-  #
-  # * `tests` are _scenarios_,
-  # * `advice` are _given_, _when_ and _then_ rules.
-  #
-  class TestFeature < TestCase
-
-    #
-    def initialize(context, settings={}, &block)
-      @story = []
-      super(context, settings, &block)
-    end
-
-    ## This has to be redefined in each subclass to pick
-    ## up there respective DSL classes.
-    #def evaluate(&block)
-    #  @dsl = DSL.new(self, &block)
-    #end
-  
-    attr :story
-
-    # Feature scenarios are tests.
-    alias_method :scenarios, :tests
-
-    #
-    def to_s
-      "Feature #{target}"
-    end
-
-    #
-    def to_s #description
-      (["Feature: #{target}"] + story).join("\n  ")
-    end
-
-    # Run test in the context of this case.
-    #
-    # @param [TestProc] test
-    #   The test procedure instance to run.
-    #
-    def run(&block)
-    end
-
-    #
-    class DSL < Module
-
-      #
-      def initialize(feature, &code)
-        @feature = feature
-
-        module_eval(&code)
-      end
-
-      #
-      def To(description)
-        @feature.story << "To " + description
-      end
-
-      #
-      def As(description)
-        @feature.story << "As " + description
-      end
-
-      #
-      def We(description)
-        @feature.story << "We " + description
-      end
-
-      #
-      def Scenario(description, &procedure)
-        scenario = TestScenario.new(@feature, description, &procedure)
-        @feature.scenarios << scenario
-        scenario
-      end
-      alias_method :scenario, :Scenario
-
-      # Omit a scenario from test runs.
-      #
-      #  omit unit :foo do
-      #    # ...
-      #  end
-      #
-      def Omit(scenario)
-        scenario.omit = true
-      end
-      alias_method :omit, :Omit
-
-      # Given ...
-      #
-      # @param [String] description
-      #   A brief description of the _given_ criteria.
-      #
-      def Given(description, &procedure)
-        @feature.advice[:given][description] = procedure
-      end
-      alias_method :given, :Given
-
-      # When ...
-      #
-      # @param [String] description
-      #   A brief description of the _when_ criteria.
-      #
-      def When(description, &procedure)
-        @feature.advice[:when][description] = procedure
-      end
-      alias_method :wence, :When
-
-      # Then ...
-      #
-      # @param [String] description
-      #   A brief description of the _then_ criteria.
-      #
-      def Then(description, &procedure)
-        @feature.advice[:then][description] = procedure
-      end
-      alias_method :hence, :Then
-
-    end
-
-  end
-
-end

data/work/deprecated/model/test_scenario.rb

@@ -1,137 +0,0 @@
-require 'lemon/model/test_clause'
-
-module Lemon
-
-  #
-  class TestScenario < TestCase
-
-    #
-    def initialize(feature, summary, options={}, &block)
-      @feature = feature
-      @summary = summary
-
-      @tests   = []
-
-      evaluate(&block)
-    end
-  
-    #
-    def evaluate(&procedure)
-      @dsl = DSL.new(self, &procedure)
-    end
-
-    #
-    attr :feature
-
-    #
-    attr :dsl
-
-    attr_accessor :omit
-
-    #
-    def omit?
-      @omit
-    end
-
-    #
-    def to_s
-      "Scenario: #{@summary}"
-    end
-
-    def subject
-
-    end
-
-    #
-    def run(clause)
-      type = clause.type
-      desc = clause.description
-      feature.advice[type].each do |mask, proc|
-        if md = match_regexp(mask).match(desc)
-          scope.instance_exec(*md[1..-1], &proc)
-        end
-      end
-    end
-
-    #
-    #--
-    # TODO: Change so that the scope is the DSL
-    #       and includes the DSL of the context?
-    #++
-    def scope
-      @scope ||= (
-        #if feature
-        #  scope = feature.scope || Object.new
-        #  scope.extend(dsl)
-        #else
-          scope = Object.new
-          scope.extend(dsl)
-        #end
-      )
-    end
-
-    #
-    #def find
-    #  features.clauses[@type].find{ |c| c =~ @description }
-    #end
-
-    # Convert matching string into a regular expression. If the string
-    # contains double parenthesis, such as ((.*?)), then the text within
-    # them is treated as in regular expression and kept verbatium.
-    #
-    # TODO: Better way to isolate regexp. Maybe ?:(.*?) or /(.*?)/.
-    #
-    def match_regexp(str)
-      str = str.split(/(\(\(.*?\)\))(?!\))/).map{ |x|
-        x =~ /\A\(\((.*)\)\)\Z/ ? $1 : Regexp.escape(x)
-      }.join
-      str = str.gsub(/\\\s+/, '\s+')
-      Regexp.new(str, Regexp::IGNORECASE)
-    end
-
-
-    # TODO: Need to ensure the correct order of Given, When, Then.
-    class DSL < Module
-
-      #
-      def initialize(scenario, &code)
-        @scenario = scenario
-
-        module_eval(&code)
-      end
-
-      # Given ...
-      #
-      # @param [String] description
-      #   A brief description of what the setup procedure sets-up.
-      #
-      def Given(description)
-        @scenario.tests << TestClause.new(@scenario, description, :type=>:given)
-      end
-      alias_method :given, :Given
-
-      # When ...
-      #
-      # @param [String] description
-      #   A brief description of what the setup procedure sets-up.
-      #
-      def When(description)
-        @scenario.tests << TestClause.new(@scenario, description, :type=>:when)
-      end
-      alias_method :wence, :When
-
-      # Then ...
-      #
-      # @param [String] description
-      #   A brief description of what the setup procedure sets-up.
-      #
-      def Then(description)
-        @scenario.tests << TestClause.new(@scenario, description, :type=>:then)
-      end
-      alias_method :hence, :Then
-
-    end
-
-  end
-
-end