X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fcatalyst-request-rest.t;h=ac49e29cddeb77d43df52ac223390b3f0c9f8bb5;hb=ff3c00d97839abf846e0dcb611434e5f08366c66;hp=2f1799b8d3bb6f0877c7ab064d87914882b99959;hpb=de1fb650378975cfcafe60e7b9a031825df7392e;p=catagits%2FCatalyst-Action-REST.git diff --git a/t/catalyst-request-rest.t b/t/catalyst-request-rest.t index 2f1799b..ac49e29 100644 --- a/t/catalyst-request-rest.t +++ b/t/catalyst-request-rest.t @@ -168,15 +168,13 @@ use HTTP::Headers; } { - # XXX calling ->setup twice breaks Catalyst 5.80; find a different way to - # reset the components/actions my $test = 'Test::Catalyst::Action::REST'; use_ok $test; is($test->request_class, 'Catalyst::Request::REST', 'Request::REST took over for Request'); $test->request_class('Some::Other::Class'); - eval { $test->setup }; + eval { $test->setup_finished(0); $test->setup }; like $@, qr/$test has a custom request class Some::Other::Class/; { @@ -184,7 +182,7 @@ use HTTP::Headers; use base 'Catalyst::Request::REST'; } $test->request_class('My::Request'); - eval { $test->setup }; + eval { $test->setup_finished(0); $test->setup }; is $@, '', 'no error from Request::REST subclass'; }