quarry 0.4.0 → 0.5.0

data/work/deprecated/stub/test_stub.rb

@@ -1,66 +0,0 @@
-require 'quarry/stub'
-require 'test/unit'
-
-class TC_Stub < Test::Unit::TestCase
-
-  class S < Quarry::Stub
-    stat :m, 10
-    echo :e
-    spin :s, [1,2,3]
-    keys :i, { [:foo] => 'Hello', [:boo] => 'Frog' }
-
-    def a(k) k+1 end
-  end
-
-  def setup
-    @s = S.new
-  end
-
-  def test_stat
-    assert_equal(10, @s.m)
-  end
-
-  def test_echo
-    assert_equal([:hi], @s.e(:hi))
-  end
-
-  def test_spin
-    assert_equal(1, @s.s)
-    assert_equal(2, @s.s)
-    assert_equal(3, @s.s)
-    assert_equal(1, @s.s)
-  end
-
-  def test_keys
-    assert_equal('Hello', @s.i(:foo))
-    assert_equal('Frog',  @s.i(:boo))
-  end
-
-  def assert_normal_method
-    assert_equal(2, @s.a(1))
-  end
-end
-
-class TC_Stub_Wrapper < Test::Unit::TestCase
-
-  class X
-    def a; "a"; end
-    def b; "b"; end
-    def c; "c"; end
-  end
-
-  class XS < Quarry::Stub(X)
-  end
-
-  def setup
-    @xs = XS.new
-  end
-
-  def test_responds
-    assert_equal(nil, @xs.a)
-    assert_equal(nil, @xs.b)
-    assert_equal(nil, @xs.c)
-  end
-
-end
-

data/work/deprecated/test/case.rb

@@ -1,141 +0,0 @@
-#require 'facet/kernel/within?'
-require 'quarry/assert'
-
-at_exit { Quarry::Test.autotest unless $no_autotest }
-
-module Quarry
-module Test
-
-  # TODO: make output compatible with unit_diff ?
-
-  def self.autotest
-    ::ObjectSpace.each_object(Suite) do |suite|
-      puts "Running test suite #{suite.description.upcase}:"
-      suite.cases.each do |kase|
-        puts "== #{kase.description.upcase}\n"
-        kase.units.each_with_index do |test, i|
-          kase.setup
-          begin
-            test.call
-
-          rescue Assertion => e
-            print "#{i+1}) #{test.description}"
-            print "\a  FAIL! "
-            puts "[" + e.backtrace[2] + "]"
-            puts "#{e}\n" if $VERBOSE
-
-          rescue Exception => e
-            print "#{i+1}) #{test.description}"
-            print "\a  ERROR! "
-            puts "[" + e.backtrace[2] + "]"
-            puts "#{e}\n" if $VERBOSE
-            #puts "#{klass}.#{meth}: #{e}"
-          ensure
-            kase.teardown
-          end
-        end
-      end
-    end
-  end
-
-  #
-
-  def self.suites
-    @suites ||= []
-  end
-
-  def self.suite(description, &testsuite)
-    suites << Suite.new(description, &testsuite)
-  end
-
-  # A test suite.
-
-  class Suite
-    attr :description
-
-    def initialize(description, &testsuite)
-      @description = description
-      @testsuite   = testsuite
-      @testcases   = []
-
-      instance_eval(&testsuite)
-    end
-
-    def cases
-      @testcases ||= []
-    end
-
-    def test_case(description, &testcase)
-      cases << Case.new(description, &testcase)
-    end
-  end
-
-  # A test case.
-
-  class Case
-    attr :description
-
-    def initialize(description, &testcase)
-      @description = description
-      @testcase    = testcase
-      @testunits   = []
-      instance_eval(&testcase)
-    end
-
-    def units
-      @testunits ||= []
-    end
-
-    def setup; end
-
-    def teardown; end
-
-    def test(description, &testunit)
-      units << Unit.new(description, &testunit)
-    end
-  end
-
-  # A test unit.
-
-  class Unit
-    attr :description
-
-    def initialize(description, &testunit)
-      @description = description
-      @testunit    = testunit
-    end
-
-    def call
-      @testunit.call
-    end
-  end
-
-end
-end
-
-
-# EXAMPLE
-
-if __FILE__ == $0
-
-  Quarry::Test.suite "example suite" do
-
-    test_case "example case" do
-
-      test "4 should equal 3" do
-        4.assert == 3
-      end
-
-      test "4 should not equal 4" do
-        4.assert_not == 4
-      end
-
-      test "raises syntax error" do
-        lambda{raise SyntaxError}.should.raise? SyntaxError
-      end
-
-    end
-
-  end
-
-end

data/work/sandbox/assert.rb

@@ -1,100 +0,0 @@
-class Object
-  # Asserts a operational relationship.
-  #
-  # 4.assert == 3  #=> Assertion Error
-  #
-  def assert
-    return Assert.new(self, true)
-  end
-
-  # Refutes an operational relationship.
-  #
-  # 4.assert! == 4  #=> Assertion Error
-  #
-  def assert!
-    return Assert.new(self, false)
-  end
-end
-
-# = Assertion
-#
-# Assertion is a special subclass of Exception.
-# An Assertion error is raised when an assertion fails.
-#
-class Assertion < Exception
-end
-
-# = Assert
-#
-# The Assert class is an Assertion functor. It delegates
-# to the underlying object to test if assertions applied
-# to it are successful or not. When they fail it raises
-# and Assertion error.
-#
-class Assert
-
-  hide = instance_methods.reject { |m| m.to_s =~ /^__/ }
-  hide.each { |m| protected m  }
-
-  private
-
-  #
-  def initialize(delegate, predicate)
-    @delegate  = delegate
-    @predicate = predicate
-  end
-
-  #
-  def method_missing(sym, *a, &b)
-    case sym
-    when :raise?, :raises?
-      begin
-        @delegate.call #yield
-        assert false, "Expected #{a[0]} to be raised"
-      rescue Exception => e
-        assert a[0] === e, "Expected #{a[0]} to be raised, but got #{e.class}"
-        return e
-      end
-    else
-      assert(@delegate.__send__(sym, *a, &b), message(@delegate, sym, *a, &b))
-    end
-  end
-
-  #
-  def assert(assertion, msg="failed assertion (no message given)")
-    if @predicate
-      raise Assertion, msg unless assertion
-    else
-      raise Assertion, msg if assertion
-    end
-  end
-
-  #
-  def message(obj, sym, *a, &b)
-    #self.class.message(sym)[@delegate, *a] )
-    if @predicate
-      "#{obj.inspect} #{sym} #{a.collect{|x| x.inspect}.join(',')}"
-    else
-      "NOT #{obj.inspect} #{sym} #{a.collect{|x| x.inspect}.join(',')}"
-    end
-  end
-
-  # TODO: Ultimately better messages would be nice.
-
-  #
-  #def self.message(msg,&block)
-  #  @messages ||= {}
-  #  if block
-  #    @messages[msg] = block
-  #  else
-  #    @messages[msg]
-  #  end
-  #end
-
-  #
-  #message(:==){ |*a| "Expected #{a[0].inspect} to be equal to #{a[1].inspect}" }
-
-end
-
-# Copyright (c) 2008 Tiger Ops
-

data/work/sandbox/bug.rb

@@ -1,49 +0,0 @@
-# Raise a bug.
-
-module Quarry
-  class Bug < Exception; end
-end
-
-module Kernel
-
-  # Raises a ScritBug error with a message.
-  #
-  #   if find_bug then
-  #     bug! "unknown bug found"
-  #   end
-  #
-  #--
-  # Credit goes to Minero Aoki. Cute! :-)
-  #++
-  def bug!(message='Report this bug!')
-    raise Quarry::Bug, "\n[BUG] " + message
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TestKernelError < Test::Unit::TestCase
-
-    def test_bug!
-      assert_raises( Bug ) { bug! }
-    end
-
-#     def test_demo
-#       demo(i=''){%{ a = [1,2,3] }}
-#       o = " a = [1,2,3]             #=>  [1, 2, 3]\n"
-#       assert_equal( o, i )
-#     end
-
-  end
-
-=end

data/work/sandbox/build/announce.rb

@@ -1,213 +0,0 @@
-require 'quarry/build'
-
-module Reap
-
-  # Make a release announcement. Generates and can email a release
-  # announcements. These are nicely formated message and can
-  # email the message to the specified address(es).
-  #
-  # The following settings apply:
-  #
-  #     title        Project title.
-  #     subtitle     Brief one-line description.
-  #     version      Project version.
-  #     description  Long description of project.
-  #     homepage     Project homepage web address.
-  #     slogan       Motto for you project.
-  #     memo         File that contains announcement message.
-  #     template     Custom announcement template file.
-  #     mail_to      Email address(es) to send announcemnt.
-  #
-  # If <em>mail_to</em> is set then these also apply:
-  #
-  #     from         Message FROM address [email].
-  #     subject      Subject of email message ([ANN] title verison).
-  #     server       Email server to route message.
-  #     port         Email server's port.
-  #     domain       Email server's domain name.
-  #     account      Email account name [email].
-  #     login        Login type: plain, cram_md5 or login.
-  #     secure       Uses TLS security, true or false?
-  #
-  # A template file can be specified that uses "$setting" as
-  # substitutes for poject information.
-
-  class Announcement < Build
-
-    # Default layout of release announcement.
-
-    DEFAULT_TEMPLATE = <<-END
-      $title $version
-      $subtitle
-      $homepage
-
-      $summary $description
-
-      $memo
-
-      $slogan
-    END
-
-    # Name of project (ie. unix name).
-    attr_accessor :project
-
-    # Title of project.
-    attr_accessor :title
-
-    # Subtitle of project.
-    attr_accessor :subtitle
-
-    # Version number of project release.
-    attr_accessor :version
-
-    # Description of project.
-    attr_accessor :description
-
-    # Project's homepage.
-    attr_accessor :homepage
-
-    # URL to download.
-    attr_accessor :download
-
-    # Project slogan.
-    attr_accessor :slogan
-
-    # To email address(es). If this is not set then
-    # the announcement is not emailed and instead
-    # is only sent to stdout.
-    attr_accessor :mail_to
-
-    # From email address.
-    attr_accessor :mail_from
-
-    # Memo (personalized message for this release)
-    attr_accessor :memo
-
-    # User defined announcement template.
-    attr_accessor :template
-
-    # Subject line (default is "ANN: project version").
-    attr_accessor :subject
-
-    # Email server
-    attr_accessor :server
-
-    # Emails server port (default is usually correct).
-    attr_accessor :port
-
-    # Email account name (defaults to mail_from).
-    attr_accessor :account
-
-    # User domain (not sure why SMTP requires this?)
-    attr_accessor :domain
-
-    # Login type (plain, login)
-    attr_accessor :login_type
-
-    # Use TLS/SSL true or false?
-    attr_accessor :secure
-
-    # Password (deafults to ENV['PASSWORD']
-    attr_accessor :password
-
-    #
-
-    def subject
-      @subject ||= "ANN: #{title}, v#{version}"
-    end
-
-    #
-
-    def account
-      @account ||= @mail_from
-    end
-
-      #config['mail_to'] = nil if keys['mail_to'].empty?
-
-    # Validate settings.
-
-    def validate
-      raise ArgumentError, "missing title" unless title
-      raise ArgumentError, "missing version" unless version
-    end
-
-    # Announcement message.
-
-    def message
-      # Announce template
-      unless template
-        files = Dir.glob("{ANN,doc/[aA]nn,doc/ANN}{,.txt}")
-        template = files.first
-      end
-      template = File.read(template) if template
-      template = template || DEFAULT_TEMPLATE
-
-      # Announce Memo
-      unless memo
-        files = Dir.glob("{MEMO,doc/[mM]emo,doc/MEMO}{,.txt}")
-        memo = files.first
-      end
-      memo = File.read(memo).fold(true) if memo
-
-      # Strip tiny version zero.
-      #if keys['version'] =~ /[.].*?[.]/
-      #  keys['version'] = keys['version'].chomp('.0')
-      #end
-
-      # Make announcement message
-      message = template.dup
-
-      message.gsub!('$memo',memo) if memo        # insert memo
-      #message.gsub!('$stamp',stamp.to_s)        # insert stamp
-
-      template.scan(/[$].*?\s/m) do |key|
-        key   = key.strip
-        name  = key[1..-1]
-        value = info.send(name)
-        message.gsub!(key, value.to_s.strip)
-      end
-
-      message.gsub!(/(^|[ ])[$].*?(?=[ ]|$)/,'') # remove unused vars
-      message.gsub!("\n\n\n","\n")               # remove any triple blank lines
-      message.rstrip!
-
-      #message = release_announcement(config)
-
-      message
-    end
-
-    #
-
-    def email_message
-      email(message, email_options)
-    end
-
-    #
-
-    def email_options
-      { :to      => mail_to,
-        :from    => mail_from,
-        :subject => subject,
-        :server  => server,
-        :port    => port,
-        :domain  => domain,
-        :account => account,
-        :login   => login,
-        :secure  => secure
-      }
-    end
-
-  end
-
-end
-
-  #       keys = {}
-  #       keys['from'] = info.email
-  #       keys.update info.gather('mail')
-  #       keys.update info.gather('announce')
-  #       keys.update info.select(
-  #         :project, :version, :title, :subtitle, :description,
-  #         :homepage, :download, :slogan
-  #       )
-  #       keys.update override if override
-

data/work/sandbox/build/check.rb

@@ -1,109 +0,0 @@
-require 'quarry/build'
-
-module Quarry
-
-  #
-
-  class Check < Build
-
-    DEFAULT_LOADPATH = ['lib']
-
-    # List of file path(s) of project scripts to check.
-
-    attr_accessor :loadpath
-    attr_accessor :exclude
-
-    alias_method :include, :loadpath
-    alias_method :include=, :loadpath=
-
-    # Veridy syntax of ruby scripts.
-    #
-    # This takes one option +:scripts+ which is a glob or list of globs
-    # of the scripts to check. By default this is all scripts in the libpath(s).
-
-    def syntax(options=nil)
-      options ||= {}
-
-      glob = options[:include] || options[:loadpath] || loadpath || DEFAULT_LOADPATH
-      excl = options[:exclude] || exclude  || []
-
-      if String===glob
-        glob = glob.split(/[:;]/)
-      end
-
-      files = multiglob_r(*glob) - multiglob_r(*excl)
-      max   = files.collect{ |f| f.size }.max
-      errs  = []
-      cnt   = 0
-
-      files.each do |s|
-        next unless File.file?(s)
-        #if not system "ruby -c -Ibin:lib:test #{s} &> /dev/null" then
-        r = system "ruby -c -I#{libpath} #{s} > /dev/null"
-        if r
-          puts("%-#{max}s  [PASS]" % [s]) #if verbose?
-        else
-          puts("%-#{max}s  [FAIL]" % [s]) #if verbose?
-          errs << s #:syntax
-          cnt += 1
-        end
-      end
-
-      if cnt == 0
-        puts "Syntax checks out."
-      else
-        puts "#{cnt} Syntax Failures:\n  "
-        puts errs.join("\n  ")
-      end
-    end
-
-    # Load each script independently to ensure there are no
-    # require dependency issues.
-    #
-    # WARNING! Only do this on scripts that have no toplevel side-effects!
-    #
-    # This takes one option +:scripts+ which is a glob or list of globs
-    # of the scripts to check. By default this is all scripts in the libpath(s).
-    #
-    # FIXME: This isn;t routing output to dev/null as expected.
-
-    def dependencies(options=nil)
-      options ||= {}
-
-      options ||= {}
-
-      glob = options[:include] || options[:loadpath] || loadpath || DEFAULT_LOADPATH
-      excl = options[:exclude] || exclude  || []
-
-      if String===glob
-        glob = glob.split(/[:;]/)
-      end
-
-      files = multiglob_r(*glob) - multiglob_r(*excl)
-      max   = files.collect{ |f| f.size }.max
-      errs  = []
-      cnt   = 0
-
-      files.each do |s|
-        next unless File.file?(s)
-        #if not system "ruby -c -Ibin:lib:test #{s} &> /dev/null" then
-        if r = system("ruby -I#{libpath} #{s} > /dev/null")
-          puts "%-#{max}s  [PASS]" % [s]  #if verbose?
-        else
-          puts "%-#{max}s  [FAIL]" % [s]  #if verbose?
-          errs << s #:load
-          cnt += 1
-        end
-      end
-
-      if cnt == 0
-        puts "Load dependencies check out."
-      else
-        puts "#{cnt} Load Failures:\n  "
-        puts errs.join("\n  ")
-      end
-    end
-
-  end
-
-end