etest 0.1

data/Manifest

@@ -0,0 +1,13 @@
+Manifest
+Rakefile
+etest.gemspec
+init.rb
+lib/dlog_ext.rb
+lib/etest.rb
+lib/etest/assertions.rb
+lib/etest/grep.rb
+lib/module_ext.rb
+lib/string_ext.rb
+script/console
+script/rebuild
+test/test.rb

data/Rakefile

@@ -0,0 +1,29 @@
+task :default => :test
+
+task :test do
+	sh "ruby test/test.rb"
+end
+
+task :rcov do
+  sh "cd test; rcov -o ../coverage -x ruby/.*/gems -x ^test.rb test.rb"
+end
+
+task :rdoc do
+  sh "rdoc -o doc/rdoc"
+end
+
+require 'rubygems'  
+require 'rake'  
+require 'echoe'  
+
+Echoe.new('etest', '0.1') do |p|  
+  p.description     = "Embedded tests"  
+  p.url             = "http://github.com/pboy/etest"  
+  p.author          = "pboy"  
+  p.email           = "eno-pboy@open-lab.org"  
+  p.ignore_pattern  = ["tmp/*"]  
+  # p.runtime_dependencies = %w(nokogiri htmlentities rdiscount)
+end
+
+Dir["#{File.dirname(__FILE__)}/tasks/*.rake"].sort.each { |ext| load ext }
+

data/etest.gemspec

@@ -0,0 +1,30 @@
+# -*- encoding: utf-8 -*-
+
+Gem::Specification.new do |s|
+  s.name = %q{etest}
+  s.version = "0.1"
+
+  s.required_rubygems_version = Gem::Requirement.new(">= 1.2") if s.respond_to? :required_rubygems_version=
+  s.authors = ["pboy"]
+  s.date = %q{2010-02-28}
+  s.description = %q{Embedded tests}
+  s.email = %q{eno-pboy@open-lab.org}
+  s.extra_rdoc_files = ["lib/dlog_ext.rb", "lib/etest.rb", "lib/etest/assertions.rb", "lib/etest/grep.rb", "lib/module_ext.rb", "lib/string_ext.rb"]
+  s.files = ["Manifest", "Rakefile", "etest.gemspec", "init.rb", "lib/dlog_ext.rb", "lib/etest.rb", "lib/etest/assertions.rb", "lib/etest/grep.rb", "lib/module_ext.rb", "lib/string_ext.rb", "script/console", "script/rebuild", "test/test.rb"]
+  s.homepage = %q{http://github.com/pboy/etest}
+  s.rdoc_options = ["--line-numbers", "--inline-source", "--title", "Etest"]
+  s.require_paths = ["lib"]
+  s.rubyforge_project = %q{etest}
+  s.rubygems_version = %q{1.3.5}
+  s.summary = %q{Embedded tests}
+
+  if s.respond_to? :specification_version then
+    current_version = Gem::Specification::CURRENT_SPECIFICATION_VERSION
+    s.specification_version = 3
+
+    if Gem::Version.new(Gem::RubyGemsVersion) >= Gem::Version.new('1.2.0') then
+    else
+    end
+  else
+  end
+end

data/init.rb

@@ -0,0 +1,3 @@
+$: << "#{File.dirname(__FILE__)}/lib"
+
+require "etest"

data/lib/dlog_ext.rb

@@ -0,0 +1,46 @@
+module Dlog
+  def dlog(*args)
+  end
+end
+
+if !ENV["NO_DLOG"]
+
+module Dlog
+  ROOT = if defined?(RAILS_ROOT)
+    RAILS_ROOT
+  else
+    File.expand_path(Dir.getwd) 
+  end
+  
+  HOME = ENV["HOME"] + "/"
+  
+  def dlog(*args)
+    msg = ""
+    was_string = true
+    args.map do |s|
+      msg += was_string ? " " : ", " unless msg.empty?
+      msg += ((was_string = s.is_a?(String)) ? s : s.inspect)
+    end
+    STDERR.puts "#{dlog_caller}: #{msg}"
+  end
+
+  def dlog_caller
+    if caller[1] =~ /^(.*):(\d+)/
+      file, line = $1, $2
+      file = File.expand_path(file)
+
+      file.gsub!(ROOT, ".") or
+      file.gsub!(HOME, "~/")
+    
+      "#{file}(#{line})"
+    else
+      "<dlog>"
+    end
+  end
+end
+
+end
+
+class Object
+  include Dlog
+end

data/lib/etest.rb

@@ -0,0 +1,66 @@
+require "rubygems"
+require "minitest/unit"
+require File.dirname(__FILE__) + "/string_ext"
+require File.dirname(__FILE__) + "/module_ext"
+require File.dirname(__FILE__) + "/dlog_ext"
+
+#
+# Embedded test cases:
+#
+# The Etest module contains methods to run etests.
+# 
+module Etest
+end
+
+require File.dirname(__FILE__) + "/etest/assertions"
+
+class MiniTest::Unit::TestCase
+  def self.run_etests(*test_cases)
+    MiniTest::Unit::TestCase.reset
+    
+    test_cases.each do |test_case|
+      MiniTest::Unit::TestCase.inherited test_case
+    end
+
+    MiniTest::Unit.new.run([])
+    MiniTest::Unit::TestCase.reset
+  end
+end
+
+module Etest
+  def self.auto_run
+    #
+    # find all modules that are not named /::Etest$/, and try to load
+    # the respective Etest module.
+    etests = Module.instances.map { |mod|
+      #next if mod.name =~ /\bEtest$/
+      next if mod.name == "Object"
+      
+      Module.by_name "#{mod.name}::Etest"
+    }.compact.uniq.sort_by(&:name)
+
+    run *etests
+  end
+
+  def self.run(*etests)
+    dlog "Running", etests
+    #
+    # convert all Etest modules into a test case
+    test_cases = etests.map { |etest|
+      to_test_case etest
+    }
+    
+    MiniTest::Unit::TestCase.run_etests *test_cases
+  end
+
+  #
+  # convert an Etest moodule into a MiniTest testcase
+  def self.to_test_case(mod)
+    klass = Class.new MiniTest::Unit::TestCase
+    klass.send :include, mod
+    klass.send :include, Assertions
+
+    mod.const_set("TestCase", klass)
+    klass
+  end
+end

data/lib/etest/assertions.rb

@@ -0,0 +1,118 @@
+#
+#
+# Some assertions
+module Etest::Assertions
+  def assert_respond_to(obj, *args)
+    raise ArgumentError, "Missing argument(s)" if args.length < 1
+  
+    args.reject! { |sym| obj.respond_to?(sym) }
+    
+    assert args.empty?, "#{obj.inspect} should respond to #{args.map(&:inspect).join(", ")}, but doesn't."
+  end
+
+  # returns a list of invalid attributes in a model, as symbols.
+  def invalid_attributes(model)                                     #:nodoc:
+    model.valid? ? [] : model.errors.instance_variable_get("@errors").keys.map(&:to_sym)
+  end
+  
+  #
+  # Verifies that a model is valid. Pass in some attributes to only
+  # validate those attributes.
+  def assert_valid(model, *attributes)
+    if attributes.empty?
+      assert(model.valid?, "#{model.inspect} should be valid, but isn't: #{model.errors.full_messages.join(", ")}.")
+    else
+      invalid_attributes = invalid_attributes(model) & attributes
+      assert invalid_attributes.empty?,
+        "Attribute(s) #{invalid_attributes.join(", ")} should be valid"
+    end
+  end
+
+  #
+  # Verifies that a model is invalid. Pass in some attributes to only
+  # validate those attributes.
+  def assert_invalid(model, *attributes)
+    assert(!model.valid?, "#{model.inspect} should be invalid, but isn't.")
+    
+    return if attributes.empty?
+
+    missing_invalids = attributes - invalid_attributes(model)
+
+    assert missing_invalids.empty?,
+      "Attribute(s) #{missing_invalids.join(", ")} should be invalid, but are not"
+  end
+
+  #
+  #
+  def assert_valid_xml(*args)
+    args.push @response.body if args.empty?
+    
+    args.each do |xml|
+      assert xml_valid?(xml), "XML is not valid: #{xml}"
+    end
+  end
+
+  def xml_valid?(xml)
+    require "libxml"
+    LibXML::XML::Error.reset_handler
+    
+    LibXML::XML::Document.io StringIO.new(xml)
+    true
+  rescue LibXML::XML::Error
+    false
+  end
+  
+  def assert_invalid_xml(*args)
+    args.push @response.body if args.empty?
+    
+    args.each do |xml|
+      assert !xml_valid?(xml), "XML should not be valid: #{xml}"
+    end
+  end
+
+  def assert_route(uri_path, params)
+    assert_recognizes params, uri_path
+  end
+
+  def assert_raises_kind_of(klass, &block)
+    begin
+      yield
+      assert false, "Should raise a #{klass} exception, but didn't raise at all"
+    rescue klass
+      assert $!.is_a?(klass), "Should raise a #{klass} exception, but raised a #{$!.class.name} exception"
+    end
+  end
+end
+
+
+module Etest::Assertions::Etest
+  #
+  # this actually tests the existance of an assertion and one successful
+  # assertion, nothing less, and nothing more...
+  def test_asserts
+    assert_respond_to "nsn", :upcase
+    assert respond_to?(:assert_invalid)
+    assert respond_to?(:assert_valid)
+  end
+
+  class TestError < RuntimeError; end
+  
+  def test_assert_raises_kind_of
+    assert_raises_kind_of RuntimeError do 
+      raise TestError
+    end
+  end
+  
+  def test_xml
+    assert_valid_xml <<-XML
+<root>
+<p> lkhj </p>
+</root>
+XML
+  
+    assert_invalid_xml <<-XML
+<root>
+<p> lkhj </p>
+XML
+  end
+end

data/lib/etest/grep.rb

@@ -0,0 +1,39 @@
+__END__
+
+module Etest::Grep
+  def self.load_from_directories(*dirs)
+    raise ArgumentError, "Missing directories" if dirs.empty?
+    # -- collect tests
+
+    STDERR.puts "\nLoad etests"
+
+    etests = []
+    rex = /^\s*module\s+(\S*\bEtest\b)/
+
+    dirs.each do |dir|
+      File.grep(rex, Dir.glob("#{dir}/**/*.rb")) do |_, _, matches|
+        etests << matches[1]
+      end
+    end
+
+    etests = etests.uniq.sort
+
+    # -- load tests
+
+    etests = etests.uniq.sort.each do |etest|
+      mod = etest.constantize rescue nil
+      next STDERR.puts("  #{etest}: cannot load test") unless mod
+  
+      tests = mod.instance_methods.select { |m| m =~ /^test_/ }
+
+      next STDERR.puts("  #{etest}: Does not define any tests") if tests.empty?
+
+      STDERR.puts("  #{etest}: w/#{tests.length} tests")
+
+      klass = Class.new(Mpx::TestCase)
+      klass.send :include, mod
+
+      mod.const_set("TestCase", klass)
+    end.compact
+  end
+end

data/lib/module_ext.rb

@@ -0,0 +1,58 @@
+# 
+# TDD helpers for modules. 
+class Module
+  #
+  # reloads the module, and runs the module's etests.
+  def etest
+    reload if respond_to?(:reload)
+    ::Etest.run self.const_get("Etest")
+  end
+
+  #
+  # returns all instances of a module
+  def instances                                           #:nodoc:
+    r = []
+    ObjectSpace.each_object(self) { |mod| r << mod }
+    r
+  end
+  
+  #
+  # load a module by name. 
+  def self.by_name(name)                                  #:nodoc:
+    old_verbose, $VERBOSE = $VERBOSE, nil
+    
+    r = eval(name, nil, __FILE__, __LINE__)
+    r if r.is_a?(Module) && r.name == name
+  rescue NameError, LoadError
+    nil
+  ensure
+    $VERBOSE = old_verbose
+  end
+  
+  #
+  # tries to reload the source file for this module. THIS IS A DEVELOPMENT
+  # helper, don't try to use it in production mode!
+  #
+  # Limitations:
+  #
+  # To reload a module with a name of "X::Y" we try to load (in that order) 
+  # "x/y.rb", "x.rb"
+  #
+  def reload
+    Module::Reloader.reload_file("#{to_s.underscore}.rb") || begin
+      dlog("Cannot reload module #{self}")
+      false
+    end
+  end
+
+  module Reloader                                       #:nodoc:
+    def self.reload_file(file)
+      begin
+        load(file) && file
+      rescue LoadError
+        nfile = file.gsub(/\/[^\/]+\.rb/, ".rb")
+        nfile != file && reload_file(nfile)
+      end
+    end
+  end
+end

data/lib/string_ext.rb

@@ -0,0 +1,27 @@
+class String
+  # taken from active-support
+  def underscore
+    gsub(/::/, '/').
+      gsub(/([A-Z]+)([A-Z][a-z])/,'\1_\2').
+      gsub(/([a-z\d])([A-Z])/,'\1_\2').
+      tr("-", "_").
+      downcase
+  end
+
+  def camelize
+    gsub(/\/(.?)/) { "::#{$1.upcase}" }.gsub(/(?:^|_)(.)/) { $1.upcase }
+  end
+end
+
+module String::Etest
+  def test_camelize
+    assert_equal "x", "X".underscore
+    assert_equal "xa_la_nder", "XaLaNder".underscore
+  end
+
+  def test_underscore
+    assert_equal "X", "x".camelize
+    assert_equal "XaLaNder", "xa_la_nder".camelize
+  end
+end
+

data/script/console

@@ -0,0 +1,8 @@
+#!/usr/bin/env ruby
+require "irb"
+require "rubygems"
+$: << "#{File.dirname(__FILE__)}/../lib"
+
+require "etest"
+
+IRB.start

data/script/rebuild

@@ -0,0 +1,7 @@
+#!/bin/sh
+rake default build_gemspec package || exit 1 
+echo "============================================="
+echo "I built the gem for you. To upload, run "
+echo
+echo "gem push $(ls -d pkg/*.gem | tail -n 1)"
+

data/test/test.rb

@@ -0,0 +1,65 @@
+#!/usr/bin/env ruby
+DIRNAME = File.expand_path File.dirname(__FILE__)
+Dir.chdir(DIRNAME)
+
+#
+# initialize the gem
+require '../init'
+
+require 'logger'
+require 'rubygems'
+require 'ruby-debug'
+
+LOGFILE = "log/test.log"
+SQLITE_FILE = ":memory:"
+
+#
+# -- set up fake rails ------------------------------------------------
+
+RAILS_ENV="test"
+RAILS_ROOT="#{DIRNAME}"
+
+if !defined?(RAILS_DEFAULT_LOGGER)
+  FileUtils.mkdir_p File.dirname(LOGFILE)
+  RAILS_DEFAULT_LOGGER = Logger.new(LOGFILE)
+  RAILS_DEFAULT_LOGGER.level = Logger::DEBUG
+end
+
+#
+# -- set up active record for tests -----------------------------------
+
+if defined?(ActiveRecord::Base) && !ActiveRecord::Base.connection
+  ActiveRecord::Base.logger = RAILS_DEFAULT_LOGGER
+  FileUtils.mkdir_p File.dirname(SQLITE_FILE) unless SQLITE_FILE == ":memory:"
+  ActiveRecord::Base.establish_connection :adapter => "sqlite3",
+    :database => SQLITE_FILE
+end
+
+# ---------------------------------------------------------------------
+
+module Fixnum::Etest
+  def test_success
+    $etests_did_run = true
+    assert true
+  end
+end
+
+$etests_did_run = false
+Etest.reload
+Etest.auto_run
+
+unless $etests_did_run
+  STDERR.puts "Something's wrong with etests :(" 
+  exit 1
+end
+
+STDERR.puts "===== Reloading and rerunning one test"
+
+$etests_did_run = false
+
+Fixnum.etest
+
+unless $etests_did_run
+  STDERR.puts "Something's wrong with etests :(" 
+  exit 1
+end

metadata

@@ -0,0 +1,75 @@
+--- !ruby/object:Gem::Specification 
+name: etest
+version: !ruby/object:Gem::Version 
+  version: "0.1"
+platform: ruby
+authors: 
+- pboy
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2010-02-28 00:00:00 +01:00
+default_executable: 
+dependencies: []
+
+description: Embedded tests
+email: eno-pboy@open-lab.org
+executables: []
+
+extensions: []
+
+extra_rdoc_files: 
+- lib/dlog_ext.rb
+- lib/etest.rb
+- lib/etest/assertions.rb
+- lib/etest/grep.rb
+- lib/module_ext.rb
+- lib/string_ext.rb
+files: 
+- Manifest
+- Rakefile
+- etest.gemspec
+- init.rb
+- lib/dlog_ext.rb
+- lib/etest.rb
+- lib/etest/assertions.rb
+- lib/etest/grep.rb
+- lib/module_ext.rb
+- lib/string_ext.rb
+- script/console
+- script/rebuild
+- test/test.rb
+has_rdoc: true
+homepage: http://github.com/pboy/etest
+licenses: []
+
+post_install_message: 
+rdoc_options: 
+- --line-numbers
+- --inline-source
+- --title
+- Etest
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "1.2"
+  version: 
+requirements: []
+
+rubyforge_project: etest
+rubygems_version: 1.3.5
+signing_key: 
+specification_version: 3
+summary: Embedded tests
+test_files: []
+