#  _____         _
# |_   _|__  ___| |_
#   | |/ _ \/ __| __|
#   | |  __/\__ \ |_
#   |_|\___||___/\__|
#
# for lib/facets/more/recorder.rb
#
# Extracted Tue Jun 27 09:51:09 EDT 2006
# Unit Tools Reap Test Extractor
#

require 'facets/more/recorder.rb'


  require 'test/unit'

  #class Object
  #  def &(o)
  #    self && o
  #  end
  #end

  class TCRecorder < Test::Unit::TestCase

    class Z
      def name ; 'George' ; end
      def age ; 12 ; end
    end

    def setup
      @z = Z.new
    end

    def test_001
      r = Recorder.new
      q = proc { |x| (x.name == 'George') & (x.age > 10) }
      x = q[r]
      assert( x.__call__(@z) )
    end

  end