#
#===============================================================================
#
# FILE: 06wizard_catalyst.t
#
# DESCRIPTION: Testing catalyst $c->detach_next_action and etc.
#
# FILES: ---
# BUGS: ---
# NOTES: ---
# AUTHOR: Pavel Boldin (davinchi), <boldin.pavel@gmail.com>
# COMPANY:
# VERSION: 1.0
# CREATED: 04.11.2007 16:35:06 SAMT
# REVISION: ---
#===============================================================================
use strict;
use warnings;
use Test::More tests => 7; # last test to print
use lib qw(t/lib t/mechanize/lib t/mechanize/lib/WizardTest);
use ok 'Test::WWW::Mechanize::Catalyst' => 'ComplexWizardTestApp';
use Test::Wizard;
$m = Test::WWW::Mechanize::Catalyst->new(requests_redirectable => []);
ok_redirect('http://localhost/second/def', '/second/def_second', 'ok redirecting to default');
undef $wid;
ok_redirect(undef, '/second/def/2', 'ok default redirect');
ok_redirect(undef, undef, 'ok getting page was redirected to');
$m->content_is('OK!', 'passed test ok');