fix Module::Install without . in @INC

[catagits/Catalyst-Plugin-Authentication.git] / t / 06_user.t

diff --git a/t/06_user.t b/t/06_user.t
index f2bfa8c..62db266 100644 (file)
--- a/t/06_user.t
+++ b/t/06_user.t
@@ -1,26 +1,34 @@
 use strict;
 use warnings;
 
-use Test::More tests => 6;
+use Test::More;
 use Test::Exception;
 
 my $m; BEGIN { use_ok($m = "Catalyst::Authentication::User") }
 
 {
-       package SomeUser;
-       use base $m;
-
-       sub new { bless {}, shift };
-
-       sub supported_features {
-               {
-                       feature => {
-                               subfeature => 1,
-                               unsupported_subfeature => 0,
-                       },
-                       top_level => 1,
-               }
-       }
+    package SomeBaseUser;
+    sub other_method { 'FNAR' };
+}
+
+{
+    package SomeUser;
+    use base $m;
+
+    sub new { bless {}, shift };
+
+    sub supported_features {
+        {
+            feature => {
+                subfeature => 1,
+                unsupported_subfeature => 0,
+            },
+            top_level => 1,
+        }
+    }
+    sub get_object {
+        bless {}, 'SomeBaseUser';
+    }
 }
 
 my $o = SomeUser->new;
@@ -32,11 +40,17 @@ ok( $o->supports(qw/feature subfeature/), "traversal");
 ok( !$o->supports(qw/feature unsupported_subfeature/), "traversal terminating in false");
 
 lives_ok {
-       $o->supports("bad_key");
+    $o->supports("bad_key");
 } "can check for non existent feature";
 
 #dies_ok {
-#      $o->supports(qw/bad_key subfeature/)
+#    $o->supports(qw/bad_key subfeature/)
 #} "but can't traverse into one";
 
+lives_ok {
+    is $o->other_method, 'FNAR', 'Delegation onto user object works';
+} 'Delegation lives';
+
+done_testing;
+