lemon 0.8.5 → 0.9.0

data/{qed → spec}/coverage/03_extensions.rdoc

@@ -12,14 +12,18 @@ Given an example script in 'lib/extensions_example.rb' as follows:
 
 And given a test case in 'test/extensions_example_case.rb' as follows:
 
-    covers 'extensions_example.rb'
+    Covers 'extensions_example.rb'
 
-    tests Kernel do
-      unit :f1 do
-        fl.assert == "f1"
+    TestCase Kernel do
+      method :f1 do
+        test do
+          fl.assert == "f1"
+        end
       end
-      unit :f2 do
-        f2.assert == "f2"
+      method :f2 do
+        test do
+          f2.assert == "f2"
+        end
       end
     end
 

data/spec/coverage/applique/lemon.rb

@@ -0,0 +1 @@
+require 'lemon/coverage/analyzer'

data/try/.test

@@ -0,0 +1,8 @@
+#!/usr/bin/env ruby
+
+Test.run :default do |r|
+  require 'ae'
+  require 'lemon'
+  $:.unshift 'fixtures'
+end
+

data/try/case_error.rb

@@ -0,0 +1,18 @@
+covers 'example.rb'
+
+test_case Example do
+
+  method :f do
+
+    test "one and one is two" do
+      ExampleUnknown.new.f(1,1).assert == 2
+    end
+
+    test "two and two is four" do
+      ExampleUnknown.new.f(2,2).assert == 4
+    end
+
+  end
+
+end
+

data/try/case_fail.rb

@@ -0,0 +1,19 @@
+covers 'example.rb'
+
+test_case Example do
+
+  method :f do
+
+    test "one and one is two" do
+      Example.new.f(1,1).assert == 2
+    end
+
+    test "two and two is four" do
+      ex = Example.new
+      ex.f(1,2).assert == 4
+    end
+
+  end
+
+end
+

data/try/case_pass.rb

@@ -0,0 +1,42 @@
+covers 'example.rb'
+
+test_case Example do
+
+  method :f do
+
+    setup "without multipler" do
+      @ex = Example.new
+    end
+
+    test "1,2" do
+      @ex.f(1,2).assert == 3
+    end
+
+    test "2,2" do
+      @ex.f(2,2).assert == 4
+    end
+
+
+    setup "with multipler" do
+      @ex = Example.new(2)
+    end
+
+    test "1,2" do
+      @ex.f(1,2).assert == 4
+    end
+
+    test "2,2" do
+      @ex.f(2,2).assert == 6
+    end
+
+    teardown do
+      # ...
+    end
+
+    #class_method :m do
+    #  Example.m(1,1).assert == 1
+    #end
+
+  end
+
+end

data/try/case_pending.rb

@@ -0,0 +1,18 @@
+covers 'example.rb'
+
+test_case Example do
+
+  method :f do 
+
+    test "one and one is two"do
+      Example.new.f(1,1).assert == 2
+    end
+
+    test "pending" do
+      raise NotImplementedError
+    end
+
+  end
+
+end
+

data/try/case_singleton.rb

@@ -0,0 +1,18 @@
+covers 'example.rb'
+
+test_case Example.singleton_class do
+
+  method :m do
+
+    setup "Example class" do
+      Example
+    end
+
+    test "using singleton_class" do
+      Example.m(1,1).assert == 1
+    end
+
+  end
+
+end
+

data/try/case_untested.rb

@@ -0,0 +1,14 @@
+covers 'example.rb'
+
+test_case Example do
+
+  method :f do
+ 
+    test "nothing doing" do
+      # notice Example#f has not been called
+    end
+
+  end
+
+end
+

data/try/fixtures/calculator.rb

@@ -0,0 +1,15 @@
+class Calculator
+
+  def initialize
+    @stack = []
+  end
+
+  def push(int)
+    @stack << int
+  end
+  
+  def add
+    @stack.inject(0){ |sum, val| sum += val; sum }
+  end
+
+end

data/try/helpers/loadpath.rb

@@ -0,0 +1 @@
+$:.unshift File.expand_path(File.dirname(__FILE__) + '/../fixtures')

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

@@ -0,0 +1,78 @@
+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

@@ -0,0 +1,40 @@
+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/{lib/lemon → work/deprecated}/model/main.rb

@@ -3,38 +3,49 @@
 
 require 'lemon/model/test_suite'
 
-#
-#def Before(match=nil, &block)
-#  Lemon.suite.Before(match, &block)
-#end
+class << self
 
-#
-#def After(match=nil, &block)
-#  Lemon.suite.After(match, &block)
-#end
+  #
+  def Covers(script)
+    Lemon.suite.dsl.covers(script)
+  end
+  alias :Coverage :Covers
 
-#
-def testcase(target_class, &block)
-  Lemon.suite.dsl.testcase(target_class, &block)
-end
-alias :TestCase :testcase
-alias :Case :testcase
-alias :tests :testcase # can't use test b/c of kernel method
+  # Define a general test case.
+  def Case(target, &block)
+    Lemon.suite.dsl.test_case(target, &block)
+  end
 
-#
-def covers(script)
-  Lemon.suite.dsl.covers(script)
-end
-alias :Covers :covers
+  # Define a class test.
+  def Class(target_class, &block)
+    Lemon.suite.dsl.test_class(target_class, &block)
+  end
 
-#
-#def Helper(script)
-#  Lemon.suite.Helper(script)
-#end
+  # Define a module test.
+  def Module(target_module, &block)
+    Lemon.suite.dsl.test_module(target_module, &block)
+  end
 
-#def Subtest(script)
-#  Lemon.suite.Subtest(script)
-#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
@@ -49,7 +60,7 @@ alias :Covers :covers
 def Object.const_missing(name)
   if unit = Lemon.test_stack.last
     begin
-      (class << unit.testcase; self; end).const_get(name)
+      (class << unit.test_case; self; end).const_get(name)
     rescue NameError
       super(name)
     end
@@ -60,7 +71,7 @@ end
 
 #def Object.const_missing(name)
 #  if unit = Lemon.test_stack.last
-#    klass = (class << unit.testcase; self; end)
+#    klass = (class << unit.test_case; self; end)
 #    if klass.const_defined?(name)
 #      return klass.const_get(name)
 #    end

data/work/deprecated/model/test.rb

@@ -0,0 +1,54 @@
+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