mutant 0.5.23 → 0.5.24

data/lib/mutant/matcher/builder.rb

@@ -0,0 +1,142 @@
+module Mutant
+  class Matcher
+    # Builder for complex matchers
+    class Builder
+      include Concord.new(:env), AST::Sexp
+
+      # Initalize object
+      #
+      # @param [Cache] env
+      #
+      # @return [undefined]
+      #
+      # @api private
+      #
+      def initialize(env)
+        super
+        @matchers          = []
+        @subject_ignores   = []
+        @subject_selectors = []
+      end
+
+      # Add a subject ignore
+      #
+      # @param [Expression] expression
+      #
+      # @return [self]
+      #
+      # @api private
+      #
+      def add_subject_ignore(expression)
+        @subject_ignores << expression.matcher(env)
+        self
+      end
+
+      # Add a subject selector
+      #
+      # @param [#call] selector
+      #
+      # @return [self]
+      #
+      # @api private
+      #
+      def add_subject_selector(attribute, value)
+        @subject_selectors << Morpher.compile(s(:eql, s(:attribute, attribute), s(:static, value)))
+        self
+      end
+
+      # Add a match expression
+      #
+      # @param [Expression] expression
+      #
+      # @return [self]
+      #
+      # @api private
+      #
+      def add_match_expression(expression)
+        @matchers << expression.matcher(env)
+        self
+      end
+
+      # Return generated matcher
+      #
+      # @return [Mutant::Matcher]
+      #
+      # @api private
+      #
+      def matcher
+        if @matchers.empty?
+          return Matcher::Null.new
+        end
+
+        matcher = Matcher::Chain.build(@matchers)
+
+        if predicate
+          Matcher::Filter.new(matcher, predicate)
+        else
+          matcher
+        end
+      end
+
+    private
+
+      # Return subject selector
+      #
+      # @return [#call]
+      #   if selector is present
+      #
+      # @return [nil]
+      #   otherwise
+      #
+      # @api private
+      #
+      def subject_selector
+        Morpher::Evaluator::Predicate::Boolean::Or.new(@subject_selectors) if @subject_selectors.any?
+      end
+
+      # Return predicate
+      #
+      # @return [#call]
+      #   if filter is needed
+      #
+      # @return [nil]
+      #   othrwise
+      #
+      # @api private
+      #
+      def predicate
+        if subject_selector && subject_rejector
+          Morpher::Evaluator::Predicate::Boolean::And.new([
+            subject_selector,
+            Morpher::Evaluator::Predicate::Negation.new(subject_rejector)
+          ])
+        elsif subject_selector
+          subject_selector
+        elsif subject_rejector
+          Morpher::Evaluator::Predicate::Negation.new(subject_rejector)
+        else
+          nil
+        end
+      end
+
+      # Return subject rejector
+      #
+      # @return [#call]
+      #   if there is a subject rejector
+      #
+      # @return [nil]
+      #   otherwise
+      #
+      # @api private
+      #
+      def subject_rejector
+        rejectors = @subject_ignores.flat_map(&:to_a).map do |subject|
+          Morpher.compile(s(:eql, s(:attribute, :identification), s(:static, subject.identification)))
+        end
+
+        Morpher::Evaluator::Predicate::Boolean::Or.new(rejectors) if rejectors.any?
+      end
+
+    end # Builder
+  end # Matcher
+end # Mutant

data/lib/mutant/matcher/method.rb

@@ -2,7 +2,7 @@ module Mutant
   class Matcher
     # Matcher for subjects that are a specific method
     class Method < self
-      include Adamantium::Flat, Concord::Public.new(:cache, :scope, :method)
+      include Adamantium::Flat, Concord::Public.new(:env, :scope, :method)
       include Equalizer.new(:identification)
 
       # Methods within rbx kernel directory are precompiled and their source
@@ -40,11 +40,7 @@ module Mutant
       def skip?
         location = source_location
         if location.nil? || BLACKLIST.match(location.first)
-          message = format(
-            '%s does not have valid source location unable to emit matcher',
-            method.inspect
-          )
-          $stderr.puts(message)
+          env.warn(format('%s does not have valid source location unable to emit matcher', method.inspect))
           true
         else
           false
@@ -78,7 +74,7 @@ module Mutant
       # @api private
       #
       def ast
-        cache.parse(source_path)
+        env.cache.parse(source_path)
       end
 
       # Return path to source

data/lib/mutant/matcher/method/instance.rb

@@ -7,7 +7,7 @@ module Mutant
 
         # Dispatching builder, detects memoizable case
         #
-        # @param [Cache] cache
+        # @param [Env] env
         # @param [Class, Module] scope
         # @param [UnboundMethod] method
         #
@@ -15,10 +15,10 @@ module Mutant
         #
         # @api private
         #
-        def self.build(cache, scope, method)
+        def self.build(env, scope, method)
           name = method.name
           if scope.ancestors.include?(::Memoizable) && scope.memoized?(name)
-            return Memoized.new(cache, scope, method)
+            return Memoized.new(env, scope, method)
           end
           super
         end
@@ -47,8 +47,9 @@ module Mutant
         # @api private
         #
         def match?(node)
-          location                  = node.location       || return
-          expression                = location.expression || return
+          location   = node.location       || return
+          expression = location.expression || return
+
           expression.line.equal?(source_line)           &&
           node.type.equal?(:def)                        &&
           node.children[NAME_INDEX].equal?(method_name)

data/lib/mutant/matcher/method/singleton.rb

@@ -18,7 +18,6 @@ module Mutant
 
         RECEIVER_INDEX   = 0
         NAME_INDEX       = 1
-        CONST_NAME_INDEX = 1
 
       private
 
@@ -76,11 +75,7 @@ module Mutant
           when :const
             receiver_name?(receiver)
           else
-            message = format(
-              'Can only match :defs on :self or :const got %s unable to match',
-              receiver.type.inspect
-            )
-            $stderr.puts(message)
+            env.warn(format('Can only match :defs on :self or :const got %s unable to match', receiver.type.inspect))
             false
           end
         end
@@ -94,7 +89,7 @@ module Mutant
         # @api private
         #
         def receiver_name?(node)
-          name = node.children[CONST_NAME_INDEX]
+          name = node.children[NAME_INDEX]
           name.to_s.eql?(context.unqualified_name)
         end
 

data/lib/mutant/matcher/methods.rb

@@ -2,7 +2,7 @@ module Mutant
   class Matcher
     # Abstract base class for matcher that returns method subjects from scope
     class Methods < self
-      include AbstractType, Concord::Public.new(:cache, :scope)
+      include AbstractType, Concord::Public.new(:env, :scope)
 
       # Enumerate subjects
       #
@@ -17,9 +17,7 @@ module Mutant
       def each(&block)
         return to_enum unless block_given?
 
-        methods.each do |method|
-          emit_matches(method, &block)
-        end
+        subjects.each(&block)
 
         self
       end
@@ -50,19 +48,18 @@ module Mutant
 
     private
 
-      # Emit matches for method
-      #
-      # @param [UnboundMethod, Method] method
+      # Return subjects
       #
-      # @return [undefined]
+      # @return [Array<Subject>]
       #
       # @api private
       #
-      def emit_matches(method)
-        matcher.build(cache, scope, method).each do |subject|
-          yield subject
-        end
+      def subjects
+        methods.map do |method|
+          matcher.build(env, scope, method)
+        end.flat_map(&:to_a)
       end
+      memoize :subjects
 
       # Return candidate names
       #
@@ -73,11 +70,11 @@ module Mutant
       # @api private
       #
       def candidate_names
-        names =
+        (
           candidate_scope.public_instance_methods(false)   +
           candidate_scope.private_instance_methods(false)  +
           candidate_scope.protected_instance_methods(false)
-        names.sort
+        ).sort
       end
 
       # Return candidate scope

data/lib/mutant/matcher/namespace.rb

@@ -2,8 +2,10 @@ module Mutant
   class Matcher
 
     # Matcher for specific namespace
+    #
+    # rubocop:disable LineLength
     class Namespace < self
-      include Concord::Public.new(:cache, :namespace)
+      include Concord::Public.new(:env, :expression)
 
       # Enumerate subjects
       #
@@ -17,9 +19,8 @@ module Mutant
       #
       def each(&block)
         return to_enum unless block_given?
-
         scopes.each do |scope|
-          Scope.each(cache, scope, &block)
+          scope.each(&block)
         end
 
         self
@@ -27,30 +28,18 @@ module Mutant
 
     private
 
-      # Return pattern
-      #
-      # @return [Regexp]
-      #
-      # @api private
-      #
-      def pattern
-        /\A#{Regexp.escape(namespace)}(?:\z|::)/
-      end
-      memoize :pattern
-
       # Return scope enumerator
       #
-      # @return [Enumerable<Object>]
+      # @return [Array<Class, Module>]
       #
       # @api private
       #
-      def scopes(&block)
-        return to_enum(__method__) unless block_given?
-
-        ::ObjectSpace.each_object(Module).each do |scope|
-          emit_scope(scope, &block)
-        end
+      def scopes
+        ::ObjectSpace.each_object(Module).each_with_object([]) do |scope, aggregate|
+          aggregate << Scope.new(env, scope) if match?(scope)
+        end.sort_by(&:identification)
       end
+      memoize :scopes
 
       # Return scope name
       #
@@ -64,36 +53,39 @@ module Mutant
       #
       # @api private
       #
-      def self.scope_name(scope)
+      # rubocop:disable LineLength
+      #
+      def scope_name(scope)
         scope.name
       rescue => exception
-        $stderr.puts <<-MESSAGE
-WARNING:
-While optaining #{scope.class}#name from: #{scope.inspect}
-It raised an error: #{exception.inspect} fix your lib!
-        MESSAGE
+        env.warn("While optaining #{scope.class}#name from: #{scope.inspect} It raised an error: #{exception.inspect} fix your lib!")
         nil
       end
 
-      # Yield scope if name matches pattern
+      # Test scope if name matches expresion
       #
       # @param [Module,Class] scope
       #
-      # @return [undefined]
+      # @return [Boolean]
       #
       # @api private
       #
-      def emit_scope(scope)
-        name = self.class.scope_name(scope)
-        unless name.nil? or name.kind_of?(String)
-          $stderr.puts <<-MESSAGE
-WARNING:
-#{scope.class}#name from: #{scope.inspect} did not return a String or nil.
-Fix your lib to support normal ruby semantics!
-          MESSAGE
-          return
+      def match?(scope)
+        name = scope_name(scope) or return false
+
+        unless name.kind_of?(String)
+          env.warn("#{scope.class}#name from: #{scope.inspect} did not return a String or nil.  Fix your lib to support normal ruby semantics!")
+          return false
         end
-        yield scope if pattern =~ name
+
+        scope_expression = Expression.try_parse(name)
+
+        unless scope_expression
+          $stderr.puts("WARNING: #{name.inspect} is not an identifiable ruby class name.")
+          return false
+        end
+
+        expression.prefix?(scope_expression)
       end
 
     end # Namespace

data/lib/mutant/matcher/scope.rb

@@ -2,13 +2,24 @@ module Mutant
   class Matcher
     # Matcher for specific namespace
     class Scope < self
-      include Concord::Public.new(:cache, :scope)
+      include Concord::Public.new(:env, :scope)
 
       MATCHERS = [
         Matcher::Methods::Singleton,
         Matcher::Methods::Instance
       ].freeze
 
+      # Return identification
+      #
+      # @return [String]
+      #
+      # @api private
+      #
+      def identification
+        scope.name
+      end
+      memoize :identification
+
       # Enumerate subjects
       #
       # @return [self]
@@ -23,7 +34,7 @@ module Mutant
         return to_enum unless block_given?
 
         MATCHERS.each do |matcher|
-          matcher.each(cache, scope, &block)
+          matcher.new(env, scope).each(&block)
         end
 
         self

data/lib/mutant/meta.rb

@@ -1,7 +1,6 @@
 module Mutant
   # Namespace for mutant metadata
   module Meta
-
     require 'mutant/meta/example'
     require 'mutant/meta/example/dsl'