7 my $m; BEGIN { use_ok($m = "Catalyst::Authentication::User") }
11 sub other_method { 'FNAR' };
18 sub new { bless {}, shift };
20 sub supported_features {
24 unsupported_subfeature => 0,
30 bless {}, 'SomeBaseUser';
34 my $o = SomeUser->new;
36 can_ok( $m, "supports" );
38 ok( $o->supports("top_level"), "simple top level feature check");
39 ok( $o->supports(qw/feature subfeature/), "traversal");
40 ok( !$o->supports(qw/feature unsupported_subfeature/), "traversal terminating in false");
43 $o->supports("bad_key");
44 } "can check for non existent feature";
47 # $o->supports(qw/bad_key subfeature/)
48 #} "but can't traverse into one";
51 is $o->other_method, 'FNAR', 'Delegation onto user object works';