The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use warnings;
use strict;

use Jifty::Test tests => 6;

use_ok('Jifty::Test::WWW::Mechanize');

my $server = Jifty::Test->make_server;
my $url = $server->started_ok;

my $mech = Jifty::Test::WWW::Mechanize->new;
ok($mech, 'contructed Jifty::Test::WWW::Mechanize');
isa_ok($mech, 'Jifty::Test::WWW::Mechanize');
isa_ok($mech, 'Test::WWW::Mechanize');
isa_ok($mech, 'WWW::Mechanize');

# XXX TODO need more tests to make sure that our mech can connect
# and do meaningful tests on a Jifty server