clean up test output for long package names

[gitmo/Role-Tiny.git] / t / role-long-package-name.t

diff --git a/t/role-long-package-name.t b/t/role-long-package-name.t
index a103498..811758c 100644 (file)
--- a/t/role-long-package-name.t
+++ b/t/role-long-package-name.t
@@ -35,8 +35,8 @@ for (qw(
 }
 
 my $pkg = ref $foo;
-note $pkg;
 eval "package $pkg;";
-ok(!$@) or diag $@;
+is $@, '', 'package name usable by perl'
+  or diag "package: $pkg";
 
 done_testing;