t/solpeople/login.t

   1 use strict;
   2
   3 use Test::More tests => 17;
   4 use Test::WWW::Mechanize;
   5
   6 use_ok("CXGN::DB::Connection");
   7 use_ok("CXGN::People::Person");
   8
   9 my $dbh = CXGN::DB::Connection->new();
  10
  11 my $m = Test::WWW::Mechanize->new();
  12
  13 my $server = $ENV{SGN_TEST_SERVER}
  14   || die "Need SGN_TEST_SERVER environment variable set";
  15
  16 # generate a new user for testing purposes
  17 # (to be deleted right afterwards)
  18
  19 if( my $u_id = CXGN::People::Person->get_person_by_username( $dbh, "testusername" ) ) {
  20     CXGN::People::Person->new( $dbh, $u_id )->hard_delete;
  21 }
  22 #
  23 my $p = CXGN::People::Person->new($dbh);
  24 $p->set_first_name("testfirstname");
  25 $p->set_last_name("testlastname");
  26 my $p_id = $p->store();
  27
  28 my $login = CXGN::People::Login->new( $dbh, $p_id );
  29 $login->set_username("testusername");
  30 $login->set_password("testpassword");
  31 $login->set_user_type("user");
  32
  33 $login->store();
  34
  35 $dbh->commit();
  36
  37 my $u_id = CXGN::People::Person->get_person_by_username( $dbh, "testusername" );
  38 my $u = CXGN::People::Person->new( $dbh, $u_id );
  39
  40 is( $u->get_first_name(), "testfirstname", "Test first name test" );
  41
  42 # check basic login
  43 #
  44 $m->get_ok("$server/solpeople/top-level.pl");
  45 $m->content_contains("Login");
  46
  47 my %form = (
  48     form_name => 'login',
  49     fields    => {
  50         username => 'testusername',
  51         pd       => 'testpassword',
  52     },
  53    );
  54
  55 $m->submit_form_ok( \%form, "Login form submission test" );
  56
  57 #$m->get_ok("$server/solpeople/top-level.pl");
  58
  59 #print STDERR $m->content();
  60 $m->content_contains("testfirstname");
  61
  62 # check if logout works
  63 #
  64 $m->get_ok( "$server/solpeople/login.pl?logout=yes",
  65             "Request logout page" );
  66
  67 $m->content_contains("You have successfully logged out");
  68
  69 # login as a curator
  70 #
  71 $login->set_user_type("curator");
  72 $login->store();
  73 $dbh->commit();
  74
  75 $m->get("$server/solpeople/login.pl");
  76 $m->submit_form_ok( \%form, "Login as curator form submission" );
  77 $m->get_ok("$server/solpeople/top-level.pl");
  78 $m->content_contains( "Curator Tools", "Curator tools presence test" );
  79
  80 $m->get_ok("$server/solpeople/login.pl?logout=yes");
  81 $m->content_contains("You have successfully logged out");
  82
  83 # try logging in with wrong password
  84 #
  85 $form{fields}->{pd} = "blablabla"; # enter wrong password
  86 $m->get_ok("$server/solpeople/login.pl");
  87 $m->submit_form_ok( \%form, "Submit wrong password test" );
  88 $m->content_contains("Incorrect username or password");
  89
  90
  91 # delete the test user from the database (even if the test died)
  92 #
  93 END { $u->hard_delete() if $u }