X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F06_user.t;h=62db2663ea0dee52a02e8cd639d871d20ab130e6;hb=8f57bf96b78b15ca9407e6ab5d2426745ac8a1f0;hp=244335e3c14ec165168c19f408995955b85fa769;hpb=4b33bb960b0df7ac4222a5d85f18aac831c5be28;p=catagits%2FCatalyst-Plugin-Authentication.git diff --git a/t/06_user.t b/t/06_user.t index 244335e..62db266 100644 --- a/t/06_user.t +++ b/t/06_user.t @@ -12,20 +12,20 @@ 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 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'; } @@ -40,11 +40,11 @@ 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 {