#!/usr/bin/env perl
use warnings;
use strict;

use Jifty::Test::Dist tests => 4;
use Jifty::Test::WWW::Mechanize;

my $server = Jifty::Test->make_server;
isa_ok($server, 'Jifty::TestServer');

my $url = $server->started_ok;

my $mech = Jifty::Test::WWW::Mechanize->new;

$mech->get_ok("$url/crud/User");
$mech->title_is("User");

# TODO FIXME XXX Surely more tests are needed... and don't call me Shirley.