X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fdiagnostics.t;h=d9855a9fcc5a1fd880d121b0d211761fbfb0ac45;hb=73e51c8a2e5bd997f8b13e4f86b01e266a2d73f5;hp=486f8f6dd8f8889775f3e84e1afadc416c853fe3;hpb=d23f020529b1cb2636f0fbed24f1fc13fd63eac2;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/diagnostics.t b/lib/diagnostics.t
index 486f8f6..d9855a9 100644
--- a/lib/diagnostics.t
+++ b/lib/diagnostics.t
@@ -1,8 +1,13 @@
 #!./perl
 
 BEGIN {
-    chdir '..' if -d '../pod' && -d '../t';
-    @INC = 'lib';
+    if ($^O eq 'MacOS') {
+	chdir '::' if -d '::pod' && -d '::t';
+	@INC = ':lib:';
+    } else {
+	chdir '..' if -d '../pod' && -d '../t';
+	@INC = 'lib';
+    }
 }
 
 use Test::More tests => 2;
@@ -15,4 +20,4 @@ eval {
     'base'->import(qw(I::do::not::exist));
 };
 
-is( $@, '',   'diagnostics not tripped up by "use base qw(Dont::Exist)"' );
+like( $@, qr/^Base class package "I::do::not::exist" is empty/);