X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fdiagnostics.t;h=d9855a9fcc5a1fd880d121b0d211761fbfb0ac45;hb=d87d3eede5d67a7d281a1d929949e466e06bc21a;hp=14014f6b684940300220dac62b77ba2e09beef13;hpb=b695f709e8a342e35e482b0437eb6cdacdc58b6b;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/diagnostics.t b/lib/diagnostics.t
index 14014f6..d9855a9 100644
--- a/lib/diagnostics.t
+++ b/lib/diagnostics.t
@@ -1,38 +1,23 @@
 #!./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;
 
-######################### We start with some black magic to print on failure.
+BEGIN { use_ok('diagnostics') }
 
-# Change 1..1 below to 1..last_test_to_print .
-# (It may become useful if the test is moved to ./t subdirectory.)
-use strict;
-use warnings;
+require base;
 
-use vars qw($Test_Num $Total_tests);
+eval {
+    'base'->import(qw(I::do::not::exist));
+};
 
-my $loaded;
-BEGIN { $| = 1; $Test_Num = 1 }
-END {print "not ok $Test_Num\n" unless $loaded;}
-print "1..$Total_tests\n";
-BEGIN { require diagnostics; } # Don't want diagnostics' noise yet.
-$loaded = 1;
-ok($loaded, 'compile');
-######################### End of black magic.
-
-sub ok {
-	my($test, $name) = shift;
-	print "not " unless $test;
-	print "ok $Test_Num";
-	print " - $name" if defined $name;
-	print "\n";
-	$Test_Num++;
-}
-
-
-# Change this to your # of ok() calls + 1
-BEGIN { $Total_tests = 1 }
+like( $@, qr/^Base class package "I::do::not::exist" is empty/);