lemon 0.9.0 → 0.9.1

data/work/deprecated/features/generate.feature

@@ -1,66 +0,0 @@
-Feature: Coverage
-  As a developer
-  In order to improve test coverge
-  I want to able to generate test scaffolding
-  And limit the scaffolding to test units not already covered
-
-  Scenario: Complete Example Case
-    Given a directory named "example"
-    Given a file named "example/lib/example.rb" with:
-      """
-      class X
-        def a; "a"; end
-        def b; "b"; end
-        def c; "c"; end
-      end
-      class Y
-        def q; "q"; end
-      end
-      """
-    Given a file named "example/test/case_complete.rb" with:
-      """
-      Covers 'example'
-      TestCase X do
-        Unit :a => "Returns a String" do ; X.new.a.assert.is_a?(String) ; end
-        Unit :b => "Returns a String" do ; X.new.b.assert.is_a?(String) ; end
-        Unit :c => "Returns a String" do ; X.new.c.assert.is_a?(String) ; end
-      end
-      TestCase Y do
-        Unit :q => "Returns a String" do ; Y.new.q.assert.is_a?(String) ; end
-      end
-      """
-    When I cd to "example"
-    And I run "lemon -g -u -Ilib test/case_complete.rb"
-    Then the stdout should not contain "Unit :a"
-    And the stdout should not contain "Unit :b"
-    And the stdout should not contain "Unit :c"
-    And the stdout should not contain "Unit :q"
-
-  Scenario: Incomplete Example Case
-    Given a directory named "example"
-    Given a file named "example/lib/example.rb" with:
-      """
-      class X
-        def a; "a"; end
-        def b; "b"; end
-        def c; "c"; end
-      end
-      class Y
-        def q; "q"; end
-      end
-      """
-    Given a file named "example/test/case_complete.rb" with:
-      """
-      Covers 'example'
-      TestCase X do
-        Unit :a => "Returns a String" do ; X.new.a.assert.is_a?(String) ; end
-        Unit :b => "Returns a String" do ; X.new.b.assert.is_a?(Fixnum) ; end
-        Unit :d => "Returns a String" do ; X.new.d.assert.is_a?(String) ; end
-      end
-      """
-    When I cd to "example"
-    And I run "lemon -g -u -Ilib test/case_complete.rb"
-    Then the stdout should not contain "Unit :a"
-    And the stdout should not contain "Unit :b"
-    And the stdout should contain "Unit :c"
-

data/work/deprecated/features/step_definitions/coverage_steps.rb

@@ -1 +0,0 @@
-

data/work/deprecated/features/support/aruba.rb

@@ -1 +0,0 @@
-require 'aruba'

data/work/deprecated/features/test.feature

@@ -1,67 +0,0 @@
-Feature: Coverage
-  As a developer
-  In order to improve test coverge
-  I want to able to write unit tests that target methods
-  And run those tests
-
-  Scenario: Complete Example Case
-    Given a directory named "example"
-    Given a file named "example/lib/example.rb" with:
-      """
-      class X
-        def a; "a"; end
-        def b; "b"; end
-        def c; "c"; end
-      end
-      class Y
-        def q; "q"; end
-      end
-      """
-    Given a file named "example/test/case_complete.rb" with:
-      """
-      Covers 'example'
-      TestCase X do
-        Unit :a => "Returns a String" do ; X.new.a.assert.is_a?(String) ; end
-        Unit :b => "Returns a String" do ; X.new.b.assert.is_a?(String) ; end
-        Unit :c => "Returns a String" do ; X.new.c.assert.is_a?(String) ; end
-      end
-      TestCase Y do
-        Unit :q => "Returns a String" do ; Y.new.q.assert.is_a?(String) ; end
-      end
-      """
-    When I cd to "example"
-    And I run "lemon -Ilib -v test/case_complete.rb"
-    Then the stdout should contain "4 tests"
-    And the stdout should contain "4 pass"
-    And the stdout should contain "0 fail"
-    And the stdout should contain "0 err"
-
-  Scenario: Incomplete Example Case
-    Given a directory named "example"
-    Given a file named "example/lib/example.rb" with:
-      """
-      class X
-        def a; "a"; end
-        def b; "b"; end
-        def c; "c"; end
-      end
-      class Y
-        def q; "q"; end
-      end
-      """
-    Given a file named "example/test/case_complete.rb" with:
-      """
-      Covers 'example'
-      TestCase X do
-        Unit :a => "Returns a String" do ; X.new.a.assert.is_a?(String) ; end
-        Unit :b => "Returns a String" do ; X.new.b.assert.is_a?(Fixnum) ; end
-        Unit :d => "Returns a String" do ; X.new.d.assert.is_a?(String) ; end
-      end
-      """
-    When I cd to "example"
-    And I run "lemon -Ilib -v test/case_complete.rb"
-    Then the stdout should contain "3 tests"
-    And the stdout should contain "1 pass"
-    And the stdout should contain "1 fail"
-    And the stdout should contain "1 err"
-

data/work/deprecated/model/dsl/advice.rb

@@ -1,78 +0,0 @@
-module Lemon
-
-  module DSL
-
-    #
-    #--
-    # TODO: Allow Before and After to handle before and after
-    #       concerns in addition to units?
-    #++
-    module Advice
-
-      # Define a _complex_ before procedure. The #before method allows
-      # before procedures to be defined that are triggered by a match
-      # against the unit's target method name or _aspect_ description.
-      # This allows groups of tests to be defined that share special
-      # setup code.
-      #
-      # @example
-      #   Method :puts do
-      #     Test "standard output (@stdout)" do
-      #       puts "Hello"
-      #     end
-      #
-      #     Before /@stdout/ do
-      #       $stdout = StringIO.new
-      #     end
-      #
-      #     After /@stdout/ do
-      #       $stdout = STDOUT
-      #     end
-      #   end
-      #
-      # @param [Array<Symbol,Regexp>] matches
-      #   List of match critera that must _all_ be matched
-      #   to trigger the before procedure.
-      #
-      def Before(*matches, &procedure)
-        @context.advice[:before][matches] = procedure
-      end
-
-      alias_method :before, :Before
-
-      # Define a _complex_ after procedure. The #before method allows
-      # before procedures to be defined that are triggered by a match
-      # against the unit's target method name or _aspect_ description.
-      # This allows groups of tests to be defined that share special
-      # teardown code.
-      #
-      # @example
-      #   Method :puts do
-      #     Test "standard output (@stdout)" do
-      #       puts "Hello"
-      #     end
-      #
-      #     Before /@stdout/ do
-      #       $stdout = StringIO.new
-      #     end
-      #
-      #     After /@stdout/ do
-      #       $stdout = STDOUT
-      #     end
-      #   end
-      #
-      # @param [Array<Symbol,Regexp>] matches
-      #   List of match critera that must _all_ be matched
-      #   to trigger the after procedure.
-      #
-      def After(*matches, &procedure)
-        @context.advice[:after][matches] = procedure
-      end
-
-      alias_method :after, :After
-
-    end
-
-  end
-
-end

data/work/deprecated/model/dsl/subject.rb

@@ -1,40 +0,0 @@
-module Lemon
-
-  module DSL
-
-    #
-    module Subject
-
-      # Setup is used to set things up for each unit test.
-      # The setup procedure is run before each unit.
-      #
-      # @param [String] description
-      #   A brief description of what the setup procedure sets-up.
-      #
-      def Setup(description=nil, &procedure)
-        if procedure
-          @subject = TestSubject.new(@test_case, description, &procedure)
-        end
-      end
-
-      alias_method :setup, :Setup
-
-      alias_method :Concern, :Setup
-      alias_method :concern, :Setup
-
-      alias_method :Subject, :Setup
-      alias_method :subject, :Setup
-
-      # Teardown procedure is used to clean-up after each unit test.
-      #
-      def Teardown(&procedure)
-        @subject.teardown = procedure
-      end
-
-      alias_method :teardown, :Teardown
-
-    end
-
-  end
-
-end

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