test-belt 0.2.1 → 1.0.0

data/lib/test_belt/shoulda_macros.rb

@@ -1,9 +0,0 @@
-require 'shoulda'
-
-module TestBelt; end
-module TestBelt::ShouldaMacros; end
-
-require 'test_belt/shoulda_macros/classes'
-require 'test_belt/shoulda_macros/context'
-require 'test_belt/shoulda_macros/files'
-

data/lib/test_belt/shoulda_macros/classes.rb

@@ -1,105 +0,0 @@
-require 'useful/ruby_extensions/string' unless String.new.respond_to?(:constantize)
-
-module TestBelt; end
-module TestBelt::ShouldaMacros; end
-module TestBelt::ShouldaMacros::Classes
-
-  # Ripped from Shoulda::ActiveRecord::Macros
-  def should_have_class_methods(*methods)
-    handle_methods(methods) do |method|
-      should "respond to class method ##{method}" do
-        klass = construct_subject.class
-        assert_respond_to klass, method, "#{klass.name} does not have class method #{method}"
-      end
-    end
-  end
-  alias_method :should_have_class_method, :should_have_class_methods
-  protected :should_have_class_methods, :should_have_class_method
-  def skip_should_have_class_methods(*methods)
-    handle_methods(methods) do |method|
-      should "(skip) respond to class method ##{method}" do
-        skip
-      end
-    end
-  end
-  alias_method :skip_should_have_class_method, :skip_should_have_class_methods
-  protected :skip_should_have_class_methods, :skip_should_have_class_method
-
-
-  # Ripped from Shoulda::ActiveRecord::Macros
-  def should_have_instance_methods(*methods)
-    handle_methods(methods) do |method|
-      should "respond to instance method ##{method}" do
-        the_subject = construct_subject
-        assert_respond_to(the_subject, method, "#{the_subject.class.name} does not have instance method #{method}")
-      end
-    end
-  end
-  alias_method :should_have_instance_method, :should_have_instance_methods
-  protected :should_have_instance_methods, :should_have_instance_method
-  def skip_should_have_instance_methods(*methods)
-    handle_methods(methods) do |method|
-      should "(skip) respond to instance method ##{method}" do
-        skip
-      end
-    end
-  end
-  alias_method :skip_should_have_instance_method, :skip_should_have_instance_methods
-  protected :skip_should_have_instance_methods, :skip_should_have_instance_method
-
-
-  def should_have_readers(*readers)
-    get_options!(readers)
-    should_have_instance_methods *readers
-  end
-  alias_method :should_have_reader, :should_have_readers
-  protected :should_have_readers, :should_have_reader
-  def skip_should_have_readers(*readers)
-    get_options!(readers)
-    skip_should_have_instance_methods *readers
-  end
-  alias_method :skip_should_have_reader, :skip_should_have_readers
-  protected :skip_should_have_readers, :skip_should_have_reader
-
-
-  def should_have_writers(*writers)
-    get_options!(writers)
-    should_have_instance_methods *(writers.collect{|w| "#{w}="})
-  end
-  alias_method :should_have_writer, :should_have_writers
-  protected :should_have_writers, :should_have_writer
-  def skip_should_have_writers(*writers)
-    get_options!(writers)
-    skip_should_have_instance_methods *(writers.collect{|w| "#{w}="})
-  end
-  alias_method :skip_should_have_writer, :skip_should_have_writers
-  protected :skip_should_have_writers, :skip_should_have_writer
-
-
-  def should_have_accessors(*accessors)
-    get_options!(accessors)
-    should_have_instance_methods *accessors
-    should_have_instance_methods *(accessors.collect{|a| "#{a}="})
-  end
-  alias_method :should_have_accessor, :should_have_accessors
-  protected :should_have_accessors, :should_have_accessor
-  def skip_should_have_accessors(*accessors)
-    get_options!(accessors)
-    skip_should_have_instance_methods *accessors
-    skip_should_have_instance_methods *(accessors.collect{|a| "#{a}="})
-  end
-  alias_method :skip_should_have_accessor, :skip_should_have_accessors
-  protected :skip_should_have_accessors, :skip_should_have_accessor
-
-
-
-
-  def handle_methods(methods)
-    get_options!(methods)
-    methods.each {|m| yield m if block_given?}
-  end
-  private :handle_methods
-
-end
-
-Test::Unit::TestCase.extend(TestBelt::ShouldaMacros::Classes) if defined? Test::Unit::TestCase

data/lib/test_belt/shoulda_macros/context.rb

@@ -1,25 +0,0 @@
-module TestBelt; end
-module TestBelt::ShouldaMacros; end
-module TestBelt::ShouldaMacros::Context
-end
-
-
-if defined? Shoulda::Context
-  module Shoulda
-    class Context
-
-      alias_method :before, :setup
-      alias_method :after, :teardown
-
-      # TODO: override described_type to use string blessed with constantize method
-      # alias_method(:orig_described_type, :described_type) rescue NameError
-      # def described_type
-      #   self.name.gsub(/Test$/, '').constantize
-      # end
-      # protected :described_type
-
-    end
-  end
-
-  Shoulda::Context.extend(TestBelt::ShouldaMacros::Context)
-end

data/lib/test_belt/shoulda_macros/files.rb

@@ -1,49 +0,0 @@
-require 'useful/ruby_extensions/string' unless String.new.respond_to?(:constantize)
-
-module TestBelt; end
-module TestBelt::ShouldaMacros; end
-module TestBelt::ShouldaMacros::Files
-
-  def should_have_files(*files)
-    the_files = files.flatten
-    if the_files.empty?
-      should "have @root_path" do
-        assert @root_path, "the variable @root_path is not defined"
-        assert File.exists?(@root_path), "'#{@root_path}' does not exist"
-      end
-    else
-      the_files.each do |file|
-        should "have the file '#{file}' in @root_path" do
-          assert @root_path, "the variable @root_path is not defined"
-          assert File.exists?(File.join(@root_path, file)), "'#{file}' does not exist in '#{@root_path}'"
-        end
-      end
-    end
-  end
-  protected :should_have_files
-  def skip_should_have_files(*files)
-    the_files = files.flatten
-    if the_files.empty?
-      should "(skip) have @root_path" do
-        skip
-      end
-    else
-      the_files.each do |file|
-        should "(skip) have the file '#{file}' in @root_path" do
-          skip
-        end
-      end
-    end
-  end
-  protected :skip_should_have_files
-
-  alias_method :should_have_file, :should_have_files
-  alias_method :should_have_directories, :should_have_files
-  alias_method :should_have_directory, :should_have_files
-  alias_method :skip_should_have_file, :skip_should_have_files
-  alias_method :skip_should_have_directories, :skip_should_have_files
-  alias_method :skip_should_have_directory, :skip_should_have_files
-
-end
-
-Test::Unit::TestCase.extend(TestBelt::ShouldaMacros::Files) if defined? Test::Unit::TestCase

data/lib/test_belt/test_unit.rb

@@ -1,8 +0,0 @@
-require 'test/unit'
-
-module TestBelt; end
-module TestBelt::TestUnit; end
-
-require 'test_belt/test_unit/context'
-require 'test_belt/test_unit/test_case'
-

data/lib/test_belt/test_unit/context.rb

@@ -1,71 +0,0 @@
-require 'test/unit'
-require 'test_belt/test_unit/runner'
-
-module Test::Unit
-
-  class TestCase
-
-    class << self
-
-      def _testbelt_suite_callbacks
-        @_testbelt_suite_callbacks ||= {
-          :started => [],
-          :finished => []
-        }
-      end
-
-      def _testbelt_testcase_callbacks
-        @_testbelt_testcase_callbacks ||= {
-          :setup => [],
-          :teardown => []
-        }
-      end
-
-      protected
-
-      # Suite level callbacks
-      def suite_started(&block)
-        ::Test::Unit::TestCase._testbelt_suite_callbacks[:started] << block
-      end
-      alias :on_suite_started :suite_started
-
-      def suite_finished(&block)
-        ::Test::Unit::TestCase._testbelt_suite_callbacks[:finished] << block
-      end
-      alias :on_suite_finished :suite_finished
-
-      # TestCase level callbacks
-      def setup_once(&block)
-        _testbelt_testcase_callbacks[:setup] << block
-      end
-      alias :before_once :setup_once
-
-      def teardown_once(&block)
-        _testbelt_testcase_callbacks[:teardown] << block
-      end
-      alias :after_once :teardown_once
-
-    end
-  end
-
-
-  # override the TestSuite with TestCase callbacks
-  class TestSuite
-    alias_method :run_without_testbelt_callbacks, :run
-
-    def run(*args, &block) # :nodoc:
-      if !tests.empty? && (testclass = tests.first).kind_of?(::Test::Unit::TestCase)
-        tests.first.class._testbelt_testcase_callbacks[:setup].each do |callback|
-          callback.call
-        end
-      end
-      run_without_testbelt_callbacks *args, &block
-      if !tests.empty? && (testclass = tests.first).kind_of?(::Test::Unit::TestCase)
-        tests.first.class._testbelt_testcase_callbacks[:teardown].reverse.each do |callback|
-          callback.call
-        end
-      end
-    end
-  end
-
-end

data/lib/test_belt/test_unit/runner.rb

@@ -1,48 +0,0 @@
-require 'test/unit'
-require 'test/unit/ui/console/testrunner'
-
-module TestBelt; end
-module TestBelt::TestUnit
-
-  if defined? ::LeftRight::Runner
-    class Runner < ::LeftRight::Runner; end
-  else
-    class Runner < ::Test::Unit::UI::Console::TestRunner; end
-  end
-
-  class Runner
-    def started(*args)
-      super
-      if ::Test::Unit::TestCase.respond_to?("_testbelt_suite_callbacks")
-        ::Test::Unit::TestCase._testbelt_suite_callbacks[:started].each do |callback|
-          callback.call
-        end
-      end
-    end
-
-    def finished(*args)
-      if ::Test::Unit::TestCase.respond_to?("_testbelt_suite_callbacks")
-        ::Test::Unit::TestCase._testbelt_suite_callbacks[:finished].reverse.each do |callback|
-          callback.call
-        end
-      end
-      super
-    end
-  end
-
-end
-
-module Test::Unit
-
-  # override the AutoRunner's runner to use TestBelt's
-  # with callback for suite started/finished
-  class AutoRunner
-    alias_method :initialize_without_testbelt_runner, :initialize
-
-    def initialize(*args)
-      initialize_without_testbelt_runner *args
-      @runner = lambda { |r| ::TestBelt::TestUnit::Runner }
-    end
-  end
-
-end

data/lib/test_belt/test_unit/test_case.rb

@@ -1,26 +0,0 @@
-require 'test/unit'
-
-module TestBelt::TestUnit
-  class TestSkipped < Exception; end
-end
-
-module Test::Unit
-  class TestCase
-
-    alias_method(:orig_add_error, :add_error)
-    def add_error(*args, &block)
-      unless args.first.kind_of?(::TestBelt::TestUnit::TestSkipped)
-        orig_add_error *args, &block
-      end
-    end
-
-    def skip(halt_test=true)
-      if defined? ::LeftRight
-        ::LeftRight.state.skip = true
-        ::LeftRight.state.skipped_count += 1
-      end
-      raise ::TestBelt::TestUnit::TestSkipped if halt_test
-    end
-
-  end
-end

data/test/shoulda_macros/classes_test.rb

@@ -1,58 +0,0 @@
-require "test/helper"
-require "test/fixtures/shoulda_macros/thing"
-
-class ClassesTest < Test::Unit::TestCase
-
-  context "TestBelt Shoulda Macros for classes" do
-    subject { Thing.new }
-
-    # should provide these macros
-    should "provide a set of macros" do
-      assert self.class.respond_to?(:should_have_instance_methods), "no :should_have_instance_methods macro"
-      assert self.class.respond_to?(:should_have_instance_method), "no :should_have_instance_method macro"
-      assert self.class.respond_to?(:should_have_class_methods), "no :should_have_class_methods macro"
-      assert self.class.respond_to?(:should_have_class_method), "no :should_have_class_method macro"
-      assert self.class.respond_to?(:should_have_readers), "no :should_have_readers macro"
-      assert self.class.respond_to?(:should_have_reader), "no :should_have_reader macro"
-      assert self.class.respond_to?(:should_have_writers), "no :should_have_writers macro"
-      assert self.class.respond_to?(:should_have_writer), "no :should_have_writer macro"
-      assert self.class.respond_to?(:should_have_accessors), "no :should_have_accessors macro"
-      assert self.class.respond_to?(:should_have_accessor), "no :should_have_accessor macro"
-
-      assert self.class.respond_to?(:skip_should_have_instance_methods),  "no :skip_should_have_instance_methods macro"
-      assert self.class.respond_to?(:skip_should_have_instance_method),   "no :skip_should_have_instance_method macro"
-      assert self.class.respond_to?(:skip_should_have_class_methods),     "no :skip_should_have_class_methods macro"
-      assert self.class.respond_to?(:skip_should_have_class_method),      "no :skip_should_have_class_method macro"
-      assert self.class.respond_to?(:skip_should_have_readers),           "no :skip_should_have_readers macro"
-      assert self.class.respond_to?(:skip_should_have_reader),            "no :skip_should_have_reader macro"
-      assert self.class.respond_to?(:skip_should_have_writers),           "no :skip_should_have_writers macro"
-      assert self.class.respond_to?(:skip_should_have_writer),            "no :skip_should_have_writer macro"
-      assert self.class.respond_to?(:skip_should_have_accessors),         "no :skip_should_have_accessors macro"
-      assert self.class.respond_to?(:skip_should_have_accessor),          "no :skip_should_have_accessor macro"
-    end
-
-
-    should_have_instance_method :an_instance_meth
-    should_have_instance_methods :instance1, :instance2
-    should_have_class_method :a_class_meth
-    should_have_class_methods :class1, :class2
-    should_have_readers :reader1, :reader2
-    should_have_reader :reader3
-    should_have_writers :writer1, :writer2
-    should_have_writer :writer3
-    should_have_accessors :accessor1, :accessor2
-    should_have_accessor :accessor3
-
-    skip_should_have_instance_method :an_instance_meth
-    skip_should_have_instance_methods :instance1, :instance2
-    skip_should_have_class_method :a_class_meth
-    skip_should_have_class_methods :class1, :class2
-    skip_should_have_readers :reader1, :reader2
-    skip_should_have_reader :reader3
-    skip_should_have_writers :writer1, :writer2
-    skip_should_have_writer :writer3
-    skip_should_have_accessors :accessor1, :accessor2
-    skip_should_have_accessor :accessor3
-  end
-
-end

data/test/shoulda_macros/context_test.rb

@@ -1,28 +0,0 @@
-require "test/helper"
-require "test/fixtures/shoulda_macros/thing"
-
-module TestBelt::ShouldaMacros
-  class ContextTest < Test::Unit::TestCase
-
-    context "TestBelt Shoulda Macros for context" do
-      setup do
-        @thing = Thing.new
-      end
-
-      context "callbacks that setup/teardown each test" do
-        before do
-          @thing.accessor1 = "before"
-        end
-        after do
-          assert_equal 'after', @thing.accessor1, "the accessor was not set correctly in the after block"
-        end
-
-        should "run using before/after blocks" do
-          assert_equal 'before', @thing.accessor1, "the accessor was not set correctly in the before block"
-          @thing.accessor1 = "after"
-        end
-      end
-    end
-
-  end
-end

data/test/shoulda_macros/files_test.rb

@@ -1,36 +0,0 @@
-require "test/helper"
-
-module TestBelt::ShouldaMacros
-  class FilesTest < Test::Unit::TestCase
-
-    context "TestBelt Shoulda Macros for files" do
-
-      # should require a root path
-      setup do
-        @root_path = File.expand_path(File.dirname(__FILE__))
-      end
-
-      # should provide these macros
-      should "provide a set of macros" do
-        assert self.class.respond_to?(:should_have_directories), "no :should_have_directories macro"
-        assert self.class.respond_to?(:should_have_directory), "no :should_have_directory macro"
-        assert self.class.respond_to?(:should_have_files), "no :should_have_files macro"
-        assert self.class.respond_to?(:should_have_file), "no :should_have_file macro"
-
-        assert self.class.respond_to?(:skip_should_have_directories), "no :should_have_directories macro"
-        assert self.class.respond_to?(:skip_should_have_directory), "no :should_have_directory macro"
-        assert self.class.respond_to?(:skip_should_have_files), "no :should_have_files macro"
-        assert self.class.respond_to?(:skip_should_have_file), "no :should_have_file macro"
-      end
-
-      # should find the @root_path directory
-      should_have_directories
-      skip_should_have_directories
-
-      #should find files in the @root_path directory
-      should_have_files 'files_test.rb'
-      skip_should_have_files 'files_test.rb'
-    end
-
-  end
-end