quarry 0.3.0 → 0.4.0

data/doc/ri/Module/doc-i.yaml

@@ -1,16 +0,0 @@
---- !ruby/object:RI::MethodDescription 
-aliases: []
-
-block_params: 
-comment: 
-- !ruby/struct:SM::Flow::P 
-  body: The idea here is to have dynamic docs.
-- !ruby/struct:SM::Flow::VERB 
-  body: "  doc "X does such and such"\n  doc "it is very powerful"\n  class X\n    doc "f does such and such"\n    doc "it is where the power lies"\n    def f\n      ...\n    end\n  end\n"
-- !ruby/struct:SM::Flow::P 
-  body: One of the great things about doc, is that it can be used to "inherit" documentation.
-full_name: Module#doc
-is_singleton: false
-name: doc
-params: (str)
-visibility: public

data/doc/ri/Quarry/Design/Specification/cdesc-Specification.yaml

@@ -1,44 +0,0 @@
---- !ruby/object:RI::ClassDescription 
-attributes: 
-- !ruby/object:RI::Attribute 
-  comment: 
-  name: after
-  rw: R
-- !ruby/object:RI::Attribute 
-  comment: 
-  name: before
-  rw: R
-- !ruby/object:RI::Attribute 
-  comment: 
-  name: context
-  rw: R
-- !ruby/object:RI::Attribute 
-  comment: 
-  name: description
-  rw: R
-- !ruby/object:RI::Attribute 
-  comment: 
-  name: relation
-  rw: R
-- !ruby/object:RI::Attribute 
-  comment: 
-  name: specification
-  rw: R
-class_methods: 
-- !ruby/object:RI::MethodSummary 
-  name: new
-comment: 
-- !ruby/struct:SM::Flow::P 
-  body: Design specification. Sepcification can contains sub-specifications.
-constants: []
-
-full_name: Quarry::Design::Specification
-includes: []
-
-instance_methods: 
-- !ruby/object:RI::MethodSummary 
-  name: check
-- !ruby/object:RI::MethodSummary 
-  name: outline
-name: Specification
-superclass: Object

data/doc/ri/Quarry/Design/cdesc-Design.yaml

@@ -1,22 +0,0 @@
---- !ruby/object:RI::ClassDescription 
-attributes: []
-
-class_methods: 
-- !ruby/object:RI::MethodSummary 
-  name: check
-- !ruby/object:RI::MethodSummary 
-  name: outline
-- !ruby/object:RI::MethodSummary 
-  name: specification
-- !ruby/object:RI::MethodSummary 
-  name: specifications
-comment: 
-constants: []
-
-full_name: Quarry::Design
-includes: []
-
-instance_methods: []
-
-name: Design
-superclass: 

data/doc/ri/Quarry/Mock/Object/cdesc-Object.yaml

@@ -1,52 +0,0 @@
---- !ruby/object:RI::ClassDescription 
-attributes: 
-- !ruby/object:RI::Attribute 
-  comment: 
-  name: mocked_class
-  rw: R
-class_methods: 
-- !ruby/object:RI::MethodSummary 
-  name: echo
-- !ruby/object:RI::MethodSummary 
-  name: keys
-- !ruby/object:RI::MethodSummary 
-  name: mock
-- !ruby/object:RI::MethodSummary 
-  name: mocks
-- !ruby/object:RI::MethodSummary 
-  name: spin
-comment: 
-- !ruby/struct:SM::Flow::H 
-  level: 1
-  text: Mock Object
-- !ruby/struct:SM::Flow::P 
-  body: A straightfoward mocking facility. Typically used in test cases. The Mock class offers a few constructors for quickly building mockups.
-- !ruby/struct:SM::Flow::VERB 
-  body: "  mock - Returns a static reponse.\n  echo - Returns the arguments passed-in.\n  spin - Returns a rotation of responses.\n  keys - Returns an index of responses.\n"
-- !ruby/struct:SM::Flow::P 
-  body: Mock classes can be built from sratch or partially framed against other classes.
-- !ruby/struct:SM::Flow::H 
-  level: 3
-  text: Usage
-- !ruby/struct:SM::Flow::VERB 
-  body: "  class ContextMock < Mock\n    mock :response_headers, {}\n    spin :host_url, ['http://www.nitrohq.com','http://www.rubyforge.com']\n  end\n\n  ctx = ContextMock.new\n  ctx.response_headers['location'] = url\n  ctx.host_url   #=> "http://www.nitrohq.com"\n  ctx.host_url   #=> "http://www.rubyforge.com"\n"
-- !ruby/struct:SM::Flow::P 
-  body: Or
-- !ruby/struct:SM::Flow::VERB 
-  body: "  class ContextMock < Mock(Context)\n    ...\n  end\n"
-constants: 
-- !ruby/object:RI::Constant 
-  comment: 
-  - !ruby/struct:SM::Flow::P 
-    body: "Certain methods are not mocked:"
-  - !ruby/struct:SM::Flow::VERB 
-    body: "  inspect       (tricky)\n  class         (delegated)\n  kind_of?      (delegated)\n  is_a?         (delegated)\n  instance_of?  (delegated)\n  method        (works as-is)\n  send          (works as-is)\n  respond_to?   (works as-is)\n  hash          (no way to mock)\n\n  <em>id</em>, <em>call</em>, etc. (not meant to be mocked, ever!)\n"
-  name: UnmockedMethods
-  value: "%r{^(         |inspect         |kind_of\\?|is_a\\?|instance_of\\?|class         |method|send|respond_to\\?         |hash         |__       )}x"
-full_name: Quarry::Mock::Object
-includes: []
-
-instance_methods: []
-
-name: Object
-superclass: OpenStruct

data/doc/ri/Quarry/Mock/Object/keys-c.yaml

@@ -1,12 +0,0 @@
---- !ruby/object:RI::MethodDescription 
-aliases: []
-
-block_params: 
-comment: 
-- !ruby/struct:SM::Flow::P 
-  body: Responds according to a mapping of input parameters.
-full_name: Quarry::Mock::Object::keys
-is_singleton: true
-name: keys
-params: ( sym, hsh )
-visibility: public

data/doc/ri/Quarry/Mock/Object/spin-c.yaml

@@ -1,12 +0,0 @@
---- !ruby/object:RI::MethodDescription 
-aliases: []
-
-block_params: 
-comment: 
-- !ruby/struct:SM::Flow::P 
-  body: Reponds with a rotation of reponses.
-full_name: Quarry::Mock::Object::spin
-is_singleton: true
-name: spin
-params: ( sym, arr )
-visibility: public

data/doc/ri/Quarry/Mockery-i.yaml

@@ -1,12 +0,0 @@
---- !ruby/object:RI::MethodDescription 
-aliases: []
-
-block_params: 
-comment: 
-- !ruby/struct:SM::Flow::P 
-  body: Factory method for creating semi-functional mock object classes given the class which is to be mocked. It looks like a constant for purposes of syntactic sugar.
-full_name: Quarry#Mockery
-is_singleton: false
-name: Mockery
-params: ( realclass )
-visibility: public

data/lib/quarry/assertion.rb

@@ -1,95 +0,0 @@
-# Copyright (c) 2008 Tiger Ops
-
-class Object
-  # Assert a operational relationship.
-  #
-  # 4.assert == 3  #=> Assertion Error
-  #
-  def assert
-    return Assertion::True.new(self)
-  end
-
-  # Assert not an operational relationship.
-  #
-  # 4.assert! == 4  #=> Assertion Error
-  #
-  def assert!
-    return Assertion::False.new(self)
-  end
-end
-
-# Assertion object is a special subclass of Exception,
-# used to raise assertion errors.
-#
-class Assertion < Exception
-
-  #
-  class True
-    #
-    def self.message(msg,&block)
-      @messages ||= {}
-      if block
-        @messages[msg] = block
-      else
-        @messages[msg]
-      end
-    end
-
-    hide = instance_methods.reject { |m| m.to_s =~ /^__/ }
-    hide.each { |m| protected m  }
-
-    private
-
-    #
-    def initialize(delegate)
-      @delegate = delegate
-    end
-
-    #
-    def assert(assertion, msg="failed assertion (no message given)")
-      raise Assertion, msg unless assertion
-    end
-
-    #
-    message(:==){ |*a| "Expected #{a[0].inspect} to be equal to #{a[1].inspect}" }
-
-    #
-    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
-        msg = message(@delegate, sym, *a, &b)
-        assert(@delegate.send(sym, *a, &b ), msg)
-        #assert( @delegate.send(sym, *a, &b ), self.class.message(sym)[@delegate, *a] )
-      end
-    end
-
-    #
-    def message( obj, sym, *a, &b )
-      "#{sym}\n< #{obj.inspect}\n---\n> #{a.collect{|x| x.inspect}.join(',')}"
-    end
-
-  end
-
-  #
-  class False < True
-    message(:==){ |*a| "Expected #{a[0].inspect} not to be equal to #{a[1].inspect}" }
-
-    def assert(assertion, msg="failed assertion (no message given)")
-      raise Assertion, msg if assertion
-    end
-
-    def message( obj, sym, *a, &b )
-      "#{obj.inspect} should not #{sym} #{a.collect{|x| x.inspect}.join(',')}"
-    end
-  end
-
-end
-

data/lib/quarry/breakout.rb

@@ -1,45 +0,0 @@
-require 'facets/core/string/margin' # TODO get rid of.
-
-def breakout( error )
-
-  file, line = *error.exception.backtrace[0].split(':')
-  line = line.to_i
-
-  puts error
-
-  e = "# DEBUG " + error.to_s
-  e.gsub!("`","'")
-
-  e = Regexp.escape(e)
-
-  case ed = ENV['EDITOR']
-  when 'vi', 'vim', 'gvim'
-    cmd = %[
-      |#{ed} -e -s #{file} <<-EOS
-      |:#{line}
-      |a
-      |#{e}
-      |.
-      |:.,+#{e.size}
-      |EOS
-      ].margin
-  else
-    puts "EDITOR environment variable not set"
-  end
-
-  system cmd
-
-end
-
-# command-line mode
-
-if __FILE__ == $0
-
-  begin
-    load $file = ARGV[0]
-  rescue Exception => e
-    error = breakout(e)
-  end
-
-end
-

data/lib/quarry/design/spec.rb

@@ -1,197 +0,0 @@
-#require 'facet/kernel/within?'
-require 'quarry/assertion'
-
-module Quarry
-module Design
-
-  class << self
-    def specifications
-      @specifications ||= []
-    end
-
-    def specification(description, &specification)
-      specifications << Specification.new(nil, description, &specification)
-    end
-    alias_method :spec, :specification
-
-    # TODO: make output compatible with unit_diff ?
-
-    def check
-      specifications.each do |specification|
-        specification.check
-      end
-    end
-
-    def outline
-      specifications.each do |specification|
-        specification.outline
-      end
-    end
-  end
-
-  # Design specification. Sepcification can contains sub-specifications.
-  #
-  class Specification
-    attr :relation
-    attr :description
-    attr :specification
-    attr :context
-    attr :before
-    attr :after
-
-    # New Specification
-
-    def initialize(relation, description, context=nil, &specification)
-      @relation       = relation
-      @description    = description
-      @specification  = specification
-      @context        = context
-      @before         = context.before if context
-      @after          = context.after  if context
-    end
-
-    # Check Specification
-
-    def check(level=0)
-      padding = " " * 2 * level
-
-      clause  = "#{relation} #{description}".strip
-
-      new_context = Context.new
-      new_context.instance_eval(&before) if before
-      begin
-        new_context.instance_eval(&specification)
-        puts ("=" * (level+1)) + " " + clause.gsub(/\b\w/){$&.upcase}
-      rescue Assertion => e
-        #puts padding + " (FAIL) [#{e.backtrace[2]}] " + clause
-        puts "* " + clause.gsub('_',' ') + " [#{e.backtrace[2]}]"
-        puts e if $VERBOSE
-      rescue Exception => e
-        raise e if $DEBUG
-        print padding
-        #puts padding + " (ERROR) [#{e.backtrace[2]}] " + clause
-        puts padding + " (ERROR) #{e}"
-        puts e.backtrace if $VERBOSE
-      ensure
-        new_context.instance_eval(&after) if after
-      end
-
-      new_context.specifications.each do |s|
-        s.check(level+1)
-      end
-    end
-
-    # Outline Specification
-
-    def outline(level=0)
-      padding = (" " * 2 * level) + "- "
-      context = Context.new
-      begin
-        context.instance_eval(&specification)
-      rescue Assertion => e
-      #rescue Exception => e
-      end
-
-      str = ''
-      str << "#{relation} " if relation
-      str << "#{description}"
-      #str = str.strip #.gsub(/\b\w/){$&.upcase}
-
-      puts padding + str.strip
-
-      context.specifications.each do |s|
-        s.outline(level+1)
-      end
-    end
-
-    # A context provides a "clean room" to build a specification.
-
-    class Context
-
-      def specifications
-        @specifications ||= []
-      end
-
-      def before(&before)
-        before ? @before = before : before
-      end
-
-      def after(&after)
-        after ? @after = after : after
-      end
-
-      def method_missing(relation, *description, &specification)
-        if description.size > 1
-          super
-        else
-          specifications << Specification.new(relation, description.first, self, &specification)
-        end
-      end
-
-    end
-
-  end
-
-end
-end
-
-at_exit { Quarry::Design.check unless $no_autocheck }
-
-
-=begin demo
-
-  Quarry::Design.specification "Example Specification" do
-
-    context "demonstrate basic assertions" do
-
-      specify "fail if should is false" do
-        4.assert == 3
-      end
-
-      specify "fail if should_not is true" do
-        4.assert! == 4
-      end
-
-      specify "fail on should raise" do
-        lambda{raise ArgumentError}.assert.raise? SyntaxError
-      end
-
-    end
-
-  end
-
-  $no_autocheck = true
-
-  Quarry::Design.outline
-
-=end
-
-
-if __FILE__ == $0
-
-  Quarry::Design.spec "Example Specification" do
-
-    demonstrate "basic assertions" do
-
-      that "4 == 3 fails" do
-        4.assert == 3
-      end
-
-      that "4 != 4 fails" do
-        4.assert! == 4
-      end
-
-      that "raising an ArgumentError does not raise a SyntaxError" do
-        lambda{raise ArgumentError}.assert.raise? SyntaxError
-      end
-
-    end
-
-  end
-
-  $no_autocheck = true
-
-  Quarry::Design.outline
-
-end
-

data/lib/quarry/mock/object.rb

@@ -1,169 +0,0 @@
-# = mock.rb
-#
-# == Copyright (c) 2005 Thomas Sawyer, Michael Granger
-#
-#   Ruby License
-#
-#   This module is free software. You may use, modify, and/or redistribute this
-#   software under the same terms as Ruby.
-#
-#   This program is distributed in the hope that it will be useful, but WITHOUT
-#   ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
-#   FOR A PARTICULAR PURPOSE.
-#
-# == Special Thanks
-#
-# Thanks goes to Michael Granger for Test::Unit::Mock on which
-# this library is partially based.
-#
-# == Author(s)
-#
-# * Thomas Sawyer
-# * Michael Granger
-
-require 'ostruct'
-
-module Quarry
-
-  module Mock
-
-    # = Mock Object
-    #
-    # A straightfoward mocking facility. Typically used in test cases.
-    # The Mock class offers a few constructors for quickly building
-    # mockups.
-    #
-    #   mock - Returns a static reponse.
-    #   echo - Returns the arguments passed-in.
-    #   spin - Returns a rotation of responses.
-    #   keys - Returns an index of responses.
-    #
-    # Mock classes can be built from sratch or partially framed
-    # against other classes.
-    #
-    # === Usage
-    #
-    #   class ContextMock < Mock
-    #     mock :response_headers, {}
-    #     spin :host_url, ['http://www.nitrohq.com','http://www.rubyforge.com']
-    #   end
-    #
-    #   ctx = ContextMock.new
-    #   ctx.response_headers['location'] = url
-    #   ctx.host_url   #=> "http://www.nitrohq.com"
-    #   ctx.host_url   #=> "http://www.rubyforge.com"
-    #
-    # Or
-    #
-    #   class ContextMock < Mock(Context)
-    #     ...
-    #   end
-    #
-    class Object < OpenStruct
-
-      # include these?
-      #include Test::Unit::Assertions
-
-      # Certain methods are not mocked:
-      #   inspect       (tricky)
-      #   class         (delegated)
-      #   kind_of?      (delegated)
-      #   is_a?         (delegated)
-      #   instance_of?  (delegated)
-      #   method        (works as-is)
-      #   send          (works as-is)
-      #   respond_to?   (works as-is)
-      #   hash          (no way to mock)
-      #
-      #   __id__, __call__, etc. (not meant to be mocked, ever!)
-      #
-
-      UnmockedMethods = %r{^(
-        |inspect
-        |kind_of\?|is_a\?|instance_of\?|class
-        |method|send|respond_to\?
-        |hash
-        |__
-      )}x
-
-      class << self
-
-        attr :mocked_class
-
-        def mocks
-          self.methods(false)
-        end
-
-        # Mock a static repsonse.
-        def mock( sym, val )
-          define_method( sym ) { |*args| val }
-        end
-
-        # Responds with input.
-        def echo( sym )
-          define_method( sym ) { |*args| args }
-        end
-
-        # Reponds with a rotation of reponses.
-        def spin( sym, arr )
-          define_method( sym ) { |*args| arr.push(arr.shift) ; arr[-1] }
-        end
-
-        # Responds according to a mapping of input parameters.
-        def keys( sym, hsh )
-          define_method( sym ) { |*args| hsh[args] }
-        end
-
-      end
-
-      # Delegate methods: #class, instance_of?, kind_of?, and is_a?
-
-      alias :__class :class
-
-      def class # :nodoc:
-        return __class.mocked_class
-      end
-
-      def instance_of?( klass ) # :nodoc:
-        self.class == klass
-      end
-
-      def kind_of?( klass ) # :nodoc:
-        self.class <= klass
-      end
-
-      alias_method :is_a?, :kind_of?
-
-    end
-
-  end
-
-end
-
-
-# TODO
-
-=begin #test
-
-  class MyMock < Mock::Object
-    mock :m, 10
-    echo :e
-    spin :s, [1,2,3]
-    keys :i, { [:foo] => 'Hello', [:boo] => 'Frog' }
-
-    def a(k) k+1 end
-  end
-
-  my = MyMock.new
-
-  p my.m
-  p my.e('hi')
-  p my.s
-  p my.s
-  p my.s
-  p my.i(:foo)
-  p my.i(:boo)
-  p my.a(1)
-
-=end
-