[Bast-commits] r7642 - Class-C3-Componentised/trunk/t

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-09-12 11:03:44 +0000 (Sat, 12 Sep 2009)
New Revision: 7642

Modified:
   Class-C3-Componentised/trunk/t/01-basic.t
Log:
use Test::Exception

Modified: Class-C3-Componentised/trunk/t/01-basic.t
===================================================================
--- Class-C3-Componentised/trunk/t/01-basic.t	2009-09-12 10:46:51 UTC (rev 7641)
+++ Class-C3-Componentised/trunk/t/01-basic.t	2009-09-12 11:03:44 UTC (rev 7642)
@@ -48,9 +48,11 @@
 $retval = eval { MyModule->load_optional_class('MyModule::OwnComponent') };
 ok( !$@, 'load_optional_class on an existing class did not throw' );
 ok( $retval, 'MyModule::OwnComponent loaded' );
-eval { MyModule->load_optional_class('MyModule::ErrorComponent') };
-like( $@, qr/did not return a true value/,
-      'MyModule::ErrorComponent threw ok' );
+throws_ok (
+  sub { MyModule->load_optional_class('MyModule::ErrorComponent') },
+  qr/did not return a true value/,
+  'MyModule::ErrorComponent threw ok'
+);
 
 # Simulate a PAR environment
 {