t/04login.t

   1 use warnings;
   2 use strict;
   3
   4 use stemmaweb;
   5 use LWP::Protocol::PSGI;
   6 use Test::WWW::Mechanize;
   7
   8 use Test::More;
   9 use HTML::TreeBuilder;
  10 use Data::Dumper;
  11
  12 use FindBin;
  13
  14 use IPC::System::Simple qw(system);
  15 system("$FindBin::Bin/../script/maketestdb.pl");
  16
  17 LWP::Protocol::PSGI->register(stemmaweb->psgi_app);
  18
  19 my $ua = Test::WWW::Mechanize->new;
  20
  21 $ua->get_ok('http://localhost/login');
  22 my $response = $ua->submit_form(
  23     fields => {
  24         username    => 'user@example.org',
  25         password    => 'UserPass'
  26     });
  27
  28 $ua->content_contains('Stemmaweb - Logged in', 'Log in successful.');
  29
  30 my $content  = $ua->get('/');
  31 $ua->content_contains('Hello! user@example.org', 'We are logged in.');
  32
  33 done_testing;