Add AUTOLOAD nicked from the dbic store to base class

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

diff --git a/t/06_user.t b/t/06_user.t
index f2bfa8c..244335e 100644 (file)
--- a/t/06_user.t
+++ b/t/06_user.t
@@ -1,12 +1,17 @@
 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 SomeBaseUser;
+    sub other_method { 'FNAR' };
+}
+
+{
        package SomeUser;
        use base $m;
 
@@ -21,6 +26,9 @@ my $m; BEGIN { use_ok($m = "Catalyst::Authentication::User") }
                        top_level => 1,
                }
        }
+    sub get_object {
+        bless {}, 'SomeBaseUser';
+    }
 }
 
 my $o = SomeUser->new;
@@ -39,4 +47,10 @@ lives_ok {
 #      $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;
+