Radically rewrite and tighten benchmarker, add more acc. makers

[p5sagit/Class-Accessor-Grouped.git] / t / inherited.t

diff --git a/t/inherited.t b/t/inherited.t
index 942c309..a2e1567 100644 (file)
--- a/t/inherited.t
+++ b/t/inherited.t
@@ -1,4 +1,5 @@
 use Test::More tests => 36;
+use Test::Exception;
 use strict;
 use warnings;
 use lib 't/lib';
@@ -57,15 +58,13 @@ is(BaseInheritedGroups->basefield, 'All Your Base');
 # croak on get/set on non hash-based object
 my $dying = NotHashBased->new;
 
-eval {
-    $dying->killme;
-};
-ok($@ =~ /Cannot get.*is not hash-based/);
+throws_ok {
+  $dying->killme;
+} qr/Cannot get.*is not hash-based/;
 
-eval {
-    $dying->killme('foo');
-};
-ok($@ =~ /Cannot set.*is not hash-based/);
+throws_ok {
+  $dying->killme('foo');
+} qr/Cannot set.*is not hash-based/;
 
 # make sure we're get defined items, even 0, ''
 BaseInheritedGroups->basefield('base');