#!/usr/bin/env perl
use warnings;
use strict;
use lib 't/lib';
use Jifty::Test tests => 9;
use Jifty::Test::WWW::Mechanize;
my $server = Jifty::Test->make_server;
isa_ok($server, 'Jifty::Server');
my $URL = $server->started_ok;
my $mech = Jifty::Test::WWW::Mechanize->new();
$mech->get_ok($URL . '/oauth');
$mech->content_like(qr{/oauth/request_token}, "oauth page mentions request_token URL");
$mech->content_like(qr{/oauth/authorize}, "oauth page mentions authorize URL");
$mech->content_like(qr{/oauth/access_token}, "oauth page mentions access_token URL");
$mech->content_like(qr{http://oauth\.net/}, "oauth page mentions OAuth homepage");
my $response = $mech->get($URL . '/oauth/authorize');
is($response->code, 401, "/oauth/authorize requires being logged in");
$mech->content_unlike(qr{If you trust this application}, "/oauth/authorize requires being logged in");