5 use Test::More tests => 5;
7 use Test::WWW::Mechanize::Catalyst 'Catty';
9 my $root = "http://localhost";
11 my $m = Test::WWW::Mechanize::Catalyst->new;
12 $m->credentials( 'user', 'pass' );
14 $m->get_ok("$root/check_auth_basic/");
15 is( $m->ct, "text/html" );
16 is( $m->status, 200 );
18 $m->credentials( 'boofar', 'pass' );
20 $m->get("$root/check_auth_basic/");
21 is( $m->ct, "text/html" );
22 is( $m->status, 401 );