Fix calling User->can() as a class method. RT#90715

[catagits/Catalyst-Authentication-Store-DBIx-Class.git] / t / 10-user-autoload.t

diff --git a/t/10-user-autoload.t b/t/10-user-autoload.t
index e58c835..451ee65 100644 (file)
--- a/t/10-user-autoload.t
+++ b/t/10-user-autoload.t
@@ -1,6 +1,7 @@
 use strict;
 use warnings;
 use Test::More;
+use Try::Tiny;
 use Catalyst::Authentication::Store::DBIx::Class::User;
 
 my $message = 'I exist';
@@ -11,9 +12,10 @@ my $message = 'I exist';
   sub exists { $message }
 }
 
+my $class = 'Catalyst::Authentication::Store::DBIx::Class::User';
 my $o = bless({
   _user => bless({}, 'My::Test'),
-}, 'Catalyst::Authentication::Store::DBIx::Class::User');
+}, $class);
 
 is($o->exists, $message, 'AUTOLOAD proxies ok');
 
@@ -21,4 +23,24 @@ ok(my $meth = $o->can('exists'), 'can returns true');
 
 is($o->$meth, $message, 'can returns right coderef');
 
+is($o->can('non_existent_method'), undef, 'can on non existent method returns undef');
+
+is($o->non_existent_method, undef, 'AUTOLOAD traps non existent method');
+
+try {
+    is($class->can('non_existent_method'), undef, "can on non existent class method");
+} catch {
+    my $e = $_;
+    fail('can on non existent class method');
+    diag("Got exception: $e");
+};
+
+try { 
+    is($class->non_existent_method, undef, 'AUTOLOAD traps non existent class method');
+} catch {
+    my $e = $_;
+    fail('AUTOLOAD traps non existent class method');
+    diag("Got exception: $e");
+};
+
 done_testing;