4 use Test::More tests => 6;
7 my $m; BEGIN { use_ok($m = "Catalyst::Plugin::Authentication::User") }
13 sub new { bless {}, shift };
15 sub supported_features {
19 unsupported_subfeature => 0,
26 my $o = SomeUser->new;
28 can_ok( $m, "supports" );
30 ok( $o->supports("top_level"), "simple top level feature check");
31 ok( $o->supports(qw/feature subfeature/), "traversal");
32 ok( !$o->supports(qw/feature unsupported_subfeature/), "traversal terminating in false");
35 $o->supports("bad_key");
36 } "can check for non existent feature";
39 # $o->supports(qw/bad_key subfeature/)
40 #} "but can't traverse into one";