Add unused group name mutation

Changelog.md

@@ -1,5 +1,8 @@
 # Unreleased
 
+* [#1200](https://github.com/mbj/mutant/pull/1200)
+  * Add unused group name mutation:  `/(?<foo>bar)/` -> `/(?<_foo>bar)/`.
+
 * [#1205](https://github.com/mbj/mutant/pull/1205)
 
   * Add `mutant environment test list` subcommand.

lib/mutant/mutator/node/regexp/named_group.rb

@@ -15,8 +15,22 @@ class NamedGroup < Node
           def dispatch
             return unless group
 
-            emit(s(:regexp_passive_group, group))
             emit_group_mutations
+
+            # Allows unused captures to be kept and named if they are explicitly prefixed with an
+            # underscore, like we allow with unused local variables.
+            return if name_underscored?
+
+            emit(s(:regexp_passive_group, group))
+            emit_name_underscore_mutation
+          end
+
+          def emit_name_underscore_mutation
+            emit_type("_#{name}", group)
+          end
+
+          def name_underscored?
+            name.start_with?('_')
           end
         end # EndOfLineAnchor
       end # Regexp

meta/regexp/regexp_named_group.rb

@@ -15,4 +15,14 @@
 
   mutation '/(?:\w)/'
   mutation '/(?<foo>\W)/'
+  mutation '/(?<_foo>\w)/'
+end
+
+Mutant::Meta::Example.add :regexp_named_group do
+  source '/(?<_foo>\w)/'
+
+  singleton_mutations
+  regexp_mutations
+
+  mutation '/(?<_foo>\W)/'
 end