Update to CPANPLUS 0.87_01

[p5sagit/p5-mst-13.2.git] / lib / Exporter.t

diff --git a/lib/Exporter.t b/lib/Exporter.t
index 27b1e67..20f6ad3 100644 (file)
--- a/lib/Exporter.t
+++ b/lib/Exporter.t
@@ -25,7 +25,7 @@ sub ok ($;$) {
 
 BEGIN {
     $test = 1;
-    print "1..28\n";
+    print "1..30\n";
     require Exporter;
     ok( 1, 'Exporter compiled' );
 }
@@ -218,3 +218,9 @@ The::Import->import;
 my $val = eval { wibble() };
 ::ok($val eq "wobble", "exported importer worked");
 
+# Check that Carp recognizes Exporter as internal to Perl 
+require Carp;
+eval { Carp::croak() };
+::ok($Carp::Internal{Exporter}, "Carp recognizes Exporter");
+::ok($Carp::Internal{'Exporter::Heavy'}, "Carp recognizes Exporter::Heavy");
+