5 use LWP::Protocol::PSGI;
6 use Test::WWW::Mechanize;
13 use lib ("$FindBin::Bin/lib");
15 use stemmaweb::Test::DB;
17 stemmaweb::Test::DB->new_db;
19 LWP::Protocol::PSGI->register(stemmaweb->psgi_app);
21 use stemmaweb::Test::Common;
23 my $ua = Test::WWW::Mechanize->new;
25 $ua->get_ok('http://localhost/register');
27 my $response = $ua->submit_form(
29 username => 'user2@example.org',
30 password => 'UserPass',
31 confirm_password => 'UserPass',
38 $ua->content_contains('Stemmaweb - Logged in', 'Log in successful.');
40 my $content = $ua->get('/');
41 $ua->content_contains('Hello! user@example.org', 'We are logged in.');