DRAFT: Add support for --without-test and --with-test

App-cpanminus/Changes

@@ -1,6 +1,8 @@
 See http://github.com/miyagawa/cpanminus/ for the latest development.
 
 {{$NEXT}}
+   [New Features]
+      - Support --with-test and --without-test (dboehmer) #651
 
 1.7907  2018-04-26 04:36:02 PDT
    [New Features]

App-cpanminus/script/cpanm.PL

@@ -142,6 +142,8 @@ architecture you've already tested to make sure it builds fine.
 Defaults to false, and you can say C<--no-notest> to override when it
 is set in the default options in C<PERL_CPANM_OPT>.
 
+Not to be confused with C<--without-test>!
+
 =item --test-only
 
 Run the tests only, and do not install the specified module or
@@ -345,6 +347,20 @@ C<cpanfile> when used with C<--installdeps>. Defaults to false.
 B<EXPERIMENTAL>: Installs configure phase dependencies in C<cpanfile>
 when used with C<--installdeps>. Defaults to false.
 
+=item --with-test, --without-test
+
+B<EXPERIMENTAL>: Installs C<test> phase dependencies in C<cpanfile>.
+Not to be confused with C<--notest>!
+Defaults to the value of C<--notest> if no other flags are given.
+C<--scandeps> and C<--showdeps> override this value to C<--with-test>.
+With C<--notest> and C<--installdeps> dependencies are installed
+without test but for the C<cpanfile> or given distribution their
+test dependencies are installed as well. You can override this by
+setting C<--without-test> to skip their test dependencies as well.
+
+There's C<--with-test> to override a C<--without-test> in
+C<PERL_CPANM_OPT>.
+
 =item --with-feature, --without-feature, --with-all-features
 
 B<EXPERIMENTAL>: Specifies the feature to enable, if a module supports

App-cpanminus/xt/cpanfile.t

@@ -23,6 +23,21 @@ use xt::Run;
     like last_build_log, qr/installed Module-Build-Tiny/;
 }
 
+{
+    run_L "--installdeps", "--notest", "./testdist/cpanfile_app";
+
+    like last_build_log, qr/Checking if you have Hash::MultiValue .* Yes \(0\.10\)/;
+    like last_build_log, qr/Checking if you have Try::Tiny .* Yes \(0\.11\)/;
+    like last_build_log, qr/Checking if you have Test::Warn/;
+}
+
+{
+    run_L "--installdeps", "--without-test", "./testdist/cpanfile_app";
+
+    like last_build_log, qr/Checking if you have Hash::MultiValue .* Yes \(0\.10\)/;
+    like last_build_log, qr/Checking if you have Try::Tiny .* Yes \(0\.11\)/;
+    unlike last_build_log, qr/Test::Warn/;
+}
 
 {
     run "--installdeps", "./testdist/cpanfile_bad_app";

Menlo-Legacy/lib/Menlo/CLI/Compat.pm

@@ -219,6 +219,8 @@ sub parse_options {
         'without-develop' => sub { $self->{with_develop} = 0 },
         'with-configure' => \$self->{with_configure},
         'without-configure' => sub { $self->{with_configure} = 0 },
+        'with-test' => \$self->{with_test},
+        'without-test' => sub { $self->{with_test} = 0 },
         'with-feature=s' => sub { $self->{features}{$_[1]} = 1 },
         'without-feature=s' => sub { $self->{features}{$_[1]} = 0 },
         'with-all-features' => sub { $self->{features}{__all} = 1 },
@@ -1977,13 +1979,22 @@ sub build_stuff {
     }
 
     # install direct 'test' dependencies for --installdeps, even with --notest
+    #   except --without-test is given
     # TODO: remove build dependencies for static install
-    my $deps_only = $self->deps_only($depth);
-    $dist->{want_phases} = $self->{notest} && !$self->deps_only($depth)
-                         ? [qw( build runtime )] : [qw( build test runtime )];
+    {
+        my @want_phases = qw( build runtime );
+
+        if( defined $self->{with_test} ) {
+            push @want_phases, 'test' if $self->{with_test};
+        }
+        else {
+            push @want_phases, 'test' if !$self->{notest} || $self->deps_only($depth);
+        }
 
-    push @{$dist->{want_phases}}, 'develop' if $self->{with_develop} && $depth == 0;
-    push @{$dist->{want_phases}}, 'configure' if $self->{with_configure} && $depth == 0;
+        push @want_phases, 'develop' if $self->{with_develop} && $depth == 0;
+        push @want_phases, 'configure' if $self->{with_configure} && $depth == 0;
+        $dist->{want_phases} = \@want_phases;
+    }
 
     my @deps = $self->find_prereqs($dist);
     my $module_name = $self->find_module_name($configure_state) || $dist->{meta}{name};