X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F010_basics%2F002_require_superclasses.t;h=ad09165db571059bef8b135db001483b8293a83c;hb=e5719a51d40661dc4c5ca31bfa1978d1d9b19527;hp=36859cab26cfa526afef4969497cbed16f1fc5f2;hpb=d03bd989b97597428b460d7f9a021e2931893fa0;p=gitmo%2FMoose.git

diff --git a/t/010_basics/002_require_superclasses.t b/t/010_basics/002_require_superclasses.t
index 36859ca..ad09165 100644
--- a/t/010_basics/002_require_superclasses.t
+++ b/t/010_basics/002_require_superclasses.t
@@ -5,40 +5,65 @@ use warnings;
 
 use lib 't/lib', 'lib';
 
-use Test::More tests => 5;
-
+use Test::More;
+use Test::Exception;
 
 
 {
+
     package Bar;
     use Moose;
 
-    eval { extends 'Foo'; };
-    ::ok(!$@, '... loaded Foo superclass correctly');
+    ::lives_ok { extends 'Foo' } 'loaded Foo superclass correctly';
 }
 
 {
+
     package Baz;
     use Moose;
 
-    eval { extends 'Bar'; };
-    ::ok(!$@, '... loaded (inline) Bar superclass correctly');
+    ::lives_ok { extends 'Bar' } 'loaded (inline) Bar superclass correctly';
 }
 
 {
+
     package Foo::Bar;
     use Moose;
 
-    eval { extends 'Foo', 'Bar'; };
-    ::ok(!$@, '... loaded Foo and (inline) Bar superclass correctly');
+    ::lives_ok { extends 'Foo', 'Bar' }
+    'loaded Foo and (inline) Bar superclass correctly';
 }
 
 {
+
     package Bling;
     use Moose;
 
-    eval { extends 'No::Class'; };
-    ::ok($@, '... could not find the superclass (as expected)');
-    ::like($@, qr/^Could not load class \(No\:\:Class\) because \:/, '... and got the error we expected');
+    ::throws_ok { extends 'No::Class' }
+    qr{Can't locate No/Class\.pm in \@INC},
+    'correct error when superclass could not be found';
+}
+
+{
+    package Affe;
+    our $VERSION = 23;
+}
+
+{
+    package Tiger;
+    use Moose;
+
+    ::lives_ok { extends 'Foo', Affe => { -version => 13 } }
+    'extends with version requirement';
+}
+
+{
+    package Birne;
+    use Moose;
+
+    ::throws_ok { extends 'Foo', Affe => { -version => 42 } }
+    qr/Affe version 42 required--this is only version 23/,
+    'extends with unsatisfied version requirement';
 }
 
+done_testing;