X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F06_user.t;h=f2bfa8ce01eb4ecce0f7d09b732c969243c61ae6;hb=dc09e932e68f148d5f855dc13bad2394f8411b38;hp=f408163234007a4485bf7be463c0111b1895bbe3;hpb=26549221235886ce923ffa0e9d88421ed8c4b06c;p=catagits%2FCatalyst-Plugin-Authentication.git diff --git a/t/06_user.t b/t/06_user.t index f408163..f2bfa8c 100644 --- a/t/06_user.t +++ b/t/06_user.t @@ -1,12 +1,10 @@ -#!/usr/bin/perl - use strict; use warnings; -use Test::More tests => 7; +use Test::More tests => 6; use Test::Exception; -my $m; BEGIN { use_ok($m = "Catalyst::Plugin::Authentication::User") } +my $m; BEGIN { use_ok($m = "Catalyst::Authentication::User") } { package SomeUser; @@ -35,10 +33,10 @@ ok( !$o->supports(qw/feature unsupported_subfeature/), "traversal terminating in lives_ok { $o->supports("bad_key"); -} "cant check for non existent feature"; +} "can check for non existent feature"; -dies_ok { - $o->supports(qw/bad_key subfeature/) -} "but can't traverse into one"; +#dies_ok { +# $o->supports(qw/bad_key subfeature/) +#} "but can't traverse into one";