lemon 0.9.0 → 0.9.2

data/work/deprecated/model/main.rb

@@ -1,87 +0,0 @@
-# NOTE: This code is not being used. It is here for the time being
-# on the outseide change that I decide to go back to a toplevel design.
-
-require 'lemon/model/test_suite'
-
-class << self
-
-  #
-  def Covers(script)
-    Lemon.suite.dsl.covers(script)
-  end
-  alias :Coverage :Covers
-
-  # Define a general test case.
-  def Case(target, &block)
-    Lemon.suite.dsl.test_case(target, &block)
-  end
-
-  # Define a class test.
-  def Class(target_class, &block)
-    Lemon.suite.dsl.test_class(target_class, &block)
-  end
-
-  # Define a module test.
-  def Module(target_module, &block)
-    Lemon.suite.dsl.test_module(target_module, &block)
-  end
-
-  # Define a test feature.
-  def Feature(target, &block)
-    Lemon.suite.dsl.test_feature(target, &block)
-  end
-
-  #
-  #def Before(match=nil, &block)
-  #  Lemon.suite.Before(match, &block)
-  #end
-
-  #
-  #def After(match=nil, &block)
-  #  Lemon.suite.After(match, &block)
-  #end
-
-  #
-  #def Helper(script)
-  #  Lemon.suite.Helper(script)
-  #end
-end
-
-=begin
-# FIXME: This is a BIG FAT HACK! For the life of me I cannot find
-# a way to resolve module constants included in the test cases.
-# Because of closure, the constant lookup goes through here, and not
-# the Case singleton class. So to work around we must note each test
-# before it is run, and reroute the missing constants.
-#
-# This sucks and it is not thread safe. If anyone know how to fix,
-# please let me know. See Unit#call for the other end of this hack.
-#
-def Object.const_missing(name)
-  if unit = Lemon.test_stack.last
-    begin
-      (class << unit.test_case; self; end).const_get(name)
-    rescue NameError
-      super(name)
-    end
-  else
-    super(name)
-  end
-end
-
-#def Object.const_missing(name)
-#  if unit = Lemon.test_stack.last
-#    klass = (class << unit.test_case; self; end)
-#    if klass.const_defined?(name)
-#      return klass.const_get(name)
-#    end
-#  end
-#  super(name)
-#end
-
-# Get current running test. Used for the BIG FAT HACK.
-def Lemon.test_stack
-  @@test_stack ||= []
-end
-=end
-

data/work/deprecated/model/test.rb

@@ -1,54 +0,0 @@
-require 'lemon/model/test_suite'
-
-module Test
-  extend self
-
-  #
-  def covers(script)
-    Lemon.suite.dsl.covers(script)
-  end
-  alias :Covers :covers
-
-  alias :coverage :covers
-  alias :Coverage :covers
-
-  # Define a general test case.
-  def case(target, &block)
-    Lemon.suite.dsl.test_case(target, &block)
-  end
-  alias :Case :case
-
-  # Define a class test.
-  def class(target_class, &block)
-    Lemon.suite.dsl.test_class(target_class, &block)
-  end
-  alias :Class :class
-
-  # Define a module test.
-  def module(target_module, &block)
-    Lemon.suite.dsl.test_module(target_module, &block)
-  end
-  alias :Module :module
-
-  # Define a test feature.
-  def feature(target, &block)
-    Lemon.suite.dsl.test_feature(target, &block)
-  end
-  alias :Feature :feature
-
-  #
-  #def Before(match=nil, &block)
-  #  Lemon.suite.Before(match, &block)
-  #end
-
-  #
-  #def After(match=nil, &block)
-  #  Lemon.suite.After(match, &block)
-  #end
-
-  #
-  #def Helper(script)
-  #  Lemon.suite.Helper(script)
-  #end
-
-end

data/work/deprecated/model/test_base_dsl.rb

@@ -1,88 +0,0 @@
-module Lemon
-
-  # Base class for TestCase DSLs.
-  class BaseDSL < Module
-
-    #
-    def initialize(context, &code)
-      @context = context
-      @subject = context.subject
-
-      module_eval(&code)
-    end
-
-    #
-    def context(description, &block)
-      @context.tests << TestCase.new(@context, description, &block)
-    end
-
-    #
-    def test(description, &procedure)
-      test = TestProc.new(
-        @context, 
-        :description => description,
-        :subject     => subject,
-        &procedure
-      )
-      @context.tests << test
-      test
-    end
-
-    # Omit a test or test case from being run.
-    #
-    #  omit test "something or other" do
-    #    # ...
-    #  end
-    #
-    def omit(test_or_case)
-      test_or_case.omit = true
-    end
-    alias_method :Omit, :omit
-
-
-
-
-    # Load a helper script applicable to this test case. Unlike requiring
-    # a helper script, the #helper method will eval the file's contents
-    # directly into the test context (using instance_eval).
-    #
-    # @param [String] file
-    #   File to eval into test context.
-    #
-    # FIXME: This is at odds with loading helpers automatically. How
-    # to handle?
-    def helper(file)
-      instance_eval(File.read(file), file)
-    end
-
-    alias_method :Helper, :helper
-
-    #def include(*mods)
-    #  extend *mods
-    #end
-
-    #def pending(message=nil)
-    #  raise Pending.new(message)
-    #end
-
-
-# Before All and After All advice are bad form.
-#
-#    # Define a "before all" procedure.
-#    def prepare(&procedure)
-#      before(&procedure)
-#    end
-#
-#    alias_method :Prepare, :prepare
-#
-#    # Define an "after all" procedure.
-#    def cleanup(&procedure)
-#      after(&procedure)
-#    end
-#
-#    alias_method :Cleanup, :cleanup
-#
-
-  end
-
-end

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