Update CPANPLUS to 0.85_06

[p5sagit/p5-mst-13.2.git] / lib / CPANPLUS / t / 40_CPANPLUS-Internals-Report.t

diff --git a/lib/CPANPLUS/t/40_CPANPLUS-Internals-Report.t b/lib/CPANPLUS/t/40_CPANPLUS-Internals-Report.t
index 00c8173..4e91bae 100644 (file)
--- a/lib/CPANPLUS/t/40_CPANPLUS-Internals-Report.t
+++ b/lib/CPANPLUS/t/40_CPANPLUS-Internals-Report.t
@@ -134,9 +134,22 @@ my $map = {
                     ],
         check       => 0,    
     },
-    
-    
-    
+    prereq_not_on_cpan_but_core => {
+        pre_hook    => sub {
+                        my $mod     = shift;
+                        my $clone   = $mod->clone;
+                        $clone->status->prereqs( 
+                            { TEST_CONF_PREREQ, 0 } 
+                        );
+                        return $clone;
+                    },
+        failed      => 1,
+        match       => ['/This distribution has been tested/',
+                        '/http://testers.cpan.org/',
+                        '/UNKNOWN/',
+                    ],
+        check       => 0,    
+    },
 };
 
 ### test config settings 
@@ -362,15 +375,19 @@ SKIP: {
                     ? $map->{$type}->{'pre_hook'}->( $Mod )
                     : $Mod;
 
-        my $file = $CB->_send_report(
+        my $file = do {
+            ### so T::R does not try to resolve our maildomain, which can 
+            ### lead to large timeouts for *every* invocation in T::R < 1.51_01
+            ### see: http://code.google.com/p/test-reporter/issues/detail?id=15
+            local $ENV{MAILDOMAIN} ||= 'example.com';
+            $CB->_send_report(
                         module        => $mod,
                         buffer        => $map->{$type}{'buffer'},
                         failed        => $map->{$type}{'failed'},
                         tests_skipped => ($map->{$type}{'skiptests'} ? 1 : 0),
                         save          => 1,
-                        dontcc        => 1, # no need to send, and also skips
-                                            # fetching reports from testers.cpan
                     );
+        };
 
         ok( $file,              "Type '$type' written to file" );
         ok( -e $file,           "   File exists" );
@@ -413,7 +430,6 @@ SKIP: {
 #                            buffer  => $map->{$type}->{'buffer'},
 #                            failed  => $map->{$type}->{'failed'},
 #                            address => NOBODY,
-#                            dontcc  => 1,
 #                        );
 #            ok( $ok,                "   Mailed report to NOBODY" );
 #       }