-#!/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;
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";