mutest 0.0.9 → 0.0.10

data/lib/mutest/meta/example.rb

@@ -1,7 +1,8 @@
 module Mutest
   module Meta
     class Example
-      include Adamantium, Anima.new(:file, :node, :node_type, :expected)
+      include Anima.new(:file, :node, :node_type, :expected)
+      include Adamantium
 
       # Verification instance for example
       #
@@ -27,6 +28,6 @@ module Mutest
         end
       end
       memoize :generated
-    end # Example
-  end # Meta
-end # Mutest
+    end
+  end
+end

data/lib/mutest/meta/example/dsl.rb

@@ -33,7 +33,8 @@ module Mutest
         # @raise [RuntimeError]
         #   in case example cannot be build
         def example
-          fail 'source not defined' unless @node
+          raise 'source not defined' unless @node
+
           Example.new(
             file:      @file,
             node:      @node,
@@ -50,7 +51,8 @@ module Mutest
         #
         # @return [undefined]
         def source(input)
-          fail 'source already defined' if @node
+          raise 'source already defined' if @node
+
           @node = node(input)
         end
 
@@ -61,9 +63,8 @@ module Mutest
         # @return [undefined]
         def mutation(input)
           node = node(input)
-          if @expected.include?(node)
-            fail "Mutation for input: #{input.inspect} is already expected"
-          end
+          raise "Mutation for input: #{input.inspect} is already expected" if @expected.include?(node)
+
           @expected << node
         end
 
@@ -94,14 +95,14 @@ module Mutest
         def node(input)
           case input
           when String
-            Unparser::Preprocessor.run(::Parser::CurrentRuby.parse(input))
+            Unparser::Preprocessor.run(Unparser.parse(input))
           when ::Parser::AST::Node
             input
           else
-            fail "Cannot coerce to node: #{input.inspect}"
+            raise "Cannot coerce to node: #{input.inspect}"
           end
         end
-      end # DSL
-    end # Example
-  end # Meta
-end # Mutest
+      end
+    end
+  end
+end

data/lib/mutest/meta/example/verification.rb

@@ -3,7 +3,8 @@ module Mutest
     class Example
       # Example verification
       class Verification
-        include Adamantium::Flat, Concord.new(:example, :mutations)
+        include Concord.new(:example, :mutations)
+        include Adamantium::Flat
 
         # Test if mutation was verified successfully
         #
@@ -16,7 +17,7 @@ module Mutest
         #
         # @return [String]
         def error_report
-          fail 'no error report on successful validation' if success?
+          raise 'no error report on successful validation' if success?
 
           YAML.dump(
             'file'            => example.file,
@@ -79,7 +80,7 @@ module Mutest
           example.expected - mutations.map(&:node)
         end
         memoize :missing
-      end # Verification
-    end # Example
-  end # Meta
-end # Mutest
+      end
+    end
+  end
+end

data/lib/mutest/mutation.rb

@@ -1,7 +1,8 @@
 module Mutest
   # Represent a mutated node with its subject
   class Mutation
-    include AbstractType, Adamantium::Flat
+    include Adamantium::Flat
+    include AbstractType
     include Concord::Public.new(:subject, :node)
 
     CODE_DELIMITER = "\0".freeze
@@ -84,18 +85,18 @@ module Mutest
     class Evil < self
       SYMBOL            = 'evil'.freeze
       TEST_PASS_SUCCESS = false
-    end # Evil
+    end
 
     # Neutral mutation that should not cause mutations to fail tests
     class Neutral < self
       SYMBOL            = 'neutral'.freeze
       TEST_PASS_SUCCESS = true
-    end # Neutral
+    end
 
     # Noop mutation, special case of neutral
     class Noop < Neutral
       SYMBOL            = 'noop'.freeze
       TEST_PASS_SUCCESS = true
-    end # Noop
-  end # Mutation
-end # Mutest
+    end
+  end
+end

data/lib/mutest/mutator.rb

@@ -3,10 +3,10 @@ module Mutest
   class Mutator
     REGISTRY = Registry.new
 
-    include Adamantium::Flat,
-            Concord.new(:input, :filter, :parent),
-            AbstractType,
-            Procto.call(:output)
+    include Procto.call(:output)
+    include AbstractType
+    include Concord.new(:input, :filter, :parent)
+    include Adamantium::Flat
 
     # Lookup and invoke dedicated AST mutator
     #
@@ -111,5 +111,5 @@ module Mutest
 
       mutator.call(nodes, filter).each(&block)
     end
-  end # Mutator
-end # Mutest
+  end
+end

data/lib/mutest/mutator/node.rb

@@ -3,8 +3,12 @@ module Mutest
   class Mutator
     # Abstract base class for node mutators
     class Node < self
-      include AbstractType, Unparser::Constants
-      include AST::NamedChildren, AST::NodePredicates, AST::Sexp, AST::Nodes
+      include Unparser::Constants
+      include AbstractType
+      include AST::Nodes
+      include AST::Sexp
+      include AST::NodePredicates
+      include AST::NamedChildren
 
       TAUTOLOGY = ->(_input) { true }
 
@@ -49,6 +53,7 @@ module Mutest
         block ||= TAUTOLOGY
         mutate(children.fetch(index), self).each do |mutation|
           next unless block.call(mutation)
+
           emit_child_update(index, mutation)
         end
       end
@@ -85,6 +90,13 @@ module Mutest
         emit(::Parser::AST::Node.new(node.type, children))
       end
 
+      # Emit propagation if node can stand alone
+      #
+      # @return [undefined]
+      def emit_propagation(node)
+        emit(node) unless AST::Types::NOT_STANDALONE.include?(node.type)
+      end
+
       # Emit singleton literals
       #
       # @return [undefined]
@@ -115,7 +127,7 @@ module Mutest
       # @return [nil]
       #   otherwise
       def parent_node
-        parent.node if parent
+        parent&.node
       end
 
       # Parent type
@@ -126,7 +138,7 @@ module Mutest
       # @return [nil]
       #   otherwise
       def parent_type
-        parent_node.type if parent_node
+        parent_node&.type
       end
 
       # Test if the node is the left of an or_asgn or op_asgn
@@ -154,6 +166,6 @@ module Mutest
           yield child, index unless children.one?
         end
       end
-    end # Node
-  end # Mutator
-end # Mutest
+    end
+  end
+end

data/lib/mutest/mutator/node/and_asgn.rb

@@ -19,7 +19,7 @@ module Mutest
           end
           emit_right_mutations
         end
-      end # AndAsgn
-    end # Node
-  end # Mutator
-end # Mutest
+      end
+    end
+  end
+end

data/lib/mutest/mutator/node/argument.rb

@@ -23,6 +23,7 @@ module Mutest
         # @return [undefined]
         def emit_name_mutation
           return if skip?
+
           emit_name(:"#{UNDERSCORE}#{name}")
         end
 
@@ -61,8 +62,8 @@ module Mutest
           def emit_required_mutation
             emit(s(TYPE_MAP.fetch(node.type), name))
           end
-        end # Optional
-      end # Argument
-    end # Node
-  end # Mutator
-end # Mutest
+        end
+      end
+    end
+  end
+end

data/lib/mutest/mutator/node/arguments.rb

@@ -22,11 +22,23 @@ module Mutest
         # @return [undefined]
         def emit_argument_presence
           emit_type
+
           mutate_with(Util::Array::Presence, children) do |children|
-            emit_type(*children)
+            if children.one? && n_mlhs?(Mutest::Util.one(children))
+              emit_procarg(Mutest::Util.one(children))
+            else
+              emit_type(*children)
+            end
           end
         end
 
+        # Emit procarg form
+        #
+        # @return [undefined]
+        def emit_procarg(arg)
+          emit_type(s(:procarg0, *arg))
+        end
+
         # Emit argument mutations
         #
         # @return [undefined]
@@ -34,6 +46,7 @@ module Mutest
           children.each_with_index do |child, index|
             mutate(child).each do |mutest|
               next if invalid_argument_replacement?(mutest, index)
+
               emit_child_update(index, mutest)
             end
           end
@@ -84,7 +97,7 @@ module Mutest
             n_mlhs?(child)
           end
         end
-      end # Arguments
-    end # Node
-  end # Mutator
-end # Mutest
+      end
+    end
+  end
+end

data/lib/mutest/mutator/node/begin.rb

@@ -15,7 +15,7 @@ module Mutest
             emit(child)
           end
         end
-      end # Begin
-    end # Node
-  end # Mutator
-end # Mutest
+      end
+    end
+  end
+end

data/lib/mutest/mutator/node/binary.rb

@@ -58,7 +58,7 @@ module Mutest
         def emit_left_negation
           emit(s(node.type, n_not(left), right))
         end
-      end # Binary
-    end # Node
-  end # Mutator
-end # Mutest
+      end
+    end
+  end
+end

data/lib/mutest/mutator/node/block.rb

@@ -14,7 +14,7 @@ module Mutest
         # @return [undefined]
         def dispatch
           emit_singletons
-          emit(send)
+          emit(send) unless n_lambda?(send)
           emit_send_mutations(&method(:n_send?))
           emit_arguments_mutations
 
@@ -29,6 +29,7 @@ module Mutest
           emit_body(N_RAISE)
 
           return unless body
+
           emit(body)
           emit_body_mutations
 
@@ -45,7 +46,7 @@ module Mutest
 
           emit(s(:send, send, body_meta.selector, *body_meta.arguments))
         end
-      end # Block
-    end # Node
-  end # Mutator
-end # Mutest
+      end
+    end
+  end
+end

data/lib/mutest/mutator/node/block_pass.rb

@@ -23,7 +23,7 @@ module Mutest
             emit_arg(s(:sym, method))
           end
         end
-      end # BlockPass
-    end # Node
-  end # Mutator
-end # Mutest
+      end
+    end
+  end
+end

data/lib/mutest/mutator/node/break.rb

@@ -15,7 +15,7 @@ module Mutest
           emit_singletons
           children.each_index(&method(:delete_child))
         end
-      end # Break
-    end # Node
-  end # Mutator
-end # Mutest
+      end
+    end
+  end
+end

data/lib/mutest/mutator/node/case.rb

@@ -37,11 +37,13 @@ module Mutest
         def emit_else_mutations
           else_branch = children.last
           else_index = children.length - 1
+
           return unless else_branch
+
           mutate_child(else_index)
           emit_child_update(else_index, nil)
         end
-      end # Case
-    end # Node
-  end # Mutator
-end # Mutest
+      end
+    end
+  end
+end

data/lib/mutest/mutator/node/class.rb

@@ -15,7 +15,7 @@ module Mutest
         def dispatch
           emit_body_mutations if body
         end
-      end # Class
-    end # Node
-  end # Mutator
-end # Mutest
+      end
+    end
+  end
+end

data/lib/mutest/mutator/node/conditional_loop.rb

@@ -19,7 +19,7 @@ module Mutest
           emit_body(nil)
           emit_body(N_RAISE)
         end
-      end # ConditionalLoop
-    end # Node
-  end # Mutator
-end # Mutest
+      end
+    end
+  end
+end

data/lib/mutest/mutator/node/const.rb

@@ -17,7 +17,7 @@ module Mutest
             mutate_child(index) if child.instance_of?(::Parser::AST::Node)
           end
         end
-      end # Const
-    end # Node
-  end # Mutator
-end # Mutest
+      end
+    end
+  end
+end

data/lib/mutest/mutator/node/define.rb

@@ -69,15 +69,15 @@ module Mutest
           handle :def
 
           children :name, :arguments, :body
-        end # Instance
+        end
 
         # Mutator for singleton method defines
         class Singleton < self
           handle :defs
 
           children :subject, :name, :arguments, :body
-        end # Singleton
-      end # Define
-    end # Node
-  end # Mutator
-end # Mutest
+        end
+      end
+    end
+  end
+end