shoulda-context 1.0.0.beta1

data/lib/shoulda/context/proc_extensions.rb

@@ -0,0 +1,14 @@
+# Stolen straight from ActiveSupport
+
+class Proc #:nodoc:
+  def bind(object)
+    block, time = self, Time.now
+    (class << object; self end).class_eval do
+      method_name = "__bind_#{time.to_i}_#{time.usec}"
+      define_method(method_name, &block)
+      method = instance_method(method_name)
+      remove_method(method_name)
+      method
+    end.bind(object)
+  end
+end

data/lib/shoulda/context/tasks.rb

@@ -0,0 +1,3 @@
+Dir[File.join(File.dirname(__FILE__), 'tasks', '*.rake')].each do |f|
+  load f
+end

data/lib/shoulda/context/tasks/list_tests.rake

@@ -0,0 +1,29 @@
+namespace :shoulda do
+  desc "List the names of the test methods in a specification like format"
+  task :list do
+    $LOAD_PATH.unshift("test")
+
+    require 'test/unit'
+    require 'rubygems'
+    require 'active_support'
+
+    # bug in test unit.  Set to true to stop from running.
+    Test::Unit.run = true
+
+    test_files = Dir.glob(File.join('test', '**', '*_test.rb'))
+    test_files.each do |file|
+      load file
+      klass = File.basename(file, '.rb').classify
+      unless Object.const_defined?(klass.to_s)
+        puts "Skipping #{klass} because it doesn't map to a Class"
+        next
+      end
+      klass = klass.constantize
+
+      puts klass.name.gsub('Test', '')
+
+      test_methods = klass.instance_methods.grep(/^test/).map {|s| s.gsub(/^test: /, '')}.sort
+      test_methods.each {|m| puts "  " + m }
+    end
+  end
+end

data/lib/shoulda/context/tasks/yaml_to_shoulda.rake

@@ -0,0 +1,28 @@
+namespace :shoulda do
+  # From http://blog.internautdesign.com/2007/11/2/a-yaml_to_shoulda-rake-task
+  # David.Lowenfels@gmail.com
+  desc "Converts a YAML file (FILE=./path/to/yaml) into a Shoulda skeleton"
+  task :from_yaml do
+    require 'yaml'
+
+    def yaml_to_context(hash, indent = 0)
+      indent1 = '  ' * indent
+      indent2 = '  ' * (indent + 1)
+      hash.each_pair do |context, shoulds|
+        puts indent1 + "context \"#{context}\" do"
+        puts
+        shoulds.each do |should|
+          yaml_to_context( should, indent + 1 ) and next if should.is_a?( Hash )
+          puts indent2 + "should_eventually \"" + should.gsub(/^should +/,'') + "\" do"
+          puts indent2 + "end"
+          puts
+        end
+        puts indent1 + "end"
+      end
+    end
+
+    puts("Please pass in a FILE argument.") and exit unless ENV['FILE']
+
+    yaml_to_context( YAML.load_file( ENV['FILE'] ) )
+  end
+end

data/lib/shoulda/context/version.rb

@@ -0,0 +1,5 @@
+module Shoulda
+  module Context
+    VERSION = '1.0.0.beta1'.freeze
+  end
+end

data/rails/init.rb

@@ -0,0 +1,4 @@
+if RAILS_ENV == 'test'
+  require 'shoulda-context'
+  Shoulda.autoload_macros RAILS_ROOT, File.join("vendor", "{plugins,gems}", "*")
+end

data/test/fake_rails_root/test/shoulda_macros/custom_macro.rb

@@ -0,0 +1,6 @@
+module CustomMacro
+  def custom_macro
+  end
+end
+Test::Unit::TestCase.extend(CustomMacro)
+

data/test/fake_rails_root/vendor/gems/gem_with_macro-0.0.1/shoulda_macros/gem_macro.rb

@@ -0,0 +1,6 @@
+module GemMacro
+  def gem_macro
+  end
+end
+Test::Unit::TestCase.extend(GemMacro)
+

data/test/fake_rails_root/vendor/plugins/plugin_with_macro/shoulda_macros/plugin_macro.rb

@@ -0,0 +1,6 @@
+module PluginMacro
+  def plugin_macro
+  end
+end
+Test::Unit::TestCase.extend(PluginMacro)
+

data/test/shoulda/autoload_macro_test.rb

@@ -0,0 +1,18 @@
+require 'test_helper'
+
+class AutoloadMacroTest < Test::Unit::TestCase # :nodoc:
+  context "The macro auto-loader" do
+    should "load macros from the plugins" do
+      assert self.class.respond_to?('plugin_macro')
+    end
+
+    should "load macros from the gems" do
+      assert self.class.respond_to?('gem_macro')
+    end
+
+    should "load custom macros from ROOT/test/shoulda_macros" do
+      assert self.class.respond_to?('custom_macro')
+    end
+  end
+end
+

data/test/shoulda/context_test.rb

@@ -0,0 +1,368 @@
+require 'test_helper'
+
+class ContextTest < Test::Unit::TestCase # :nodoc:
+
+  def self.context_macro(&blk)
+    context "with a subcontext made by a macro" do
+      setup { @context_macro = :foo }
+
+      merge_block &blk
+    end
+  end
+
+  # def self.context_macro(&blk)
+  #   context "with a subcontext made by a macro" do
+  #     setup { @context_macro = :foo }
+  #     yield # <- this doesn't work.
+  #   end
+  # end
+
+  context "context with setup block" do
+    setup do
+      @blah = "blah"
+    end
+
+    should "run the setup block" do
+      assert_equal "blah", @blah
+    end
+
+    should "have name set right" do
+      assert_match(/^test: context with setup block/, self.to_s)
+    end
+
+    context "and a subcontext" do
+      setup do
+        @blah = "#{@blah} twice"
+      end
+
+      should "be named correctly" do
+        assert_match(/^test: context with setup block and a subcontext should be named correctly/, self.to_s)
+      end
+
+      should "run the setup blocks in order" do
+        assert_equal @blah, "blah twice"
+      end
+    end
+
+    context_macro do
+      should "have name set right" do
+        assert_match(/^test: context with setup block with a subcontext made by a macro should have name set right/, self.to_s)
+      end
+
+      should "run the setup block of that context macro" do
+        assert_equal :foo, @context_macro
+      end
+
+      should "run the setup block of the main context" do
+        assert_equal "blah", @blah
+      end
+    end
+
+  end
+
+  context "another context with setup block" do
+    setup do
+      @blah = "foo"
+    end
+
+    should "have @blah == 'foo'" do
+      assert_equal "foo", @blah
+    end
+
+    should "have name set right" do
+      assert_match(/^test: another context with setup block/, self.to_s)
+    end
+  end
+
+  context "context with method definition" do
+    setup do
+      def hello; "hi"; end
+    end
+
+    should "be able to read that method" do
+      assert_equal "hi", hello
+    end
+
+    should "have name set right" do
+      assert_match(/^test: context with method definition/, self.to_s)
+    end
+  end
+
+  context "another context" do
+    should "not define @blah" do
+      assert_nil @blah
+    end
+  end
+
+  context "context with multiple setups and/or teardowns" do
+
+    cleanup_count = 0
+
+    2.times do |i|
+      setup { cleanup_count += 1 }
+      teardown { cleanup_count -= 1 }
+    end
+
+    2.times do |i|
+      should "call all setups and all teardowns (check ##{i + 1})" do
+        assert_equal 2, cleanup_count
+      end
+    end
+
+    context "subcontexts" do
+
+      2.times do |i|
+        setup { cleanup_count += 1 }
+        teardown { cleanup_count -= 1 }
+      end
+
+      2.times do |i|
+        should "also call all setups and all teardowns in parent and subcontext (check ##{i + 1})" do
+          assert_equal 4, cleanup_count
+        end
+      end
+
+    end
+
+  end
+
+  should_eventually "pass, since it's unimplemented" do
+    flunk "what?"
+  end
+
+  should_eventually "not require a block when using should_eventually"
+  should "pass without a block, as that causes it to piggyback to should_eventually"
+
+  context "context for testing should piggybacking" do
+    should "call should_eventually as we are not passing a block"
+  end
+
+  context "context" do
+    context "with nested subcontexts" do
+      should_eventually "only print this statement once for a should_eventually"
+    end
+  end
+
+  class ::SomeModel; end
+
+  context "given a test named after a class" do
+    setup do
+      self.class.stubs(:name).returns("SomeModelTest")
+    end
+
+    should "determine the described type" do
+      assert_equal SomeModel, self.class.described_type
+    end
+
+    should "return a new instance of the described type as the subject if none exists" do
+      assert_kind_of SomeModel, subject
+    end
+
+    context "with an explicit subject block" do
+      setup { @expected = SomeModel.new }
+      subject { @expected }
+      should "return the result of the block as the subject" do
+        assert_equal @expected, subject
+      end
+
+      context "nested context block without a subject block" do
+        should "return the result of the parent context's subject block" do
+          assert_equal @expected, subject
+        end
+      end
+    end
+  end
+
+end
+
+class ::Some
+  class NestedModel; end
+end
+
+
+class Some::NestedModelTest < Test::Unit::TestCase
+  should "determine the described type for a nested model" do
+    assert_equal Some::NestedModel, self.class.described_type
+  end
+end
+
+class ShouldMatcherTest < Test::Unit::TestCase
+  class FakeMatcher
+    attr_reader :subject
+    attr_accessor :fail
+
+    def description
+      "do something"
+    end
+
+    def matches?(subject)
+      @subject = subject
+      !@fail
+    end
+
+    def failure_message
+      "a failure message"
+    end
+
+    def negative_failure_message
+      "not a failure message"
+    end
+  end
+
+  def run_test
+    @test_suite.run(@test_result) { |event, name |}
+  end
+
+  def setup
+    @matcher = FakeMatcher.new
+    @test_result = Test::Unit::TestResult.new
+    class << @test_result
+      def failure_messages
+        @failures.map { |failure| failure.message }
+      end
+    end
+  end
+
+  def create_test_suite(&definition)
+    test_class = Class.new(Test::Unit::TestCase, &definition)
+    test_class.suite
+  end
+
+  def assert_failed_with(message, test_result)
+    assert_equal 1, test_result.failure_count
+    assert_equal [message], test_result.failure_messages
+  end
+
+  def assert_passed(test_result)
+    assert_equal 0, test_result.failure_count
+  end
+
+  def assert_test_named(expected_name, test_suite)
+    name = test_suite.tests.map { |test| test.method_name }.first
+    assert name.include?(expected_name), "Expected #{name} to include #{expected_name}"
+  end
+
+  def self.should_use_positive_matcher
+    should "generate a test using the matcher's description" do
+      assert_test_named "should #{@matcher.description}", @test_suite
+    end
+
+    should "pass with a passing matcher" do
+      @matcher.fail = false
+      run_test
+      assert_passed @test_result
+    end
+
+    should "fail with a failing matcher" do
+      @matcher.fail = true
+      run_test
+      assert_failed_with @matcher.failure_message, @test_result
+    end
+
+    should "provide the subject" do
+      @matcher.fail = false
+      run_test
+      assert_equal 'a subject', @matcher.subject
+    end
+  end
+
+  def self.should_use_negative_matcher
+    should "generate a test using the matcher's description" do
+      assert_test_named "should not #{@matcher.description}", @test_suite
+    end
+
+    should "pass with a failing matcher" do
+      @matcher.fail = true
+      run_test
+      assert_passed @test_result
+    end
+
+    should "fail with a passing matcher" do
+      @matcher.fail = false
+      run_test
+      assert_failed_with @matcher.negative_failure_message, @test_result
+    end
+
+    should "provide the subject" do
+      @matcher.fail = false
+      run_test
+      assert_equal 'a subject', @matcher.subject
+    end
+  end
+
+  context "a should block with a matcher" do
+    setup do
+      matcher = @matcher
+      @test_suite = create_test_suite do
+        subject { 'a subject' }
+        should matcher
+      end
+    end
+
+    should_use_positive_matcher
+  end
+
+  context "a should block with a matcher within a context" do
+    setup do
+      matcher = @matcher
+      @test_suite = create_test_suite do
+        context "in context" do
+          subject { 'a subject' }
+          should matcher
+        end
+      end
+    end
+
+    should_use_positive_matcher
+  end
+
+  context "a should_not block with a matcher" do
+    setup do
+      matcher = @matcher
+      @test_suite = create_test_suite do
+        subject { 'a subject' }
+        should_not matcher
+      end
+    end
+
+    should_use_negative_matcher
+  end
+
+  context "a should_not block with a matcher within a context" do
+    setup do
+      matcher = @matcher
+      @test_suite = create_test_suite do
+        context "in context" do
+          subject { 'a subject' }
+          should_not matcher
+        end
+      end
+    end
+
+    should_use_negative_matcher
+  end
+end
+
+class Subject; end
+
+class SubjectTest < Test::Unit::TestCase
+
+  def setup
+    @expected = Subject.new
+  end
+
+  subject { @expected }
+
+  should "return a specified subject" do
+    assert_equal @expected, subject
+  end
+end
+
+class SubjectLazinessTest < Test::Unit::TestCase
+  subject { Subject.new }
+
+  should "only build the subject once" do
+    assert_equal subject, subject
+  end
+end
+